社区 › Auto Lisp › 复制并粘贴到原始位置

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

试试这个；

(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)
)

Roy_043 发表于 2022-7-5 17:38:26

@塔瓦：也许加上“非”（2x），以防万一。。。

Tharwat 发表于 2022-7-5 17:43:16

 
你说得对，罗伊，老实说，我已经注意到，在发布代码几分钟后，如果他们可能需要任何更改，并将在下一个mods中涵盖该问题，我打算等待OP的回复。

ctrlaltdel 发表于 2022-7-5 17:46:07

 
Tharwat先生。按我的意愿工作。非常感谢。
 
“非”（2x）是关于什么的。重要的

BIGAL 发表于 2022-7-5 17:48:24

这个问题几乎和这个一样http://www.cadtutor.net/forum/showthread.php?98213-将文本复制到几周前相同的位置，但在不同的层中。

查看完整版本: 复制并粘贴到原始位置