brainstorm 发表于 2017-8-12 23:10:01

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

本帖最后由 newer 于 2017-8-13 00:50 编辑




天正房间是自定义对象,文字位置移动只能靠夹点拖动,很不方便。
用API很简单的代码即可实现连续拖动多个房间,API对于入门lisp的选手确实太方便了。效果有点抖动是录屏软件的原因
代码如下:(defun c:tt (/ E P1 dragtext)
(vl-acad-defun 'dragtext)
(defun dragtext (p)
    (xdrx_modent 10 p)
    (entupd e)
)
(setq p1 (getvar "lastpoint"))
(while (setq e (car (entsel)))
    (xdrx_setenttodb e)
    (xdrx_drag_jig
             "dragtext"
             "选择房间文字的位置:"            
             ""
             (+ 1282048)
             0
             p1
         )
)
)





longer1000 发表于 2017-8-13 00:09:53

厉害啊!!!!!!!

xinxirong 发表于 2017-8-23 19:27:34

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

fn2398 发表于 2018-8-10 02:08:11

谢谢分享,受教了!

weizx2000 发表于 2021-3-8 00:14:59

谢谢分享,学习了

drshang 发表于 2023-10-26 23:55:05

可视化            
页: [1]
查看完整版本: 简单代码实现天正房间对象文字拖动