简单代码实现天正房间对象文字拖动

brainstorm

天正房间是自定义对象，文字位置移动只能靠夹点拖动，很不方便。
用API很简单的代码即可实现连续拖动多个房间，API对于入门lisp的选手确实太方便了。效果有点抖动是录屏软件的原因
代码如下：

1. (defun c:tt (/ E P1 dragtext)
   
2.   (vl-acad-defun 'dragtext)
   
3.   (defun dragtext (p)
   
4.     (xdrx_modent 10 p)
   
5.     (entupd e)
   
6.   )
   
7.   (setq p1 (getvar "lastpoint"))
   
8.   (while (setq e (car (entsel)))
   
9.     (xdrx_setenttodb e)
   
10.     (xdrx_drag_jig
    
11.              "dragtext"
    
12.              "选择房间文字的位置:"            
    
13.              ""
    
14.              (+ 128  2048)
    
15.              0
    
16.              p1
    
17.            )
    
18.   )
    
19. )
    

(defun c:tt (/ E P1 dragtext)<br />   (vl-acad-defun 'dragtext)<br />   (defun dragtext (p)<br />     (xdrx_modent 10 p)<br />     (entupd e)<br />   )<br />   (setq p1 (getvar "lastpoint"))<br />   (while (setq e (car (entsel)))<br />     (xdrx_setenttodb e)<br />     (xdrx_drag_jig<br />              "dragtext"<br />              "选择房间文字的位置:"             <br />              ""<br />              (+ 128  2048)<br />              0<br />              p1<br />            )<br />   )<br /> )<br />

longer1000

厉害啊！！！！！！！

xinxirong

API很强大，如果是我，也就是getStretchPoint+grread。

fn2398

谢谢分享，受教了！

weizx2000

谢谢分享，学习了

drshang

可视化