[求助]：请教：在CAD中动态拖动物体的LISP的方法

黄卫文

哪位高手能告诉我：在CAD中动态拖动物体的LISP的方法，就MOVE和STRETCH命令那样。
本人想用于一个程序中（想完美一些）！望赐教。

XDSoft

XDRX_API啦，

看看2002下面的“自由拷贝、移动、缩放”的工具。可以实现任何的拖动，让LISP可以使用ARX的底层拖动机制。

自己写，就好好挖掘下GRREAD吧，只能是它了。

lxf-ysy

用grread 呀
我以前也问过类似的问题
xxxd回答后 我再编的lisp
都是动态显示啦

黄卫文

LXF—YSY：给个样板看看效果是怎样的！能否？我想用在所标注的坐标的动态放置上！

lxf-ysy

2. [FONT=courier new]
   
3. ......
   
4.   (setq pt (cadr (grread 1)));获取当前鼠标所在点
   
5.   (setq ss nil)
   
6.   (setq ss (my_draw pt ss....));画所要画的东东 并加到选择集ss
   
7.   (while (not pick)
   
8.     (setq l (grread t))
   
9.     (setq ip (car l))
   
10.     (setq pt (cadr l))
    
11.     (if (= ip 5)
    
12.       (setq ss (my_draw pt ss...))   
    
13.       );end if
    
14.     (setq pick (= 3 ip))
    
15.     );end while          
    
16. .....
    
17. 
    
18.   (defun my_draw (pt ss ..... / l-new.....)
    
19.     (以pt 为变量求取所画东东的点.....)
    
20.     (if (not ss) (画所要画的东东 并加到选择集ss))
    
21.     (将生成的相关点坐标及对应组码及其在ss中的位置加到 l-new)
    
22.     (my_vd  ss l-new)
    
23.     (setq ss ss)
    
24.     );end my_draw
    
25. 
    
26.   (defun my_vd ss l-new /.....)
    
27.     (将ss中相关东东的点用l-new中的替换并entmod)
    
28.   );end my_vd
    
29. [/FONT]

[FONT=courier new]<br /> ......<br />   (setq pt (cadr (grread 1)));获取当前鼠标所在点<br />   (setq ss nil)<br />   (setq ss (my_draw pt ss....));画所要画的东东 并加到选择集ss<br />   (while (not pick)<br />     (setq l (grread t))<br />     (setq ip (car l))<br />     (setq pt (cadr l))<br />     (if (= ip 5)<br />       (setq ss (my_draw pt ss...))   <br />       );end if<br />     (setq pick (= 3 ip))<br />     );end while          <br /> .....<br /> <br />   (defun my_draw (pt ss ..... / l-new.....)<br />     (以pt 为变量求取所画东东的点.....)<br />     (if (not ss) (画所要画的东东 并加到选择集ss))<br />     (将生成的相关点坐标及对应组码及其在ss中的位置加到 l-new)<br />     (my_vd  ss l-new)<br />     (setq ss ss)<br />     );end my_draw<br /> <br />   (defun my_vd ss l-new /.....)<br />     (将ss中相关东东的点用l-new中的替换并entmod)<br />   );end my_vd<br /> [/FONT]

  其它平面实体比较好弄，lwpolyline麻烦点.另外实时stretch我
  没想到好方法 就麻烦晓东吧

XDSoft

最初由 lxf-ysy 发布
......
  (setq pt (cadr (grread 1)));获取当前鼠标所在点

XDRX_API提供了两个函数，一个是获得实体的STRECH点，一个是移动实体的STRETCH点，通过这两个函数，在LISP里面写一些程序非常方便了，不用考虑复杂的组码，比如伸缩尺寸界线等功能，晓东工具箱里面的“尺寸伸缩”三合一，就使用了这两个函数。

大家觉得ACAD的STRETCH功能很好，希望LISP程序实现，就用下面的函数吧。

1. 
   
2. [FONT=courier new]
   
3. xdrx_entity_getStretchPoint
   
4. 
   
5. 功能：获得实体的拉伸点
   
6. 
   
7. 调用格式：(xdrx_entity_getStretchPoint <实体名>)
   
8. 
   
9. 返回值：点表
   
10. 
    
11. 
    
12. xdrx_entity_moveStretchPoint
    
13. 
    
14. 功能：拉伸（移动）实体的拉伸点
    
15. 
    
16. 调用格式：(xdrx_entity_moveStretchPoint <实体名> <移动向量> <p1>..[pn])
    
17. 
    
18. 说明：用LISP实现ARX的拉伸实体操作
    
19.       p1...pn是实体当前的各拉伸点，可以多输入。
    
20.       移动向量（相对位移，X,Y,Z），把上面参数P1拉伸。
    
21.       
    
22. 返回值：成功T，否NIL      
    
23. [/FONT]

复制代码

大家看看用XDRX_API拖放函数写的LISP程序的效果：

自由缩放


下载地址：http://www.xdcad.net/tech/XDTB_XSCALE.swf

<embed src=http://www.xdcad.net/tech/XDTB_XSCALE.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

序号标注，拖动中任意变换数字，大小...

下载地址：http://www.xdcad.net/tech/XDTB_SYMBOL1.swf

<embed src=http://www.xdcad.net/tech/XDTB_SYMBOL1.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>


自由移动、自由拷贝，实现拖动过程中自由变换拖动实体的显示。

                               
登录/注册后可看大图

黄卫文

谢谢，明白了。多谢指点！
通过捕捉鼠标点有坐标来更新数据库中相关有坐标值：）