大佬们，请帮忙加一个平板型式宏输出带草图输出！

yni621 · 发表于 2020-12-4 15:16:48

经典图书

这个宏在论坛里面找的，我自己看懂一点，输出名添加了后缀平板型式。由于最近出下料图，经常要添加草图线辅助激光打标，方便焊接的时候对线，但是用宏转出来只能带折弯线。请大佬抽空帮忙加一个命令，可以顺带输出草图，非常感激。

Dim swApp As Object
Dim swModel As Object
Dim swModelName As String
Dim FilePath As String
Dim value As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModelName = swModel.GetPathName '读取当前SW模型文档名(含路径)
FilePath = Left(swModelName, Len(swModelName) - 7) + " 平板型式.dwg" '定义工程图名
value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_None) ' 保留折弯线
'value = swModel.ExportFlatPatternView(FilePath, swExportFlatPatternOption_RemoveBends) 无折弯线
End Sub

复制代码

Allate · 发表于 2020-12-11 11:04:16

说好的CAD二次命令，请查收。（注：这个是用LISP来写的，具体怎么用参考这里）
命令：FIX_SKETCH（这个可以自行改名字）

FIX_SKETCH.zip (445 Bytes, 下载次数: 136, 售价: 5 金币)

Allate · 发表于 2020-12-8 15:35:44

经典图书

看看行不行，我也是按API来改，没做过测试。

零件转DWG（带折弯线和草图）.zip (7.58 KB, 下载次数: 254, 售价: 5 金币)

Allate · 发表于 2020-12-7 10:44:45

完全不知道你说的是什么草图，能举例说明？

wuw1982 · 发表于 2020-12-7 16:13:15

经典案例图书

顶一下，坐等高手！

yni621 · 发表于 2020-12-8 13:36:42

Allate 发表于 2020-12-7 10:44
完全不知道你说的是什么草图，能举例说明？

直接输出平板型式，有个草图转出的。

yni621 · 发表于 2020-12-9 11:33:28

经典案例图书

Allate 发表于 2020-12-8 15:35
看看行不行，我也是按API来改，没做过测试。

2020版本测试通过，版主厉害！

yni621 · 发表于 2020-12-10 09:58:54

Allate 发表于 2020-12-8 15:35
看看行不行，我也是按API来改，没做过测试。

版主大神，这个宏很有帮助，提高了工作效率，能不能帮我把草图的线改成折弯线一样是虚线？我改了线型是虚线，显示还是实线，如果没办法也就算了。非常感谢。

Allate · 发表于 2020-12-10 10:07:06

yni621 发表于 2020-12-10 09:58
版主大神，这个宏很有帮助，提高了工作效率，能不能帮我把草图的线改成折弯线一样是虚线？我改了线型是虚 ...

其实我一般也没用到草图这个功能的，不好作判断。要不这样，你发一个零件出来，我研究一下。

yni621 · 发表于 2020-12-10 11:56:16

经典图书

Allate 发表于 2020-12-10 10:07
其实我一般也没用到草图这个功能的，不好作判断。要不这样，你发一个零件出来，我研究一下。

SB-BJ-A002 角立板 T1.5.SLDPRT (1.56 MB, 下载次数: 190)
草图是上激光机打标用，
主要是辅助折弯，压到对线就可以折圆弧。
还有一种是辅助焊接定位用。
麻烦大神了，有空就看看，实在不行，也感谢你的帮忙。

Allate · 发表于 2020-12-10 13:52:13

yni621 发表于 2020-12-10 11:56
草图是上激光机打标用，
主要是辅助折弯，压到对线就可以折圆弧。
还有一种是辅助焊接定位用。

尴尬，我只有SW2019...不过大概知道是怎么回事了，不用另外再发。
这个草图暂时想不到在SW宏里面怎么解决，不过倒是可以在CAD那里下手，搞个CAD的二次命令就好。

yni621 · 发表于 2020-12-10 16:22:29

Allate 发表于 2020-12-10 13:52
尴尬，我只有SW2019...不过大概知道是怎么回事了，不用另外再发。
这个草图暂时想不到在SW宏里面怎么解 ...

好的，没关系，现在的也挺好用了，还是谢谢你。

yni621 · 发表于 2020-12-11 13:49:35

Allate 发表于 2020-12-11 11:04
说好的CAD二次命令，请查收。（注：这个是用LISP来写的，具体怎么用参考这里）
命令：FIX_SKETCH（这个可 ...

版主大大太有心了，上面那个宏可以满足了，CAD也可以用。感谢了。

asbubble · 发表于 2021-6-27 23:31:24

顶一下,学习了!

tengda1234 · 发表于 2022-3-15 10:25:24

加入QQ群
参与讨论和学习

或扫描二维码加入

Allate 发表于 2020-12-11 11:04
说好的CAD二次命令，请查收。（注：这个是用LISP来写的，具体怎么用参考这里）
命令：FIX_SKETCH（这个可 ...

这个是怎么用的？

whdong76 · 发表于 2023-2-11 16:37:32

经典案例图书

SW机械工程师网，找到组织了！

zxt0824 · 发表于 2023-11-16 15:45:11

加入QQ群
参与讨论和学习

或扫描二维码加入

Allate 发表于 2020-12-8 15:35
看看行不行，我也是按API来改，没做过测试。

A大，这个宏已用，很好用。就是有个问题，就是默认工程图模板必须要打开显示观阅草图，这样转出DXF才会显示草图。有没有办法可以跳过默认工程图模板这块。

zxt0824 · 发表于 2023-11-17 08:11:43

经典案例图书

zxt0824 发表于 2023-11-16 15:45
A大，这个宏已用，很好用。就是有个问题，就是默认工程图模板必须要打开显示观阅草图，这样转出DXF才会显 ...

@Allate 这个问题已经找到办法解决了。现在就是折弯线如何不显示，只显示草图呢。感谢

Allate · 发表于 2023-11-17 08:30:06

zxt0824 发表于 2023-11-17 08:11
@Allate 这个问题已经找到办法解决了。现在就是折弯线如何不显示，只显示草图呢。感谢

你把最后一行的13更改成9即可。

沉默的人 · 发表于 2023-11-17 08:50:11

好好学习，天天向上！

		自动登录	找回密码
密码			立即注册

大佬们，请帮忙加一个平板型式宏输出带草图输出！

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献