查看单个帖子
旧 2009-04-26, 12:35 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [求助]如何不用鼠标就能自动捕捉直线中点

[求助]如何不用鼠标就能自动捕捉直线中点
www.dimcax.com
[求助]如何不用鼠标就能自动捕捉直线中点
用lisp程序已经画了三条直线,形状如“h”,如何在lisp程序里能捕捉到中间横线的中点。其中,横线是最后画的。
要求:不用鼠标选择对象
谢谢!
d
(entlast)得到横线,然后求中点
d
能否不用解析计算,在lisp中用cad自己的命令解决呢?
d
(defun test ()
(setq e (entlast)
ent (entget e)
p1 (cdr (assoc 10 ent))
p2 (cdr (assoc 11 ent))
)
(mapcar '(lambda (x y) (/ (+ x y) 2.0)) p1 p2)
)
d
4楼的方法实质还是要自己编写数学公式计算,能否不用自己写数学公式,直接应用cad自己的命令来捕捉到中点呢?
d
如果旁边很干净的话就在指定点的地方用(osnap point "mid"),point
可以是一个挨着中点的点,至于怎样才叫“挨着”,这个度自己掌握
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)