复制并粘贴到原始位置

Tharwat · 发表于 2022-7-5 17:53:27

不客气。

与以下添加类似，这应该忽略对象捕捉设置的设置，以将新创建的对象放置在正确的位置。


(defun c:Test (/ cm ss in)
 (if (and (setq ss (ssget "_:L"))
          (setq in (getint "\nSpecify number of copies :"))
     )
   (progn
     (setq cm (getvar 'CMDECHO))
     (setvar 'CMDECHO 0)
     (repeat in
       (command "_.COPY" ss "" "_none" '(0. 0.) "_none" '(0. 0.))
     )
     (setvar 'CMDECHO cm)
   )
 )
 (princ)
)

ctrlaltdel · 发表于 2022-7-5 17:57:04

我也遇到过。要复杂得多。

ctrlaltdel · 发表于 2022-7-5 18:01:55

谢谢塔瓦的解释。

Tharwat · 发表于 2022-7-5 18:07:33

祝你好运
享受

marko_ribar · 发表于 2022-7-5 18:09:31

另一个：

copy


(defun c:test ( / ss n i e )
 (vl-load-com)
 (if 
   (and
      (setq ss (ssget "_:L"))
      (not (initget 7))
      (setq n (getint "\nHow many copies : "))
   )
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i))))
     (repeat n
       (vla-copy (vlax-ename->vla-object e))
     )
   )
 )
 (princ)
)

ctrlaltdel · 发表于 2022-7-5 18:16:07

谢谢marko_ribar。这同样有效。

[编程交流] 复制并粘贴到原始位置

发表回复

精选推荐