明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1151|回复: 2

标注恢复原值

[复制链接]
发表于 2020-5-1 13:34:15 | 显示全部楼层 |阅读模式
将手工修改过的尺寸标注恢复原值。
  1. ;;===============================================;;
  2. ;;                                             【标注复原】                                             ;;
  3. ;;===============================================;;
  4. ;;功能:尺寸标注恢复原值
  5. (defun c:dfy ()
  6.   (princ "\n->标注复原,选择需要恢复原值的标注:")
  7.   (setq ss (ssget '((0 . "dimension")))
  8.         ssm (sslength ss)
  9.         ssn 0
  10.         );setq
  11.   (repeat ssm
  12.      (setq ss1 (ssname ss ssn)
  13.            ssn (1+ ssn)
  14.            );setq
  15.    (command ".dim1" "new" "<>" ss1 "") ;;文字替代置空"<>"
  16.   );repeat
  17. (princ)
  18. )


发表于 2020-5-1 20:06:03 | 显示全部楼层
;;尺寸标注数值还原
(defun C:dd0 (/ ss i ent elist)
        (princ "\n选择要还原数值的标注:")
        (if(setq ss (ssget '((0 . "DIMENSION"))))
                (progn
                        (setq i -1)
                        (while (setq ent (ssname ss (setq i (1+ i))))
                                (setq elist (entget ent))
                                (if (= (cdr(assoc 0 elist)) "DIMENSION")
                                        (entmod (subst (cons 1 "") (assoc 1 elist) elist))
                                )
                        )
                )
        )
        (princ "\n所选标注还原数值完成!")
        (princ)
)
 楼主| 发表于 2020-5-2 00:43:31 | 显示全部楼层
1028695446 发表于 2020-5-1 20:06
;;尺寸标注数值还原
(defun C:dd0 (/ ss i ent elist)
        (princ "\n选择要还原数值的标注:")

抛砖引玉,把大神引来了,多谢大神优化!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-22 11:01 , Processed in 0.187456 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表