1.各位大师 如题正需要一个能在当前装配体里选中要复制的零件
2.运行宏
3.得到原地复制选中的零件（与源文件配合一致）
ps.装配体中的零件状态几种？都要支持带配合原地复制
1，完全配合约束的
2，未完全配合约束的
3，人工手动固定的
4，浮动的，就是说啥也没约束
有大佬开发类似的吗

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main开启命令()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
''修复配合命令
Part.Extension.RunCommand 3512, ""
End Sub
1.这个是选中错误的配合一键修复配合的
2.那么问题来了 是不是可以延伸到遍历修复呢 那将是一个厉害的宏啊
3.比如选中的零件遍历它的所以配合，判断到错误配合那就修复
4.又或者遍历当前总装修复全部错误配合

各位大师 小弟有个这样的需求，遇到待定图纸我想画个大xx 这样后期在电脑里使用大缩略图一眼能识别 需要商议的图纸
现在问题是如果图纸是2比1的 那画出来的对角线是符合的，
但是如果其它比例了 那就跑题了 怎么样才能通用呢 不管任何图纸比例

希望哪位高手优化一下，十分感谢，
1.目前是全局修改大小
2.我想更需要只针对选中的标注进行修改

希望哪位高手优化一下，十分感谢，
1.目前是全局修改大小
2.我想更需要只针对选中的标注进行修改

大神们，
1.用智能尺寸标注的文本，可以用gettext（），settext（）来编辑前后缀；
2.用孔标注的文本，gettext（）、settext（）不支持holecallout；
有没有什么好的方法用宏简单实现holecallout的文本编辑;

求宏，装配体下所有透明零件(包括子装配)改不透明 装配体 内 子装配体，子子 装配体过多，有些零件透明 不好选中，不方便 改不透明， 全选所有，一个是卡，一个 是 有些 透明的也 改不过来！
求大神 赐 宏啊， 一键 所有 零件 都是 不透明的！！！！

现有宏（论坛下载的，感谢作者） ，当前视图导出dwg 宏可以零件模式下运行， 哪位大侠可否升级一下，做一个 装配体当前视图导出dwg
以下宏供参考