Blatant ask for Lisp help :-)

[Anonymous]

Hi,

Ok, I am on the scrounge if I can please.

Can someone put together a couple of Lisps for me? I am using Acad2014 if that makes a difference.

The first:

- upon pressing any single keystroke

- activate command 'ROTATE3D'

- user selects item on screen

- sub command option value 'x-axis'

- value '-90'

- return back to where we were

The second:

- user command key 'k'

- activates command '3DORBITCTR'

- the command is expecting user input 'specify orbit center point'

- Lisp to automatically selects the snap point 'node'

- user selects the desired node on screen and holding it down is able to rotate the block in 3D

- upon releasing, return back to where we were

Hopefully someone can help.....?

Thanks guys.

R

[Sea-Haven · Accepted solution]

This is question 1

(defun c:3 ( / ent pt )
(setq ent (entsel "\Pick object to rotate3d"))
(setq pt (Getpoint "\nPick point of rotation"))
(command "rotate3d" ent "" "X" pt 90)
)

Question 2 I would not use "k" as autocad may use in future

(defun c:2 ( / )
(command "3DORBITCTR" "_node" (getpoint) pause)
)

[Anonymous]

Hi Sea.haven,

Big, big thank you for those.

One query, the first

(setq pt (Getpoint "\nPick point of rotation"))
(command "rotate3d" ent "" "X" pt 90)

I realised that after selecting the point, the user input should be 'x' as you have done but the next bit 'specify a point of the x axis' should always be the default of 0,0,0 rather than asking for user input. And then, the -90.

Do I simply delete the

(setq pt (Getpoint "\nPick point of rotation")) and instead change the next line to be:

(command "rotate3d" ent "" "X" "" -90)

Is this correct?

TIA

[Sea-Haven · Accepted solution]

(command "rotate3d" ent "" "X" "0,0,0" 90)

(command "rotate3d" ent "" "X" (list 0.0 0.0 0.0) 90)

Safer than ""

[Anonymous]

Thanks.

That's fantastic and spot on!