[求助]：选择物体引线

dhxf

通过选择物体,引线

eachy

使用天正或者斯维尔建筑

dhxf

(defun c:ww2()

(command ".undo" "be")
(setvar "cmdecho" 0)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)

(setq pt1 (getpoint "\n始点:"))
(setq pt2 (getpoint "\n结点:"))
(command ".line" pt1 pt2 "")
(while
(setq pt3 (getpoint "\n下一始点:"))
(command ".line" pt3 pt2 "")
)
(command ".line" pt2 )

(setvar "osmode" oldos)
(command ".undo" "e")
(princ)
)

得手动选点;只比挨条画线强一点

xyp1964

[php]
(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：[/COLOR]
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
http://www.mjtd.com/bbs/dispbbs. ... ID=37554&page=1|;


;;;通过选择物体,引线 (多选)
;;;仅支持方块（*POLYLINE）
(defun c:test ()
  (CMDLA0)
  (setq        pt0 (UPOINT 1 "" "\n引线交点位置" PT0 nil)        )
  (setvar"osmode"0)
  (command "line" pt0 (list (+(car pt0)3000)(cadr pt0))"")
  (setq        ss  (ssget '((0 . "*POLYLINE")))
        i   -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (LRPT-pline s1)
    (command "line" pt2 pt0 "")
  )
  (CMDLA1)
)[/php]