CAD software discussion forum > CAD > Zwcad + vba problem, Code that works on zwcad vba is notworking from excel vba

Zwcad + vba problem, Code that works on zwcad vba is notworking from excel vba

Rank: 1

mtgund3879

Newbie

posts: 6

Registered: 2013-2-25

Message 1 of 3

 Zwcad + vba problem, Code that works on zwcad vba is notworking from excel vba
15-03-2013 03:28 . pm | View his/her posts only

Code that works on zwcad vba is notworking from excel vba.

Sample Code is,

Dim acadapp As ZcadApplication

Set acadapp = GetObject(,"ZWCAD+.Application.2012")

Dim acaddoc As ZcadDocument

Set acaddoc =acadapp.ActiveDocument

Dim lineObj As ZcadLine

Dim startPoint(0 To 2) As Double

Dim endPoint(0 To 2) As Double

' Define the start and end points forthe line

startPoint(0) = 2#: startPoint(1) = 9#:startPoint(2) = 0#

endPoint(0) = 50#: endPoint(1) = 60#:endPoint(2) = 0#

' Create the line in model space

Set lineObj =acaddoc.ModelSpace.AddLine(startPoint, endPoint)

acaddoc.Application.ZoomAll



But this situation is just for windows 7, 64 bit. there is no problem for windows xp 32. We have too many programswritten for zwcad automation in excel. As we observed, on windows 7installation "zwauto.dll" activex registration is wrong or missing.Path of file/files are for "Documents" folder not "zwcad +"folder (From vba "referances" section) .

Rank: 5Rank: 5

Arphone

posts: 26

Registered: 2012-6-25

Message 2 of 3

01-04-2013 11:01 . am | View his/her posts only
Hi,

Thanks for your feedback. We have realized this problem and are working on it.

Rank: 1

mtgund3879

Newbie

posts: 6

Registered: 2013-2-25

Message 3 of 3

08-04-2013 08:32 . pm | View his/her posts only
Sp2...still same problem
See also