SW macro

[turboanden]

hi

I have made this macro to plot some points in a sketch, but depending on if there is zoomed out or in, it will plot it wrong or right.

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object


Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager


A = 0.3
B = 0.3
X = 0
C = 0
Y = 0
K = 0.8

ST:
X = X + 0.1
Y = A * X ^ 2 + B * X ^ 2 + C
Part.CreatePoint2 X, Y, 0

If X < K Then GoTo ST

End Sub

 

[handleman]

What do you mean by "wrong or right"? I can't get it to behave unexpectedly.

By the way, what programming language are you used to? Using GoTo to create a loop is generally considered poor programming practice in VB/VBA.

-handleman, CSWP (The new, easy test)

 

[turboanden]

then try to zoom out an run the macro again.

yes it is poor programming, but im also new to this ;O)

 

[turboanden]

remember to delete the old points before you run it again

 

[handleman]

I see what is happening. When a point is created, SW looks to see where it is. If your zoom level is such that SW thinks the points are right on top of each other, it won't add them. Just like if you try to manually insert a point on top of an existing point. You have to tell SW to ignore anything that might be near the point locations and just put them in. You do that with SetAddToDB and SetDisplayWhenAdded.

Dim swApp As Object
Dim Part As SldWorks.ModelDoc2
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object


Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.SetAddToDB True
Part.SetDisplayWhenAdded False

A = 0.3
B = 0.3
X = 0
C = 0
Y = 0
K = 0.8

ST:
X = X + 0.1
Y = A * X ^ 2 + B * X ^ 2 + C
Part.CreatePoint2 X, Y, 0

If X < K Then GoTo ST
Part.SetAddToDB False
Part.SetDisplayWhenAdded True
End Sub

-handleman, CSWP (The new, easy test)

 

[turboanden]

Thanks - now I see it works fine. My firm don´t have anything about makking macros in sw. Do SW offer any books/documentation on how to make marcos ?

 

[ShaggyPE]

These are the only two books on writing macros in SolidWorks.

http://www.sdcpublications.com/1-58503-263-8.htm

http://angelsix.com/solidworks-2008-api-programming/

I own the first one and it is pretty good for an introduction and is available from amazon.com. The second one is pretty new.

-Dustin
Professional Engineer
Certified SolidWorks Professional

 

[fcsuper]

I have the 2004 version of the first one. It is ok to get a very basic start. You will likely outgrow it quickly. I've not seen the Angelsix one yet, but look forward to seeing it. From talking with the author, it looks to be comprehensive.

Matt Lorono
CAD Engineer/ECN Analyst
Silicon Valley, CA
Lorono's SolidWorks Resources
Co-moderator of Solidworks Yahoo! Group
and Mechnical.Engineering Yahoo! Group