图纸（布局）空间实体转到模型空间

newer · 发表于 2018-8-10 16:01:49

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有时候在布局空间出图，不少东西比如图框，尺寸，文字等也在布局下画的，
有时候需要把这些实体在模型空间也绘制，使用ACAD的转换要很费劲，因为有比例等因素。
下面代码可以批量的把布局空间的实体转到模型空间去，可以移动也可以拷贝。

(defun c:xdtb_entps2ms (/ e ss scl mat yorno ss1)
(if (or (xdrx_document_ispaperspace)
(xdrx_pspace)
)
(progn
(if (and (setq
e (car (xdrx_entsel
"\n拾取布局视口<退出>:"
'((0 . "VIEWPORT"))
)
)
)
(xdrx_initssget "\n选择要转到模型空间的实体<退出>:")
(setq ss (xdrx_ssget '((0 . "~VIEWPORT"))))
)
(progn
(xdrx_begin)
(xdrx_initget "Y N")
(setq yorno (xdrx_yesorno "\n移动吗" 0))
(setq mat (xdrx_matrix_ps2ms e)
scl (xdrx_getpropertyvalue e "customscale")
scl (/ 1 scl))
(xdrx_mspace)
(setq ss1 (xdrx_entity_transformedcopy ss mat))
(if (= yorno 1)
(xdrx_entity_delete ss)
)
(xdrx_entity_setproperty (xd::pickset:getsub ss1 '((0 . "DIMENSION"))) "DIMSCALE" scl)
(xdrx_pspace)
(xdrx_prompt
"\n成功*"
(if (= yorno 1)
"移动"
"拷贝"
)
"*了 "
(sslength ss)
" 个实体到模型空间."
)
(xdrx_initget)
(xdrx_end)
)
)
)
(progn
(xdrx_prompt "\n请在图纸空间执行本命令.")
)
)
(princ)
)

(defun c:xdtb_entps2ms (/ e ss scl mat yorno ss1) 
  (if (or (xdrx_document_ispaperspace) 
          (xdrx_pspace) 
      ) 
    (progn 
      (if (and (setq 
                 e (car        (xdrx_entsel 
                          "\n拾取布局视口<退出>:" 
                          '((0 . "VIEWPORT")) 
                        ) 
                   ) 
               ) 
               (xdrx_initssget "\n选择要转到模型空间的实体<退出>:") 
               (setq ss (xdrx_ssget '((0 . "~VIEWPORT")))) 
          ) 
        (progn 
          (xdrx_begin) 
          (xdrx_initget "Y N") 
          (setq yorno (xdrx_yesorno "\n移动吗" 0)) 
          (setq mat (xdrx_matrix_ps2ms e) 
                scl (xdrx_getpropertyvalue e "customscale") 
                scl (/ 1 scl)) 
          (xdrx_mspace) 
          (setq ss1 (xdrx_entity_transformedcopy ss mat)) 
          (if (= yorno 1) 
            (xdrx_entity_delete ss) 
          ) 
          (xdrx_entity_setproperty (xd::pickset:getsub ss1 '((0 . "DIMENSION"))) "DIMSCALE" scl) 
          (xdrx_pspace) 
          (xdrx_prompt 
            "\n成功*" 
            (if        (= yorno 1) 
              "移动" 
              "拷贝" 
            ) 
            "*了 " 
            (sslength ss) 
            " 个实体到模型空间." 
          ) 
          (xdrx_initget) 
          (xdrx_end) 
        ) 
      ) 
    ) 
    (progn 
      (xdrx_prompt "\n请在图纸空间执行本命令.") 
    ) 
  ) 
  (princ) 
)

依然小小鸟 · 发表于 2018-8-10 16:54:44

拓展一个小思路带地形的总图一般习惯在布局空间出图但是指北针却在模型空间，如何把模型空间的指北针放到布局而且方向是对的

marting · 发表于 2018-8-10 17:12:41

依然小小鸟发表于 2018-8-10 16:54
拓展一个小思路带地形的总图一般习惯在布局空间出图但是指北针却在模型空间，如何把模型空间的指北针 ...

在布局的时候，模型空间就把指北针放进去。

依然小小鸟 · 发表于 2018-8-11 10:24:05

marting 发表于 2018-8-10 17:12
在布局的时候，模型空间就把指北针放进去。

位置不好拿捏得来回切换空间看指北针位置合适不所以如果有插件解决高效一些

江南十笑 · 发表于 2018-9-12 14:01:49

很好的插件，我们公司的图框图名都在布局中，能否实现文件夹批量套图框（将布局中所有图框和图名复制到模型空间中），或者在单张图中不要选择视口也不用移动，默认布局中全部内容都复制到模型中呢？

上官子尘15 · 发表于 2018-9-14 15:45:16

实用工具，下载试用

newer · 发表于 2018-9-14 16:04:40

江南十笑发表于 2018-9-12 14:01
很好的插件，我们公司的图框图名都在布局中，能否实现文件夹批量套图框（将布局中所有图框和图名复制到模 ...

因为布局视口中的模型空间的位置是随机的，所以必须让程序知道图纸空间的哪些实体对应的是哪个视口，才会把它准确的转到模型空间的实际位置，

所以，你想批量，你之前要做不少工作，去指定好哪些实体是属于哪个视口的，特别是一个图框里面，有好几个视口的

江南十笑 · 发表于 2018-9-17 09:10:40

newer 发表于 2018-9-14 16:04
因为布局视口中的模型空间的位置是随机的，所以必须让程序知道图纸空间的哪些实体对应的是哪个视口，才会 ...

好的谢谢

的大 · 发表于 2018-10-10 11:25:04

谢谢，很有用啊

bai0371 · 发表于 2019-1-5 10:51:11

谢谢，很有用啊

香远益清 · 发表于 2019-11-27 15:53:01

选择要转到模型空间的实体<退出>:指定对角点: 找到 0 个

xdcad9819 · 发表于 2019-12-29 13:16:45

下来学习正需要谢谢楼主

xia121 · 发表于 2022-11-17 09:09:05

正需要，试试看

aklakl49 · 发表于 2024-1-16 17:03:53

正需要，试试看

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

[布局、排版] 图纸（布局）空间实体转到模型空间

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评