对位线的lsp有没有呀，各位高人
www.dimcax.com
对位线的lsp有没有呀，各位高人高手们。能不能这样。我选择一些圆。再把我的光标放在任意一点。然后所的圆都从圆心拉出一根线到我的任意点的位置。如；果能这样的话。将对绘图的对位有很大帮助。
d
如果是矩形如果我选择的是矩型。那就从矩型的角点拉一根线到任意点也行呀。
d
(defun c:tt (/ e p)
(if (setq e (entsel "\n选择圆: "))
(progn
(setq p (cdr (assoc 10 (entget (car e)))))
(command "_.line" p)
(setq p (getpoint p "\n指定点: "))
(command p "")
)
)
(princ)
)
d
d
好像不行.我们做图的时候经常要对位.就是选择一些元素查下层的位.我们做空调的时候.有空调水管.下层也有水管.我们要查下层跟上层是不在同一坐标位.我们就给本层的所有水管也就是圆,画一根线聚焦到一点.,再把聚焦线拷到下一个文件里.查位.
因为这些圆我们要一个一个的画聚焦线,能不能选择这些圆,在屏幕上点一个.所有的圆都拉到线到聚点上来了
d
(defun c:tt (/ ss i p1 p)
(if (and (setq ss (ssget '((0 . "circle"))))
(setq p1 (getpoint "\n指定点: ")))
(repeat (setq i (sslength ss))
(setq p (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))))
(command "_.line" "_non" p "_non" p1 "")
)
)
(princ)
)