查找轴承lisp。（贝金纳）

BIGAL · 发表于 2022-7-6 12:56:02

Not sure why there is not more setvars to make sure all your angles and units are set correct rather than rely on user setting the UNITS you can use these change as required

(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

scubastu · 发表于 2022-7-6 12:56:50

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:

Brin · 发表于 2022-7-6 13:03:32

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.

fixo · 发表于 2022-7-6 13:06:51

Just compare both results:

copy

(setq hdist (rtos (distance afact aact) 2 3))  ; Get horizontal distance from ht=0 point stored variable and convert to string

and

copy

(setq hdist (rtos (abs (- coor2x coor1x)) 2 3))

~'J'~

alanjt · 发表于 2022-7-6 13:10:32

Give this a look:

http://www.cadtutor.net/forum/showthread.php?t=42128

Brin · 发表于 2022-7-6 13:16:41

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...

[编程交流] 查找轴承lisp。（贝金纳）

发表回复

精选推荐