Uma rotita para aqueles que explodiram uma polilinha que foi “transformada” em spline e explodiu a coitada: (defun c:mj4 (/ ss ent lpt dd mj4_procpt new zc s flag lay n) (tbn:error-init (list (list “cmdecho” 0 “osmode” 0) ‘(command “._zoom” “c” zc s)));seleciona as linhas: (setq ss (ssget ‘((0 . “LINE,POLYLINE,LWPOLYLINE”)));pede as distancia mínimas entre […]
Quem usa o dos_lib pra recuperar a lista de rotinas carregadas no cad, ja percebeu que mesmo a versão 2007 não lista os DVB carregados…. com visual lisp é possível obter esta lista: (defun listdvb (/ vbprj tmp n);pega a lista de “projetos” dp tmp (setq vbprj (vlax-get-property;pega a referencia ao tmp do cad: (vla-get-vbe
Esta rotina serve para realçar as entidades na tela, fazendo-as parecer “tracejadas”.Também serve pra remover este realçe; high-ligth (xd): (des)realça entidades na tela; xd: é uma lista de entidades (handle_1 … handle_n); n: 3 para realçar, 4 para desrealçar(defun high-ligth (xd n / x) (setq n (if (= ‘INT (type n)) n (if n 3
