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

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

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

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

你把它拷贝到你的目标DWG中就可以了啊？核心语句就一句，如：

　　　　　Set doc1 = ThisDrawing.Application.Documents("10.dwg")　＇源DWG文件
         Set doc2 = ThisDrawing.Application.Documents.Open(TFM)　　＇目标DWG文件

         doc1.CopyObjects ss1, doc2.ModelSpace　　＇ss为在10.dwg中构建的选择集，里面放的点＼线等

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

谢谢，我试一下

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

不能正确使用，望能给出完整代码，谢谢

账号		自动登录	找回密码
密码			注册