We use a macro we found on this forum to create a custom property called "AutoQty" in each indivual part.
I have been trying to get this (ISO macro to export flat pattern dxf from assemblies SW2017 ) macro to include that custom property in the dxf filename without success. Ex: (filename (AutoQty).dxf)
Anyone can help?
Thank in advance
Get the property value for each part using custom property manager and then you can add that value in the DXF file name.
What issues are you facing in achieving the desired results?
Thank for the respond, I am looking to modify the macro so that it populate that value in the dxf filename.
Unfortunately I have limited skill in macro programming.
Wondering if someone could point me on what line I need to add inside the macro.
Eric Malenfant wrote:
Thank for the respond, I am looking to modify the macro so that it populate that value in the dxf filename.
Unfortunately I have limited skill in macro programming.
Wondering if someone could point me on what line I need to add inside the macro.
Upload the macro you're using which you want to modify.
Here are the macros.
Try this updated macro. The macro would pull the value of custom property named AutoQty and add to export DXF file name. You must run the AutoQty macro first.
I do not want to abuse your generosity but it does not seem to add the quantity into the dxf filename.
I notice that this line didn't change, wondering if it should include autoqty?
exFileName = FilePath & "\" & sMatName & "\" & Thickness & "\" & FileName
Eric Malenfant wrote:
I do not want to abuse your generosity but it does not seem to add the quantity into the dxf filename.
I notice that this line didn't change, wondering if it should include autoqty?
exFileName = FilePath & "\" & sMatName & "\" & Thickness & "\" & FileName
Here are the lines where it pulls and adds the value.
I think the qty macro add value to configuration properties, so replace this line
Set swCustPropMgr = swOpenModel.Extension.CustomPropertyManager("")
with
Set swCustPropMgr = swOpenModel.Extension.CustomPropertyManager(swCurrent)
That did the trick.
Thank you very much Deepak for you generosity of time and sharing your knowledge!
hello
Thickness must be mm
dxf empty
Arif Akbas wrote:
Thickness must be mm
In order to get thickness in mm, change this inches conversion factor to mm conversion factor i.e. replace 39.3700787401575 by 1000
And to get mm in the folder name, replace this line
swThkDir = FilePath & "\" & sMatName & "\" & Thickness
with
swThkDir = FilePath & "\" & sMatName & "\" & Thickness & " mm"
And no idea why your DXF is empty. So attach your files to check them.
hello
dxf is not exporting
no auto qyt
edit
add macro
Arif Akbas wrote:
hello
dxf is not exporting
no auto qyt
edit
add macro
Use the AutoQty macro posted above.
It did not work
add video
Arif Akbas wrote:
It did not work
add video
What is not working? Add your files or video to show.
add video
Currently being moderated.
Arif Akbas wrote:
add video
Currently being moderated.
OK, we would wait once it is uploaded.
add video
Have you tried manually exporting the DXF? Does this works?
Also what happens when you do zoom to fit in ACAD?
yes
manual is happening
macros edit
add here
add files
Arif Akbas wrote:
yes
manual is happening
macros edit
add here
Macro works OK for me. Can you share your files to check?
hello gupta
files attached
you add a video
thickness...........mm
autoqyt............
export dxf........
add new macro
check this macro
1-27RMG73 wrote:
thickness...........mm
autoqyt............
export dxf........
add new macro
check this macro
Did you run the AutoQty Macro first?
I did not run the AutoQty macro but used the export dxf macro you've posted with slight changes (had to add mm in this line as well) and macro worked as expected with no empty files. Check attached video.
exFileName = FilePath & "\" & sMatName & "\" & Thickness & " mm" & "\" & FileName
So I believe issue is with your default drawing template. Make sure that is properly set and scale in that is 1:1.
where
autoqyt
macro
Arif Akbas wrote:
where
autoqyt
macro
Check this macro posted by Eric.
Here are the lines where it pulls and adds the value.
I think the qty macro add value to configuration properties, so replace this line
Set swCustPropMgr = swOpenModel.Extension.CustomPropertyManager("")
with
Set swCustPropMgr = swOpenModel.Extension.CustomPropertyManager(swCurrent)