Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations MintJulep on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Re: layer unisolate?

Status
Not open for further replies.

OldmanHaggler

Mechanical
Sep 9, 2003
47
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
 
Replies continue below

Recommended for you

Do you have the express tools loaded?

"Everybody is ignorant, only on different subjects." — Will Rogers
 
Yes, they are loaded...? maybe Autodesk has disabled these commands in 2004 beacuse they want you to purchase it from them?
 
AutoCAD commented those functions out. Since we made ours work again, I'm afraid I can't tell you which files we fixed to make it work, but check around the menu files with notepad.
 
OldmanHaggler,
"layuniso" is still inside. It's an only "command line command"[wink]! Make a button by Yourself!

"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
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor