CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 19:15:17
CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现

CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现
CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?
图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现

CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现
给你一些提示吧,得到直线 用的是ssget,它建立一个选择集,然后你在选择集中分别取各实体
(sslength xzj)获得选择集中对象的个数n
以下几行供参考
(setq en (ssget (list '(0 ."spline,arc,line,ellipse,LWPOLYLINE"))))
(repeat (sslength en)
(setq ss (ssname en i))
(setq line (entget ss))
(setq x (cdr (assoc 11 line)))
(setq y (cdr (assoc 10 line)))

CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现 CAD lisp 如何实现直线指定长度位置打断?举例子有一条100mm长度的直线,我想实现输入定义好的命令后选择直线,然后输入长度30,则100直线会被打断成了、30+70的直线,切选择直线时点击了100偏向 lisp语句条件表达式lisp语句中,if条件句,如果条件中有多个判断,如何实现,比如,当-0.4 Lisp CAD 求助高手!怎么通过代码实现连续画直线?我想实现一个功能,举例,输入一组长度数字(10 20 30 40 20 23 52)其中每组有上限例如10个长度,输入长度后,输入直线角度,最好默认不输入时为零 CAD如何延长直线? lisp语言如何编写圆弧, Lisp CAD 我想实现连续直线.之前你帮我请教这个问题时可能没有说清楚,所以朋友们帮忙编辑的答案没有彻底解决我的问题,我说一下我的控制流程,通过第一次输入角度(默认零度)控制一组线 LISP语言中求点到直线的距离 在lisp里,我想实现对特定的图形(比如矩形)选择,但是如果不小心选择了比如圆在lisp里,我想实现对CAD窗口里特定的图形(比如矩形)选择,但是如果不小心选择了比如圆,要实现 出现提示,说 CAD 如何把直线编辑成样条曲线 CAD作图,如何把多段线变成直线 cad中如何等分直线啊 cad如何画根号长度的直线 cad如何定义直线的长度 CAD平面图形,如何实现立体图形之间的转换 CAD中做圆,要求圆心在一条已知直线上,同时要求该圆与另一条已知直线以及另一个已知圆同时相切,如何实现 CAD,如何延伸直线到另一条直线? 在CAD中如何直接画出空一段距离的直线?