无需运行solidworks程序, 批量修改档案属性

zhaizan

   经典图书

补充:
程式码是以SW2013为基础, 如果手头版本不同, 需要到程式码编辑器>工具>设定引用项目>加入"SwDocumentMgr 20?? Type Library", 见下图:

sundonggang

衷心感谢大佬花了许久时间编写此教程！
明早上班立马询问代理商，尔后才能跟进参与讨论！
再次谢谢大佬！

bxp5020

   经典图书

请问有谁成功获取SWDM-API的许可证号码? 在Excel的试验效果如何? 大佬很想知道有否阻滞, 期待大家的回答, 谢谢!

a1aqwe

在朋友的帮忙下，阿丹得以用最快的速度取得SWDM的KEY，
运行了大佬的代码结果====>毫秒杀！
现在能体会大佬说效率太高是什么意思了~~^^
谢谢大佬提供一个机会让大家有机会接触到SWDM，
更谢谢大佬花宝贵时间写教程，让我体会到了直接调用 API ，秒速批次修改属性的快感！
再多的谢谢仍言不及意，继续追随大佬学习！！！

wk518518

   经典案例图书

小翔苦苦寻求SWDM-API的许可证号码未果，只能眼睁睁看着大佬秒杀

gui119

报告闷大佬，臭脸也成功应用了！

正在开心地使用着。



谢谢闷大佬提供如此神兵利器

aabbkk

   经典案例图书

恭喜臭哥和丹哥成功应用, 并谢谢两位积极参与.

但大佬相信还有改良之处, 例如:
1. 开启按钮, 弹出的对话框点选档案, 帮助填写路径及档案名称
2. 提取工程图属性按钮, 覆核之用
3. 提取工程图内的零组件属性按钮, 有助人手填写工程图属性
4. 零件/组合/工程图 选项, 让此程序可修改更多档案类型的属性
5. 切换图页格式按钮
6. 输出 PDF/JPG/DWG 的按钮

希望各位踊跃参与讨论, 集思广益, 一同研究更完善的程式码, 谢谢各位.

goldenboy

大佬思考的很全面呀~~希望大家真的能积极讨论！
再次谢谢大佬的教程。
先请教大佬，SWDM有将属性写入配置的语法吗？

zhangkeshan

下午就已贴好代码，也做了巨集按钮
但提取档案属性一直没有成功…晚上再仔细看了一次…
原来「表头」放错栏位了…><，所以读不到…
现在成功了！谢谢大佬教学！^^

sndykiss

   经典图书

大佬~关于第一段 就是臭脸翔.xls那个
打开是乱码 可否解译一下 乱码文字的意思有一些可以从大佬的贴图 大约知道~有一些就不能

evalhy

谢谢丹哥测试, 也欣赏丹哥勇于面对自己的不仔细.

让大佬有感而发, 又要说一些闷话了.

大佬所见, 很多从事技术的人士, 都自以为掌握了技术, 瞧不起文职人员, 认为他们只是在做一些非技术性的黑板工作. 认为自己是公司的中流砥柱反得不到合理的待遇; 好像早前专门店这里有位坛友发帖, 说自己曾赢得什么的制图奖项, 觉得公司的图面不堪入目, 更对好心协助他的同时嗤之以鼻, 到论坛吐一口乌气的举动可见一斑. 可大佬找不到该帖子, 不好意思.

其实任何人也有他自己的一个故事, 每个平凡人的背后都不平凡.

大佬真心诚意, 希望可以帮助别人利用方法代替重复工作, 简化流程从中减少人为错误, 更重要的是可以"自助", 利用手中仅有资源配合自己的想法, 编写一些小程序应付日新月异的种种问题.

如果能把在这些小程序节约得来的时间, 好好利用来编写更多的程序, 如此类推驾驭工作.

如果臭哥这次可以节省到时间, 希望臭哥可以抽空持续研习, 一来可以训练逻辑思维, 又可以更好的配合工作.

千万不要像灯具小翔般, 成功使用座标宏后就急不及待告诉上司, 而不是沉着应战, 看看能否让自己也能编写出简单又能解决问题的宏程序, 一时的称赞随时换来日后的逼迫, 相信灯具小翔的上司不需几分钟, 就把小翔这个短暂"功劳"消化, 小翔非但没法利用省来的时间, 再有难题的话更是难找藉口说不.

nxdr-123

该段程式码如下:
Sub SLDDRW1()
Set objClassfac = CreateObject("SwDocumentMgr.SwDMClassFactory")
SWDMLicenseKey = InputBox("输入许可证密码")
If SWDMLicenseKey = "" Then Exit Sub
Set swDM = objClassfac.GetApplication(SWDMLicenseKey) '启动SWDM
SavedFilesNumber = 0
HeaderRoll = 2
RollNumber = HeaderRoll + 1
PathName = ActiveSheet.Cells(RollNumber, 1) '读取第一个路径的值
While Not (PathName = "" Or PathName = 0 Or IsEmpty(PathName)) '直到读完路径栏
  Filename = ActiveSheet.Cells(RollNumber, 2)
  Set swDoc = swDM.GetDocument(PathName & Filename, 3, False, mOpenErrors) '开启
  If Not swDoc Is Nothing Then
  ColumnNumber = 3
  PropName = ActiveSheet.Cells(HeaderRoll, ColumnNumber)
  While Not (PropName = "" Or PropName = 0 Or IsEmpty(PropName)) '直到读完表头
    PropValue = ActiveSheet.Cells(RollNumber, ColumnNumber)
    swDoc.DeleteCustomProperty PropName '删除属性
    swDoc.AddCustomProperty PropName, 30, PropValue '新增属性
    ColumnNumber = ColumnNumber + 1 '下一栏
    PropName = ActiveSheet.Cells(HeaderRoll, ColumnNumber)
  Wend '回到>直到读完表头
  SaveOK = swDoc.Save
  If SaveOK = 0 Then SavedFilesNumber = SavedFilesNumber + 1
  swDoc.CloseDoc
  End If
  RollNumber = RollNumber + 1 '下一列
  PathName = ActiveSheet.Cells(RollNumber, 1)
Wend '回到>直到读完路径栏
MsgBox "更新了 " & SavedFilesNumber & " 个档案"
End Sub

复制代码

bclz2010

谢谢大佬~
有看到中文的意思~
再次感谢

haoren123

再次谢谢大佬无私的教程和教诲~附上自己的操作画面~~^^

zhouwen525478

加入QQ群
参与讨论和学习

或扫描二维码加入

闷大佬#21说：「大佬只是在提供入门之法, 并非在提供客户服务」，实在过于谦逊呀~^^
除了开帖的源文件，再看#24，#25的代码便知~大佬实在佛心来着~~
有朋友问：大佬这个代码超厉害，但是我比较需要的是「零件」的属性批次修改而不是工程图…
其实利用大佬的档案和代码，很容易修改的。多看几次帮助或是大佬以前的教学就不难从中窥知一二。
尤其是大佬在重要代码后面都有加註解说，就更容易看清楚了~^^

如下图，将#24楼闷大佬分享的「选择档案」代码稍加修改即可！
红线部份改成任何自己想定义的文字，例如："SW零件"
蓝色部份改成：*.SLDPRT




如此一来，就可以选择到零件档而非工程图档了。
===================================================
以上纯粹分享使用心得，并不一定正确…望闷大佬抽空指导~
[size=14.4444446563721px]===================================================

zrf1029

   经典案例图书

看到丹哥贴出漂亮版面, 非常高兴!

让大佬有动力 继续研究"提取工程图内的首个零组件属性"的程式码.

sxrdd1981

加入QQ群
参与讨论和学习

或扫描二维码加入

照着闷大佬指示的步骤把另两段程式码做好了

sddc-liu

   经典案例图书

臭哥也成功了, 高兴啊!

看到臭哥的"执行代码"按钮, 不禁会心微笑.

zwl0726

是指代码有三，不知执行的是哪一个吗

那个我贴完图之后发现不太对，有改成"修改属性"。

azhangyi

晕!