Lisp CAD 我想实现连续直线.

来源：学生作业帮编辑：神马作文网作业帮分类：语文作业时间：2024/11/11 06:36:29

Lisp CAD 我想实现连续直线.
之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度（默认零度）控制一组线角度,也就是这组线角度相同,然后输入这组线每段长度,则生成直线是一组每段特定长度直线,且每段直线端点加上一个直径4圆圈,
lyt,你现在实现了连续画线,但是每次都是重新选择端点,能否实现只选择一次第一点,然后连续画线呢

(defun c:ww (/ group)
;输入角度默认0
(setq ang 0)
(if (setq ang_test (getangle "选择角度"));默认ang为0 若有输入ang 则为ang值
(setq ang ang_test)
)
;循环读入数据 2可调为你想要的数据个数
(setq group '())
(repeat 2
(setq group (cons (getreal "输入长度") group))
)
(setq group (reverse group))
;根据数的个数循环处理每一个长度
(setq number (length group))
(repeat number
(setq item (car group))
(setq p1 (getpoint "选择起点"))
(setq p2 (polar p1 ang item) );使用极坐标通过起点以及角度长度获取终点坐标
(command "line" p1 p2 "")
(command "circle" p2 2)
(setq group (cdr group))
)
)

把原来角度语句提前就好了你看看流程对不或者还需要什么功能
再问：你好，lyt，你现在实现了连续画线，但是每次都是重新选择端点，能否实现只选择一次第一点，然后连续画线呢?
再答： (defun c:ww (/ group) ;输入角度默认0 (setq ang 0) (if (setq ang_test (getangle "选择角度"));默认ang为0 若有输入ang 则为ang值 (setq ang ang_test) ) ;循环读入数据 2可调为你想要的数据个数 (setq group '()) (repeat 2 (setq group (cons (getreal "输入长度") group)) ) (setq group (reverse group)) ;根据数的个数循环处理每一个长度 (setq number (length group)) (setq p1 0) (repeat number (setq item (car group)) (if (= p1 0) (setq p1 (getpoint "选择起点")) ) (setq p2 (polar p1 ang item) );使用极坐标通过起点以及角度长度获取终点坐标 (command "line" p1 p2 "") (setq p1 p2) (command "circle" p2 2) (setq group (cdr group)) ) ) 你看是这样么

CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标? 在CAd中怎么连续得画直线和弧线 Solidworks草图中画直线命令怎样画连续直线、间断直线?能实现它们之间的切换吗? 有没有能实现物体直线连续往返运动的方法吗? lisp语句条件表达式 cad中怎么实现测量两个圆弧或者圆弧与直线间的最大垂直距离,如图所示 cad怎么连续打断于点,比如一条直线,有的区间是实线,有的是虚线,有的是点划线等 CAD测算两点距离?初学软件,我想知道两条直线或两点之间的距离, cad直线怎么画, CAD如何延长直线? CAD中做圆,要求圆心在一条已知直线上,同时要求该圆与另一条已知直线以及另一个已知圆同时相切,如何实现 CAD里连续的圆弧怎么画