canny 发表于 2008-10-25 22:57:00

怎么将多幅图形合并到一个图形中

怎么将多幅图形合并到一个图形中，不能以块的形式插入，要达到类似与import的功能，但是好像dwg格式不支持这个操作

tnt1095 发表于 2008-10-27 16:23:00

<p>你把它拷贝到你的目标DWG中就可以了啊？核心语句就一句，如：</p><p>　　　　　Set doc1 = ThisDrawing.Application.Documents("10.dwg")　＇源DWG文件<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set doc2 = ThisDrawing.Application.Documents.Open(TFM)　　＇目标DWG文件<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; doc1.CopyObjects ss1, doc2.ModelSpace　　＇ss为在10.dwg中构建的选择集，里面放的点＼线等</p>

canny 发表于 2008-11-2 20:03:00

谢谢，我试一下

canny 发表于 2008-11-2 20:47:00

不能正确使用，望能给出完整代码，谢谢
页: [1]
查看完整版本: 怎么将多幅图形合并到一个图形中