• This forum is the machine-generated translation of www.cad3d.it/forum1 - the Italian design community. Several terms are not translated correctly.

change point view rotated in autocad

doom_am

Guest
Good evening to all!! First of all I apologize in advance if I have wrong section and thank anyone who will respond. !

Then, I put my question quickly and I will try to be as clear as possible.

I have points (general form) on a plane that I have to rotate in 3d according to a generic axis, so planimetrically you see the "crucettes" or any other point style.

at the moment when I go to rotate 3d points I also rotate the view of the point itself, to understand it is as if I looked at a cross on the side, then a sort of line.

My question is this: how can I change the visit of these points once rotated seeing them as they were in planimetric view?
 
you have to change the normal value of each point:

(setq p (car)))
(setpropertyvalue p "normal" (list 0.0 1.0)

make a loop that repeats the operation on all points
 
you have to change the normal value of each point:

(setq p (car)))
(setpropertyvalue p "normal" (list 0.0 1.0)

make a loop that repeats the operation on all points
Thank you very much for the answer ❖gp. I tried it this morning and it's great. !
I'm sorry, another question given my ignorance about it. is this language lisp? ?
 
Yeah, sorry, I thought you were practical.
to treat all points in the saving dwg by name (e.g. pnor.lsp) the following code, upload it with appload and then type pnor (son of kmer *)
Code:
(defun c:pnor (/ *p* n)
(if (setq *p* (ssget "_x"((0 . "point")))))
(repeat (setq n (sslength *p*))
(setpropertyvalue (ssname *p* (setq n (1-n))))) "normal" (list 0.0 1.0)
)
(alert "no point found in the dwg")
)
)

* non ho resistito
 
Yeah, sorry, I thought you were practical.
to treat all points in the saving dwg by name (e.g. pnor.lsp) the following code, upload it with appload and then type pnor (son of kmer *)
Code:
(defun c:pnor (/ *p* n)
(if (setq *p* (ssget "_x"((0 . "point")))))
(repeat (setq n (sslength *p*))
(setpropertyvalue (ssname *p* (setq n (1-n))))) "normal" (list 0.0 1.0)
)
(alert "no point found in the dwg")
)
)

* non ho resistito
I answer after too long. !

However it is a real show for how it performs it quickly! !
I thank you again for the speed in the answer and especially for having solved the problem! !
Thank you very much! !
 

Forum statistics

Threads
44,997
Messages
339,767
Members
4
Latest member
ibt

Members online

No members online now.
Back
Top