Terminal Attributes

[leeb1972]

I would like to hide the 'Term01' attribute on Terminals only (not compoents) accross my project.

Does anyone have any suggestions on how to do this quickly?

Thanks in advance.

[rhesusminus]

There is no standrad functionality to do this, but I made this quick script that you can run, using the Project -> Utilities:

Just check the Run command script file checkbox, and browse for the scr-file that you'll find attached to this post.

This script processes all block that has an attribute named TAGSTRIP. If found, it sets this attribute to "invisible".

Try it out on a COPY/BACKUP of your project first 🙂

[rhesusminus · Accepted solution]

Sorry. I misread a little. Attached HERE is the script that hides the TERM01 attribute on Terminals 🙂

Merry christmas!

[leeb1972]

Thank so much, that worked a treat.

Happy New Year!

[Anonymous]

Hi Rhesusminus:  I have a similar situation, but not exactly.  Could you make a script that hides the "WIRENO" attribute, and displays the "TERM01" attribute, again only for terminals?  Thanks in advance... Tony

---

@rhesusminus wrote:

Sorry. I misread a little. Attached HERE is the script that hides the TERM01 attribute on Terminals 🙂

Merry christmas!

---

[Anonymous]

Thank you. I took what rhesusminus did and tweaked it (with some help from my local LISP expert) to make TERM01 visible, and WIRENO and WIRENOF invisible:

--

(setq cnt 0)
(setq ss (ssget "X" '((0 . "INSERT"))))
(while (< cnt (sslength ss))
(progn
(if (setq ben (c:ace_getattr_data (ssname ss cnt) "TAGSTRIP"))
(progn
(cond ((c:ace_getattr_data (ssname ss cnt) "WIRENO")
(setq ed (entget (caddr (c:ace_getattr_data (ssname ss cnt) "WIRENO"))))
(setq xx (cdr (assoc 70 ed)))
(entmod (subst (cons 70 1) (assoc 70 ed) ed))))
(cond ((c:ace_getattr_data (ssname ss cnt) "WIRENOF")
(setq ed (entget (caddr (c:ace_getattr_data (ssname ss cnt) "WIRENOF"))))
(setq xx (cdr (assoc 70 ed)))
(entmod (subst (cons 70 1) (assoc 70 ed) ed))))
(cond ((c:ace_getattr_data (ssname ss cnt) "TERM01")
(setq ed (entget (caddr (c:ace_getattr_data (ssname ss cnt) "TERM01"))))
(setq xx (cdr (assoc 70 ed)))
(entmod (subst (cons 70 0) (assoc 70 ed) ed))))
(entupd (caddr ben))
)
)
)
(setq cnt (+ cnt 1))
)

--

---

@Anonymous wrote:

Hi Rhesusminus:  I have a similar situation, but not exactly.  Could you make a script that hides the "WIRENO" attribute, and displays the "TERM01" attribute, again only for terminals?  Thanks in advance... Tony

---

---