Need some help with code.....

[laison.albarado]

I have been trying to get code to run for sometime now. It is missing 1 are 2 items. I am hoping that it will be better and easier than Autocad's "ALIGN". This is mostly for 3D purposes where an item can be moved parallel to another until it is perpendicular to it then rotate it so that the 2 are lined up.


[CODE:]

;;Moves and object in a parallel plane of another until it is perpendicular
;;to it then rotates 1st object so that it lines up with it. Similar to
;;align command.
;;Written by Laison Albarado 11-09-2011
(defun c:rm (/ pt1 pt2 pt3 pt4 pt0 ang1 dst1)
(setq os (getvar "OSMODE"))
(setvar "OSMODE" (logior os 1 2 4 32 128 8192))
(setq pt1 (getpoint "\nSelect 1st object: "))
(setq pt2 (getpoint pt1 "\nEnter second point: "))
(setq pt1 (getdistance "\nEnter Distance are select item: "))
(setvar "OSMODE" (logior os 1 2 4 32 128 8192))
(Setq pt3 (getpoint pt1 "\nSelect Reference point/object: "))
(command
"move" pt1 pt2
(setq ang1 (getangle pt1 pt3))
(setq pt4 (polar pt2 ang1 dst1))
(command
"rotate" pt1 pt3
(setvar "osmode" os)
)
)
)

[juan_d_villarreal]

Just want to make sure..do you know of Autocad's "3dalign" command?
and if you do, what about it are you trying to enhance?

[Tharwat]

Some corrections for your codes .

You can't get object by the function "getpoint"

(setq pt1 (getpoint "\nSelect 1st object: ")) 
(setq pt2 (getpoint pt1 "\nEnter second point: "))

So it should be Like ....

(setq pt1 (car (entsel "\nSelect 1st object: ")))

or with ssget function

(setq pt1 (ssget ))

And for getting the distance between two points, and the variable name should not be same as the one that you used getting the first point ..(pt1)

(setq Dis1 (getdistance "\nEnter Distance are select item: "))

So it should be Like ....

(setq Dis1 (getdist "\nEnter Distance are select item: "))

And also I do know about the use of your osmode , may be someone else would check it out .

Good luck

Tharwat

[Tharwat]

Could you please bring an example which shows your needs and steps of the routine ?

Thanks

Tharwat