在模型空间中绘制布局的边框

lisp_beginner

在我们的一个项目中，我们为每个基础设施实用类型（下水道，雨水，电子等）提供多张DWG。在每一个dwg中，都有5到19个布局（当然还有模型空间），每个代表一个提交图 - 每个布局的尺寸比例都是1：100 。

图纸目前没有一个边界矩形框，在模型空间显示每个布局框的确切位置。是否有可能创建一个lisp：
1）使用当前的图层属性在每个布局的视口周围创建一个封闭的多段线
2）将所有这些多段线绘制到模型空间

我还需要将MTEXT插入到模型空间中的每个多段线中，这些线段代表相应的图号（布局选项卡名称）。

手工操作至少需要一天，因为我们总共有超过一百个图纸/布局（分布在8种不同的DWG）

谢谢！

WhoCanSay

不是不是类似命令
命令: CHSPACE

lisp_beginner

WhoCanSay 发表于 2018-2-1 16:21

感谢回复，chspace能做这个吗？

marting

试试

1. (vl-load-com)
   
2. (defun c:tt (/ ENT LL LLPT LST MT PL SSN UR URPT VLAOBJ VP)
   
3.   (setvar 'CTAB "model")
   
4.   (setq lst (layoutlist))
   
5.   (foreach x lst
   
6.     (setvar 'CTAB x)
   
7.     (command "_.zoom" "_E")
   
8.     (if        (and (setq vp (ssget "x"
   
9.                              (list '(0 . "viewport")
   
10.                                    (cons 410 x)
    
11.                                    '(-4 . "/=")
    
12.                                    '(69 . 1)
    
13.                              )
    
14.                       )
    
15.              )
    
16.              (= (sslength vp) 1)
    
17.         )
    
18.       (progn (setq ssn          (ssname vp 0)
    
19.                    ent          (entget ssn)
    
20.                    VlaObj (vlax-ename->vla-object ssn)
    
21.              )
    
22.              (vlax-invoke-method VlaObj 'GetBoundingBox 'll 'ur)
    
23.              (setq llpt        (vlax-safearray->list ll)
    
24.                    urpt        (vlax-safearray->list ur)
    
25.              )
    
26.              (command "_.rectang" "_NONE" llpt "_NONE" urpt)
    
27.              (setq pl (entlast))
    
28.              (entmake (list '(0 . "MTEXT")
    
29.                             '(100 . "AcDbEntity")
    
30.                             '(100 . "AcDbMText")
    
31.                             (cons 10 llpt)
    
32.                             (cons 1 x)
    
33.                       )
    
34.              )
    
35.              (setq mt (entlast))
    
36.              (command "_.chspace" pl mt "")
    
37.              (command "_.pspace")
    
38.       )
    
39.     )
    
40.   )
    
41.   (setvar 'CTAB "model")
    
42.   (princ)
    
43. )
    
44. 
    

(vl-load-com)<br /> (defun c:tt (/ ENT LL LLPT LST MT PL SSN UR URPT VLAOBJ VP)<br />   (setvar 'CTAB "model")<br />   (setq lst (layoutlist))<br />   (foreach x lst<br />     (setvar 'CTAB x)<br />     (command "_.zoom" "_E")<br />     (if        (and (setq vp (ssget "x"<br />                              (list '(0 . "viewport")<br />                                    (cons 410 x)<br />                                    '(-4 . "/=")<br />                                    '(69 . 1)<br />                              )<br />                       )<br />              )<br />              (= (sslength vp) 1)<br />         )<br />       (progn (setq ssn          (ssname vp 0)<br />                    ent          (entget ssn)<br />                    VlaObj (vlax-ename->vla-object ssn)<br />              )<br />              (vlax-invoke-method VlaObj 'GetBoundingBox 'll 'ur)<br />              (setq llpt        (vlax-safearray->list ll)<br />                    urpt        (vlax-safearray->list ur)<br />              )<br />              (command "_.rectang" "_NONE" llpt "_NONE" urpt)<br />              (setq pl (entlast))<br />              (entmake (list '(0 . "MTEXT")<br />                             '(100 . "AcDbEntity")<br />                             '(100 . "AcDbMText")<br />                             (cons 10 llpt)<br />                             (cons 1 x)<br />                       )<br />              )<br />              (setq mt (entlast))<br />              (command "_.chspace" pl mt "")<br />              (command "_.pspace")<br />       )<br />     )<br />   )<br />   (setvar 'CTAB "model")<br />   (princ)<br /> )<br /> <br />

fl502

在模型空间显示每个布局框的确切位置。是否有可能创建一个lisp：
1）使用当前的图层属性在每个布局的视口周围创建一个封闭的多段线
2）将所有这些多段线绘制到模型空间。

为什么要在模型空间显示每个布局框的确切位置？？？

bonny123

图纸集，能解决你的所有问题