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
可以是一个挨着中点的点，至于怎样才叫“挨着”，这个度自己掌握