Hi Bell or others,
I just tested a code to create a line,like this below,and then as "mfauxock"
tutorial I follow it
Tools >select a file > run
after that display alert box and on "Drawline"display highlight with blue
color,and so it's said "Compile error: Expected Function or Variable",then
click Ok,at the code "Public Sub Drawline()" also display highlight yellow
color.
My question is how to revised this code?
[code]
Public Sub Drawline()
Dim lineobj As AcadLine
Dim StartPoint(0 To 2) As Double
Dim EndPoint(0 To 2) As Double
'Define startpoint the line point
StartPoint(0) = 0: StartPoint(1) = 0: StartPoint(2) = 0
'Define endpoint the line point
EndPoint(0) = 10: EndPoint(1) = 10: EndPoint(2) = 0
'Create a line in model space
Set lineobj = ThisDrawing.ModelSpace.AddLine(StartPoint, EndPoint)
ThisDrawing.SaveAs Drawline.dwg
End Sub
[/code]
"R. Robert Bell"
wrote in message
news:[email protected]...
The yellow highlight is the debugger showing you where an error occurred.
Because the layout doesn't exist, that statement will cause an error.
The Debug toolbar has a Reset button on it, to stop the execution of the
code.
--
R. Robert Bell
"Adesu" wrote in message
news:[email protected]...
I just this code from "How to make a layout active,reply by R.Robert Bell,at
6/23/2004",and then tested it,but in VBA editor window ,display the yellow
color.
I really don't know how to remove it and what happened,would you inform to
me,to guide me on true way.
Thanks for your suggest and your help.
Sub Test()
ThisDrawing.ActiveLayout = ThisDrawing.Layouts.Item("Layout3")
End Sub
note; my layout only there are "layout1,layout2"
