Author Topic: [XDrX-PlugIn(108)] Convert Dim to text  (Read 284 times)

0 Members and 1 Guest are viewing this topic.

xdcad

  • Bull Frog
  • Posts: 479
[XDrX-PlugIn(108)] Convert Dim to text
« on: February 02, 2024, 07:15:42 AM »
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)
)
The code I wrote uses XDRX-API,which can be downloaded from github.com and is updated at any time.
===================================
[XDrx-Sub Forum]
https://www.theswamp.org/index.php?board=78.0
https://github.com/xdcad/XDrx-API
http://bbs.xdcad.net