Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Attribute Dialog for Insert in R2000 / Autolisp

15 views
Skip to first unread message

Gregory Cain

unread,
Jul 27, 1999, 3:00:00 AM7/27/99
to
I have a lisp routine that inserts blocks which I wrote for release 14
of Autocad. I have the ATTDIA system variable set to 1, and at the end
of the insert command, the dialog box comes up to accept the values of
the attributes within the blocks. With R14 this was no problem. On
attempting to run the routine with R2000, I find that the dialog box
will not come up, but it appears that autolisp is expecting the values
to be entered from the command line. I've tried all prefixes to the
COMMAND argument, i.e "_insert", ".insert", etc. to no avail. If
anyone here could tell me how I can make this routine call the AutoCAD
dialog box for the attribute values at the end of the block insertion,
it would help me out a lot.

Thanks in advance.

Greg


Reini Urban

unread,
Jul 28, 1999, 3:00:00 AM7/28/99
to
Gregory,
I cannot recall it correctly now
but i think you'll better insert it without ATTREQ, ATTDIA is ignored,
and call (command "_DDATTE") after insertion.
DDATTE is also discontinued but the (command) call should work.

This is the same as ATTDIA 1.

--
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html

her...@gmail.com

unread,
Aug 4, 2016, 1:25:39 AM8/4/16
to
Help me... mi code is... but open dialog box and not insert value



(setvar "OSMODE" 0)
(command "_LAYER" "M" "valvulas" "COLOR" "white" "valvulas" ""
"_DONUT" "0.00" diext ptv ""
"_LAYER" "M" Di1 "COLOR" "BLUE" "" ""
"_PLINE" pt1 "W" (* 0.5 g:escala) "" Pt2 ""
"_LAYER" "M" Di2 "COLOR" "RED" "" ""
"_PLINE" Pt2 "W" (* 0.4 g:escala) "" Pt3 ""
"_LAYER" "M" Di3 "COLOR" "GREEN" "" ""
"_PLINE" Pt3 "W" (* 0.3 g:escala) "" Pt4 ""
"_LAYER" "M" "memoria" "COLOR" "WHITE" "memoria" ""
"_.-Insert" "datval" ptt g:escala "" 0
(strcat (rtos (/ area 10000) 2 4))
(strcat (rtos (* gas 1000) 2 2))
(strcat (rtos per 2 2) " mca") ""
"_LAYER" "M" "reducciones" "COLOR" "blue" "reducciones" ""
"_PLINE" pt2 "W" wid 0 p1 ""
"_PLINE" pt3 "W" wid 0 p2 ""
"_LAYER" "M" "diametros" "COLOR" "7" "diametros" ""
"_TEXT" "M" pi1 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx1
"_TEXT" "M" pi2 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx2
"_TEXT" "M" pi3 "" (+ (* ang (/ 180 pi)) (if rev 180 0)) tx3
)
(setvar "BLIPMODE" oldblp)
(setvar "CMDECHO" oldcmd)
(setvar "OSMODE" oldosm)
(setvar "CLAYER" clay)
(setq *ERROR* olderr)
(princ)
)
0 new messages