How to fix to work with custom UCS?

[Guest kruuger]

Hello

 

I have a problem with my lisp routine.

When i work with world UCS everything is fine but very often i work with rotated UCS and then lisp doesn't work correct.

 

Probably i need to use trans function. I try this but without good result.

 

Please help

Thanks

kruuger

Xlinedim.lsp

[Lee Mac]

You will need to transform your user-selected points from UCS to WCS, :

 

(trans <point> 1 0)

[Guest kruuger]

aaa, it was so simple

 

thanks Lee

kruuger

[Guest kruuger]

i noticed one thing. whem i rotate UCS with this lisp:

(Defun C:UU ()
 (setq osmode_hold (getvar "OSMODE"))
 (setvar "OSMODE" 512)
 (setq PT1 (getpoint "Select LEFT side of OBJECT which should be horizontal"))
 (command "_UCS" "OB" PT1 "PLAN" "CURRENT" "")
 (setvar "OSMODE" osmode_hold)
 (princ)
);UU
(princ)

and i try my Xlinedim then even with trans command xline are drawn wrong (they only worked at defined UCS North East, West, South)

 

What i can fix?

thanks

[Lee Mac]

I haven't properly looked at your LISP, but you will have to acount for the UCS rotation by looking at the direction of the UCS X-Axis (UCSXDIR).

[Guest kruuger]

great thanks

i need to figured out this.

 

kruuger