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 forwindows 7 64. 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) .