[编程交流] 将尺寸图片转换为n

(defun c:fixdim()
 (setq dim (car(entsel)))
 (setq dim-obj (vlax-ename->vla-object dim))
 (setq dimtxtloc (get-dimblktxtloc dim))
 (setq s-array (vlax-make-safearray vlax-vbdouble '(0 . 2)))  
 (vla-put-textposition dim-obj (vlax-safearray-fill s-array dimtxtloc))
 )
(defun get-dimblktxtloc (dim-ename)
 (setq dim-entity (vl-catch-all-apply 'entget (list dim-ename)))
 (cond
   ((not (vl-catch-all-error-p  dim-entity))
    (setq dim-blockname (cdr (assoc 2 dim-entity)))
    (setq blk-object (get-dimblkobj dim-blockname))
    (cond
      ((not (vl-catch-all-error-p  blk-object))
(vlax-for subobj blk-object
  (cond
    ((= (vla-get-objectname subobj) "AcDbMText")
     (setq blk-txtloc (safearray-value (vlax-variant-value (vla-get-insertionpoint subobj))))
     )
    )
  )
)
      )
    )
   )
 blk-txtloc
 )
 
(defun get-dimblkobj (blockname)
 (vl-catch-all-apply 'vla-item (list (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))) blockname))
 )