(SETQ ANGBASEE (GETVAR "ANGBASE"))
(SETQ ANGDIRR (GETVAR "ANGDIR"))
(SETQ LUNITSS (GETVAR "LUNITS"))
(SETQ LUPRECC (GETVAR "LUPREC"))
(SETQ AUNITSS (GETVAR "AUNITS"))
(SETQ AUPRECC (GETVAR "AUPREC"))
(SETVAR "LUNITS" 2)
(SETVAR "ANGBASE" 0.0)
(SETVAR "ANGDIR" 0)
(SETVAR "LUPREC" 3)
(SETVAR "AUNITS" 0)
(SETVAR "AUPREC" 3)
reset at end
Good point BIGAL, maybe that'll be the problem. I have modified a copy of acad200#.doc to load all our drawings with the right settings for us. Obviously this program lacks a little integrity for other people! lol
So how's that aussie weather.. are you gonna send us (NZ) some fine weather?:wink: Hi Chaps,
The slope distance works correctly when I run it, you have to snap to the point for the level to register. it needs to be a short distance or big change in level for the slope distance to be relevant. for instance 100mm level diffrence in 10m will give a slope distance of 10.0005
I have discovered an problem with the other program I use, It seems to only register strange angles! a whole circle is not 2 pi which would be 6.28... I need to figure out what the other program is asking for! it is called BS contact. Just compare both results:
(setq hdist (rtos (distance afact aact) 2 3)); Get horizontal distance from ht=0 point stored variable and convert to string
and
(setq hdist (rtos (abs (- coor2x coor1x)) 2 3))
~'J'~ Give this a look:
http://www.cadtutor.net/forum/showthread.php?t=42128 Thanks All, This looks like a simple lisp which is a good start for me to start learning!
right, I have got to the bottom of the other programs "quirk" It gives an xyz as expected, then also gives rotation in the form 0 -1 0 0 each figure gives a angle to rotate the view from, in each xyz plane, plus the -1 tells it to rotate clockwise or anticlockwise. A larger figure will give the correct firection as long as I set the -1 to be plus 1. This might make perfect sense to people people who work in 3D cad? but its all new to me... To many things to learn in one go! Cheers Alanjt. I will post in your thread as well...
页:
1
[2]