Öfters werde ich gefragt, wie man die an sich nützlichen Quickinfos (Tooltips) von Achsen an der Fadenkreuzanzeige ausblenden kann.
Einfach im Werkzeugbereich>Achsen>"Achse mit Namen" > Eigenschaften (RMK) anklicken, dann in der Registerkarte "Information" das Häkchen bei "Quickinfos anzeigen" entfernen.
Hat man eine große Anzahl von Achsen, helfen diese 4 nützlichen Lisp-Routinen:
Code:
(defun c:all-align-ttips-off ()
(if (ssget "x" '((0 . "AECC_ALIGNMENT")))
(progn
(vlax-for ent (vla-get-activeselectionset
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vlax-put-property ent 'showtooltip :vlax-false)
)
)
)
(princ)
)
(defun c:sel-align-no-ttips (/ ent)
(while (and (setq ent (car (entsel "\nSelect alignment to turn off tool tip: ")))
(= (cdr (assoc 0 (entget ent))) "AECC_ALIGNMENT")
)
(vlax-put-property
(vlax-ename->vla-object ent)
'showtooltip
:vlax-false
)
)
(princ)
)
(defun c:all-align-ttips-on ()
(if (ssget "x" '((0 . "AECC_ALIGNMENT")))
(progn
(vlax-for ent (vla-get-activeselectionset
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vlax-put-property ent 'showtooltip :vlax-true)
)
)
)
(princ)
)
(defun c:sel-align-yes-ttips (/ ent)
(while (and (setq ent (car (entsel "\nSelect alignment to turn on tool tip: ")))
(= (cdr (assoc 0 (entget ent))) "AECC_ALIGNMENT")
)
(vlax-put-property
(vlax-ename->vla-object ent)
'showtooltip
:vlax-true
)
)
(princ)
)
entnommen von:
http://discussion.autodesk.com/adskc...sageID=5338819