请教如何用activeX函数实现copy,

zxy9108

( command "copy" ss "" pt1 pt2) 用activeX方法如何能实现,怎样用activeX将选择集A做一个拷贝B,然后将B又赋给一个值.

      望各路大侠不吝赐教

alin

查查CopyObjects method的使用方法

 

Ea

(setq bobject  (vla-copy aobject))

龙龙仔

3. (defun TT (/ BB N OBJ PT1 PT2 SS)
4.   (vl-load-com)
5.   (setq SS  (ssget)
6. PT1 (getpoint "\n pt1: ")
7. PT2 (vlax-3d-point (getpoint PT1 "\n pt2: "))
8. PT1 (vlax-3d-point PT1)
9. BB  (ssadd)
10. N   0
11.   )
12.   (repeat (sslength SS)
13.     (setq OBJ (vla-copy (vlax-ename->vla-object (ssname SS N))))
14.     (vla-move OBJ PT1 PT2)
15.     (ssadd (vlax-vla-object->ename OBJ) BB)
16.     (setq N (1+ N))
17.   )
18.   BB
19. )
20. ;;(SETQ BB (TT))

(defun TT (/ BB N OBJ PT1 PT2 SS)   (vl-load-com)   (setq SS  (ssget) PT1 (getpoint "\n pt1: ") PT2 (vlax-3d-point (getpoint PT1 "\n pt2: ")) PT1 (vlax-3d-point PT1) BB  (ssadd) N   0   )   (repeat (sslength SS)     (setq OBJ (vla-copy (vlax-ename->vla-object (ssname SS N))))     (vla-move OBJ PT1 PT2)     (ssadd (vlax-vla-object->ename OBJ) BB)     (setq N (1+ N))   )   BB ) ;;(SETQ BB (TT))

zxy9108

非常感谢各路好汉