先输入你要操作的命令，如复制，当提示选择对象时，输wp回车，沿着多段线边界点一圈，就选中了里面的图元了

这个我知道啊，我想说的是根据已有的多段线，因为有的边界很复杂，用WP很累啊。

(defun c:asdf ( / ss li n li1 )
(princ "请输入多段线:")
(setq ss (ssget '((0 . "LWPOLYLINE"))));只认第一个你选的多段线对象
(if ss
(progn
(setq li (vlax-safearray->list (vlax-variant-value (vla-get-coordinates (vlax-ename->vla-object (ssname ss 0))))))
(setq n 0)
(repeat (/ (length li) 2)
(setq li1 (append li1 (list (list (nth n li) (nth (1+ n) li)))))
(setq n (+ 2 n))
)
)
)
(setq ss (ssdel (ssname ss 0) (ssget "cp" li1)))
(sssetfirst ss ss)
(princ)
)

[ 本帖最后由 feng582304 于 2010-9-29 21:32 编辑 ]

很好用，谢谢！