用copy复制后的图元怎么搞成 1个选择集，用LISP实现，不要点选。

caoyongjun · 发表于 2024-11-23 16:57:44

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

hhh454 · 发表于 2024-11-23 18:18:49

复制的图形为一个组

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

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

caoyongjun · 发表于 2024-11-23 18:40:04

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

不要用鼠标，我想实现自动化

caoyongjun · 发表于 2024-11-23 18:43:49

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

有没一个LISP，将某一阶段的产生的图元做一个选集。

shenhung · 发表于 2024-11-23 19:35:37

不要用鼠標.。怎麼實現COPY.~
左邊圖形如何在不選圖元情況下..複制成右邊.
這部份你方法要先講~別人才能給你回答.

自贡黄明儒 · 发表于 2024-11-23 21:10:38

弄成组

e2002 · 发表于 2024-11-23 22:49:13

复制之前记录 entlast标记位置，之后由标记位置开始 entnext。

caoyongjun · 发表于 2024-11-24 08:41:40

e2002 发表于 2024-11-23 22:49
复制之前记录 entlast标记位置，之后由标记位置开始 entnext。

用了这招，好像没用

飞雪神光 · 发表于 2024-11-24 14:40:59

caoyongjun 发表于 2024-11-24 08:41
用了这招，好像没用

发了好几个帖子不如发下代码有什么可藏着掖着的

xyp1964 · 发表于 2024-11-24 21:25:41

(defun SSelEntnext(en / ss)(setq ss(ssadd))(while(setq en(entnext en))(ssadd en ss))ss)

账号		自动登录	找回密码
密码			注册

[提问] 用copy复制后的图元怎么搞成 1个选择集，用LISP实现，不要点选。