[求助] 怎么样得到n个实体 拷贝后的选择集？

XY

怎么样得到n个实体 拷贝后的选择集？不是那种 用原选择集中检索出实体 分别复制 再用entlast得到？有简单电的方法吗？

BDYCAD

參考

2. (defun c:test()
3.   (setq p1 (getpoint "\n p1:"))
4.   (setq p2 (getpoint "\n p2:"))
5.   (command "line" p1 p2 "")
6. (setq ent (entlast))
7.   ;(VL-CMDF ".EXPLODE" ent)
8. (command "array" ent "" "r" "3" "4" "100" "150")
9. ;array
10. (setq ss (ssadd))
11. (ssadd ent ss)
12. (while (setq ent (entnext ent))
13.   (ssadd ent ss)
14. )
15. )

(defun c:test()   (setq p1 (getpoint "\n p1:"))   (setq p2 (getpoint "\n p2:"))   (command "line" p1 p2 "") (setq ent (entlast))   ;(VL-CMDF ".EXPLODE" ent) (command "array" ent "" "r" "3" "4" "100" "150") ;array (setq ss (ssadd)) (ssadd ent ss) (while (setq ent (entnext ent))   (ssadd ent ss) ) )

XY

谢谢bdycad斑竹！

原来我也用到了

(setq ss (ssadd))
(ssadd ent ss)
(while (setq ent (entnext ent))
(ssadd ent ss)
可是老是不对 ！最后看了你的程序后 才大雾，我的(entlast) 语句用错了地方应该在command “copy”之前 我用在了后面

狂刀无痕

如果想玩一玩，可以写成反应器。

只要有拷贝动作，自动把最近一次拷贝新生成的实体放到某个变量。方便调用

XY

反应器？不懂 看lisp里好像有 还没学到

tender138

发错了，不好意思

yshf

2. (defun c:tcc3()
   
3.      (setq AcadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.      (if (setq ssa (ssget ))
   
5.          (If (setq p1 (getpoint "\n指定基准点:"))
   
6.              (if (setq p2 (getpoint p1 "\n指定第2点:"))
   
7.                  (progn
   
8.                       (setq ssb (ssadd)) ;新建一空选择集ssb
   
9.                       (vlax-for obj (vla-get-ActiveSelectionSet AcadDoc) ;对选择集ssa中的图元逐一进行复制
   
10.                            (setq Newobj (vla-Copy obj))
    
11.                            (vla-Move Newobj (vlax-3d-point p1) (vlax-3d-point p2))
    
12.                            (ssadd (vlax-vla-object->ename Newobj) ssb) ;将复制后产生的图元逐一加入到选择集ssb中
    
13.                       )
    
14.                  )
    
15.             )
    
16.          )
    
17.      )
    
18.      (vlax-release-object AcadDoc)
    
19.      (setq AcadDoc nil)
    
20.      (princ)
    
21. )

(defun c:tcc3()<br />      (setq AcadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />      (if (setq ssa (ssget ))<br />          (If (setq p1 (getpoint "\n指定基准点:"))<br />              (if (setq p2 (getpoint p1 "\n指定第2点:"))<br />                  (progn<br />                       (setq ssb (ssadd)) ;新建一空选择集ssb<br />                       (vlax-for obj (vla-get-ActiveSelectionSet AcadDoc) ;对选择集ssa中的图元逐一进行复制<br />                            (setq Newobj (vla-Copy obj))<br />                            (vla-Move Newobj (vlax-3d-point p1) (vlax-3d-point p2))<br />                            (ssadd (vlax-vla-object->ename Newobj) ssb) ;将复制后产生的图元逐一加入到选择集ssb中<br />                       )<br />                  )<br />             )<br />          )<br />      )<br />      (vlax-release-object AcadDoc)<br />      (setq AcadDoc nil)<br />      (princ)<br /> )