高手教下lisp怎么新建视口,搜遍网络找不到

h008

高手教下lisp怎么新建视口？不是布局，我是想在视口里新建很多布局，我的平面图太大了，所以有这个想法。
　话说entmake是不行？想用　commadn  -vports 也不行，没法定比例及里面模型的位置。

h008

顶一下，期待高手

llsheng_73

1. (entmake(list'(0 . "VPORT")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbViewportTableRecord")(cons 2(getstring"视口名"))'(70 . 0) '(10 0.0 0.0 0.0) '(11 1.0 1.0 0.0) '(12 194.597 29.827 0.0) '(13 0.0 0.0 0.0) '(14 1.0 1.0 0.0) '(15 0.0 0.0 0.0) '(16 0.0 0.0 1.0) '(17 0.0 0.0 0.0) '(40 . 66.5068) '(41 . 1.78022) '(42 . 50.0) '(43 . 0.0) '(44 . 0.0) '(50 . 0.0) '(51 . 0.0) '(71 . 0) '(72 . 100) '(73 . 1) '(74 . 0) '(75 . 0) '(76 . 0) '(77 . 0) '(78 . 0)  '(65 . 1) '(110 0.0 0.0 0.0) '(111 1.0 0.0 0.0) '(112 0.0 1.0 0.0) '(79 . 0) '(146 . 0.0)))

(entmake(list'(0 . "VPORT")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbViewportTableRecord")(cons 2(getstring"视口名"))'(70 . 0) '(10 0.0 0.0 0.0) '(11 1.0 1.0 0.0) '(12 194.597 29.827 0.0) '(13 0.0 0.0 0.0) '(14 1.0 1.0 0.0) '(15 0.0 0.0 0.0) '(16 0.0 0.0 1.0) '(17 0.0 0.0 0.0) '(40 . 66.5068) '(41 . 1.78022) '(42 . 50.0) '(43 . 0.0) '(44 . 0.0) '(50 . 0.0) '(51 . 0.0) '(71 . 0) '(72 . 100) '(73 . 1) '(74 . 0) '(75 . 0) '(76 . 0) '(77 . 0) '(78 . 0)  '(65 . 1) '(110 0.0 0.0 0.0) '(111 1.0 0.0 0.0) '(112 0.0 1.0 0.0) '(79 . 0) '(146 . 0.0)))

自己对照DXF把不需要的去掉，以及所你所关心的相关组码值改成你所需要的,用(cons dxf 数值)表示它

smartstar

这个是不是你想要的？
http://bbs.mjtd.com/thread-93406-1-1.html

liu_kunlun

(command "-layout" "n" "abcdef");;新建布局         
            (command "-layout" "s" "abcdef");;置为当前
            (command "_mview" "");;添加视口

h008

liu_kunlun 发表于 2014-4-11 21:09
(command "-layout" "n" "abcdef");;新建布局         
            (command "-layout" "s" "abcdef");;置 ...

谢谢！
可还是没法指定比例及需要的模型范围啊

h008

smartstar 发表于 2014-4-11 13:21
这个是不是你想要的？
http://bbs.mjtd.com/thread-93406-1-1.html

谢谢你，我看看能不能看懂