yang686526

[求助] 怎样批量把三维面改为三维多段线
www.dimcax.com
[求助] 怎样批量把三维面改为三维多段线怎样批量把三维面改为三维多段线
d
这个问题好难啊，我也在关注中，请求高手帮忙解决。附图形。
该文件为 autocad
d
sub main()
dim t3dface as acad3dface
dim tobj as acadobject
dim tv(0 to 11) as double, n as integer
for each tobj in thisdrawing.modelspace
if typeof tobj is acad3dface then
set t3dface = tobj
for n = 0 to 8
tv(n) = t3dface.coordinates(n)
next
tv(9) = t3dface.coordinates(0)
tv(10) = t3dface.coordinates(1)
tv(11) = t3dface.coordinates(2)
thisdrawing.modelspace.add3dpoly tv
end if
next
for each tobj in thisdrawing.modelspace
if typeof tobj is acad3dface then
tobj.delete
end if
next
thisdrawing.regen acallviewports
end sub
个人文件空间