拷贝模型空间图形进入图纸空间??

janson78

请教各位  如何将模型空间的图形拷贝进图纸空间呢?

   好象使用 copy是不行的

   我尝试使用copyclip 与pasteclip

   但,命令格式不清楚  是使用 command么?  是不是还要使用变量名呢?

   如果没有变量名，那pasteclip 怎么用???

 请教高手啊...

sailorcwx

chspace

caoyin

用 vla-copyobjects ，见过这样的帖子，搜索一下

janson78

找到一个相关的程序:

(defun c:tt ()
      
       (setq ss   (ssget "c" '(-700 -2700) '(900 900))
             lst  nil 
             i    -1
       )

       (setq *doc (vla-get-activedocument (vlax-get-acad-object)))
 
       (while (setq e (ssname ss (setq i (1+ i))))
              (setq lst (cons e lst))
       )
      
       (setq ss2 (vla-copyobjects *doc (xl->objsafearr (mapcar 'vlax-ename->vla-object lst))))
)
  (defun XL->OBJSAFEARR (LST)
         (vlax-safearray-fill (vlax-make-safearray  vlax-vbobject  (cons 0 (1- (length LST)))) LST )
  )

      但是对有些功能不大明白, 尝试了一下，好象 是在原图的位置进行了复制

如果我要拷贝另一个空间中,并进行缩放和插入点的设置  该怎么弄呢??