yang686526

求在布局中建立视图的思路？
www.dimcax.com
求在布局中建立视图的思路？
人工操作方法：点击布局1或布局2后，输入ms-----三维视图菜单-----东南方向（或西南方向等）
求其用lisp编程思路
d
版主已经有方法，还要编程？command不就行了
d
谢谢caoyin的思路
(command "layout" "s" "布局2")
(command "-view" "neiso")
基本目标达到。
nwiso-西北等测视图
neiso-东北等测视图
seiso-东南等测视图
swiso-西南等测视图
在vba中运行
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23sub l1()
dim objlayoutarray as variant
objlayoutarray = array("主视图", "俯视图", "左视图", "西北等测视图", "西南等测视图", "东北等测视图", "东南等测视图", "多窗口打印", "任意角度")
dim objlayout as acadlayout
for ii = 0 to ubound(objlayoutarray)
set objlayout = thisdrawing.layouts.add(objlayoutarray(ii))
with objlayout
'.name = objlayoutarray(ii)
end with
next ii
end sub
sub lls()
objlayoutarray = array("主视图", "俯视图", "左视图", "西北等测视图", "西南等测视图", "东北等测视图", "东南等测视图", "多窗口打印", "任意角度")
debug.print "( " & chr(34) & "layout" & chr(34) & " " & chr(34); "s" & chr(34) & " " & chr(34) & objlayoutarray(5) & chr(34) & ")" & vbcr
thisdrawing.sendcommand "( " & chr(34) & "layout" & chr(34) & " " & chr(34) & "s" & chr(34) & " " & chr(34) & objlayoutarray(5) & chr(34) & ")" & vbcr
thisdrawing.sendcommand "( " & chr(34) & "zoom" & chr(34) & " " & chr(34) & "e" & chr(34) & ")" & vbcr
thisdrawing.sendcommand "( " & chr(34) & "mspace" & chr(34) & ")" & vbcr
thisdrawing.sendcommand "( " & chr(34) & "-view" & chr(34) & " " & chr(34) & "neiso" & chr(34) & ")" & vbcr
debug.print "( " & chr(34) & "-view" & chr(34) & " " & chr(34) & "neiso" & chr(34) & ")" & vbcr

end sub
d