标注恢复原值

whuluqw

将手工修改过的尺寸标注恢复原值。

2. ;;===============================================;;
   
3. ;;                                             【标注复原】                                             ;;
   
4. ;;===============================================;;
   
5. ;;功能：尺寸标注恢复原值
   
6. (defun c:dfy ()
   
7.   (princ "\n->标注复原，选择需要恢复原值的标注:")
   
8.   (setq ss (ssget '((0 . "dimension")))
   
9.         ssm (sslength ss)
   
10.         ssn 0
    
11.         );setq
    
12.   (repeat ssm
    
13.      (setq ss1 (ssname ss ssn)
    
14.            ssn (1+ ssn)
    
15.            );setq
    
16.    (command ".dim1" "new" "<>" ss1 "") ;;文字替代置空"<>"
    
17.   );repeat
    
18. (princ)
    
19. )

;;===============================================;;<br /> ;;                                             【标注复原】                                             ;;<br /> ;;===============================================;;<br /> ;;功能：尺寸标注恢复原值<br /> (defun c:dfy () <br />   (princ "\n->标注复原，选择需要恢复原值的标注:")<br />   (setq ss (ssget '((0 . "dimension")))<br />         ssm (sslength ss)<br />         ssn 0 <br />         );setq <br />   (repeat ssm<br />      (setq ss1 (ssname ss ssn)<br />            ssn (1+ ssn)<br />            );setq<br />    (command ".dim1" "new" "<>" ss1 "") ;;文字替代置空"<>"<br />   );repeat<br /> (princ)<br /> )

1028695446

;;尺寸标注数值还原
(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)
)

whuluqw

1028695446 发表于 2020-5-1 20:06
;;尺寸标注数值还原
(defun C:dd0 (/ ss i ent elist)
        (princ "\n选择要还原数值的标注:")

抛砖引玉，把大神引来了，多谢大神优化！