Vou postar as rotinas que estavam faltando na RTC3: (defun put-xdata2 (ent hands app /) (remake-ent ent -3 (list (cons app hands)))) (defun get-xdata2 (ent app /) (setq app (strcase app)) (mapcar ‘cdr (cdr (assoc app (mapcar ‘(lambda (x) (cons (strcase (car x)) (cdr x))) (dxf -3 ent)))))) (defun del-xdata2 (ent app / old) (setq […]
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
