关于连续复制的问题

liuyj

我想连续复制，改了一下代码，实现不了，请N版看看错在哪。
(defun c:tt ()
  (defun _callback (dynpt)
    (if        (not (equal dynpt oldpnt 1e-4))
      (progn (setq mat (xdrx_matrix_settranslation (mapcar '- dynpt base)))
             (xdrx_monitor_drawent ss mat)
             (setq oldpnt dynpt)
      )
    )
    (princ)
  )
  (xdrx_begin)
  (if (and (setq ss (ssget))
           (setq base (getpoint "\n基点<退出>:"))
      )
    (progn (setq loop T)
           (while loop
             (xdrx_pointmonitor "_callback")
             (if (setq p (getpoint "\n插入点:"))
               (progn (setq mat (xdrx_matrix_settranslation (mapcar '- p base)))
                      (xdrx_entity_transform (xdrx_entity_copy ss) mat)
               )
               (setq loop nil)
             )
           )
    )
  )
  (xdrx_end)
  (princ)
)

Lispboy

liuyj 发表于 2017-9-8 14:42

这段的结构弄复杂了

1. (setq loop T)
   
2.            (while loop
   
3.              (xdrx_pointmonitor "_callback")
   
4.              (if (setq p (getpoint "\n插入点:"))
   
5.                (progn (setq mat (xdrx_matrix_settranslation (mapcar '- p base)))
   
6.                       (xdrx_entity_transform (xdrx_entity_copy ss) mat)
   
7.                )
   
8.                (setq loop nil)
   
9.              )
   
10.            )
    

(setq loop T)<br />            (while loop<br />              (xdrx_pointmonitor "_callback")<br />              (if (setq p (getpoint "\n插入点:"))<br />                (progn (setq mat (xdrx_matrix_settranslation (mapcar '- p base)))<br />                       (xdrx_entity_transform (xdrx_entity_copy ss) mat)<br />                )<br />                (setq loop nil)<br />              )<br />            )<br />

改成这样

1. (xdrx_pointmonitor "_callback")
   
2. (while (setq p (getpoint "\n插入点:"))
   
3.   (setq mat (xdrx_matrix_settranslation (mapcar '- p base)))
   
4.   (xdrx_entity_transform (xdrx_entity_copy ss) mat)
   
5. )
   
6. 
   

(xdrx_pointmonitor "_callback")<br /> (while (setq p (getpoint "\n插入点:"))<br />   (setq mat (xdrx_matrix_settranslation (mapcar '- p base)))<br />   (xdrx_entity_transform (xdrx_entity_copy ss) mat)<br /> )<br /> <br />

另外回调函数不用放到循环里面，执行一次就够了。

Lispboy

liuyj 发表于 2017-9-8 14:42

还有这个

1. (xdrx_entity_transform (xdrx_entity_copy ss) mat)
   

(xdrx_entity_transform (xdrx_entity_copy ss) mat)<br />

拷贝完移动，怎么不直接就拷贝?

1. (xdrx_entity_transformedcopy ss mat)
   

(xdrx_entity_transformedcopy ss mat)<br />

newer

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (if        (not (equal dynpt oldpnt 1e-4))
   
4.       (progn (setq mat (xdrx_matrix_settranslation (mapcar '- dynpt base)))
   
5.              (xdrx_monitor_drawent ss mat)
   
6.              (setq oldpnt dynpt)
   
7.       )
   
8.     )
   
9.     (princ)
   
10.   )
    
11.   (xdrx_begin)
    
12.   (if (and (setq ss (ssget))
    
13.            (setq base (getpoint "\n基点<退出>:"))
    
14.       )
    
15.     (progn (xdrx_pointmonitor "_callback")
    
16.            (while (setq p (getpoint "\n插入点:"))
    
17.              (setq mat (xdrx_matrix_settranslation (mapcar '- p base)))
    
18.              (xdrx_entity_transformedcopy ss mat)
    
19.            )
    
20.     )
    
21.   )
    
22.   (xdrx_end)
    
23.   (princ)
    
24. )
    

(defun c:tt ()<br />   (defun _callback (dynpt)<br />     (if        (not (equal dynpt oldpnt 1e-4))<br />       (progn (setq mat (xdrx_matrix_settranslation (mapcar '- dynpt base)))<br />              (xdrx_monitor_drawent ss mat)<br />              (setq oldpnt dynpt)<br />       )<br />     )<br />     (princ)<br />   )<br />   (xdrx_begin)<br />   (if (and (setq ss (ssget))<br />            (setq base (getpoint "\n基点<退出>:"))<br />       )<br />     (progn (xdrx_pointmonitor "_callback")<br />            (while (setq p (getpoint "\n插入点:"))<br />              (setq mat (xdrx_matrix_settranslation (mapcar '- p base)))<br />              (xdrx_entity_transformedcopy ss mat)<br />            )<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

神通不敌天数

(defun copy()
    (PROMPT "请选择需复制的东东")
    (setq ss(ssget))
    (if (/= ss NIL)
      (progn
        (setvar "osmode" 0)
        (command "copy" ss "" "m")
      );progn
    );if
        (princ))
(defun c:tt()
   (copy))

brainstorm

对于被复制的对象很多的情况下，用xdrx_entity_transform比 xdrx_monitor_drawent省力，更快

liuyj

我也有这感觉，不过一般情况下没有什么区别