Lisp CAD 我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度（默认零度）控制一组线

来源：学生作业帮助网编辑：六六作业网时间：2024/12/20 05:09:17

LispCAD我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度（默认零度）控制一组线LispCAD我想实

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))
)
)

把原来角度语句提前就好了你看看流程对不或者还需要什么功能

Lisp CAD 我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度（默认零度）控制一组线 CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现 Lisp CAD 求助高手!怎么通过代码实现连续画直线?我想实现一个功能,举例,输入一组长度数字（10 20 30 40 20 23 52）其中每组有上限例如10个长度,输入长度后,输入直线角度,最好默认不输入时为零 CAD lisp 如何实现直线指定长度位置打断?举例子有一条100mm长度的直线,我想实现输入定义好的命令后选择直线,然后输入长度30,则100直线会被打断成了、30+70的直线,切选择直线时点击了100偏向在lisp里,我想实现对特定的图形（比如矩形）选择,但是如果不小心选择了比如圆在lisp里,我想实现对CAD窗口里特定的图形（比如矩形）选择,但是如果不小心选择了比如圆,要实现出现提示,说 LISP语言中求点到直线的距离在CAd中怎么连续得画直线和弧线 lisp语句条件表达式lisp语句中,if条件句,如果条件中有多个判断,如何实现,比如,当-0.4 Solidworks草图中画直线命令怎样画连续直线、间断直线?能实现它们之间的切换吗? 有没有能实现物体直线连续往返运动的方法吗?往复式电动机如何实现往复运动 cad中怎么实现测量两个圆弧或者圆弧与直线间的最大垂直距离,如图所示 CAD如何延长直线? cad直线怎么画, cad怎么连续打断于点,比如一条直线,有的区间是实线,有的是虚线,有的是点划线等 CAD测算两点距离?初学软件,我想知道两条直线或两点之间的距离, C 语言和 Lisp 是同样强大的,那么可以说 C 语言可以做的事情 Lisp 也可以做吗?Turing Machine 和 Lambda Calculus 是等价的,这样基于 Turing Machine 实现的 C 语言和基于 Lambda Calculus 实现的 Lisp 就是具有同 cad 中怎么让一条只有点的斜直线通过点作垂线垂直于此条斜直线.偏移命令可以实现恩会了呵呵 CAD 只改变X或Y轴的比例插件求一个lisp的插件,比如用scxy可以单独按比例更改x或y轴的大小.