1
Autolisp / OPGELOST: CTRL+SHIFT+A in LISP
« Gepost op: ma 23 01 2023, 15:13:32 »
Ik wil de shortcut "ctrl+shift+a" in een LISP routine zetten, iemand een idee hoe?
(setq #ss (ssget "x" '((-4 . "<or") (2 . "current_attribute_tag") (-4 . "or>"))))
(setq #EntName (ssname #ss 0))
(setq #OldEntData (entget #EntName))
(setq #OldTag (assoc 2 #OldEntData))
(setq #NewTag (cons 2 "new_attribute_tag"))
(setq #NewEntData (subst #NewTag #OldTag #OldEntData))
(entmod #NewEntData)