API应用 简单的基点跟随Copy

st788796

测试下新函数 copy，喜欢用命令的这次有的用了，不用去学习复杂的矩阵

1. (defun c:tt (/ ss p p1)
   
2.   (if (and (setq ss (ssget))
   
3.            (setq p (getpoint "\nBasepoint: "))
   
4.       )
   
5.     (while (and        (xdrx_setmark)
   
6.                 (setq p1 (getpoint p "\nNext point: "))
   
7.                 (xdrx_entity_copy ss p p1)
   
8.                 (setq ss (xdrx_getss)
   
9.                       p         p1
   
10.                 )
    
11.            )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt (/ ss p p1)<br />   (if (and (setq ss (ssget))<br />            (setq p (getpoint "\nBasepoint: "))<br />       )<br />     (while (and        (xdrx_setmark)<br />                 (setq p1 (getpoint p "\nNext point: "))<br />                 (xdrx_entity_copy ss p p1)<br />                 (setq ss (xdrx_getss)<br />                       p         p1<br />                 )<br />            )<br />     )<br />   )<br />   (princ)<br /> )

XDSoft

xdrx_setmark xdrx_getss可以不要的

(setq ss (xdrx_entity_copy ss p1 p2))

st788796

XDSoft 发表于 2013-11-10 14:43
xdrx_setmark xdrx_getss可以不要的

(setq ss (xdrx_entity_copy ss p1 p2))

又受手册误导了:)

st788796

简化一下

1. (defun c:tt (/ ss p p1)
   
2.   (if (and (setq ss (ssget))
   
3.            (setq p (getpoint "\nBasepoint: "))
   
4.       )
   
5.     (while (and
   
6.              (setq p1 (getpoint p "\nNext point: "))
   
7.              (setq ss (xdrx_entity_copy ss p p1)
   
8.                    p  p1
   
9.              )
   
10.            )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt (/ ss p p1)<br />   (if (and (setq ss (ssget))<br />            (setq p (getpoint "\nBasepoint: "))<br />       )<br />     (while (and<br />              (setq p1 (getpoint p "\nNext point: "))<br />              (setq ss (xdrx_entity_copy ss p p1)<br />                    p  p1<br />              )<br />            )<br />     )<br />   )<br />   (princ)<br /> )