自己做的跟随旋转，在大神的帮助下已经完善

qq1254582201

经过不断的探索终于解决最新代码如下，多谢大神的提点

2. (DEFUN C:XZ( )
   
3.     (SETQ OBJ(SSGET))
   
4.     (command ".rotate" OBJ""
   
5.       (setq d1(getpoint "\n选择基点: "))
   
6.       "r"
   
7.       d1   
   
8.     )
   
9.     (PRINC)
   
10. )

(DEFUN C:XZ( )<br />     (SETQ OBJ(SSGET))<br />     (command ".rotate" OBJ"" <br />       (setq d1(getpoint "\n选择基点: "))<br />       "r" <br />       d1   <br />     )<br />     (PRINC)<br /> )

ZZXXQQ

2. (defun C:XZ( )
   
3.   (setq OBJ1 (ssget))
   
4.   (command ".rotate" OBJ1 ""
   
5.             (setq d1(getpoint "\n选择基点: "))
   
6.             "r" d1
   
7.             (setq d2(getpoint d1 "\n选择参照点: "))
   
8.             (progn (grdraw d1 d2 0 1) (setq d3(getpoint "\n选择下一点: ")))
   
9.   )
   
10.   (princ)
    
11. )

(defun C:XZ( )<br />   (setq OBJ1 (ssget))<br />   (command ".rotate" OBJ1 ""<br />             (setq d1(getpoint "\n选择基点: "))<br />             "r" d1 <br />             (setq d2(getpoint d1 "\n选择参照点: "))<br />             (progn (grdraw d1 d2 0 1) (setq d3(getpoint "\n选择下一点: ")))<br />   )<br />   (princ)<br /> )

qq1254582201

ZZXXQQ 发表于 2015-12-8 15:24

这样就不会体现动态跟随变化的效果了

qq1254582201

跪求解决方案

ZZXXQQ

2. (defun C:XZ( )
   
3.   (setq OBJ1 (ssget))
   
4.   (command ".rotate" OBJ1 ""
   
5.             (setq d1(getpoint "\n选择基点: "))
   
6.             "r" d1
   
7.             (setq d2(getpoint d1 "\n选择参照点: "))
   
8.             (progn (grdraw d1 d2 0 1) PAUSE)
   
9.   )
   
10.   (princ)
    
11. )
    

(defun C:XZ( )<br />   (setq OBJ1 (ssget))<br />   (command ".rotate" OBJ1 ""<br />             (setq d1(getpoint "\n选择基点: "))<br />             "r" d1 <br />             (setq d2(getpoint d1 "\n选择参照点: "))<br />             (progn (grdraw d1 d2 0 1) PAUSE)<br />   )<br />   (princ)<br /> )<br />

qq1254582201

ZZXXQQ 发表于 2015-12-9 12:47

谢谢大神，问题已完美解决，原来可以省略捕捉的2、3点就可以实现旋转啊。

2. (DEFUN C:XZ( )
   
3.     (SETQ OBJ(SSGET))
   
4.     (command ".rotate" OBJ""
   
5.             (setq d1(getpoint "\n选择基点: "))
   
6.             "r"
   
7.             d1        
   
8.     )
   
9.     (PRINC)
   
10. )
    

(DEFUN C:XZ( )<br />     (SETQ OBJ(SSGET))<br />     (command ".rotate" OBJ"" <br />             (setq d1(getpoint "\n选择基点: "))<br />             "r" <br />             d1         <br />     )<br />     (PRINC)<br /> )<br />

999999

收下楼主及各位大神讨论的代码，学习学习

zmzk

测试了，确实好用！