topic Re: in Visual LISP, AutoLISP and General Customization Forum

QLeader Command Customization Help

Anonymous — Mon, 31 Jan 2000 16:42:48 GMT

Could somebody take a look at this macro and tell me what I've got wrong?
I'm trying to make it so that when you type "DL", the current layer will
switch to "53", continue the qleader command, and then at the end, switch
back to whatever was the previous current layer. As it is, the lisp doesn't
work right, and I lack the knowledge to finish it.

Thanks for any help,
Robert Asher
George Butler Associates, Inc.

(defun c:dl ( / clayer qleader)
(prompt "\nGBA Text Leader\n")
(setq clayer (getvar "clayer"))
(command "layer" "s" "53" "")
(initdia)
(command "_qleader")
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
)
(setvar "clayer" clayer)
(princ)
)

Re: QLeader Command Customization Help

Anonymous — Mon, 31 Jan 2000 17:52:16 GMT

Under AC2K (I'm assuming here, please post that
information next time) you do not need the (while) loop, due to the use of
(initdia). So here is your revised routine. The green lines (commented) lines
should just be deleted. You do not need the qleader variable declaration (you
are not using a qleader variable!).

(defun c:dl ( / clayer
color=#008000>qleader)
(prompt "\nGBA Text Leader\n")

(setq clayer (getvar "clayer"))
(command "._layer"
"_m" "53" "")
(initdia)
(command
"._qleader")

color=#008000>;;;      (while (= (logand (getvar
"cmdactive") 1)
1)
;;;
(command pause)
;;;      )
(setvar
"clayer" clayer)
(princ)
)

I changed the "layer" "s" to "layer" "m", to make
the layer. if it does not exist. Of course, it would be white in that case, but
at least the routine would not bomb!
--
R. Robert Bell, MCSE
Network
Administrator (or, Modern-day Wizard)
(remove the "not." in my address for
direct e-mail)

Robert Asher <
href="mailto:rasher@gbutler.com">rasher@gbutler.com> wrote in message
href="news:874efs$csc7@adesknews2.autodesk.com">news:874efs$csc7@adesknews2.autodesk.com...

face=Arial size=2>> Could somebody take a look at this macro and tell me what
I've got wrong?
> I'm trying to make it so that when you type "DL", the
current layer will
> switch to "53", continue the qleader command, and
then at the end, switch
> back to whatever was the previous current layer.
As it is, the lisp doesn't
> work right, and I lack the knowledge to
finish it.
>
> Thanks for any help,
> Robert Asher
>
George Butler Associates, Inc.
>
>
> (defun c:dl ( / clayer
qleader)
> (prompt "\nGBA Text Leader\n")
> (setq
clayer (getvar "clayer"))
> (command "layer" "s" "53" "")
>
(initdia)
> (command "_qleader")
>
      (while (= (logand (getvar "cmdactive") 1)
1)
>
(command pause)
>       )
>
(setvar "clayer" clayer)
>    (princ)
> )
>
>

Re:

Anonymous — Tue, 01 Feb 2000 14:19:54 GMT

This routine results in the leader line
being created on the "53" layer but the text ends up on the layer stored in
"clayer". The initdia of course doesn't have any affect on the first part
of the qleader command that draws the line, and lapses before the actual mtext
prompt comes up, resulting in the mtext being entered on the command
line.

I tried working out this problem myself a
few weeks ago on AC2K and never could get it to work right. Is there a way
to modify it so that the text comes in on the same layer as the leader and still
have the routine switch back to the previously current layer when it's
done?

Dave

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:874i4v$d659@adesknews2.autodesk.com">news:874i4v$d659@adesknews2.autodesk.com...

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

Under AC2K (I'm assuming here, please post that
information next time) you do not need the (while) loop, due to the use of
(initdia). So here is your revised routine. The green lines (commented) lines
should just be deleted. You do not need the qleader variable declaration (you
are not using a qleader variable!).

(defun c:dl ( / clayer
color=#008000>qleader)
(prompt "\nGBA Text
Leader\n")
(setq clayer (getvar "clayer"))

color=#ff0000> (command "._layer" "_m" "53" "")

(initdia)
(command
"._qleader")

color=#008000>;;;      (while (= (logand (getvar
"cmdactive") 1)
1)
;;;
(command pause)
;;;      )

(setvar "clayer" clayer)
(princ)
)

I changed the "layer" "s" to "layer" "m", to make
the layer. if it does not exist. Of course, it would be white in that case,
but at least the routine would not bomb!
--
R. Robert Bell,
MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not." in
my address for direct e-mail)

Robert Asher <
href="mailto:rasher@gbutler.com">rasher@gbutler.com> wrote in message

href="news:874efs$csc7@adesknews2.autodesk.com">news:874efs$csc7@adesknews2.autodesk.com...

face=Arial size=2>> Could somebody take a look at this macro and tell me
what I've got wrong?
> I'm trying to make it so that when you type "DL",
the current layer will
> switch to "53", continue the qleader command,
and then at the end, switch
> back to whatever was the previous current
layer. As it is, the lisp doesn't
> work right, and I lack the knowledge
to finish it.
>
> Thanks for any help,
> Robert
Asher
> George Butler Associates, Inc.
>
>
> (defun
c:dl ( / clayer qleader)
> (prompt "\nGBA Text Leader\n")
>
(setq clayer (getvar "clayer"))
> (command "layer" "s"
"53" "")
> (initdia)
> (command "_qleader")
>
      (while (= (logand (getvar "cmdactive") 1)
1)
>
(command pause)
>       )
>
(setvar "clayer" clayer)
>    (princ)
> )
>

>

Re:

Anonymous — Tue, 01 Feb 2000 16:49:36 GMT

With a wave of my magic wand . . .

(defun c:dl ( / clayer)
(prompt "\nGBA
Text Leader\n")
(setq clayer (getvar "CLayer"))
(command
"._layer" "_m" "53" "")
(initdia)
(command
"._qleader")
   (while (not (wcmatch (getvar "LastPrompt") "Specify
text width*"))
    (command pause)
   )

(command (getstring "\nEnter first line of annotation text <Mtext>:
"))
(setvar "CLayer" clayer)
(princ)
)

--

R. Robert Bell, MCSE
Network Administrator (or, Modern-day
Wizard)
(remove the "not." in my address for direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

DBlaha <
href="mailto:dblaha@fisherhamilton.com">dblaha@fisherhamilton.com>
wrote in message
href="news:876pua$i9a22@adesknews2.autodesk.com">news:876pua$i9a22@adesknews2.autodesk.com...

This routine results in the leader
line being created on the "53" layer but the text ends up on the layer stored
in "clayer". The initdia of course doesn't have any affect on the first
part of the qleader command that draws the line, and lapses before the actual
mtext prompt comes up, resulting in the mtext being entered on the command
line.

I tried working out this problem myself a
few weeks ago on AC2K and never could get it to work right. Is there a
way to modify it so that the text comes in on the same layer as the leader and
still have the routine switch back to the previously current layer when it's
done?

Dave

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:874i4v$d659@adesknews2.autodesk.com">news:874i4v$d659@adesknews2.autodesk.com...

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

Under AC2K (I'm assuming here, please post that
information next time) you do not need the (while) loop, due to the use of
(initdia). So here is your revised routine. The green lines (commented)
lines should just be deleted. You do not need the qleader variable
declaration (you are not using a qleader variable!).

(defun c:dl ( / clayer
color=#008000>qleader)
(prompt "\nGBA Text
Leader\n")
(setq clayer (getvar "clayer"))

color=#ff0000> (command "._layer" "_m" "53" "")

(initdia)
(command
"._qleader")

color=#008000>;;;      (while (= (logand (getvar
"cmdactive") 1)
1)
;;;
(command pause)
;;;      )

(setvar "clayer" clayer)
(princ)
)

I changed the "layer" "s" to "layer" "m", to
make the layer. if it does not exist. Of course, it would be white in that
case, but at least the routine would not bomb!
--
R. Robert Bell,
MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not."
in my address for direct e-mail)

Robert Asher <
href="mailto:rasher@gbutler.com">rasher@gbutler.com> wrote in message

href="news:874efs$csc7@adesknews2.autodesk.com">news:874efs$csc7@adesknews2.autodesk.com...

face=Arial size=2>> Could somebody take a look at this macro and tell me
what I've got wrong?
> I'm trying to make it so that when you type
"DL", the current layer will
> switch to "53", continue the qleader
command, and then at the end, switch
> back to whatever was the
previous current layer. As it is, the lisp doesn't
> work right, and I
lack the knowledge to finish it.
>
> Thanks for any
help,
> Robert Asher
> George Butler Associates, Inc.
>

>
> (defun c:dl ( / clayer qleader)
> (prompt
"\nGBA Text Leader\n")
> (setq clayer (getvar
"clayer"))
> (command "layer" "s" "53" "")
>
(initdia)
> (command "_qleader")
>
      (while (= (logand (getvar "cmdactive") 1)
1)
>
            (command
pause)
>       )
>    (setvar
"clayer" clayer)
>    (princ)
> )
>
>

Re:

Anonymous — Tue, 01 Feb 2000 17:08:15 GMT

Well, now that's a strange one. 🙂

The only thing that thwarted your last offering was the fact that you were
"making" the layer. When "setting" the layer, it places the Leader and the
Mtext on the "set" layer. Initdia seems to have no effect.

A strange twist, to be sure. Perhaps it's another one of those "features."

--
Dave D

R. Robert Bell wrote in article
<8772rm$ks613@adesknews2.autodesk.com>...
With a wave of my magic wand . . .

(defun c:dl ( / clayer)
(prompt "\nGBA Text Leader\n")
(setq clayer (getvar "CLayer"))
(command "._layer" "_m" "53" "")
(initdia)
(command "._qleader")
(while (not (wcmatch (getvar "LastPrompt") "Specify text width*"))
(command pause)
)
(command (getstring "\nEnter first line of annotation text : "))
(setvar "CLayer" clayer)
(princ)
)

--
R. Robert Bell, MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not." in my address for direct e-mail)

DBlaha wrote in message
news:876pua$i9a22@adesknews2.autodesk.com...
This routine results in the leader line being created on the "53" layer
but the text ends up on the layer stored in "clayer". The initdia of
course doesn't have any affect on the first part of the qleader command
that draws the line, and lapses before the actual mtext prompt comes up,
resulting in the mtext being entered on the command line.
I tried working out this problem myself a few weeks ago on AC2K and
never could get it to work right. Is there a way to modify it so that the
text comes in on the same layer as the leader and still have the routine
switch back to the previously current layer when it's done?

Dave

R. Robert Bell wrote in message
news:874i4v$d659@adesknews2.autodesk.com...
Under AC2K (I'm assuming here, please post that information next time)
you do not need the (while) loop, due to the use of (initdia). So here is
your revised routine. The green lines (commented) lines should just be
deleted. You do not need the qleader variable declaration (you are not
using a qleader variable!).

(defun c:dl ( / clayer qleader)
(prompt "\nGBA Text Leader\n")
(setq clayer (getvar "clayer"))
(command "._layer" "_m" "53" "")
(initdia)
(command "._qleader")
;;; (while (= (logand (getvar "cmdactive") 1) 1)
;;; (command pause)
;;; )
(setvar "clayer" clayer)
(princ)
)

I changed the "layer" "s" to "layer" "m", to make the layer. if it does
not exist. Of course, it would be white in that case, but at least the
routine would not bomb!
--
R. Robert Bell, MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not." in my address for direct e-mail)

Robert Asher wrote in message
news:874efs$csc7@adesknews2.autodesk.com...
> Could somebody take a look at this macro and tell me what I've got
wrong?
> I'm trying to make it so that when you type "DL", the current layer
will
> switch to "53", continue the qleader command, and then at the end,
switch
> back to whatever was the previous current layer. As it is, the lisp
doesn't
> work right, and I lack the knowledge to finish it.
>
> Thanks for any help,
> Robert Asher
> George Butler Associates, Inc.
>
>
> (defun c:dl ( / clayer qleader)
> (prompt "\nGBA Text Leader\n")
> (setq clayer (getvar "clayer"))
> (command "layer" "s" "53" "")
> (initdia)
> (command "_qleader")
> (while (= (logand (getvar "cmdactive") 1) 1)
> (command pause)
> )
> (setvar "clayer" clayer)
> (princ)
> )
>
>

----------

Re:

Anonymous — Tue, 01 Feb 2000 17:30:25 GMT

Are you sure about the "set" Dave? I still get their error. You are correct
about the (initdia), I never thought about removing it.

--
R. Robert Bell, MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not." in my address for direct e-mail)

David Doane wrote in message
news:01bf6cd6$d8534440$7657d2d0@lms-1...
> Well, now that's a strange one. 🙂
>
> The only thing that thwarted your last offering was the fact that you were
> "making" the layer. When "setting" the layer, it places the Leader and
the
> Mtext on the "set" layer. Initdia seems to have no effect.
>
> A strange twist, to be sure. Perhaps it's another one of those
"features."
>
> --
> Dave D
>
> R. Robert Bell wrote in article
> <8772rm$ks613@adesknews2.autodesk.com>...
> With a wave of my magic wand . . .
>
> (defun c:dl ( / clayer)
> (prompt "\nGBA Text Leader\n")
> (setq clayer (getvar "CLayer"))
> (command "._layer" "_m" "53" "")
> (initdia)
> (command "._qleader")
> (while (not (wcmatch (getvar "LastPrompt") "Specify text width*"))
> (command pause)
> )
> (command (getstring "\nEnter first line of annotation text : "))
> (setvar "CLayer" clayer)
> (princ)
> )
>
> --
> R. Robert Bell, MCSE
> Network Administrator (or, Modern-day Wizard)
> (remove the "not." in my address for direct e-mail)
>
>
> DBlaha wrote in message
> news:876pua$i9a22@adesknews2.autodesk.com...
> This routine results in the leader line being created on the "53"
layer
> but the text ends up on the layer stored in "clayer". The initdia of
> course doesn't have any affect on the first part of the qleader command
> that draws the line, and lapses before the actual mtext prompt comes up,
> resulting in the mtext being entered on the command line.
> I tried working out this problem myself a few weeks ago on AC2K and
> never could get it to work right. Is there a way to modify it so that the
> text comes in on the same layer as the leader and still have the routine
> switch back to the previously current layer when it's done?
>
> Dave
>
>
>
> R. Robert Bell wrote in message
> news:874i4v$d659@adesknews2.autodesk.com...
> Under AC2K (I'm assuming here, please post that information next time)
> you do not need the (while) loop, due to the use of (initdia). So here is
> your revised routine. The green lines (commented) lines should just be
> deleted. You do not need the qleader variable declaration (you are not
> using a qleader variable!).
>
> (defun c:dl ( / clayer qleader)
> (prompt "\nGBA Text Leader\n")
> (setq clayer (getvar "clayer"))
> (command "._layer" "_m" "53" "")
> (initdia)
> (command "._qleader")
> ;;; (while (= (logand (getvar "cmdactive") 1) 1)
> ;;; (command pause)
> ;;; )
> (setvar "clayer" clayer)
> (princ)
> )
>
> I changed the "layer" "s" to "layer" "m", to make the layer. if it
does
> not exist. Of course, it would be white in that case, but at least the
> routine would not bomb!
> --
> R. Robert Bell, MCSE
> Network Administrator (or, Modern-day Wizard)
> (remove the "not." in my address for direct e-mail)
>
>
> Robert Asher wrote in message
> news:874efs$csc7@adesknews2.autodesk.com...
> > Could somebody take a look at this macro and tell me what I've got
> wrong?
> > I'm trying to make it so that when you type "DL", the current layer
> will
> > switch to "53", continue the qleader command, and then at the end,
> switch
> > back to whatever was the previous current layer. As it is, the lisp
> doesn't
> > work right, and I lack the knowledge to finish it.
> >
> > Thanks for any help,
> > Robert Asher
> > George Butler Associates, Inc.
> >
> >
> > (defun c:dl ( / clayer qleader)
> > (prompt "\nGBA Text Leader\n")
> > (setq clayer (getvar "clayer"))
> > (command "layer" "s" "53" "")
> > (initdia)
> > (command "_qleader")
> > (while (= (logand (getvar "cmdactive") 1) 1)
> > (command pause)
> > )
> > (setvar "clayer" clayer)
> > (princ)
> > )
> >
> >
>
> ----------
>

Re:

Anonymous — Tue, 01 Feb 2000 19:43:49 GMT

This routine works very well except for one
problem. When prompted for the first line of text, if you enter a
string of text the first space you type is read as an ENTER.
Subsequent spaces are accepted as spaces. Enclosing the first line of text
in quotes as you enter it on the command line is the only way the routine will
accept spaces in it.

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:8772rm$ks613@adesknews2.autodesk.com">news:8772rm$ks613@adesknews2.autodesk.com...

With a wave of my magic wand . . .

(defun c:dl ( / clayer)
(prompt "\nGBA
Text Leader\n")
(setq clayer (getvar "CLayer"))
(command
"._layer" "_m" "53" "")
(initdia)
(command
"._qleader")
   (while (not (wcmatch (getvar "LastPrompt")
"Specify text width*"))
    (command pause)

)
(command (getstring "\nEnter first line of annotation text
<Mtext>: "))
(setvar "CLayer"
clayer)
(princ)
)

--
R. Robert Bell,
MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not." in
my address for direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

DBlaha <
href="mailto:dblaha@fisherhamilton.com">dblaha@fisherhamilton.com>
wrote in message
href="news:876pua$i9a22@adesknews2.autodesk.com">news:876pua$i9a22@adesknews2.autodesk.com...

This routine results in the leader
line being created on the "53" layer but the text ends up on the layer
stored in "clayer". The initdia of course doesn't have any affect on
the first part of the qleader command that draws the line, and lapses before
the actual mtext prompt comes up, resulting in the mtext being entered on
the command line.

I tried working out this problem myself
a few weeks ago on AC2K and never could get it to work right. Is there
a way to modify it so that the text comes in on the same layer as the leader
and still have the routine switch back to the previously current layer when
it's done?

Dave

Re:

Anonymous — Tue, 01 Feb 2000 19:56:28 GMT

Oh, rats! Fix this line:

(command (getstring "\nEnter first line of
annotation text <Mtext>: " T))

--

R. Robert Bell, MCSE
Network Administrator (or, Modern-day
Wizard)
(remove the "not." in my address for direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

DBlaha <
href="mailto:dblaha@fisherhamilton.com">dblaha@fisherhamilton.com>
wrote in message
href="news:877cth$nnq3@adesknews2.autodesk.com">news:877cth$nnq3@adesknews2.autodesk.com...

This routine works very well except for one
problem. When prompted for the first line of text, if you enter a
string of text the first space you type is read as an ENTER.
Subsequent spaces are accepted as spaces. Enclosing the first line of
text in quotes as you enter it on the command line is the only way the routine
will accept spaces in it.

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:8772rm$ks613@adesknews2.autodesk.com">news:8772rm$ks613@adesknews2.autodesk.com...

With a wave of my magic wand . . .

(defun c:dl ( / clayer)
(prompt
"\nGBA Text Leader\n")
(setq clayer (getvar "CLayer"))

(command "._layer" "_m" "53" "")
(initdia)
(command
"._qleader")
   (while (not (wcmatch (getvar "LastPrompt")
"Specify text width*"))
    (command
pause)
   )
(command (getstring "\nEnter first line
of annotation text <Mtext>: "))

size=2> (setvar "CLayer" clayer)

(princ)
)

--
R. Robert Bell, MCSE
Network
Administrator (or, Modern-day Wizard)
(remove the "not." in my address
for direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

DBlaha <
href="mailto:dblaha@fisherhamilton.com">dblaha@fisherhamilton.com>
wrote in message
href="news:876pua$i9a22@adesknews2.autodesk.com">news:876pua$i9a22@adesknews2.autodesk.com...

This routine results in
the leader line being created on the "53" layer but the text ends up
on the layer stored in "clayer". The initdia of course doesn't have
any affect on the first part of the qleader command that draws the line,
and lapses before the actual mtext prompt comes up, resulting in the mtext
being entered on the command line.

I tried working out this problem
myself a few weeks ago on AC2K and never could get it to work right.
Is there a way to modify it so that the text comes in on the same layer as
the leader and still have the routine switch back to the previously
current layer when it's done?

Dave

Re:

Anonymous — Tue, 01 Feb 2000 21:05:54 GMT

Perfect! Thank you very
much.

Dave

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:877dq0$nmr6@adesknews2.autodesk.com">news:877dq0$nmr6@adesknews2.autodesk.com...

Oh, rats! Fix this line:

(command (getstring "\nEnter first line of
annotation text <Mtext>: "
color=#ff0000>T))

--
R. Robert Bell, MCSE
Network
Administrator (or, Modern-day Wizard)
(remove the "not." in my address for
direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

DBlaha <
href="mailto:dblaha@fisherhamilton.com">dblaha@fisherhamilton.com>
wrote in message
href="news:877cth$nnq3@adesknews2.autodesk.com">news:877cth$nnq3@adesknews2.autodesk.com...

This routine works very well except for
one problem. When prompted for the first line of text, if you
enter a string of text the first space you type is read as an
ENTER. Subsequent spaces are accepted as spaces. Enclosing the
first line of text in quotes as you enter it on the command line is the only
way the routine will accept spaces in
it.

Re:

Anonymous — Tue, 01 Feb 2000 21:15:44 GMT

This creates both parts on layer 53 for me:

(defun c:dl ( / clayer)
(prompt "\nGBA Text Leader\n")
(setq clayer (getvar "clayer"))
(command "._layer" "_s" "53" "")
(command "._qleader")
(setvar "clayer" clayer)
(princ)
)

This creates the leader on 53 and the Mtext on layer 0:

(defun c:dl ( / clayer)
(prompt "\nGBA Text Leader\n")
(setq clayer (getvar "clayer"))
(command "._layer" "_m" "53" "")
(command "._qleader")
(setvar "clayer" clayer)
(princ)
)

And so does this does this:

(defun c:dl ( / clayer s1b)
(prompt "\nGBA Text Leader\n")
(setq clayer (getvar "clayer"))
(command "._layer" "_m" "53" "")
(command "._qleader")
(setq s1b (entget (entlast)))
(setq s1b (subst (cons 8 "53") (assoc 8 s1b) s1b))
(entmod s1b)
(setvar "clayer" clayer)
(princ)
)

However, after completing the dl program, you can run:

(defun c:dla (/ s1b)
(setq s1b (entget (entlast)))
(setq s1b (subst (cons 8 "53") (assoc 8 s1b) s1b))
(entmod s1b)
(princ)
)

And the Mtext will be on layer 53. I even tried dla as a subroutine, but
to no avail. It seems that you must be returned to the command prompt
after using Mtext before any modifications are valid.
--
Dave D

R. Robert Bell wrote in article
<877584$l0d21@adesknews2.autodesk.com>...
> Are you sure about the "set" Dave? I still get their error. You are
correct
> about the (initdia), I never thought about removing it.
>
> --
> R. Robert Bell, MCSE
> Network Administrator (or, Modern-day Wizard)
> (remove the "not." in my address for direct e-mail)
>

Re:

Anonymous — Tue, 01 Feb 2000 21:45:18 GMT

Hmm, I wonder if it a "subtle" difference in MDT4 vs. whatever version you
are using? Your "set" code, as reproduced below, still puts the MText on the
CLayer's layer.

--
R. Robert Bell, MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not." in my address for direct e-mail)

David Doane wrote in message
news:01bf6cf9$6bab2ce0$4a55d2d0@lms-1...
> This creates both parts on layer 53 for me:
>
> (defun c:dl ( / clayer)
> (prompt "\nGBA Text Leader\n")
> (setq clayer (getvar "clayer"))
> (command "._layer" "_s" "53" "")
> (command "._qleader")
> (setvar "clayer" clayer)
> (princ)
> )
>
> This creates the leader on 53 and the Mtext on layer 0:
>
> (defun c:dl ( / clayer)
> (prompt "\nGBA Text Leader\n")
> (setq clayer (getvar "clayer"))
> (command "._layer" "_m" "53" "")
> (command "._qleader")
> (setvar "clayer" clayer)
> (princ)
> )
>
> And so does this does this:
>
> (defun c:dl ( / clayer s1b)
> (prompt "\nGBA Text Leader\n")
> (setq clayer (getvar "clayer"))
> (command "._layer" "_m" "53" "")
> (command "._qleader")
> (setq s1b (entget (entlast)))
> (setq s1b (subst (cons 8 "53") (assoc 8 s1b) s1b))
> (entmod s1b)
> (setvar "clayer" clayer)
> (princ)
> )
>
> However, after completing the dl program, you can run:
>
> (defun c:dla (/ s1b)
> (setq s1b (entget (entlast)))
> (setq s1b (subst (cons 8 "53") (assoc 8 s1b) s1b))
> (entmod s1b)
> (princ)
> )
>
> And the Mtext will be on layer 53. I even tried dla as a subroutine, but
> to no avail. It seems that you must be returned to the command prompt
> after using Mtext before any modifications are valid.
> --
> Dave D
>
> R. Robert Bell wrote in article
> <877584$l0d21@adesknews2.autodesk.com>...
> > Are you sure about the "set" Dave? I still get their error. You are
> correct
> > about the (initdia), I never thought about removing it.
> >
> > --
> > R. Robert Bell, MCSE
> > Network Administrator (or, Modern-day Wizard)
> > (remove the "not." in my address for direct e-mail)
> >
>

Re:

Anonymous — Tue, 01 Feb 2000 21:45:44 GMT

Glad to help. Might even use it myself!
<g>

--
R. Robert Bell, MCSE
Network Administrator (or, Modern-day
Wizard)
(remove the "not." in my address for direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

DBlaha <
href="mailto:dblaha@fisherhamilton.com">dblaha@fisherhamilton.com>
wrote in message
href="news:877hnd$nnq12@adesknews2.autodesk.com">news:877hnd$nnq12@adesknews2.autodesk.com...

Perfect! Thank you very
much.

Dave

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:877dq0$nmr6@adesknews2.autodesk.com">news:877dq0$nmr6@adesknews2.autodesk.com...

Oh, rats! Fix this line:

(command (getstring "\nEnter first line
of annotation text <Mtext>: "
color=#ff0000>T))

--
R. Robert Bell,
MCSE
Network Administrator (or, Modern-day Wizard)
(remove the "not."
in my address for direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

DBlaha <
href="mailto:dblaha@fisherhamilton.com">dblaha@fisherhamilton.com>
wrote in message
href="news:877cth$nnq3@adesknews2.autodesk.com">news:877cth$nnq3@adesknews2.autodesk.com...

This routine works very well except for
one problem. When prompted for the first line of text, if you
enter a string of text the first space you type is read as an
ENTER. Subsequent spaces are accepted as spaces. Enclosing the
first line of text in quotes as you enter it on the command line is the
only way the routine will accept spaces in
it.

Re:

Anonymous — Tue, 01 Feb 2000 22:14:18 GMT

Must be. I was testing in A2K, and R14 has no native qleader command.
However it is one of the Express Tools for R14 in the file leaderex.arx.
--
Dave D

R. Robert Bell wrote in article
<877k5i$ndn25@adesknews2.autodesk.com>...
> Hmm, I wonder if it a "subtle" difference in MDT4 vs. whatever version
you
> are using? Your "set" code, as reproduced below, still puts the MText on
the
> CLayer's layer.
>
> --
> R. Robert Bell, MCSE
> Network Administrator (or, Modern-day Wizard)
> (remove the "not." in my address for direct e-mail)
>
>
> David Doane wrote in message
> news:01bf6cf9$6bab2ce0$4a55d2d0@lms-1...
> > This creates both parts on layer 53 for me:
> >
> > (defun c:dl ( / clayer)
> > (prompt "\nGBA Text Leader\n")
> > (setq clayer (getvar "clayer"))
> > (command "._layer" "_s" "53" "")
> > (command "._qleader")
> > (setvar "clayer" clayer)
> > (princ)
> > )
> >
> > This creates the leader on 53 and the Mtext on layer 0:
> >
> > (defun c:dl ( / clayer)
> > (prompt "\nGBA Text Leader\n")
> > (setq clayer (getvar "clayer"))
> > (command "._layer" "_m" "53" "")
> > (command "._qleader")
> > (setvar "clayer" clayer)
> > (princ)
> > )
> >
> > And so does this does this:
> >
> > (defun c:dl ( / clayer s1b)
> > (prompt "\nGBA Text Leader\n")
> > (setq clayer (getvar "clayer"))
> > (command "._layer" "_m" "53" "")
> > (command "._qleader")
> > (setq s1b (entget (entlast)))
> > (setq s1b (subst (cons 8 "53") (assoc 8 s1b) s1b))
> > (entmod s1b)
> > (setvar "clayer" clayer)
> > (princ)
> > )
> >
> > However, after completing the dl program, you can run:
> >
> > (defun c:dla (/ s1b)
> > (setq s1b (entget (entlast)))
> > (setq s1b (subst (cons 8 "53") (assoc 8 s1b) s1b))
> > (entmod s1b)
> > (princ)
> > )
> >
> > And the Mtext will be on layer 53. I even tried dla as a subroutine,
but
> > to no avail. It seems that you must be returned to the command prompt
> > after using Mtext before any modifications are valid.
> > --
> > Dave D
> >
> > R. Robert Bell wrote in article
> > <877584$l0d21@adesknews2.autodesk.com>...
> > > Are you sure about the "set" Dave? I still get their error. You are
> > correct
> > > about the (initdia), I never thought about removing it.
> > >
> > > --
> > > R. Robert Bell, MCSE
> > > Network Administrator (or, Modern-day Wizard)
> > > (remove the "not." in my address for direct e-mail)
> > >
> >
>
>
>

Re:

Anonymous — Tue, 01 Feb 2000 23:01:02 GMT

Hi there,

The following is my custom qleader routine which I wrote a few weeks ago,
with a bit of help from others in this newsgroup.

;;; Quick leader routine
;;; by Chris Needham
;;; 5-1-00
(if (member "leaderex.arx" (arx))
nil
(arxload "leaderex.arx")
) ;added by Mike Weaver, 6-1-00

(defun c:qq ()
(setq oldorthomode (getvar "orthomode"))
(setq oldosmode (getvar "osmode"))
(setq oldtexteval (getvar "texteval"))
(setq oldcmdecho (getvar "cmdecho"))
(setq oldceltype (getvar "celtype"))
(setvar "orthomode" 0)
(setvar "osmode" 16417)
(setvar "texteval" 1)
(setvar "cmdecho" 1)
(setvar "celtype" "continuous")
(command "_.qleader"
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
)
)
(setvar "orthomode" oldorthomode)
(setvar "texteval" oldtexteval)
(setvar "osmode" oldosmode)
(setvar "cmdecho" oldcmdecho)
(setvar "celtype" oldceltype)
(princ)
)

(defun c:tq ()
(setq oldlayer (getvar "clayer"))
(setvar "clayer" "text-3")
(command (c:qq))
(setvar "clayer" oldlayer)
(princ)
)

By altering the (setq oldlayer (getvar "clayer")) line to suit your layers,
you should have no problems. By the way, I have added a few more in my
routine to automatically set different layers.

Good luck,

Chris Needham.
New Zealand.
R. Robert Bell wrote in message
news:877584$l0d21@adesknews2.autodesk.com...
> Are you sure about the "set" Dave? I still get their error. You are
correct
> about the (initdia), I never thought about removing it.
>
> --
> R. Robert Bell, MCSE
> Network Administrator (or, Modern-day Wizard)
> (remove the "not." in my address for direct e-mail)
>
>

Re:

Anonymous — Fri, 11 Feb 2000 15:02:01 GMT

Excellent question...I'm up against the same
thing myself. Seems to me that dimensions act the same way. The
Mtext is entered AFTER the layer is reset. I'm eagerly awaiting an answer
to this one.

-mjm

style="BORDER-LEFT: #000000 solid 2px; MARGIN-LEFT: 5px; PADDING-LEFT: 5px">

DBlaha wrote in message <
href="mailto:876pua$i9a22@adesknews2.autodesk.com">876pua$i9a22@adesknews2.autodesk.com>...

This routine results in the leader
line being created on the "53" layer but the text ends up on the
layer stored in "clayer". The initdia of course doesn't have
any affect on the first part of the qleader command that draws the line, and
lapses before the actual mtext prompt comes up, resulting in the mtext being
entered on the command line.

I tried working out this problem myself
a few weeks ago on AC2K and never could get it to work right. Is there
a way to modify it so that the text comes in on the same layer as the leader
and still have the routine switch back to the previously current layer when
it's done?

Dave

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:874i4v$d659@adesknews2.autodesk.com">news:874i4v$d659@adesknews2.autodesk.com...

style="BORDER-LEFT: #000000 solid 2px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

Under AC2K (I'm assuming here, please post
that information next time) you do not need the (while) loop, due to the
use of (initdia). So here is your revised routine. The green lines
(commented) lines should just be deleted. You do not need the qleader
variable declaration (you are not using a qleader
variable!).

(defun c:dl ( / clayer
color=#008000>qleader)
(prompt "\nGBA Text
Leader\n")
(setq clayer (getvar
"clayer"))
(command
"._layer" "_m" "53"
"")
(initdia)

color=#ff0000>(command "._qleader")

color=#008000>;;;      (while (= (logand
(getvar "cmdactive") 1)
1)
;;;
(command pause)
;;;      )

(setvar "clayer" clayer)

(princ)
)

I changed the "layer"
"s" to "layer" "m", to make the layer. if
it does not exist. Of course, it would be white in that case, but at
least the routine would not bomb!
--
R. Robert Bell,
MCSE
Network Administrator (or, Modern-day Wizard)
(remove the
"not." in my address for direct e-mail)

Robert Asher <
href="mailto:rasher@gbutler.com">rasher@gbutler.com> wrote in
message
href="news:874efs$csc7@adesknews2.autodesk.com">news:874efs$csc7@adesknews2.autodesk.com...

face=Arial size=2>> Could somebody take a look at this macro and tell
me what I've got wrong?
> I'm trying to make it so that when you
type "DL", the current layer will
> switch to
"53", continue the qleader command, and then at the end,
switch
> back to whatever was the previous current layer. As it
is, the lisp doesn't
> work right, and I lack the knowledge to
finish it.
>
> Thanks for any help,
> Robert
Asher
> George Butler Associates, Inc.
>
>
>
(defun c:dl ( / clayer qleader)
> (prompt "\nGBA Text
Leader\n")
> (setq clayer (getvar
"clayer"))
> (command "layer"
"s" "53" "")
>
(initdia)
> (command "_qleader")
>
      (while (= (logand (getvar
"cmdactive") 1) 1)
>

(command pause)
>       )
>
   (setvar "clayer" clayer)
>
(princ)
> )
>
>

Re:

Anonymous — Fri, 11 Feb 2000 15:18:32 GMT

Michael, that thread you quote below actually went
a lot further, and the problem _was_ eliminated. Go back to that thread and read
the rest!

--
R. Robert Bell, MCSE
Network Administrator (or, Modern-day
Wizard)
(remove the "not." in my address for direct e-mail)

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

michael montagne <
href="mailto:montagne@easystreet.com">montagne@easystreet.com> wrote in
message
href="news:8818ji$2mr11@adesknews2.autodesk.com">news:8818ji$2mr11@adesknews2.autodesk.com...

Excellent question...I'm up against the same
thing myself. Seems to me that dimensions act the same way. The
Mtext is entered AFTER the layer is reset. I'm eagerly awaiting an
answer to this one.

-mjm

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; PADDING-LEFT: 5px">

DBlaha wrote in message <
href="mailto:876pua$i9a22@adesknews2.autodesk.com">876pua$i9a22@adesknews2.autodesk.com>...

This routine results in the leader
line being created on the "53" layer but the text ends up on the layer
stored in "clayer". The initdia of course doesn't have any affect on
the first part of the qleader command that draws the line, and lapses before
the actual mtext prompt comes up, resulting in the mtext being entered on
the command line.

I tried working out this problem myself
a few weeks ago on AC2K and never could get it to work right. Is there
a way to modify it so that the text comes in on the same layer as the leader
and still have the routine switch back to the previously current layer when
it's done?

Dave

R. Robert Bell <
href="mailto:not.robertb@mwengineers.com">not.robertb@mwengineers.com>
wrote in message
href="news:874i4v$d659@adesknews2.autodesk.com">news:874i4v$d659@adesknews2.autodesk.com...

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

Under AC2K (I'm assuming here, please post
that information next time) you do not need the (while) loop, due to the
use of (initdia). So here is your revised routine. The green lines
(commented) lines should just be deleted. You do not need the qleader
variable declaration (you are not using a qleader variable!).

(defun c:dl ( / clayer
color=#008000>qleader)
(prompt "\nGBA Text
Leader\n")
(setq clayer (getvar "clayer"))

color=#ff0000> (command "._layer" "_m" "53" "")

(initdia)
(command
"._qleader")

color=#008000>;;;      (while (= (logand (getvar
"cmdactive") 1)
1)
;;;
(command pause)
;;;      )

(setvar "clayer" clayer)
(princ)
)

I changed the "layer" "s" to "layer" "m", to
make the layer. if it does not exist. Of course, it would be white in that
case, but at least the routine would not bomb!
--
R. Robert Bell,
MCSE
Network Administrator (or, Modern-day Wizard)
(remove the
"not." in my address for direct e-mail)

Robert Asher <
href="mailto:rasher@gbutler.com">rasher@gbutler.com> wrote in
message
href="news:874efs$csc7@adesknews2.autodesk.com">news:874efs$csc7@adesknews2.autodesk.com...

face=Arial size=2>> Could somebody take a look at this macro and tell
me what I've got wrong?
> I'm trying to make it so that when you
type "DL", the current layer will
> switch to "53", continue the
qleader command, and then at the end, switch
> back to whatever was
the previous current layer. As it is, the lisp doesn't
> work right,
and I lack the knowledge to finish it.
>
> Thanks for any
help,
> Robert Asher
> George Butler Associates, Inc.
>

>
> (defun c:dl ( / clayer qleader)
> (prompt
"\nGBA Text Leader\n")
> (setq clayer (getvar
"clayer"))
> (command "layer" "s" "53" "")
>
(initdia)
> (command "_qleader")
>
      (while (= (logand (getvar "cmdactive") 1)
1)
>

(command pause)
>       )
>
   (setvar "clayer" clayer)
>    (princ)
>
)
>
>