Lisp CAD 求助高手!怎么通过代码实现连续画直线?

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/08/29 03:39:23

Lisp CAD 求助高手!怎么通过代码实现连续画直线?
我想实现一个功能,举例,输入一组长度数字（10 20 30 40 20 23 52）其中每组有上限例如10个长度,输入长度后,输入直线角度,最好默认不输入时为零度,切每段直线的端点处加入4mm的圆圈,我的未完成代码：
(defun tes0();输入一组线长
)
(defun tes1();循环控制
(setq p0(getpoint"\n选择起始点"))
(setq ang (getangle p0"\n选择直线方向或输入直线角度"))
)
(defun tes2();pn线起始点控制

(setq p0(getpoint"\n选择起始点"))
(setq ang (getangle p0"\n选择直线方向或输入直线角度"))
(setq le (getdist"\n输入直线长度"))

)
(defun tes3();pd线终止点控制
)
(defun c:ww () ;;划线并添加圆圈
(setvar "blipmode" 0)
(setq pn(tes2))
(setq pd(tes3)) (setq #os (getvar "osmode")) ;;取得当前捕捉设置
(setq #k (getvar "clayer")) ;;取得当前图层
(setvar "clayer" "0") ;;切换到图层0
(command "circle" pd 1.5)
(setvar "clayer" #k) ;;恢复原来图层 (setvar "osmode" #os) ;;恢复捕捉设置
(command "line" pn pd) (command pause)
(princ) )

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

CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标? 在CAd中怎么连续得画直线和弧线 cad直线怎么画, CAD两圆画直线怎么画? CAD里连续的圆弧怎么画 CAD中用多段线画连续圆弧怎么画? CAD直线与圆相切怎么画怎么在cad中画一条直线 cad中确定长度直线怎么画 CAD怎么画直线的等分线 CAD圆形上一条直线怎么画请问各位高手,我在用CAD画直线(虚线)的时候,转折处怎么变成实线的?