CAD lisp 如何实现框选两条直线,然后得到两条直线的端点坐标?
图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标。这个用lisp语言如何实现...
图上有两条相交直线,我想通过一次点击或者框选,得到两条直线端点的坐标。这个用lisp语言如何实现
展开
2个回答
展开全部
给你一些提示吧,得到直线 用的是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)))
(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)))
追问
(0 . "spline,arc,line,ellipse,LWPOLYLINE")这一句是什么意思啊,可以解释一下么?
追答
这是一个“表”,你注意看中间有个“.”,所以 你可以叫他"点表"
北京丹青华瑞科贸
2024-11-22 广告
2024-11-22 广告
瑞士丹青科技集团成立于1986年,是集研发、生产、销售、技术服务于一体的计量检测设备和几何量测量解决方案供应商...
点击进入详情页
本回答由 北京丹青华瑞科贸提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询