【CAD】在位编辑尺寸、文字、属性、块（任意嵌套）内文字

1. ;|

2. 在位编辑尺寸、文字、属性、块（任意嵌套）内文字

3. |;

4. 
   

5. (defun c:XDTB_OnLineEdit ( / ent obj p parent)

6.   (if (setq obj (nentsel '\n点取文字、属性、标注文字<退出>:'))

7.     (progn

8.       (setq p (cadr obj)

9.             ent (car obj)

10.             parent ent

11.       )

12.       (if (> (length obj) 2)

13.         (setq parent (car (last obj)))

14.       )

15.       (princ parent)

16.       (XD::Entity:TextOnlineEdit ent parent p)

17.     )

18.   )

19.   (princ)

20. )

21. 
    

复制以上代码到文本粘贴。然后把文本文件名 改为lsp

这样就可以调用此小插件了。