janson78 发表于 2008-8-21 10:40:00

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

<p>请教各位&nbsp; 如何将模型空间的图形拷贝进图纸空间呢?</p><p>&nbsp;&nbsp; 好象使用 copy是不行的</p><p>&nbsp;&nbsp; 我尝试使用copyclip 与pasteclip </p><p>&nbsp;&nbsp; 但,命令格式不清楚&nbsp; 是使用 command么?&nbsp; 是不是还要使用变量名呢?</p><p>&nbsp;&nbsp; 如果没有变量名，那pasteclip 怎么用???</p><p>&nbsp;请教高手啊...</p>

sailorcwx 发表于 2008-8-21 11:11:00

<p>chspace</p>

caoyin 发表于 2008-8-21 11:14:00

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

janson78 发表于 2008-8-21 14:00:00

<p>找到一个相关的程序:</p><p>(defun c:tt ()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ss&nbsp;&nbsp; (ssget "c" '(-700 -2700) '(900 900))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; lst&nbsp; nil&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i&nbsp;&nbsp;&nbsp; -1 <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq *doc (vla-get-activedocument (vlax-get-acad-object)))<br/>&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (setq e (ssname ss (setq i (1+ i)))) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lst (cons e lst))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ss2 (vla-copyobjects *doc (xl-&gt;objsafearr (mapcar 'vlax-ename-&gt;vla-object lst)))) <br/>)<br/>&nbsp; (defun XL-&gt;OBJSAFEARR (LST)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-safearray-fill (vlax-make-safearray&nbsp; vlax-vbobject&nbsp; (cons 0 (1- (length LST)))) LST )<br/>&nbsp; )</p><p></p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font color="#e61a1a">但是对有些功能不大明白, 尝试了一下，好象 是在原图的位置进行了复制</font></p><p><font color="#e61a1a">如果我要拷贝另一个空间中,并进行缩放和插入点的设置&nbsp; 该怎么弄呢??</font></p>
页: [1]
查看完整版本: 拷贝模型空间图形进入图纸空间??