Topic: [XDrX-PlugIn(108)] Convert Dim to text

[xdcad]

Code: [Select]

(defun c:xdtb_dim2txt (/ ss)
  (if (setq ss (xdrx-ssget (xdrx-string-multilanguage "\n选择转字的标注对象<退出>:"
      "\nSelect the Dim to be converted to text<Exit>:"
   )
   '((0 . "dimension*"))
       )
      )
    (progn (xdrx-begin)
   (xdrx-entity-make
     (xdrx-entity-getproperty (setq ss (xdrx-ss->ents ss))
      "mtext"
     )
   )
   (xdrx-entity-delete ss)
   (xdrx-end)
    )
  )
  (princ)
)