Warren,
Sorry, you caught me in a bad mood. My apologies.
It crossed my mind. As far as I know Express Tools is required for editing ArcText
prior to A2k4. So there didn't seem much point including support and error checking
for something akdrafter might not have. And it wasn't mentioned in the original
message.
I haven't installed A2k4 yet, so I don't know what the command is or how the editor
works. Now that it is included (assuming it is), I agree the program should support
it.
Regards
Joe Burke
"Warren Trost" wrote in message
news:4051b870_1@newsprd01...
> Just a simple question about editing anything per the original comment in
> the ED routine stating editing anything. No sarcasm or criticism intended.
>
>
> "Joe Burke" wrote in message
> news:40506af1$1_1@newsprd01...
> > Warren,
> >
> > Do you have a point here... or are you just tossing spitballs?
> >
> > I'm using A2k2.
> >
> > Joe Burke
> >
> > "Warren Trost" wrote in message
> > news:40506675$1_2@newsprd01...
> > > No ARCALIGNTEXT?
> > >
> > > I know it's not straight AutoCAD.
> > >
> > > "Joe Burke" wrote in message
> > > news:40506266_1@newsprd01...
> > > > akdrafter,
> > > >
> > > > I think this is what you want. I also think the logic so fouled up,
> I'm
> > > almost
> > > > embaressed to post it.
> > > >
> > > > It should work continuously until the user hits Enter. It should allow
> > > editing of any
> > > > type of text using the appropriate dialog. It should catch missed
> picks or
> > > wrong
> > > > object types and continue.
> > > >
> > > > Joe Burke
> > > >
> > > > ; JB 3/11/2004
> > > > (defun c:ED ( / *Error* typlst ename typ )
> > > > (defun *Error* (Msg)
> > > > (cond
> > > > ((or (not Msg)
> > > > (member Msg '("console break"
> > > > "Function cancelled"
> > > > "quit / exit abort"))))
> > > > ((princ (strcat "\nError: " Msg)))
> > > > ) ;cond
> > > > (setvar "cmdecho" 1)
> > > > (princ)
> > > > ) ;end error
> > > >
> > > > (setq typlst '("TEXT" "MTEXT" "DIMENSION" "ATTDEF" "INSERT"))
> > > > (setvar "errno" 0)
> > > > (setvar "cmdecho" 0)
> > > > (while (/= 52 (getvar "errno"))
> > > > (if
> > > > (and
> > > > (setq ename (car (entsel "\nSelect object or Enter to end:
> ")))
> > > > (member (cdr (assoc 0 (entget ename))) typlst)
> > > > )
> > > > (progn
> > > > (setq typ (cdr (assoc 0 (entget ename))))
> > > > (if (= "INSERT" typ)
> > > > (command ".ddatte" ename (command))
> > > > (command ".ddedit" ename (command))
> > > > )
> > > > (setvar "errno" 0)
> > > > )
> > > > (progn
> > > > (if (/= 52 (getvar "errno"))
> > > > (princ "\nMissed pick or wrong object type: ")
> > > > )
> > > > )
> > > > ) ;if
> > > > ) ;while
> > > > (if (= 52 (getvar "errno"))
> > > > (exit)
> > > > (c:ED)
> > > > )
> > > > (*Error* nil)
> > > > (princ)
> > > > ) ;end
> > > >
> > > > "akdrafter" wrote in message
> > > > news:19496099.1078961506063.JavaMail.jive@jiveforum2.autodesk.com...
> > > > > Hello,
> > > > >
> > > > > I found the lisp file pasted below this message a long time ago and
> like
> > > using it
> > > > over the double click to edit and the new 2002 enhanced edit. All I
> want
> > > to do is
> > > > select any text type (text, mtext, dimension text, attdef & inserts
> with
> > > att's) and
> > > > then run the appropriate text edit command on it.
> > > > >
> > > > > To edit text, mtext, dimension tex & attdef's = .ddedit
> > > > >
> > > > > To edit inserts w/att's = .ddatte
> > > > >
> > > > > The routine works fine except that if I select an object and it uses
> the
> > > .ddedit I
> > > > can not select an object that uses .ddatte unless I end the routine
> and
> > > restart it. I
> > > > remember this being able to pick both type within one session of the
> lisp,
> > > but it
> > > > does not work in 2002.
> > > > >
> > > > > Any ideas why? Better way of doing this...via lisp?
> > > > >
> > > > > Thanks in advance.
> > > > >
> > > > > "Catch" Ya Later,
> > > > > AKDRAFTER
> > > > >
> > > > >
> > > > > ;;; ET by David Harrington and Scott Gauthier
> > > > > ;;; Edit any text type object
> > > > > ;;;
> > > > > ;;; Main Program
> > > > > ;;;
> > > > > (defun C:ED (/ ent ent_typ olosmode olcmdecho et_error old_error)
> > > > > (defun et_error (msg)
> > > > > (if (or (= msg "Function cancelled") (/= msg "quit / exit abort"))
> > > > > (princ (strcat "Error: " msg))
> > > > > )
> > > > > (setvar "CMDECHO" olcmdecho)
> > > > > (setvar "OSMODE" olosmode)
> > > > > (setq *error* old_err
> > > > > old_err nil
> > > > > et_error nil
> > > > > )
> > > > > (princ)
> > > > > )
> > > > > (setq old_err *error*
> > > > > *error* et_error
> > > > > )
> > > > > (princ "\n ET - Edit Textural Object")
> > > > > (setq olosmode (getvar "OSMODE")
> > > > > olcmdecho (getvar "CMDECHO")
> > > > > )
> > > > > (setvar "cmdecho" 0)
> > > > > (setvar "osmode" 0)
> > > > > (while (not (setq ent (entsel "\nSelect text object: ")))
> > > > > (princ "\nNothing Selected... \nPick Again..")
> > > > > )
> > > > > (cond
> > > > > ( (or
> > > > > (= (setq ent_typ (cdr (assoc 0 (entget (CAR ent))))) "TEXT")
> > > > > (= ent_typ "MTEXT")
> > > > > (= ent_typ "DIMENSION")
> > > > > (= ent_typ "ATTDEF")
> > > > > )
> > > > > (command ".ddedit" (CAR ent))
> > > > > )
> > > > > ((= ent_typ "INSERT")
> > > > > (command ".ddatte" (CAR Ent))
> > > > > )
> > > > > )
> > > > > (setvar "OSMODE" olosmode)
> > > > > (setvar "CMDECHO" olcmdecho)
> > > > > (setq *error* old_err)
> > > > > (princ)
> > > > > )
> > > > > (princ)
> > > > > ;
> > > >
> > > >
> > >
> > >
> >
> >
>
>