【讨论】ISWXL 互动工具

zzc17205

   经典图书

由于今天玩家论坛有故障, 无法讨论, 故此暂时转移阵地, 在专门论坛先讨论一下.

hhn321

在Rename模式，插入缩略图时，会产生“丢失”现象；是“缓冲加速”的后遗症？还是俺操作有误造成的？

HZ2561

   经典图书

执行SaveAll与CloseAll指令时，会产生错误；
初步怀疑是"档案名称与副档名"分离造成的；
有尝试着修改，还是没能成功；

justin_hepec

谢谢benson同学
改为以下代码即可解决
Function SaveallFunction()
RowNumber = HeaderRow + 1
PathName = Cells(RowNumber, HeaderPath) & ""
While Not (PathName = "")
  RowNumber = RowNumber + 1
  PathName = Cells(RowNumber, HeaderPath)
Wend
For i = RowNumber - 1 To HeaderRow + 1 Step -1
  If CursorVerticalFollow Then Cells(i, HeaderPath).Select
  PathName = Cells(i, HeaderPath) & ""
'  FileName = Cells(i, HeaderFileName) & ""
  FileName = Cells(i, HeaderFileName) & Cells(i, HeaderExtension)
  If FileName <> Cells(i - 1, HeaderFileName) & "" Then
  FileExtName = UCase(Right(FileName, 6))
  If "SLDPRT" = FileExtName Then swFileType = 1
  If "SLDASM" = FileExtName Then swFileType = 2
  If "SLDDRW" = FileExtName Then swFileType = 3
  If "SLDLFP" = FileExtName Then swFileType = 1
  Set swDoc = swApp.OpenDoc(PathName & FileName, swFileType)
  Dim lErrors As Long
  Dim lWarnings As Long
  swDoc.Save3 9, lErrors, lWarnings   '8 = AvoidRebuildOnSave, 1 = Silent
  End If
  Cells(i, HeaderPath).Interior.Color = RGB(255, 176, 112)
Next
End Function

复制代码

huangkelei

   经典案例图书

正常的, 情况就是过去大佬所说的“缓冲加速后遗症”.

与Preview按钮的运行原理并不相同.

Rename的Preview是调用SldWorks对象来获取bmp,
亦即是在电脑(档案总管)看到的预览图,
间中SW储存档案时会有丢失预览图的情况,
当在外围看不到, 这个Rename也抓不到的.

而Preview按钮是调用ModelDoc2对象来输出bmp,
无论档案是什么版本, 只要可以开启, 就能输出bmp作缩图之用.

关键就是速度, "输出"比"获取"缓慢很多, "获取"基本上无需运算,
但若没有事先准备好资料准备(缓冲), 那就得不到想要的结果, 亦即是“缓冲加速失败”.

为什么採取两种不同的缩图方式在同一个工具内?
1. 表面上是一个工具, 其实只不过是把两个工具硬生生合併起来的.
2. 基本上Rename是无需缩图, 因为用得上批量修改的档案名称必有规范, 无需逐一看样子来改名, 如果真的要逐一改名, 倒不如回归基本步, 按右键来改名.
3. 慢总比错的好, 缓冲在档案面层的图片, 可能不是最新近的样子, 是之前某次储存时所缓冲所遗留下来的, 而且该图片是不支持模型组态(这是SW2014的情况).

babypercy

谢谢大佬的详细教学（good的表情符）；
俺明白啦。
ps;事先准备好资料后，测试可行；

hzqiang

   经典案例图书

有请benson同学帮忙列举更新的地方, 先谢谢了!

bear0124

俺先准备吧（还是整合到玩家论坛较为理想）
到时如有遗漏，再请各位大佬补充。

wanghanguang12

当然了吧.

难不成给同学一个炫耀的机会也不行?

zjwf0204

   经典图书

可能俺操作有问题，目前测试过程中有遇到问题
不知道各位大佬测试过程中是否顺利？

liaoh123

这个版本多了好多功能、更有Options视窗可以快速设定！
为了能够让之前没有参与过讨论、或没有使用过的朋友们，更快地了解此工具的强大！
因为小弟的英文不好(好多生字呀～)
所以小弟以之前使用互动工具的经验及对SW繁中版的认识，配合英汉字典，对此Excel SW-API的Options做了粗浅的翻译。
希望大家一起来使用、一起来"debug"呀～

Curosr vertical follow 光标垂直跟随
Cursor horizontal follow 光标水平跟随
GetPropName with summary 获取属性名称时顺道填写摘要名称
Keep in memory (Solidworks) 组合件和工程图保留档案在SW中开启, 集中在Save All 时储存SW档案(此选项不适合单纯处理零件档案)
Keep visible (require more MAM) 保持可见的(需要更多的记忆体)

Preferences 用于记录偏爱设定，可新增、删除、更名

Solidworks version SW的版本

Open related file search method 于Excel中载入关联文件的搜寻方式
All Path 任何位置的相关档案
Same folder 仅相同位置的相关档案
Same folder and Below 相同位置及往下所有资料夹的相关档案
same folder and upper and below 相同位置及往上、往下所有资料夹的相关档案

Output 输出，包括输出的档案类型(转档)、转档后的名称、及转出的位置
Path 路径 (可键入自订路径)empty = same path 没有任何字元(保持空白时)为相同位置
. = same path 键入 . 时可输出至相同位置往上一层的资料夹中
File name 可键入匯出档案的名称
Part 零件
Assembly 组合件
Drawing,each sheet to each files 工程图，每个页面的工程图转出至个别的DWG
Drawing,multi-sheet to 1 file 工程图,多页工程图转档输出至一个DWG
dwg version AutoCAD相容版本

Preview 缩图
Drawing image quality 工程图缩图的品质
Model 模型

Image quality 缩图的品质

Preview Dispaly Mode 显示样式
File default 档案最后存档的样式
Wireframe 线架构
HiddenLineRemoved 移除隐藏线
HiddenLinesGrayed 显示隐藏线
Shaded 涂彩
ShadedWithEdges 带边线涂彩

Preview Tangent Edge 相切面交线
System default Solidworks 系统选项设定值
Visible 可见的
Phantom 虚线
Removed 移除Preview Column 指定产生缩图的竖行(此时缩图在储存格的注解内)
0=in a specified cell 键入 0 时缩图产生在 "$Preview_OuputFileName$"的竖行
Comment Width 缩图的宽度
Comment Height 缩图的高度

Boundary Box 边界方块
Prop Name 属性名称
Decimal places 精度(小数位数)
Width 宽度
Height 高度
Depth 深度

wjs4593

副班长出现了

weihongyy

今天一早下载的，今天都在车间工作，也没有好好的测试，目前还没有发现有什么问题……初步使用的感觉很棒，谢谢大佬～

zhanyong260169

更新内容：

1. options dialog.-------新增了工作选项设置对话框（可设定多个喜好，可随时切换）;

2.multi-pages dwg. --------新增多页工程图输出到单一dwg;

15. output step format-------新增输出Step格式；

8. improvedproperties of model in first view of sheet.-----改善输出档案时指定模型属性的链接；

3. random column(columnA header must be$????$).

5. wireframe preview.--------新增缩略图显示样式（线架样式等等）

4. comment preview.--------新增插入缩略图到批註内；

0：代表缩略图插入到指定栏位（$Preview_OuputFileName$）的单元格内；

1-9；代表缩略图插入到指定栏位的单元格的批註内；如；1代表A栏，如此类推；

6. split file name and extension.--------分离文件名与附档名；

7. file rename.--------新增文档改名工具；

9.UseAlternateNameInBOM and AlternateName. --------新增BOM中的用户指定名称；

备註: UI的UserSpecified Name在API内叫AlternateName.

10.LoadDraftingStandard.-------载入绘图标准；

12. reload sheet format.-----重新载入图页格式；

11. Sheet metal 6 flat pattern options.------钣金的6个选项；

14. size of boundary box.-----零件的边界盒尺寸；

13. Ui support unicode path.-------UI支持中文路径；

16.Create Drawing-----强烈期待此超级工具；

PS; 很多新增功能还没测试，测试后再作补充；

xcj1973

加入QQ群
参与讨论和学习

或扫描二维码加入

(竖起大拇指的表情)做得好!

补充:
3. random column(columnA header must be$????$)
column可随意调动, 但Acolumn必须是带有$的系统表头让代码寻找表头于哪横行.

解释:
11. 钣金的6个选项
放弃了使用不直观的Bitmasks, 改用二进(01)代表6个属性.

还有一些小节有待发掘的.

liujia1314

   经典案例图书

对于未来会新增的"16.Create Drawing-----强烈期待此超级工具",想向班长及副班长先行请益.
该如何调用API使多本体零件上个别零件显示在工程图的视图呢??

antony10

加入QQ群
参与讨论和学习

或扫描二维码加入

向大佬点名提问=缘木求鱼

应向班长或副班长请益.

大佬只接受班长及副班长的点名提问.

sky_lawyer

   经典案例图书

谢谢大佬教授提醒,学徒将修改文章还望见谅.

filrile

俺着魔啦，抱歉。想好后，俺再提问。

tongwenzhong123

在Rename模式，插入缩略图时，会产生“丢失”现象；是“缓冲加速”的后遗症？还是俺操作有误造成的？