Lisp CAD 我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度(默认零度)控制一组线
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 00:34:14
![Lisp CAD 我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度(默认零度)控制一组线](/uploads/image/z/13965988-4-8.jpg?t=Lisp+CAD+%E6%88%91%E6%83%B3%E5%AE%9E%E7%8E%B0%E8%BF%9E%E7%BB%AD%E7%9B%B4%E7%BA%BF.%E4%B9%8B%E5%89%8D%E4%BD%A0%E5%B8%AE%E6%88%91%E8%AF%B7%E6%95%99%E8%BF%99%E4%B8%AA%E9%97%AE%E9%A2%98%E6%97%B6%E5%8F%AF%E8%83%BD%E6%B2%A1%E6%9C%89%E8%AF%B4%E6%B8%85%E6%A5%9A%2C%E6%89%80%E4%BB%A5%E6%9C%8B%E5%8F%8B%E4%BB%AC%E5%B8%AE%E5%BF%99%E7%BC%96%E8%BE%91%E7%9A%84%E7%AD%94%E6%A1%88%E6%B2%A1%E6%9C%89%E5%BD%BB%E5%BA%95%E8%A7%A3%E5%86%B3%E6%88%91%E7%9A%84%E9%97%AE%E9%A2%98%2C%E6%88%91%E8%AF%B4%E4%B8%80%E4%B8%8B%E6%88%91%E7%9A%84%E6%8E%A7%E5%88%B6%E6%B5%81%E7%A8%8B%2C%E9%80%9A%E8%BF%87%E7%AC%AC%E4%B8%80%E6%AC%A1%E8%BE%93%E5%85%A5%E8%A7%92%E5%BA%A6%EF%BC%88%E9%BB%98%E8%AE%A4%E9%9B%B6%E5%BA%A6%EF%BC%89%E6%8E%A7%E5%88%B6%E4%B8%80%E7%BB%84%E7%BA%BF)
Lisp CAD 我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度(默认零度)控制一组线
Lisp CAD 我想实现连续直线.
之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度(默认零度)控制一组线角度,也就是这组线角度相同,然后输入这组线每段长度,则生成直线是一组每段特定长度直线,且每段直线端点加上一个直径4圆圈,
lyt,你现在实现了连续画线,但是每次都是重新选择端点,能否实现只选择一次第一点,然后连续画线呢
Lisp CAD 我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度(默认零度)控制一组线
(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))
)
)
把原来角度语句提前就好了 你看看流程对不 或者还需要什么功能