topic Inserting an attribute from a lisp routine in Visual LISP, AutoLISP and General Customization Forum

Inserting an attribute from a lisp routine

Anonymous — Thu, 04 Nov 1999 21:35:41 GMT

I have used a simple routine to xref in a title block, then insert an
attribute on the title block. In R14 with attdia set to "1" the attribute
would prompt for information via a dialog box, now it will only insert and
prompt for info via the command line, this will not work for me......the
line of code is as follows

(command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)

If you take the "0" off the end it almost works, but you have to enter the
rotation angle manually, then you get the dialog box.

Re: Inserting an attribute from a lisp routine

Anonymous — Thu, 04 Nov 1999 21:50:49 GMT

By the way this problem is only in Acad2000, it used to work in acad R14

Shane Christmas wrote in message
news:7vsuas$98u24@adesknews2.autodesk.com...
> I have used a simple routine to xref in a title block, then insert an
> attribute on the title block. In R14 with attdia set to "1" the attribute
> would prompt for information via a dialog box, now it will only insert and
> prompt for info via the command line, this will not work for me......the
> line of code is as follows
>
> (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
>
> If you take the "0" off the end it almost works, but you have to enter the
> rotation angle manually, then you get the dialog box.
>
>

Re:

Anonymous — Thu, 04 Nov 1999 22:23:10 GMT

Shane,

Try this:

(initdia)
(command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)

--
Dave D
(remove '-' for Email)

Shane Christmas wrote in article
<7vsv7q$9aj29@adesknews2.autodesk.com>...
> By the way this problem is only in Acad2000, it used to work in acad R14
>
>
> Shane Christmas wrote in message
> news:7vsuas$98u24@adesknews2.autodesk.com...
> > I have used a simple routine to xref in a title block, then insert an
> > attribute on the title block. In R14 with attdia set to "1" the
attribute
> > would prompt for information via a dialog box, now it will only insert
and
> > prompt for info via the command line, this will not work for
me......the
> > line of code is as follows
> >
> > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> >
> > If you take the "0" off the end it almost works, but you have to enter
the
> > rotation angle manually, then you get the dialog box.
> >
> >
>
>
>

Re:

Anonymous — Fri, 05 Nov 1999 15:26:12 GMT

Thanks, but that did not work.......it simply prompts me for the INSERT
DIALOG, I am looking for the attribute dialog box that prompts your for
information based on the attribute. For example, if you want to attribute to
prompt you for a sheet number, instead of it prompting you at the command
line, it would prompt you from a dialog box.

David Doane wrote in message
news:01bf2713$2b488ca0$6255d2d0@lms-1...
> Shane,
>
> Try this:
>
> (initdia)
> (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
>
> --
> Dave D
> (remove '-' for Email)
>
> Shane Christmas wrote in article
> <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > By the way this problem is only in Acad2000, it used to work in acad R14
> >
> >
> > Shane Christmas wrote in message
> > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > I have used a simple routine to xref in a title block, then insert an
> > > attribute on the title block. In R14 with attdia set to "1" the
> attribute
> > > would prompt for information via a dialog box, now it will only insert
> and
> > > prompt for info via the command line, this will not work for
> me......the
> > > line of code is as follows
> > >
> > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > >
> > > If you take the "0" off the end it almost works, but you have to enter
> the
> > > rotation angle manually, then you get the dialog box.
> > >
> > >
> >
> >
> >

Re:

Anonymous — Fri, 05 Nov 1999 15:44:31 GMT

Try this, should work in r12 - a2k:

(setq ad (getvar "attdia")) ar (getvar "attreq"))
(setvar "attdia" 0)
(setvar "attreq" 0)
(command ".insert" "cdrev" (list 0.0 0.0) 4.0 "" 0.0)
(if (eq 1 (cdr (assoc 66 (entget (entlast)))))
(command ".ddatte" (entlast))
)
(setvar "attdia" ad)
(setvar "attreq" ar)

__________________________________

Michael Puckett
mailto:puckettm@cadvision.com
> Not < an AutoDesk classroom monitor.
Imagination makes all things possible
__________________________________

Shane Christmas wrote in message
news:7vut0l$dal16@adesknews2.autodesk.com...
Thanks, but that did not work.......it simply prompts me for the INSERT
DIALOG, I am looking for the attribute dialog box that prompts your for
information based on the attribute. For example, if you want to attribute to
prompt you for a sheet number, instead of it prompting you at the command
line, it would prompt you from a dialog box.

David Doane wrote in message
news:01bf2713$2b488ca0$6255d2d0@lms-1...
> Shane,
>
> Try this:
>
> (initdia)
> (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
>
> --
> Dave D
> (remove '-' for Email)
>
> Shane Christmas wrote in article
> <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > By the way this problem is only in Acad2000, it used to work in acad R14
> >
> >
> > Shane Christmas wrote in message
> > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > I have used a simple routine to xref in a title block, then insert an
> > > attribute on the title block. In R14 with attdia set to "1" the
> attribute
> > > would prompt for information via a dialog box, now it will only insert
> and
> > > prompt for info via the command line, this will not work for
> me......the
> > > line of code is as follows
> > >
> > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > >
> > > If you take the "0" off the end it almost works, but you have to enter
> the
> > > rotation angle manually, then you get the dialog box.
> > >
> > >
> >
> >
> >

Re:

Anonymous — Fri, 05 Nov 1999 16:16:57 GMT

Doh, typo.

>>> (setq ad (getvar "attdia") ar (getvar "attreq"))

Making the whole thing a generic function ...

(defun insert-attdia (block point scale rotation / ce ad ar)
(cond
( (tblsearch "block" block)
(if (null point) (setq point '(0 0 0)))
(if (null scale) (setq scale 1.0))
(if (null rotation) (setq rotation 0.0))
(setq
ce (getvar "cmdecho")
ad (getvar "attdia")
ar (getvar "attreq")
)
(setvar "cmdecho" 0)
(setvar "attdia" 0)
(setvar "attreq" 0)
(command ".insert" block point scale "" rotation)
(if (eq 1 (cdr (assoc 66 (entget (entlast)))))
(command ".ddatte" (entlast))
)
(setvar "cmdecho" ce)
(setvar "attdia" ad)
(setvar "attreq" ar)
)
( t (princ (strcat "\nError, block <" block "> not found.")))
)
(princ)
)

Thus, you could use as follows:

(insert-attdia "cdrev" '(0 0 0) 1.0 0)

(inset-attdia "cdrev" nil nil nil)

The latter example would resort to defaults you placed in the function; as
is, those would be '(0 0 0) 1.0 and 0 for the insert point, scale and
rotation respectively. Obviiously you can change those to what is most
common for your apps.

A strong argument for using a library based function would be that if future
versions of AutoCAD (should AutoDesk recover from anemic stock prices) break
existing code (again) all you have to do is fix the function. Otherwise,
you have to scan all your programs, and edit each instance accordingly.
Blech.

__________________________________

Michael Puckett
mailto:puckettm@cadvision.com
> Not < an AutoDesk classroom monitor.
Imagination makes all things possible
__________________________________

Michael Puckett wrote in message
news:7vutt2$d8p15@adesknews2.autodesk.com...
Try this, should work in r12 - a2k:

(setq ad (getvar "attdia")) ar (getvar "attreq"))
(setvar "attdia" 0)
(setvar "attreq" 0)
(command ".insert" "cdrev" (list 0.0 0.0) 4.0 "" 0.0)
(if (eq 1 (cdr (assoc 66 (entget (entlast)))))
(command ".ddatte" (entlast))
)
(setvar "attdia" ad)
(setvar "attreq" ar)

__________________________________

Michael Puckett
mailto:puckettm@cadvision.com
> Not < an AutoDesk classroom monitor.
Imagination makes all things possible
__________________________________

Shane Christmas wrote in message
news:7vut0l$dal16@adesknews2.autodesk.com...
Thanks, but that did not work.......it simply prompts me for the INSERT
DIALOG, I am looking for the attribute dialog box that prompts your for
information based on the attribute. For example, if you want to attribute to
prompt you for a sheet number, instead of it prompting you at the command
line, it would prompt you from a dialog box.

David Doane wrote in message
news:01bf2713$2b488ca0$6255d2d0@lms-1...
> Shane,
>
> Try this:
>
> (initdia)
> (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
>
> --
> Dave D
> (remove '-' for Email)
>
> Shane Christmas wrote in article
> <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > By the way this problem is only in Acad2000, it used to work in acad R14
> >
> >
> > Shane Christmas wrote in message
> > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > I have used a simple routine to xref in a title block, then insert an
> > > attribute on the title block. In R14 with attdia set to "1" the
> attribute
> > > would prompt for information via a dialog box, now it will only insert
> and
> > > prompt for info via the command line, this will not work for
> me......the
> > > line of code is as follows
> > >
> > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > >
> > > If you take the "0" off the end it almost works, but you have to enter
> the
> > > rotation angle manually, then you get the dialog box.
> > >
> > >
> >
> >
> >

Re:

Anonymous — Fri, 05 Nov 1999 18:02:52 GMT

That worked, but a new issue has arose. This lisp now depends on the fact
the attributed block must be defined in the drawing already, I have the
search path set to the proper directory, but the block (in this case
"cdrev") can not be found without first inserting the block in the drawing,
then the lisp will insert the block with the attribute dialog. I really
appreciate the help.....if you know how to fix this one then
please.....HELP.....thanks again

Michael Puckett wrote in message
news:7vuvpv$dam33@adesknews2.autodesk.com...
> Doh, typo.
>
> >>> (setq ad (getvar "attdia") ar (getvar "attreq"))
>
> Making the whole thing a generic function ...
>
> (defun insert-attdia (block point scale rotation / ce ad ar)
> (cond
> ( (tblsearch "block" block)
> (if (null point) (setq point '(0 0 0)))
> (if (null scale) (setq scale 1.0))
> (if (null rotation) (setq rotation 0.0))
> (setq
> ce (getvar "cmdecho")
> ad (getvar "attdia")
> ar (getvar "attreq")
> )
> (setvar "cmdecho" 0)
> (setvar "attdia" 0)
> (setvar "attreq" 0)
> (command ".insert" block point scale "" rotation)
> (if (eq 1 (cdr (assoc 66 (entget (entlast)))))
> (command ".ddatte" (entlast))
> )
> (setvar "cmdecho" ce)
> (setvar "attdia" ad)
> (setvar "attreq" ar)
> )
> ( t (princ (strcat "\nError, block <" block "> not found.")))
> )
> (princ)
> )
>
> Thus, you could use as follows:
>
> (insert-attdia "cdrev" '(0 0 0) 1.0 0)
>
> (inset-attdia "cdrev" nil nil nil)
>
> The latter example would resort to defaults you placed in the function; as
> is, those would be '(0 0 0) 1.0 and 0 for the insert point, scale and
> rotation respectively. Obviiously you can change those to what is most
> common for your apps.
>
> A strong argument for using a library based function would be that if
future
> versions of AutoCAD (should AutoDesk recover from anemic stock prices)
break
> existing code (again) all you have to do is fix the function. Otherwise,
> you have to scan all your programs, and edit each instance accordingly.
> Blech.
>
> __________________________________
>
> Michael Puckett
> mailto:puckettm@cadvision.com
> > Not < an AutoDesk classroom monitor.
> Imagination makes all things possible
> __________________________________
>
> Michael Puckett wrote in message
> news:7vutt2$d8p15@adesknews2.autodesk.com...
> Try this, should work in r12 - a2k:
>
> (setq ad (getvar "attdia")) ar (getvar "attreq"))
> (setvar "attdia" 0)
> (setvar "attreq" 0)
> (command ".insert" "cdrev" (list 0.0 0.0) 4.0 "" 0.0)
> (if (eq 1 (cdr (assoc 66 (entget (entlast)))))
> (command ".ddatte" (entlast))
> )
> (setvar "attdia" ad)
> (setvar "attreq" ar)
>
> __________________________________
>
> Michael Puckett
> mailto:puckettm@cadvision.com
> > Not < an AutoDesk classroom monitor.
> Imagination makes all things possible
> __________________________________
>
> Shane Christmas wrote in message
> news:7vut0l$dal16@adesknews2.autodesk.com...
> Thanks, but that did not work.......it simply prompts me for the INSERT
> DIALOG, I am looking for the attribute dialog box that prompts your for
> information based on the attribute. For example, if you want to attribute
to
> prompt you for a sheet number, instead of it prompting you at the command
> line, it would prompt you from a dialog box.
>
> David Doane wrote in message
> news:01bf2713$2b488ca0$6255d2d0@lms-1...
> > Shane,
> >
> > Try this:
> >
> > (initdia)
> > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> >
> > --
> > Dave D
> > (remove '-' for Email)
> >
> > Shane Christmas wrote in article
> > <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > > By the way this problem is only in Acad2000, it used to work in acad
R14
> > >
> > >
> > > Shane Christmas wrote in message
> > > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > > I have used a simple routine to xref in a title block, then insert
an
> > > > attribute on the title block. In R14 with attdia set to "1" the
> > attribute
> > > > would prompt for information via a dialog box, now it will only
insert
> > and
> > > > prompt for info via the command line, this will not work for
> > me......the
> > > > line of code is as follows
> > > >
> > > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > > >
> > > > If you take the "0" off the end it almost works, but you have to
enter
> > the
> > > > rotation angle manually, then you get the dialog box.
> > > >
> > > >
> > >
> > >
> > >
>
>
>
>
>
>

Re:

Anonymous — Fri, 05 Nov 1999 18:11:04 GMT

I have found the solution, earlier in this thread you'll find where David
Doane said to use (initdia), this did not work at first, but it was my
fault, I did use it properly, I did not however call my command from the
command line, I used "insert" instead of "-insert". Thanks for your
help.......I can use the code you gave me for a lot of other things.....

Michael Puckett wrote in message
news:7vuvpv$dam33@adesknews2.autodesk.com...
> Doh, typo.
>
> >>> (setq ad (getvar "attdia") ar (getvar "attreq"))
>
> Making the whole thing a generic function ...
>
> (defun insert-attdia (block point scale rotation / ce ad ar)
> (cond
> ( (tblsearch "block" block)
> (if (null point) (setq point '(0 0 0)))
> (if (null scale) (setq scale 1.0))
> (if (null rotation) (setq rotation 0.0))
> (setq
> ce (getvar "cmdecho")
> ad (getvar "attdia")
> ar (getvar "attreq")
> )
> (setvar "cmdecho" 0)
> (setvar "attdia" 0)
> (setvar "attreq" 0)
> (command ".insert" block point scale "" rotation)
> (if (eq 1 (cdr (assoc 66 (entget (entlast)))))
> (command ".ddatte" (entlast))
> )
> (setvar "cmdecho" ce)
> (setvar "attdia" ad)
> (setvar "attreq" ar)
> )
> ( t (princ (strcat "\nError, block <" block "> not found.")))
> )
> (princ)
> )
>
> Thus, you could use as follows:
>
> (insert-attdia "cdrev" '(0 0 0) 1.0 0)
>
> (inset-attdia "cdrev" nil nil nil)
>
> The latter example would resort to defaults you placed in the function; as
> is, those would be '(0 0 0) 1.0 and 0 for the insert point, scale and
> rotation respectively. Obviiously you can change those to what is most
> common for your apps.
>
> A strong argument for using a library based function would be that if
future
> versions of AutoCAD (should AutoDesk recover from anemic stock prices)
break
> existing code (again) all you have to do is fix the function. Otherwise,
> you have to scan all your programs, and edit each instance accordingly.
> Blech.
>
> __________________________________
>
> Michael Puckett
> mailto:puckettm@cadvision.com
> > Not < an AutoDesk classroom monitor.
> Imagination makes all things possible
> __________________________________
>
> Michael Puckett wrote in message
> news:7vutt2$d8p15@adesknews2.autodesk.com...
> Try this, should work in r12 - a2k:
>
> (setq ad (getvar "attdia")) ar (getvar "attreq"))
> (setvar "attdia" 0)
> (setvar "attreq" 0)
> (command ".insert" "cdrev" (list 0.0 0.0) 4.0 "" 0.0)
> (if (eq 1 (cdr (assoc 66 (entget (entlast)))))
> (command ".ddatte" (entlast))
> )
> (setvar "attdia" ad)
> (setvar "attreq" ar)
>
> __________________________________
>
> Michael Puckett
> mailto:puckettm@cadvision.com
> > Not < an AutoDesk classroom monitor.
> Imagination makes all things possible
> __________________________________
>
> Shane Christmas wrote in message
> news:7vut0l$dal16@adesknews2.autodesk.com...
> Thanks, but that did not work.......it simply prompts me for the INSERT
> DIALOG, I am looking for the attribute dialog box that prompts your for
> information based on the attribute. For example, if you want to attribute
to
> prompt you for a sheet number, instead of it prompting you at the command
> line, it would prompt you from a dialog box.
>
> David Doane wrote in message
> news:01bf2713$2b488ca0$6255d2d0@lms-1...
> > Shane,
> >
> > Try this:
> >
> > (initdia)
> > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> >
> > --
> > Dave D
> > (remove '-' for Email)
> >
> > Shane Christmas wrote in article
> > <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > > By the way this problem is only in Acad2000, it used to work in acad
R14
> > >
> > >
> > > Shane Christmas wrote in message
> > > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > > I have used a simple routine to xref in a title block, then insert
an
> > > > attribute on the title block. In R14 with attdia set to "1" the
> > attribute
> > > > would prompt for information via a dialog box, now it will only
insert
> > and
> > > > prompt for info via the command line, this will not work for
> > me......the
> > > > line of code is as follows
> > > >
> > > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > > >
> > > > If you take the "0" off the end it almost works, but you have to
enter
> > the
> > > > rotation angle manually, then you get the dialog box.
> > > >
> > > >
> > >
> > >
> > >
>
>
>
>
>
>

Re:

Anonymous — Fri, 05 Nov 1999 18:11:43 GMT

Shane,

Try David's Idea but place a - (dash) in front of the insert command
"-insert".
(initdia)
(command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)

hope this helps.

Rick

Shane Christmas wrote in message
news:7vut0l$dal16@adesknews2.autodesk.com...
> Thanks, but that did not work.......it simply prompts me for the INSERT
> DIALOG, I am looking for the attribute dialog box that prompts your for
> information based on the attribute. For example, if you want to attribute
to
> prompt you for a sheet number, instead of it prompting you at the command
> line, it would prompt you from a dialog box.
>
> David Doane wrote in message
> news:01bf2713$2b488ca0$6255d2d0@lms-1...
> > Shane,
> >
> > Try this:
> >
> > (initdia)
> > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> >
> > --
> > Dave D
> > (remove '-' for Email)
> >
> > Shane Christmas wrote in article
> > <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > > By the way this problem is only in Acad2000, it used to work in acad
R14
> > >
> > >
> > > Shane Christmas wrote in message
> > > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > > I have used a simple routine to xref in a title block, then insert
an
> > > > attribute on the title block. In R14 with attdia set to "1" the
> > attribute
> > > > would prompt for information via a dialog box, now it will only
insert
> > and
> > > > prompt for info via the command line, this will not work for
> > me......the
> > > > line of code is as follows
> > > >
> > > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > > >
> > > > If you take the "0" off the end it almost works, but you have to
enter
> > the
> > > > rotation angle manually, then you get the dialog box.
> > > >
> > > >
> > >
> > >
> > >
>
>

Re:

Anonymous — Fri, 05 Nov 1999 18:13:49 GMT

It worked, I found that one a few minutes ago....thanks......
Rick Keller wrote in message
news:7vv6ec$fhl7@adesknews2.autodesk.com...
> Shane,
>
> Try David's Idea but place a - (dash) in front of the insert command
> "-insert".
> (initdia)
> (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
>
> hope this helps.
>
> Rick
>
>
> Shane Christmas wrote in message
> news:7vut0l$dal16@adesknews2.autodesk.com...
> > Thanks, but that did not work.......it simply prompts me for the INSERT
> > DIALOG, I am looking for the attribute dialog box that prompts your for
> > information based on the attribute. For example, if you want to
attribute
> to
> > prompt you for a sheet number, instead of it prompting you at the
command
> > line, it would prompt you from a dialog box.
> >
> > David Doane wrote in message
> > news:01bf2713$2b488ca0$6255d2d0@lms-1...
> > > Shane,
> > >
> > > Try this:
> > >
> > > (initdia)
> > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > >
> > > --
> > > Dave D
> > > (remove '-' for Email)
> > >
> > > Shane Christmas wrote in article
> > > <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > > > By the way this problem is only in Acad2000, it used to work in acad
> R14
> > > >
> > > >
> > > > Shane Christmas wrote in message
> > > > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > > > I have used a simple routine to xref in a title block, then insert
> an
> > > > > attribute on the title block. In R14 with attdia set to "1" the
> > > attribute
> > > > > would prompt for information via a dialog box, now it will only
> insert
> > > and
> > > > > prompt for info via the command line, this will not work for
> > > me......the
> > > > > line of code is as follows
> > > > >
> > > > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > > > >
> > > > > If you take the "0" off the end it almost works, but you have to
> enter
> > > the
> > > > > rotation angle manually, then you get the dialog box.
> > > > >
> > > > >
> > > >
> > > >
> > > >
> >
> >
>
>

Re:

Anonymous — Fri, 05 Nov 1999 18:15:12 GMT

Thanks it worked
Rick Keller wrote in message
news:7vv6ec$fhl7@adesknews2.autodesk.com...
> Shane,
>
> Try David's Idea but place a - (dash) in front of the insert command
> "-insert".
> (initdia)
> (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
>
> hope this helps.
>
> Rick
>
>
> Shane Christmas wrote in message
> news:7vut0l$dal16@adesknews2.autodesk.com...
> > Thanks, but that did not work.......it simply prompts me for the INSERT
> > DIALOG, I am looking for the attribute dialog box that prompts your for
> > information based on the attribute. For example, if you want to
attribute
> to
> > prompt you for a sheet number, instead of it prompting you at the
command
> > line, it would prompt you from a dialog box.
> >
> > David Doane wrote in message
> > news:01bf2713$2b488ca0$6255d2d0@lms-1...
> > > Shane,
> > >
> > > Try this:
> > >
> > > (initdia)
> > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > >
> > > --
> > > Dave D
> > > (remove '-' for Email)
> > >
> > > Shane Christmas wrote in article
> > > <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > > > By the way this problem is only in Acad2000, it used to work in acad
> R14
> > > >
> > > >
> > > > Shane Christmas wrote in message
> > > > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > > > I have used a simple routine to xref in a title block, then insert
> an
> > > > > attribute on the title block. In R14 with attdia set to "1" the
> > > attribute
> > > > > would prompt for information via a dialog box, now it will only
> insert
> > > and
> > > > > prompt for info via the command line, this will not work for
> > > me......the
> > > > > line of code is as follows
> > > > >
> > > > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > > > >
> > > > > If you take the "0" off the end it almost works, but you have to
> enter
> > > the
> > > > > rotation angle manually, then you get the dialog box.
> > > > >
> > > > >
> > > >
> > > >
> > > >
> >
> >
>
>

Re:

Anonymous — Fri, 05 Nov 1999 18:20:44 GMT

If the block is defined in your drawing, or a drawing is in your support
path by the name of the block, the following will work.

(defun insert-attdia (block point scale rotation / ce ad ar)
(setq
ce (getvar "cmdecho")
ad (getvar "attdia")
ar (getvar "attreq")
)
(setvar "cmdecho" 0)
(setvar "attdia" 0)
(setvar "attreq" 0)
(cond
( (tblsearch "block" block)
(if (null point) (setq point '(0 0 0)))
(if (null scale) (setq scale 1.0))
(if (null rotation) (setq rotation 0.0))
(command ".insert" block point scale "" rotation)
(if (eq 1 (cdr (assoc 66 (entget (entlast)))))
(command ".ddatte" (entlast))
)
)
( (setq dwg (findfile (strcat block ".dwg")))
(command ".insert" dwg)
(while (eq 1 (logand 1 (getvar "cmdactive"))) (command))
(insert-attdia block point scale rotation)
)
( t (princ (strcat "\nError, block <" block "> not found.")))
)
(setvar "cmdecho" ce)
(setvar "attdia" ad)
(setvar "attreq" ar)
(princ)
)

__________________________________

Michael Puckett
mailto:puckettm@cadvision.com
> Not < an AutoDesk classroom monitor.
Imagination makes all things possible
__________________________________

Shane Christmas wrote in message
news:7vv66d$fh312@adesknews2.autodesk.com...
That worked, but a new issue has arose. This lisp now depends on the fact
the attributed block must be defined in the drawing already, I have the
search path set to the proper directory, but the block (in this case
"cdrev") can not be found without first inserting the block in the drawing,
then the lisp will insert the block with the attribute dialog. I really
appreciate the help.....if you know how to fix this one then
please.....HELP.....thanks again

Michael Puckett wrote in message
news:7vuvpv$dam33@adesknews2.autodesk.com...
> Doh, typo.
>
> >>> (setq ad (getvar "attdia") ar (getvar "attreq"))
>
> Making the whole thing a generic function ...
>
> (defun insert-attdia (block point scale rotation / ce ad ar)
> (cond
> ( (tblsearch "block" block)
> (if (null point) (setq point '(0 0 0)))
> (if (null scale) (setq scale 1.0))
> (if (null rotation) (setq rotation 0.0))
> (setq
> ce (getvar "cmdecho")
> ad (getvar "attdia")
> ar (getvar "attreq")
> )
> (setvar "cmdecho" 0)
> (setvar "attdia" 0)
> (setvar "attreq" 0)
> (command ".insert" block point scale "" rotation)
> (if (eq 1 (cdr (assoc 66 (entget (entlast)))))
> (command ".ddatte" (entlast))
> )
> (setvar "cmdecho" ce)
> (setvar "attdia" ad)
> (setvar "attreq" ar)
> )
> ( t (princ (strcat "\nError, block <" block "> not found.")))
> )
> (princ)
> )
>
> Thus, you could use as follows:
>
> (insert-attdia "cdrev" '(0 0 0) 1.0 0)
>
> (inset-attdia "cdrev" nil nil nil)
>
> The latter example would resort to defaults you placed in the function; as
> is, those would be '(0 0 0) 1.0 and 0 for the insert point, scale and
> rotation respectively. Obviiously you can change those to what is most
> common for your apps.
>
> A strong argument for using a library based function would be that if
future
> versions of AutoCAD (should AutoDesk recover from anemic stock prices)
break
> existing code (again) all you have to do is fix the function. Otherwise,
> you have to scan all your programs, and edit each instance accordingly.
> Blech.
>
> __________________________________
>
> Michael Puckett
> mailto:puckettm@cadvision.com
> > Not < an AutoDesk classroom monitor.
> Imagination makes all things possible
> __________________________________
>
> Michael Puckett wrote in message
> news:7vutt2$d8p15@adesknews2.autodesk.com...
> Try this, should work in r12 - a2k:
>
> (setq ad (getvar "attdia")) ar (getvar "attreq"))
> (setvar "attdia" 0)
> (setvar "attreq" 0)
> (command ".insert" "cdrev" (list 0.0 0.0) 4.0 "" 0.0)
> (if (eq 1 (cdr (assoc 66 (entget (entlast)))))
> (command ".ddatte" (entlast))
> )
> (setvar "attdia" ad)
> (setvar "attreq" ar)
>
> __________________________________
>
> Michael Puckett
> mailto:puckettm@cadvision.com
> > Not < an AutoDesk classroom monitor.
> Imagination makes all things possible
> __________________________________
>
> Shane Christmas wrote in message
> news:7vut0l$dal16@adesknews2.autodesk.com...
> Thanks, but that did not work.......it simply prompts me for the INSERT
> DIALOG, I am looking for the attribute dialog box that prompts your for
> information based on the attribute. For example, if you want to attribute
to
> prompt you for a sheet number, instead of it prompting you at the command
> line, it would prompt you from a dialog box.
>
> David Doane wrote in message
> news:01bf2713$2b488ca0$6255d2d0@lms-1...
> > Shane,
> >
> > Try this:
> >
> > (initdia)
> > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> >
> > --
> > Dave D
> > (remove '-' for Email)
> >
> > Shane Christmas wrote in article
> > <7vsv7q$9aj29@adesknews2.autodesk.com>...
> > > By the way this problem is only in Acad2000, it used to work in acad
R14
> > >
> > >
> > > Shane Christmas wrote in message
> > > news:7vsuas$98u24@adesknews2.autodesk.com...
> > > > I have used a simple routine to xref in a title block, then insert
an
> > > > attribute on the title block. In R14 with attdia set to "1" the
> > attribute
> > > > would prompt for information via a dialog box, now it will only
insert
> > and
> > > > prompt for info via the command line, this will not work for
> > me......the
> > > > line of code is as follows
> > > >
> > > > (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
> > > >
> > > > If you take the "0" off the end it almost works, but you have to
enter
> > the
> > > > rotation angle manually, then you get the dialog box.
> > > >
> > > >
> > >
> > >
> > >
>
>
>
>
>
>

Re: Inserting an attribute from a lisp routine

Anonymous — Sun, 07 Nov 1999 15:01:04 GMT

On Thu, 4 Nov 1999 16:35:41 -0500, "Shane Christmas" wrote:

>I have used a simple routine to xref in a title block, then insert an
>attribute on the title block. In R14 with attdia set to "1" the attribute
>would prompt for information via a dialog box, now it will only insert and
>prompt for info via the command line, this will not work for me......the
>line of code is as follows
>
>(command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
>
>If you take the "0" off the end it almost works, but you have to enter the
>rotation angle manually, then you get the dialog box.
>
>

A few things that may help you in the future.

1. Make sure you know the Setvars associated with the task you intend to do.

2. Run the "command" you want to program from AutoCAD's command line.
Document the inputs and their order.
Remember, the value of some Setvars or other parameters could change the

3. When you write your code, example: (command "insert" "cdrev" (list 0.0 0.0) 4 "" 0)
Make sure you handle all exceptions prior to the "command" statement.

Cheers,
Lu
;-----------------------------------------------------------------------
; When all else fails, read the book. But there ain't none no more!
; CAD-Tek web site: http://www.cad-tek.com
;-----------------------------------------------------------------------