[分享]刚写一个可以把图纸空间对象转模型空间的LISP

BDYCAD · 发表于 2007-9-7 16:44

本帖最后由作者于 2007-9-7 16:48:03 编辑

; 功能：把图纸空间的对象改到模型空间
; 时间：2007-09-07
; 编写：BDYCAD
(defun c:tm(/ DXF I NAME SS SSLEN)
(if(setq ss(ssget))
(progn
(setq i 0 sslen(sslength ss))
(repeat sslen
(setq name(ssname ss i)
dxf(entget name)
dxf(subst (cons 410 "Model")(assoc 410 dxf)dxf))
(entmake dxf)
(setq i(1+ i)))
(princ "\n把选到的图纸空间的对象转到模型空间了!")
)
(princ"\n没有选到对象！")
)
(princ)
)

刚写的代码:)欢迎参考,欢迎使用!

sailorcwx · 发表于 2007-9-7 16:58

会不会有个比例的问题？

ljcgq · 发表于 2007-9-7 17:03

hao1!

龙龙仔 · 发表于 2007-9-7 17:19

;;By Lucas

;;這個用很久了

(defun C:COPY_2_OTHER_SPACE (/ DOC N SS LST)
  (setq SS (ssget "x"
     (list (cons 410 (getvar "ctab"))
    (cons 0 (strcat "~" "VIEWPORT"))
     )
     )
N   -1
DOC (vla-get-activedocument (vlax-get-acad-object))
)
(repeat (sslength SS)
    (setq
      LST (cons (vlax-ename->vla-object (ssname SS (setq N (1+ N))))
  LST
   )
    )
)
(vla-copyobjects
    DOC
    (vlax-safearray-fill
      (vlax-make-safearray
vlax-vbobject
(cons 0 (1- (length LST)))
      )
      LST
    )
    (if (equal (getvar "ctab") "Model")
      (vla-get-paperspace DOC)
      (vla-get-modelspace DOC)
    )
)
(vlax-release-object DOC)
(princ)
)

carrot1983 · 发表于 2007-9-7 18:13

正在学习这方面的知识,谢谢两位高手..,学习了

7686599 · 发表于 2007-9-7 18:25

是不是有个选择插入基点更完美？

直接copy到模型空间后，有时候都找不到，也有可能重叠。如果在copy的时候提示来个插入点可能更好。

jaminth · 发表于 2007-9-9 08:59

那么又如何把模型空间的对象转为图纸空间的对象呢？！

highflybir · 发表于 2007-9-9 10:54

可以不用编程的。

chspace,就是把图纸空间的东西转化为模型空间的。

jaminth · 发表于 2007-9-9 15:31

谢谢,又学一招

无痕 · 发表于 2007-9-9 23:47

chspace还真不知道，是cad命令么？还是et的？

账号		自动登录	找回密码
密码			注册

[分享]刚写一个可以把图纸空间对象转模型空间的LISP

本帖被以下淘专辑推荐:

浏览过的版块