Re: layer unisolate?
Re: layer unisolate?
(OP)
Hi Everyone!
We have just upgraded to Autocad 2004 with CADWorx Plant Professional 2005 (Build Date: October 04, 2004)& I have noticed that my "Layer Unisolate" command has stopped working? also the "Multitext" or "Tedit" command has been
diasbled? these were part of my Express tool bar in Autocad 2002, I was wondering why they don't work?
Any help would be great!!
Thanks!
Lee J. Hagan
We have just upgraded to Autocad 2004 with CADWorx Plant Professional 2005 (Build Date: October 04, 2004)& I have noticed that my "Layer Unisolate" command has stopped working? also the "Multitext" or "Tedit" command has been
diasbled? these were part of my Express tool bar in Autocad 2002, I was wondering why they don't work?
Any help would be great!!
Thanks!
Lee J. Hagan





RE: Re: layer unisolate?
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: Re: layer unisolate?
RE: Re: layer unisolate?
RE: Re: layer unisolate?
"layuniso" is still inside. It's an only "command line command"
"tedit" and "mtextedit" are gone. I use the doubleclick now.
If You can't rough it, here's the lisp:
; Jason Piercey . May 29th, 2003
; similar command replacement for the Express Tool
; called TEDIT that was left out of AutoCAD 2004.
; edit any of the following in one operation.
; Text, Mtext, Attdef, Attributed Inserts,
; Dimensions, and ArcAlignedText
; briefly tested, if any trouble just say so.
(defun c:tEdit (/ echo ss i ename data)
(setq echo (getvar "cmdecho"))
(setvar "cmdecho" 0)
(defun *error* (msg)
(cond
((and
msg
(member (strcase msg)
'("Function cancelled" "quit / exit abort")) )
(princ (strcat "\ntEdit error: " msg))
)
(t (setvar "cmdecho" echo) (princ))
)
)
(setq
ss
(ssget
'((-4 . "<or")
(0 . "TEXT,MTEXT,ATTDEF,ARCALIGNEDTEXT,DIMENSION")
(-4 . "<and") (0 . "INSERT") (66 . 1) (-4 . "and>")
(-4 . "or>")
)
)
)
(if ss
(progn
(setq i -1)
(repeat (sslength ss)
(setq ename (ssname ss (setq i (1+ i))))
(setq data (cdr (assoc 0 (entget ename))))
(cond
((or
(= "TEXT" data)
(= "ATTDEF" data)
(= "MTEXT" data)
(= "DIMENSION" data)
)
(command "._ddedit" ename "")
)
((= "ARCALIGNEDTEXT" data) (command "._arctext" ename))
((= "INSERT" data) (command "._ddatte" ename))
)
(while (> (getvar "cmdactive") 0) (command pause))
)
)
)
(setvar "cmdecho" echo)
(princ "\ndone")
(princ)
)
best regards, Lothar
ADT 2004
ACAD 2002