找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
打印 上一主题 下一主题

[分享] 【答坛友】宏,更改绘图标准

  [复制链接]
61
发表于 2017-8-17 19:44:18 | 只看该作者
太好了,写的棒棒棒棒的
62
发表于 2017-9-1 11:54:34 | 只看该作者
那改的是什么标准
63
发表于 2018-1-11 19:46:20 | 只看该作者
谢谢分享!
64
发表于 2018-1-11 19:49:07 | 只看该作者
谢谢分享!
65
发表于 2018-1-12 18:39:38 | 只看该作者
英雄所见略同
66
发表于 2018-1-13 14:11:47 | 只看该作者
谢谢分享!可以再简化一下
  1. Dim swApp As Object
  2. Sub main()
  3. Set swApp = Application.SldWorks
  4. Set Part = swApp.ActiveDoc
  5.     stdfile = "D:\Templates\绘图标准\GB-2017.sldstd"                '指定绘图标准文件所在的路径
  6.     Part.Extension.LoadDraftingStandard stdfile                     '装载绘图标准文件
  7.     Part.ForceRebuild3 False
  8. End Sub
复制代码
67
发表于 2018-1-15 17:16:47 | 只看该作者
谢谢分享
68
发表于 2018-3-9 11:06:55 | 只看该作者
感谢分享

69
发表于 2018-4-26 09:57:48 | 只看该作者
谢谢分享
70
发表于 2018-5-5 11:49:08 | 只看该作者
这个很不错!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-12-22 13:57 , Processed in 0.025514 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表