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) )
我想实现一个功能,举例,输入一组长度数字(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))
)
)
不知道是不是你想要的
;循环读入数据 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))
)
)
不知道是不是你想要的