How can I set the point style for a Civil 3d Cogo Point? I am currently copying the style from another point but I would rather not do this because the style may not be assigned to point when I first use the lisp.
If I do a dump I can see the name of the style is #<VLA-OBJECT IAeccPointStyle 00000243056af840>
How do I set VLA_OBJECT... to a variable?
Code:(defun c:pm_two_arrow (/) (initerr) (vl-load-com) (setq acaddocument (vla-get-activedocument (vlax-get-acad-object))) (setq mspace (vla-get-modelspace acaddocument)) (setq sourcept (vlax-ename->vla-object (car (entsel "\nSelect Source Survey Point: ")))) ;;I would like to remove the line below (setq destpt (vlax-ename->vla-object (car (entsel "\nSelect Destination Survey Point: ")))) (setq pt1 (getpoint "\nPick Point 1 for Rotation: ")) (setq pt2 (getpoint "\nPick Point 1 for Rotation: ")) (setq ang (angle pt1 pt2)) (setq ptstyle (vlax-get sourcept 'Style)) ;Style = #<VLA-OBJECT IAeccPointStyle 00000243056af840> ;(setq new_pt_style ()) ;(vlax-put pt 'Style ptstyle) (vlax-put-property destpt 'Style ptstyle) (vlax-put-property destpt 'Rotation ang) (reset) (princ) ) (princ)