作业帮CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标.这个用lisp语言如何实现
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/01 14:39:13
xݒn@_e d5=
B)j{C ݰ*1Y JOV-Muevv7oډB"qih7me >x<\` n?zG; G#W!?)Nc}4|Ng!ZSs?ҷs"FU::} DAhXc^O8ވ3 >YH?[ʤKc:hJ |x+˔=" Lv%d ܖ N-
dV _ހ[L B-VE.u@diXjSЇFQ8)ۯ6D\FD,#obM/
#oenge=^R7uMu@H\28Z G
68 ! *VWfubʬ%E,me~?
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中如何直接画出空一段距离的直线?