求帮改一下程序，框选内容

wgij007

caoyin 发表于 2021-3-30 19:24
你框选什么内容？尺寸标注、单行文字、引线和多重引线？

选取尺寸标注、单行文字、引线与红色的线段，圆，圆孤（也就所有是红色的）也就是反下面两段合在一起。

(defun c:sb (/ ss)
    (while (setq ss (ssget":s" '((0 . "DIMENSION,TEXT,*LEADER" )))))
         )


(defun c:sb2 (/ ss)
    (while (setq ss (ssget":s" '((62.1) ))))
         )

wgij007

只好顶一下

wgij007

caoyin 发表于 2021-4-2 00:14
楼主有必要学一点基础知识，
(ssget ":S" '((-4 . "")
             )

真的太感谢了，在刚学的过程中，只是有些想法不知怎样实现。如每次都有您这样的回复，那就好了。再次感谢。