topic Re: How to remove yellow color in VBA Forum

How to remove yellow color

Anonymous — Thu, 12 Jan 2006 02:25:17 GMT

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"

Re: How to remove yellow color

Anonymous — Thu, 12 Jan 2006 02:35:54 GMT

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:5056874@discussion.autodesk.com...
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"

Re: How to remove yellow color

Anonymous — Thu, 12 Jan 2006 02:52:29 GMT

Hi Bell,thanks for your input info.

"R. Robert Bell" wrote in message
news:5056878@discussion.autodesk.com...
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:5056874@discussion.autodesk.com...
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"

Re: How to remove yellow color

Anonymous — Thu, 12 Jan 2006 03:11:21 GMT

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:5056878@discussion.autodesk.com...
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:5056874@discussion.autodesk.com...
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"

Re: How to remove yellow color

Anonymous — Thu, 12 Jan 2006 16:32:49 GMT

ThisDrawing.SaveAs "Drawline.dwg"
You must enclose strings in double quotes. By not doing so VBA thinks that
you are trying to get the .dwg property or method of the Drawline function
which doesn't exist.

"Adesu" wrote in message
news:5056930@discussion.autodesk.com...
[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:5056878@discussion.autodesk.com...
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:5056874@discussion.autodesk.com...
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"

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 02:02:41 GMT

Hi Jeff,it's great worked,thanks.
And how if we want to execute in command prompt,is'it possible?
as like Autolisp , only just type "what your have code" and then hit enter.

"Jeff Mishler" wrote in message
news:5057329@discussion.autodesk.com...
ThisDrawing.SaveAs "Drawline.dwg"
You must enclose strings in double quotes. By not doing so VBA thinks that
you are trying to get the .dwg property or method of the Drawline function
which doesn't exist.

"Adesu" wrote in message
news:5056930@discussion.autodesk.com...
[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:5056878@discussion.autodesk.com...
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:5056874@discussion.autodesk.com...
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"

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 02:24:43 GMT

I think, you can creat button and use macro, assign value button is funtion.

Maybe that is another way use.

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 02:39:28 GMT

Hi chubby667,
No, I 'm will not creating a button to execute a VB,it's too far solution
for me,I'm still beginner,knowledge in VBA = 0.

wrote in message news:5058071@discussion.autodesk.com...
I think, you can creat button and use macro, assign value button is funtion.

Maybe that is another way use.

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 03:09:16 GMT

You can try:
^C^C_-vbarun;(name macro)

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 03:49:52 GMT

Do you mean like this
Command: (^C^C_-vbarun; "Add Point.dvd")
It's got trouble !!

wrote in message news:5058082@discussion.autodesk.com...
You can try:
^C^C_-vbarun;(name macro)

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 04:09:17 GMT

No, it is funtion of button.
If from commandline:
command:-vbarun
command:macro
Try it:

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 04:28:11 GMT

Ya.. it's ok,but very different with autolisp.
thanks.
wrote in message news:5058103@discussion.autodesk.com...
No, it is funtion of button.
If from commandline:
command:-vbarun
command:macro
Try it:

Re: How to remove yellow color

Anonymous — Fri, 13 Jan 2006 04:39:17 GMT

No problem.
See you.

Chubby