谢谢分享这么好的源代码,加一个 ,看看有用否?
本帖最后由 依然低调 于 2015-6-10 08:41 编辑;选择所有文字、圆、椭圆和封闭的多义线
(defun c:tt27 ()
(setqss (ssget '((-4 . "<OR")
(-4 . "<AND")
(0 . "TEXT,CIRCLE,ELLIPSE")
(-4 . "AND>")
(-4 . "<AND")
(0 . "LWPOLYLINE")
(-4 . "&=")
(70 . 1)
(-4 . "AND>")
(-4 . "OR>")
)
)
)
) njcknfy 发表于 2015-5-7 14:47 static/image/common/back.gif
请问闭合多边形外的对象建立选择集有什么好的办法吗?相当于(ssget "CP" pt_list)的反向选择集
;;;(setq pt_list (list '(591.451 94.5864 0.0) '(561.236 976.251 0.0) '(1981.32 927.941 0.0)))
(setq ss2 (ssget "CP" pt_list))
(setq ss (ssget "x"))
(command "._Select" ss "_Remove" ss2 "")
(setq ss (ssget "_P"))
(command "_copy" ss "")