新复制的文件全部添加到选择集的问题

CADghost

请教各位

我图中有很多个圆

(setq en (ssget))  ;选择图中所有圆

(command "_.copy" en2 "" "0,0,0" "0,0,0")    ;全部在原位置复制

如何把新复制的圆全部添加到选择集中

用(setq en2_2 (entlast))

只能添加复制的最后一个~

byghbcx

(DEFUN ENT_FROM (E / SS SN);返回自实体E之后生成的实体选择集
  (IF (/= (TYPE E) (quote ENAME))
    (ALERT "Parameter ERROR in ENT_FROM")
  )
  (SETQ SS (SSADD))
  (WHILE E
    (SETQ E (ENTNEXT E))
    (IF E
      (PROGN
 (SETQ SN (CDR (ASSOC 0 (ENTGET E))))
 (IF (NOT (MEMBER SN (quote ("ATTRIB" "VERTEX"
        "SEQEND"
       )
       )
   )
     )
   (SETQ SS (SSADD E SS))
 )
      )
    )
  )
  SS
)

CADghost

你那 ENAME 是什么？

byghbcx

CADghost发表于2008-7-2 8:08:00你那 ENAME 是什么？

ENAME是图元名

只要把上次最后一个图元定义为EN (setq en (entlast))

执行过copy命令后,再用(ent_from en)函数就能得到所有新复制的对象了

muwind

无意中看 龙老大多年前的作品， LISP程序]能一次选取COPY出来的对象[原创]

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=102

chengzhang

多谢byghbcx的函数

wkq004

(defun ent-from-ss (e / ss)
        ;返回自实体E之后生成的实体选择集
        (setq ss (ssadd))
        (while (setq e (entnext e))
                (or (member (cdr (assoc 0 (entget e))) '("ATTRIB" "VERTEX" "SEQEND")) (ssadd e ss))               
        )
        ss
)

(defun ent-from-lst (e / lst)
        ;返回自实体E之后生成的实体
        (while (setq e (entnext e))
                (or (member (cdr (assoc 0 (entget e))) '("ATTRIB" "VERTEX" "SEQEND")) (setq lst (cons e lst)))               
        )
        (reverse lst)
)

zmzk

先辈，怎么用啊？请举个例子