AutoCAD Architecture Customization
Welcome to Autodesk’s AutoCAD Architecture Customization Forums. Share your knowledge, ask questions, and explore popular AutoCAD Architecture Customization topics.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Reply
Message 1 of 2
Anonymous
123 Views, 1 Reply

OSMODE

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
1 REPLY 1
Message 2 of 2
Anonymous
in reply to: Anonymous

nothing i see in here is wrong but you have several calls to functions i
can't see so i would check there first. (ie (u:cadon "File Report"))

--
-------------------------------------------------------------------------
Rob Starz
Plogv 3.0 & 2000 (plot logging) for r14 & 2000
***Enhancement Tools for Arch. Desktop *****
!!!! DormerX out in Sept !!!!
http://www.stardsign.com/main.htm
"Don Gregory" wrote in message
news:11B25554B2ACB61A151019A30E54CB41@in.WebX.maYIadrTaRb...
> 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
>
>

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost