I have a custom routine which doesn't want to work in ADT3.3....for some
reason it's looking for an Object Snap Mode and I don't know why.....or how
to fix it.
Does anyone have any ideas?
(command ".style" "standard" "romans" 0.1875 0.75 "" "" "" "")
(if (not (tblsearch "LAYER" "SCHEDULE"))
(command ".layer" "m" "schedule" "c" 4 "" "")
)
(if (tblsearch "BLOCK" "block_name")
(setq U:ABLOCK "block_name")
(if (tblsearch "BLOCK" "bn")
(setq U:ABLOCK "bn")
(if (tblsearch "BLOCK" "block_name")
(setq U:ABLOCK "bn")
(setq U:ABLOCK nil)
)
)
)
(if (member U:ABLOCK '("block_name" "RN"))
(if U:ABLOCK
(progn
(setq dwgname (getvar "dwgname")
dwgprefix (getvar "dwgprefix")
U:AUTO 3
U:BLOCKS "All"
U:TFILE "c:\\blah\\text.TXT"
U:RFILE (strcat dwgprefix U:ABLOCK ".RPT")
)
(u:cadon "File Report")
(setq U:AUTO 3)
(u:cadon "File Insert")
)
)
(alert "No block for this function found! ")
)
(setq dwgname nil dwgprefix nil)
(princ)
This routine creates a schedule in the drawing from attributed
blocks.......when working properly.
Thanks for your advice in advance!
-
Don Gregory