(setq INSPT (getpoint "INSERTION POINT: "))
(setq INSPT (vlax-3d-point (list (car INSPT) (cadr INSPT) (atof BUSHEIGHT))
)
)
(setq ROT (vla-getangle UTIL INSPT "SELECT ROTATION: "))
The only way I could figure it out was to use getpoint, then pull car and cadr out, and put my Z in and then make a vlax-3d-point
But is there a way to use vla-getpoint and pull out the Z value?
I tried that too, but to no avail. I cant seem to get the syntax correct
much appreciated!!! But why/How this - pl1 (vlax-invoke spc 'addlightweightpolyline (append ins uro lro llo))
instead of vla-addlightweightpolyline?
OMG, I can now see why I was having so much trouble. I like your first method much better. Thanks Lee, your awesome!!!
@Lee, I would suggest that you use (initget 7) instead of (initget 6) to avoid nil result after user presses enter while (getdist)...
(setq INSPT (polar REFCORNER REFANGLE LEN)
BOX (vlax-invoke SPC 'ADDBOX INSPT 240 240 360)
;;; SEL (ssget '((0 . "3DSOLID")))
WALL (car (entsel "\nPick wall: "))
wall (vlax-ename->vla-object wall)
;;; (vla-boolean WALL acintersection BOX)
WALLPIECE (vla-boolean wall acsubtraction box)
)
but I thought that the acintersection created a new piece of 3dsolid, not erase everything but the intersection