图纸和模型空间

Guest athabe · 发表于 2022-7-6 08:50:07

我正在寻找以下步骤的lisp例程：
*从模型移动到图纸空间
*从模型复制到图纸空间
*从图纸移动到模型空间
*从图纸复制到模型空间

所有关于Lisp程序天才的问候

ReMark · 发表于 2022-7-6 08:58:39

CHSPACE命令不会处理四个中的两个吗？

alanjt · 发表于 2022-7-6 09:08:50

同意，这应考虑其他两个：

(defun c:CHSpaceCopy (/ ss2 ss i)
 (vl-load-com)
 (if (setq ss2 (ssadd)
           ss  (ssget "_:L")
     )
   (progn
     (repeat (setq i (sslength ss))
       (ssadd
         (vlax-vla-object->ename (vla-copy (vlax-ename->vla-object (ssname ss (setq i (1- i))))))
         ss2
       )
     )
     (vl-cmdf "_.chspace" ss2 "")
   )
 )
 (princ)
)