wgij007 发表于 2021-3-30 21:19:01

本帖最后由 wgij007 于 2021-3-30 21:20 编辑

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 发表于 2021-4-1 22:10:32

只好顶一下

wgij007 发表于 2021-4-2 08:15:57

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


真的太感谢了，在刚学的过程中，只是有些想法不知怎样实现。如每次都有您这样的回复，那就好了。再次感谢。
页: 1 [2]
查看完整版本: 求帮改一下程序，框选内容