Mover_Txt_Coord_Z.lsp

;;; Início Mover_Txt_Coord_Z.lsp
;;; VER 1.3

;;; J.A.
;;; www.cadtom.com

;;; VER 1.0 - 1995-12-05
;;; VER 1.1 - 2005-02-21
;;; VER 1.2 - 2006-05-06
;;; VER 1.3 - 2007-01-27

;;; Mover_Txt_Coord_Z.lsp - Aplicação para mover texto (pontos topográficos) para a respectiva coordenada Z

(defun C:MVTXTZ	(/ AOSMD ADECH SSET SSLEN TEMPS TEXTIT PT3DTXT PT3DFIN)


  (command "_.undo" "begin")
  (setq AERR *error*)
  (setq	AOSMD (getvar "osmode")
	ADECH (getvar "cmdecho")
  )
  (setvar "cmdecho" 0)
  (terpri)
  (princ "\n»» Seleccione textos a mover:\n")
  (setq SSET (ssget '((0 . "TEXT"))))
  (setvar "osmode" 0)
  (if SSET
    (progn
      (setq SSLEN (sslength SSET))
      (while (> SSLEN 0)
	(setq TEMPS   (ssname SSET (setq SSLEN (1- SSLEN)))
	      TEXTIT  (cdr (assoc 1 (entget TEMPS)))
	      PT3DTXT (cdr (assoc 10 (entget TEMPS)))
	      PT3DFIN (list (car PT3DTXT) (cadr PT3DTXT) (atof TEXTIT))
	)
	(command "._move" TEMPS "" PT3DTXT PT3DFIN)
      )
    )
    (princ "\n»» Nenhum texto seleccionado!")
  )
  (setvar "osmode" AOSMD)
  (command "_.undo" "end")
)

;;;
;;;
;;;

(defun *error* (msg)

  (setq *error* AERR)
  (setvar "cmdecho" ADECH)
  (setvar "osmode" AOSMD)
  (command "_.undo" "end")
  (princ (strcat "»» Aplicação interrompida com erro: " msg))
)

(terpri)
(princ "\n»» Inicie aplicação digitando MVTXTZ \n")

;;; Fim Mover_Txt_Coord_Z.lsp

 
Top