lisp选择物体按坐标移动怎么写望大神帮忙

goodboyfly

如图

marting

只是四边形？ 你画个三变形和任意多边形的动画贴上来看看。

goodboyfly

marting 发表于 2017-3-26 15:48

只按坐标移动，

csharp

按BOX角点移动?

goodboyfly

csharp 发表于 2017-3-26 17:56

指定两个点，按坐标移动物体

eachy

2. <div>
   
3. (defun c:tt (/ ss p p1 k)
   
4.   (while (and (setq ss (ssget))
   
5.               (setq p (getpoint "\n移动点: "))
   
6.               (setq p1 (getpoint p "\n对齐点: "))
   
7.               (progn(initget "X Y Z")
   
8.               (setq k (getkword "\n对齐方向[X(X)/Y(Y)/Z(Z)]: ")))
   
9.          )
   
10.    
    
11.     (cond
    
12.       ((= k "X")
    
13.        (vl-cmdf ".move" ss "" "_none" p "_none"  (list (car p1) (cadr p) (caddr p)))
    
14.       )
    
15.       ((= k "Y")
    
16.        (vl-cmdf ".move" ss "" "_none" p  "_none" (list (car p) (cadr p1) (caddr p)))
    
17.       )
    
18.       (t
    
19.        (vl-cmdf        ".move"
    
20.                 ss
    
21.                 ""               "_none"
    
22.                 p                "_none"
    
23.                 (list (car p) (cadr p) (caddr p1))
    
24.        )
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )</div>

<div><br /> (defun c:tt (/ ss p p1 k)<br />   (while (and (setq ss (ssget))<br />               (setq p (getpoint "\n移动点: "))<br />               (setq p1 (getpoint p "\n对齐点: "))<br />               (progn(initget "X Y Z")<br />               (setq k (getkword "\n对齐方向[X(X)/Y(Y)/Z(Z)]: ")))<br />          )<br />     <br />     (cond<br />       ((= k "X")<br />        (vl-cmdf ".move" ss "" "_none" p "_none"  (list (car p1) (cadr p) (caddr p)))<br />       )<br />       ((= k "Y")<br />        (vl-cmdf ".move" ss "" "_none" p  "_none" (list (car p) (cadr p1) (caddr p)))<br />       )<br />       (t<br />        (vl-cmdf        ".move"<br />                 ss<br />                 ""               "_none"<br />                 p                "_none"<br />                 (list (car p) (cadr p) (caddr p1))<br />        )<br />       )<br />     )<br />   )<br />   (princ)<br /> )</div>

kqqt6236

啥也不说了，感谢分享哇！

goodboyfly

eachy 发表于 2017-3-26 23:54

非常感谢，