phos 发表于 2006-1-9 17:20:00

[求助]怎么在文档之间切换

<P><FONT face=宋体 size=2>设置sdi=0, 怎么在文档之间切换?<BR>比如:我打开1.dwg,我在vba中用ThisDrawing.Application.Documents.Open ("C:\2.dwg")打开2.dwg,我要对2..dwg中的元素进行操作,如何实现?不关闭2.dwg,又如何对1.dwg进行操作?<BR>如果设置单文档会有什么不同?<BR><BR>我是想用vba程序把一个目录下所有dwg文件,汉字注记为“XX市”、“XX镇”等地名和每一个图形的边框集中到一个文件中,我用插入图块的方式实现了,但是速度太慢了。<BR>我想单独打开每个文件,把要用数据写块,或者是把坐标、文字内容用txt文件记录下来,我想是不是要快一些?<BR>请高手指点</FONT> </P>
<P><FONT face=宋体 size=2>我执行选择Sspline1.Select acSelectionSetAll, , , FilterType, FilterData<BR>好象选择的是1.dwg中,如何选择2..dwg中的元素?</FONT></P>

dragonboy 发表于 2006-1-10 18:22:00

<P>在文档间切换</P>
<P>Public Sub test()<BR>&nbsp;&nbsp;&nbsp; Dim doc As AcadDocument<BR>&nbsp;&nbsp;&nbsp; For Each doc In ThisDrawing.Application.Documents<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; doc.Activate<BR>&nbsp;&nbsp;&nbsp; Next<BR>End Sub</P>
页: [1]
查看完整版本: [求助]怎么在文档之间切换