Uma simples macro que exemplifica como o excel poderia criar layers no autocad!! Veja o código… ‘adicione as referencias:’autocad 2008 type library (ou a sua versão)’autocad/objectdbx commom 17.0 type libray (ou a sua versão do cad)’define as variaveis globais a seguirDim Acad As IAcadApplicationDim Thisdrawing As AcadDocument’função que “linka” o cad QUE JÁ ESTÁ ABERTO’se […]
Sim nerd é possível!!! e sem aquele recurso de usar as variaveis de sistema!! navegando na net encontrei um esquema jóia!!!Vamos lá então, veja o código VBA: Function ReadLispVariable(varname As String) As Variant Dim VL As Object If VL Is Nothing Then Set VL = CreateObject(“VL.APPLICATION.16”) End If With VL.ActiveDocument.Functions Set SYM = .Item(“read”).funcall(varname) ReadLispVariable
Hoje vou postar uma lisp que monitora o open/save do seu desenho, bem legal para quem precisa controlar o tempo de edição do dwg, mas não confia no timer do cad, até porque pouca gente lembra de zerar ele… aí está: (vl-load-com) (defun log_me_SAVE (rea par / TMP H) (setq tmp (open (strcat (getvar “dwgprefix”)
