então, voce conhece o comando UNDEFINE do AutoCAD
com ele podemos "remover" um comando nativo e "substituir" por outro nosso
no seu caso especifico "removeria" os comandos de edição de texto e forçaria uma verificação antes de executar o comando, neste verificação eu procuraria esta cadeia -3 com a definição "PERFIL". caso a busca seja positiva o camando de edição seria anulado ou voce já direciona para a sua rotina que deve editar este texto
eu sempre faço isso para garantir padronização nos escritorios onde trabalho, olha o exemplo
(vl-cmdf "_.UNDEFINE" "_TEXT")
(vl-cmdf "_.UNDEFINE" "_DTEXT")
(vl-cmdf "_.UNDEFINE" "_MTEXT")
(defun _multexto (uso-marchi / int just_ pt1 pt2)
(setq int 1)
(esc)
(load (strcat (getenv "_Rotinas") "normografo"))
(normografo uso-marchi)
(if (equal just_m nil)
(setq just_m "TL"
just_ just_m
)
(setq just_ just_m)
)
(initget "TL TC TR ML MC MR BL BC BR")
(setq just_m (getkword (strcat "\n\tEnter an option [TL/TC/TR/ML/MC/MR/BL/BC/BR] <" just_m "> :")))
(if (equal just_m nil)
(setq just_m just_)
)
(initdia)
(vl-cmdf "_.mtext" pause "Justify" just_m pause "")
(princ)
)
(defun _texto (uso-marchi / int just_)
(setq int 1)
(esc)
(load (strcat (getenv "_Rotinas") "normografo"))
(normografo uso-marchi)
(if (equal just nil)
(setq just "Left"
just_ just
)
(setq just_ just)
)
(initget "Align Fit Center Middle Right Left TL TC TR ML MC MR BL BC BR")
(setq just (getkword (strcat "\n\tEnter an option [Align/Fit/Center/Middle/Right/Left/TL/TC/TR/ML/MC/MR/BL/BC/BR] <" just "> :"))
pt1 (getpoint "\n\tSpecify start point of text :")
)
(if (equal just nil)
(if (equal (setq just just_) "Left")
(vl-cmdf "_.text" pt1 "")
(vl-cmdf "_.text" "_Justify" just pt1 "")
)
(if (equal just "Left")
(vl-cmdf "_.text" pt1 "")
(vl-cmdf "_.text" "_Justify" just pt1 "")
)
)
(princ)
)
(defun c:text (/) (_texto nil) (princ))
(defun c:dtext (/) (_texto nil) (princ))
(defun c:mtext (/) (_multexto nil) (princ))
entendeu?
Você achou uma postagem útil? Então fique à vontade para curtir essas postagens!
Sua pergunta obteve uma resposta que resolveu a duvida? Então clique no botão Aceitar Solução.
Fábio Santana
Architect | CAD/BIM Manager
