Hi Everybody,
I am trying to come up with the easiest way to draw a wipeout around the ELEV field on an AECC point.
I've got it down to 4 picks, but I could reduce one of them if I could access the rotation angle of the point entity in DXF.
I searched and found an old post where a guy had attempted to define some of the codes, part of his list was:
((-1 . ) ;Entity name
(0 . "AECC_POINT") ;Type
(15 1.0 0.0 0.0) ;Cosine and sine of rotation
(16 0.0 1.0 0.0) ;something with rotation
if that jogs anyone's imagination.
Any suggestions are appreciated. My current code is below:
Thanks,
Steve (C3D 2009 LDC)
--------------------------------------------
(DEFUN C:RR3 ()
(setq sett(entsel "\Pick Attribute to WipeOut: "))
(setq lay(cdr(assoc 8(cdr(entget (car sett))))))
(setq a(getpoint "\nPick lower left cor of rectangle: "))
(setq b(angtos(getangle a))) ;would like to use a dxf code instead of this
(COMMAND "RECTANGLE" a "R" b PAUSE)
(SETQ A(ENTLAST))
(COMMAND "WIPEOUT" "P" A "Y")
(SETQ A2(ENTLAST))
(command "chprop" a2 "" "la" lay "")
(COMMAND "DRAWORDER" sett "" "F")
)
Try old method from autocad version R14.
Before set angle / or rotation AEC_POINTS with command ROTATE or other object,
Scan DXF code and search your value with mmy program:
with command Q2 enter && Notepad.exe pp_dumobject.txt Thanks..