[编程交流] 标注属性编辑

(defun c:3plc (/ ss Objlst)
 (vl-load-com)
 (if (setq ss (ssget '((0 . "DIMENSION"))))
   (progn
     (setq objlst
       (mapcar 'vlax-ename->vla-object
         (vl-remove-if 'listp
           (mapcar 'cadr
             (ssnamex ss)))))
     (mapcar
       (function
         (lambda (x)
           (vla-put-TextMovement x acDimLineWithText))) ObjLst))
   (princ "\n<< Nothing Selected >>"))
 (princ))

(defun c:tfm (/ ss Objlst)
 (vl-load-com)
 (if (setq ss (ssget '((0 . "DIMENSION"))))
   (progn
     (setq objlst
       (mapcar 'vlax-ename->vla-object
         (vl-remove-if 'listp
           (mapcar 'cadr
             (ssnamex ss)))))
     (mapcar
       (function
         (lambda (x)
           (vla-put-UnitsFormat x acDimLFractional))) ObjLst)
     (mapcar
       (function
         (lambda (x)
           (vla-put-PrimaryUnitsPrecision x acDimPrecisionFive))) ObjLst)
     (mapcar
       (function
         (lambda (x)
           (vla-put-TextMovement x acDimLineWithText))) ObjLst))
   (princ "\n<< Nothing Selected >>"))
 (princ))