如何实现文字的动态插入【已解决】

a117034423

1. (defun emtxt (pt2 str2 /)
   
2.     (entmake (list
   
3.                '(0 . "TEXT")
   
4.                '(100 . "AcDbEntity")
   
5.                '(8 . "0")
   
6.                '(100 . "AcDbText")
   
7.                '(7 . "tssd_rein")
   
8.                '(41 . 0.7)
   
9.                (cons 1 str2)
   
10.                (cons 10 pt2)
    
11.                (cons 40 3000)))
    
12. )
    

(defun emtxt (pt2 str2 /)<br />     (entmake (list<br />                '(0 . "TEXT")<br />                '(100 . "AcDbEntity")<br />                '(8 . "0")<br />                '(100 . "AcDbText")<br />                '(7 . "tssd_rein")<br />                '(41 . 0.7)<br />                (cons 1 str2)<br />                (cons 10 pt2)<br />                (cons 40 3000)))<br /> )<br />

代码是 定义单行文字，插入点和内容 如何实现动态显示拖动，论坛检索动态未找到
代码示意

1. (emtxt (getpoint) "当前输入文字为"）

(emtxt (getpoint) "当前输入文字为"）

marting

你搜索下 GRREAD  或者 点监视器
这两个能做动态的

huangpc27

主要就是用GRREAD来进行动态拖动了。

a117034423

好的，谢谢marting老大

xk15c

我还得多学习，这个店不明白

a117034423

我也得学习，不然白花钱了