About moving ucs origin

Tero Knuutila

 Hi!

I tried to make lisp program insert cylinders on top of each other. Tried to utilize ucs move option: Draw one cylinder, move ucs, draw another cyl.

However apparently small moves of UCS are not possible with lisp function when UCS lies at existing cylinder origin.

Try lisp code below, at least on my Bricscad the small step gets rounded, and first move fails. Another bugger step succeeds.

I have tried to disable esnap, snap, strack with no help.

[code]

(defun ucsMoveAtCylinderOrigin()

(command "cyl" "0,0,0" "85" "-500")

(getstring "Enter to continue and try move UCS origin!")

(command "ucs" "m" "50,0,0")

(getstring "Enter to try move UCS origin again, with longer distance!")

(command "ucs" "m" "500,0,0")

)

[/code]

Thanks beforehand for Your help, this is my first post on this forum.

Roy Klein Gebbinck

Have you considered 3D osnaps? To solve this you can also add the "_non" osnap option before each point:
[code](command "_cylinder" "_non" '(0 0 0) 85 -500) [/code]

Tero Knuutila

@Roy Klein Gebbinck:

Have you considered 3D osnaps? To solve this you can also add the "_non" osnap option before each point:

(command "_cylinder" "_non" '(0 0 0) 85 -500)     

 I now put the "_non" option on my ucs move command, and it started to work correctly!

Here my code is in case someone else needs help moving ucs with small steps:

[code]

(command "ucs" "m" "_non" "50,0,0")

[/code]

Many Thanks!

Tero Knuutila

I retry to put my code tags. I am new in forum so this will be essential to get right.

For some reason my code got outside on the code box in myprevious posts.

[code](command "ucs" "m" "_non" "50,0,0")[/code]