Crosshair Customizing

Hi
Has anyone found a way to customize the crosshair in a vba program? e.g. Bullseye or something? Or maybe just a way to fake it?

 

Hi,

Why not just set the system variable "CURSORSIZE" with the
ThisDrawing.SetVariable function ?


Also MODELCROSSHAIRCOLOR
LAYERCROSSHAIRCOLOR
can be set in the same way.

--


Regards


Laurie Comerford
CADApps Australia
www.cadapps.com.au

Bullseye or something? Or maybe just a way to fake it?

 

Laurie:
MODELCROSSHAIRCOLOR and I assume you meant LAYOUTCROSSHAIRCOLOR (instead of
layer) don't seem to be valid system variables. Which version of AutoCAD
does this work on? I've tried both 2004 and 2005 with no luck.

Just curious.

--
Matt W

The difference between genius and stupidity is that genius has its limits.
| Hi,
|
| Why not just set the system variable "CURSORSIZE" with the
| ThisDrawing.SetVariable function ?
|
|
| Also MODELCROSSHAIRCOLOR
| LAYERCROSSHAIRCOLOR
| can be set in the same way.
|
| --
|
|
| Regards
|
|
| Laurie Comerford
| CADApps Australia
| www.cadapps.com.au
|
| | > Hi
| > Has anyone found a way to customize the crosshair in a vba program?
e.g.
| Bullseye or something? Or maybe just a way to fake it?
|
|

 

Hi Matt,

Yes, I mistyped the name. However, I didn't say those two were system
variables. I said they can be set with "ThisDrawing.SetVariable". I had
found these items under "See Also" and assumed you could set them the same
way as the CURSORSIZE variable.

However reading the help file in more detail found that you use:

ThisDrawing.Application.Preferences.Display.ModelCrosshairColor = YourColor

where YourColor is a Long and Yellow has a value of about 65000. I guess
you will need to experiment further to get the actual colour numbers you
want..

Open up the VBA IDE and do a search for them in the help files.


--


Regards


Laurie Comerford
CADApps Australia
www.cadapps.com.au

 

Thanks for your input, but what i was referring to was using any block for the cursor. I'm not familiar with acadx, but from what I understand it can maybe mimic the 'ghost' seen when inserting blocks. So therefore, maybe the program/macro would actually be inserting a block and erasing it to get points, but the user would sense that the crosshairs are different. A bullseye crosshair drawn to scale could be useful for tracing scans that can't be automatically vectorized. And i'm sure there are many other applications.

 

Hi Lorier,

Yes again - but you change the CURSOR, not the CROSSHAIRS as you asked in
your query header. Why don't you read the Help files this time ?

--


Laurie Comerford
CADApps
www.cadapps.com.au

the cursor. I'm not familiar with acadx, but from what I understand it can
maybe mimic the 'ghost' seen when inserting blocks. So therefore, maybe the
program/macro would actually be inserting a block and erasing it to get
points, but the user would sense that the crosshairs are different. A
bullseye crosshair drawn to scale could be useful for tracing scans that
can't be automatically vectorized. And i'm sure there are many other
applications.

 

semantics? i consider the crosshairs to be a specific type of cursor.... i've skimmed through the help files numerous times.... what does that have to do with my question? Does it say somewhere in there that no one has found a way to customize the crosshair/cursor so that it looks like a bullseye?

 

To my knowledge, there is no way of changing the cursor. I'd love dearly for
someone to provide a method, though, even through the windows API.

An example of how autocad is doing this is through the match properties
command, if I understand what you're trying to accomplish correctly.

Kevin

i've skimmed through the help files numerous times.... what does that have
to do with my question? Does it say somewhere in there that no one has
found a way to customize the crosshair/cursor so that it looks like a
bullseye?

 

Laurie,
Thanks, but while that would work for the mouse over a vba form or control,
the cursor in Autocad is a different beast altogether.

Kevin

 

Hi Kevin,

I did this out of curiosity and to help you. I was able to find a starting
point with about 10 minutes work.

You are the one that wants it. Why don't you do your own research instead
of grizzling about the help you have.

--


Laurie Comerford
CADApps
www.cadapps.com.au

 

Who got out of bed the wrong side this morning?

In fact for the past few days.

Tell me, how many new customers do you expect to gain through your attitude?

 

thanks for that <g> i didn't know i even knew how to grizzle

Kevin