像这样的？
- (defun c:dimscl (/ scl ss)
- (vl-load-com)
- (if (and (setq scl (getreal "\nSpecify Scale Factor: "))
- (setq ss (ssget '((0 . "DIMENSION")))))
- (foreach x (mapcar 'vlax-ename->vla-object
- (vl-remove-if 'listp
- (mapcar 'cadr (ssnamex ss))))
- (vla-put-TextOverride x
- (strcat
- (vla-get-TextPrefix x)
- (rtos
- (vla-get-Measurement x)
- (vla-get-UnitsFormat x)
- (vla-get-PrimaryUnitsPrecision x))
- (vla-get-TextSuffix x)))
- (vla-ScaleEntity x
- (vla-get-ExtLine1Point x) scl))
- (princ "\n<< Nothing Selected >>"))
- (princ))
-
| 
