社区 › Auto Lisp › 标注属性编辑

Lee Mac 发表于 2022-7-6 15:15:30

这样地？
 

(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))

Lee Mac 发表于 2022-7-6 15:17:27

或者可能：
 

(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))

bradb 发表于 2022-7-6 15:25:28

 
 
谢谢，行得通
 
我现在正在尝试visuallisp帮助教程，所以也许我可以自己编写它们

Lee Mac 发表于 2022-7-6 15:28:17

一旦你掌握了窍门，这就不太难了

查看完整版本: 标注属性编辑