按标注样式选中所有标注（源码）

【KAIXIN】 · 发表于 2011-12-24 11:12:50

此源码是针对论坛很多朋友老是问这样类似的问题！（特做以下源码为参考）（绝对受用！）

该贴已经同步到【KAIXIN】的微博

zhangcan0515 · 发表于 2022-12-1 22:33:22

ddqzmpaxlozc 发表于 2020-6-7 10:25
一个selectsimilar就可以解决，哈哈哈，是不是当年还没出这个功能

真是秀啊 666666666666

ddqzmpaxlozc · 发表于 2020-6-7 10:25:06

一个selectsimilar就可以解决，哈哈哈，是不是当年还没出这个功能

ZYX2129 · 发表于 2022-12-4 21:00:36

谢谢楼主的分享！很有意思的代码，收藏备用。

669423907 · 发表于 2011-12-24 11:15:35

大力的顶上！

328302216 · 发表于 2011-12-24 11:15:38

支持开心老大

mokson · 发表于 2012-1-6 09:13:00

开心使用中.感谢分享.

LLXXZZ · 发表于 2012-1-6 12:42:57

LLXXZZ · 发表于 2012-1-6 12:53:43

LLXXZZ 发表于 2012-1-6 12:42

感觉木啥用,写给同事的...

完整武器 · 发表于 2012-1-6 22:05:23

这个不错顶上

mjz521yy · 发表于 2012-1-10 13:13:34

感觉木啥用

adslwang · 发表于 2012-1-10 21:04:26

我水平太低只能远远观望学习了

millermin · 发表于 2012-1-11 09:23:14

顶你一个，我半年前做的，不知是不是跟你的一样功能。
(defun c:fda()
(setq dim-del(strcase(getstring "\nENTER A EXPIRED DIM STYLE:")))
(setq ss(ssget "x" '((0 . "DIMENSION,LEADER"))))
(setq m 0)
(setq n 0)
(setq sty(ssadd))
(if (/= ss nil)
   (progn
   (repeat (sslength ss)
      (setq dimdata(entget(ssname ss m)))
      (setq old-obj0(strcase(cdr(assoc 3 dimdata))))
         (if (= old-obj0 dim-del)
            (progn
               (ssadd (ssname ss m) sty)
               (setq m (1+ m))
               (setq n (1+ n))
            )
               (setq m (1+ m))
            )
      )
      (sssetfirst nil sty)
      (print(strcat "TOTAL DIMENSION OBJECTS:" "---------------------"(rtos m)))
      (print(strcat "TOTAL DIMENSION STYLES:" " [" dim-del "] " ":" "----------"(rtos n)))
      (princ)
   )
   (progn
      (print " DIMENSION NOT FOUND")
      (PRINC)
   )
)
)

账号		自动登录	找回密码
密码			注册

按标注样式选中所有标注（源码）

本帖子中包含更多资源

点评

点评

本帖子中包含更多资源

点评

点评

点评

点评