vba drawing lines imprecisely...

[comcu]

Hello All!!!

 

I have a little vba module for creating windows using pick point. the proiblem is the sizes are exact...

 

for example there always 0.49mm out. know i can work with this but i find it annoying and was wonder if anyone new why?

 

i have attached a drawing and vba project if anyone has time to have a look.

 

just run the UFcreateSglWinElev form and press the play button. pick two point, bottom let, top right and then close the form and you will see the window is of the exact pick points by 0.5mm (approx)

 

I don no if is a problem with the code or if im not selecting correctly but i thought if you use snaps it will snap to exact coordinates?

 

 

thanks for any help,

 

 

Col.

AutoDrawWin.zip

[hendie]

haven't checked your routine but are you turning snaps off before you are creating the lines ?

 

edit - (must read entire post before replying!) - yes you are using snaps - turn them off before creating the lines and see what happens

[comcu]

hendie,

 

thank you for your response.

 

If i turn off snaps how can i select the points i need to run the procedure?

 

cheers,

 

col

[CmdrDuh]

turn the snaps off after you have selected the points, but before you draw the line. It might be snapping to osnaps while drawing the lines even though you picked the points using the snaps

[BIGAL]

Definately check osnaps "off" Autocad has a nasty habit depending on even the zoomed scale your working at to grab an object. Like wise if to far out scale, snaps sometimes will not work.

 

Check the value of the 2 points and make sure they are correct.

 

Also check grid is off maybe its set to some odd value.

[comcu]

Than you boh you.

 

I will have a look into help on how to control osnap from vba.

 

thanks very much.

 

Col

[BIGAL]

Not sure of exact vba code but here it is in lisp

(setq oldsnap (getvar "osmode"))

(setvar "osmode" 0) no osnaps

code here

 

(setvar "osmode" oldsnap) resets it back again

[BIGAL]

Found it I think

 

oldsnap = ThisDrawing.GetVariable "OSMODE"

ThisDrawing.SetVariable "OSMODE", 0

[CmdrDuh]

yep, that would do it.

[comcu]

Thanks very much guys i will incoporate it into my code.

 

I have done a similiar module for doors so i will be able to add it to both, hopefully that will get rid of the .0455mm's!!!!

 

I will let you know if it does the trick.

 

Cheers,

 

Col.