dan_m Posted June 20, 2015 Share Posted June 20, 2015 Point styles in PDMODE become flattened when viewed in 3D (they lie flat on the XY plane on which they were created). Is there a way to create a true 3D point representation ie: like maybe a sphere with a dot in it? Vanilla Acad 2012. Thanks for any insight! Quote Link to comment Share on other sites More sharing options...
eldon Posted June 20, 2015 Share Posted June 20, 2015 Point styles in PDMODE become flattened when viewed in 3D (they lie flat on the XY plane on which they were created). Is there a way to create a true 3D point representation ie: like maybe a sphere with a dot in it? Vanilla Acad 2012. Thanks for any insight! Perhaps this thread might almost give you some assistance. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 20, 2015 Share Posted June 20, 2015 A little bit different I made this point 3 times but used rotate3d to rotate about the X and Y axis and join the 3 back to one using snap of node, you can still use ddptype to change shape and size. The way to go is either create a block of the two extra rotated points and place on existing or just add 2 points and rotate, will see if I can find time to do something. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted June 20, 2015 Share Posted June 20, 2015 (edited) Here is some sample code 2 versions a create 3d pt and a convert existing points to 3d pts (defun c:Pt3 ( / pt) (setq oldsnap (getvar 'osmode)) (setq pt (getpoint "Pick point")) ; where do you want point (command "point" pt) ; create point (setvar 'osmode 0) ; turn snap off (command "point" pt) ; create 2nd point (command "rotate3d" "L" "" "X" pt 90) ; rotate in 3d point note angle in degrees (command "point" pt) ; add another point (command "rotate3d" "L" "" "Y" pt 90) ; rotate in 3d point note angle in degrees (setvar 'osmode oldsnap) ; turns snaps back on ) (defun c:pt3d ( / pt ss obj x y) (setq oldsnap (getvar 'osmode)) (setvar 'osmode 0) ; turn snap off (setq ss (ssget "X" (list (cons 0 "point")))) (setq X (sslength ss) y x) (repeat y (setq obj (ssname ss (setq x (- x 1)))) (setq pt (assoc 10 (entget obj))) (setq pt (list (cadr pt)(caddr pt)(cadddr pt))) (command "point" pt) ; create 2nd point (command "rotate3d" "L" "" "X" pt 90) ; rotate in 3d poiint note angle in degrees (command "point" pt) ; add another point (command "rotate3d" "L" "" "Y" pt 90) ; rotate in 3d poiint note angle in degrees ) (setvar 'osmode oldsnap) ; turns snaps back on (princ) ) Edited June 21, 2015 by BIGAL Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.