Lin_Dir_Targ.lsp
;;: Início
Lin_Dir_Targ.lsp
;;; Ver 1.1
;;; Ideia original de Arq. Beto
;;; J.A.
;;; www.cadtom.com
;;; Ver 1.0 - 2003-11-18
;;; Ver 1.1 - 2007-01-29
;;; Lin_Dir_Targ.lsp - Aplicação para
desenhar linhas entre os pontos "direction" e "target" de todas as Vistas
gravadas
(defun
C:LIDT (/
CMDCH OSMD
CLAY VWTBL
NVIEW NVWLAY
TLAYER PTVWDIR
PTVWTAR)
(command
"_.undo" "begin")
(setq
CMDCH (getvar
"cmdecho"))
(setvar
"cmdecho" 0)
(setq
OSMD (getvar
"osmode"))
(setq
CLAY (getvar
"clayer"))
(setq
VWTBL (tblnext
"VIEW" T))
(while
VWTBL
(setq
NVIEW (cdr
(assoc
2 VWTBL)))
(setq
NVWLAY (strcat
"Caminho_" NVIEW))
(setq
TLAYER (tblsearch
"layer" NVWLAY))
(if
(equal
TLAYER nil)
(command
".-layer" "m"
NVWLAY "")
)
(setq
PTVWDIR (cdr
(assoc
11 VWTBL)))
(setq
PTVWTAR (cdr
(assoc
12 VWTBL)))
(command
"LINE" PTVWDIR
PTVWTAR "")
(setq
VWTBL (tblnext
"VIEW"))
)
(setvar
"cmdecho" CMDCH)
(setvar
"clayer" CLAY)
(command
"_.undo" "end")
)
(prompt
"\n»» Inicie aplicação digitando LIDT \n")
;;; Fim Lin_Dir_Targ.lsp
