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