复制并粘贴到原始位置

ctrlaltdel · 发表于 2022-7-5 17:12:09

这里的任何用户都可以使用lisp将一个或多个实体复制并粘贴到同一位置多次。

lisp以这种方式运行

-选择实体
-输入数字（以指示要粘贴的数量）
-输入

（请不要要求用户单击基点）

Tharwat · 发表于 2022-7-5 17:16:34

我想知道在相同的原始位置多次复制相同的对象背后有什么智慧？

ctrlaltdel · 发表于 2022-7-5 17:22:01

Tharwat先生，实体是一个参考项目。我需要将此参考项插入同一位置的各个块中。因此，我需要这个数量/实体的倍数

Tharwat · 发表于 2022-7-5 17:25:48

你能举个清楚的例子说明你在追求什么吗？

ctrlaltdel · 发表于 2022-7-5 17:31:10

Tharwat先生。这是一个照片和dwg文件。
我不想在照片中添加，最好不需要用户输入基点。只需将倍数粘贴在原稿的顶部。

粘贴多功能。图纸

Tharwat · 发表于 2022-7-5 17:33:46

试试这个；

copy


(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 "" '(0. 0.) '(0. 0.))
     )
     (setvar 'CMDECHO cm)
   )
 )
 (princ)
)