liunian0524 发表于 2024-11-25 08:50:40

(defun c:cc ()
        (setq en (ssget))
        (if (= en nil)
                (setq en (ssget "p"))
        )
        (command "copy" EN "" "m")
        (princ)
)

chslwj521 发表于 2024-11-27 10:23:05

hhh454 发表于 2024-11-23 18:18
复制的图形为一个组

这个不行，最后的en是最后一个图元，不是集

chslwj521 发表于 2024-11-27 10:27:11

用循环，镜像也可以，取集，将集的中第一个entname一个个的复制，每复制一个，用entlast加入到新集ss,最终输出的ss就是你要的集了

hhh454 发表于 2024-11-27 23:07:36

chslwj521 发表于 2024-11-27 10:23
这个不行，最后的en是最后一个图元，不是集

复制之前，图做成组，命令：G

chslwj521 发表于 2024-11-28 16:14:58

hhh454 发表于 2024-11-27 23:07
复制之前，图做成组，命令：G

好的，这个很少用，知道ctrl+h可进入组编辑状态，学习了。。谢谢指点~~:lol
页: 1 [2]
查看完整版本: 用copy复制后的图元怎么搞成 1个选择集，用LISP实现，不要点选。