Free viewer to view dwg using lsp routines

Endel
Endel
in Other

Hi,

At my company, we are using bricscad to draw, and now we need to view this drawings in many places in our company. We try to use dwgtrueview from Autodesk, but this don´t forbindem to use lisp routines to performace a zoom. I need to use the routine bellow.

I need to now if exists a free viewer to performe this.

Thanks,

Leandro

(defun c:localiza_endereco ( / codigo_l selecao entidade lista_entidade i ponto)
  (setq codigo_l (getstring "\nInforme o código a ser localizado: "))
  (setq selecao  (mp_dxf 2 "ponto"));NOME DO BLOCO DO ENDEREÇO É PONTO
  (if (/= selecao nil)
    (progn
      (setq i 0)
      (repeat (sslength selecao)
 (setq entidade (ssname selecao i))
 (setq lista_entidade (lista_ent entidade))
 (if (= (associado "X" lista_entidade) codigo_l); X é a tag do atributo para o endereço
   (progn
             (setq ponto (assoc 10 (entget entidade)))
             (setq ponto (list (nth 1 ponto) (nth 2 ponto) (nth 3 ponto)))
             (setq ponto1 (polar ponto 3.92 (* 60 (getvar "dimscale"))))
             (setq ponto2 (polar ponto 0.78 (* 60 (getvar "dimscale"))))
             (command "zoom" "w" ponto1 ponto2)
;(setq l ponto)
;             (command "circle" ponto (* 25 (getvar "dimscale")));desenha um círculo ao redor do item
;             (redraw entidade 3);deixa o item tracejado

   ) 
 )
 (setq i (1+ i))
      )
    )
  )
)