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

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

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

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

(command "copy" (ssget) "" (getpoint)(getpoint) "" )
(setq en (entlast))


复制的图形为一个组

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)
页: [1] 2
查看完整版本: 用copy复制后的图元怎么搞成 1个选择集，用LISP实现，不要点选。