Listado de coordenadas de puntos

Podrian crear un comando para listar las coordenadas x,y,z de uno o varios puntos o vertices de una poligonal.

;Amigo esto es un programa en LISP que realiza lo que pides y funciona muy bien
;Solo tienes que copiar o guardarlo en un archivo llamado Corex.lsp





; Rutina que exporta o crea una tabla con las coordenadas de los puntos indicados
;
; Desarrollado por Mario Torres Pejerrey
; www.construcgeek.com/

;

---

; Programa para crear tabla de coordenadas y elevaciones, seleccionando una linea y/o polylinea
; Seleccionando los vertices y/o intersecciones
;
; Cargar las funciones ActiveX (Visual Lisp)
(vl-load-com)
(setq AcadObj (vlax-get-acad-object))
(setq AcadDocument (vla-get-activedocument AcadObj))
(setq mspace (vla-get-modelspace AcadDocument))
(setq util (vla-get-utility AcadDocument))

(setq VersionCorex "Archibus V08")

(defun c:corex()

(crear_CuadroDialogo)

; Conectando con el archivo y la estructura.
(setq ind (LOAD_DIALOG fname))

(if (not (new_dialog "dlg_Corex" ind))
(exit )
);if


(Defecto)

(valores)

(acciones)

; Se visualiza el cuadro.
(IF (= 1 (START_DIALOG))
(EjecutarComando)
)

(UNLOAD_DIALOG ind)
(vl-file-delete fname)

(princ)
)

(Defun Defecto()
(setq OLDERR *error* *error* TBERROR)
(setq EstiloActual (getvar "TEXTSTYLE"))
(setq TEMPCMD (getvar "CMDECHO"))
(setq puntoCoordenada nil)
(setq RutaArchSel nil)
(setq SeIndicoVerticeExportar nil)

(setvar "CMDECHO" 0)
(setq
NumLinea 0
x_distancia 0.025
y_distancia 0.005
altura_texto 0.002
estilo_texto "Arial.ttf"
align_texto "mc"
)

(setq DondeExportar (vl-registry-read "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Donde exportar"))
(if (null DondeExportar)(setq DondeExportar "Tabla"))

(setq TextoVertice (vl-registry-read "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Texto del vertice"))
(if (null TextoVertice)(setq TextoVertice "1"))

(setq InsertarTexto (vl-registry-read "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Insertar texto vertice"))
(if (null InsertarTexto)(setq InsertarTexto "1"))

(setq InsertarCirculo (vl-registry-read "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Insertar circulo vertice"))
(if (null InsertarCirculo)(setq InsertarCirculo "1"))

(setq EscalaTextoOperar (vl-registry-read "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Escala de la tabla"))
(if (null EscalaTextoOperar)(setq EscalaTextoOperar 100))

(setq ConciCota (vl-registry-read "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Conciderar la cota"))
(if (null ConciCota)(setq ConciCota "1"))

(setq NDecimalesOperar (vl-registry-read "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Numero de decimales"))
(if (null NDecimalesOperar)(setq NDecimalesOperar 3))

)

(defun valores ()

; Se define los valores por defecto.
(SET_TILE "txtEscala" (ITOA EscalaTextoOperar))
(MODE_TILE "txtEscala" 2)

(if (= DondeExportar "Tabla")
(progn
(Setq ValorRBTabla "1")
(Setq ValorRBArchivo "0")
(MODE_TILE "cmdArchivo" 1)
(MODE_TILE "txtEscala" 0)
)
(progn
(Setq ValorRBTabla "0")
(Setq ValorRBArchivo "1")
(MODE_TILE "txtEscala" 1)
)
)

(if (= TextoVertice "1")
(progn
(Setq ValorRBAutomatico "1")
(Setq ValorRBSeleccionar "0")
)
(progn
(Setq ValorRBAutomatico "0")
(Setq ValorRBSeleccionar "1")
(MODE_TILE "chkInsertarT" 1)
(MODE_TILE "chkInsertarC" 1)
)
)

(SET_TILE "rbTabla" ValorRBTabla)
(SET_TILE "rbArchivo" ValorRBArchivo)

(SET_TILE "rbAutomatico" ValorRBAutomatico)
(SET_TILE "rbSeleccionar" ValorRBSeleccionar)

(SET_TILE "chkInsertarT" InsertarTexto)
(SET_TILE "chkInsertarC" InsertarCirculo)

(SET_TILE "chkTomarZ" ConciCota)

(SET_TILE "txtDecimales" (Itoa NDecimalesOperar))
(SET_TILE "error" "")

)


(defun acciones()

(ACTION_TILE "txtEscala" "(SET_TILE \"error\" \"\")")

(ACTION_TILE "rbTabla" "(setq DondeExportar \"Tabla\") (MODE_TILE \"cmdArchivo\" 1) (MODE_TILE \"txtEscala\" 0)")
(ACTION_TILE "rbArchivo" "(setq DondeExportar \"Archivo\") (MODE_TILE \"cmdArchivo\" 0) (MODE_TILE \"txtEscala\" 1) ")

(ACTION_TILE "cmdArchivo" "(SeleccionarArchivo)")

(ACTION_TILE "rbAutomatico" "(setq TextoVertice \"1\") (MODE_TILE \"chkInsertarT\" 0)(MODE_TILE \"chkInsertarC\" 0)")
(ACTION_TILE "rbSeleccionar" "(setq TextoVertice \"0\") (MODE_TILE \"chkInsertarT\" 1)(MODE_TILE \"chkInsertarC\" 1)")


(ACTION_TILE "chkInsertarT" "(setq InsertarTexto $Value)")
(ACTION_TILE "chkInsertarC" "(setq InsertarCirculo $Value)")

(ACTION_TILE "chkTomarZ" "(setq ConciCota $Value)")


;(setq vbarra "0")
;(ACTION_TILE "barra" "(setq vbarra $value) (SET_TILE \"error\" (strcat \"Valor de la barra: \" vbarra \"% completado.\"))")

(ACTION_TILE "accept" "(aceptar)")
(ACTION_TILE "cancel" "(DONE_DIALOG)")
(ACTION_TILE "Acerca" "(acercade)")

)

(defun SeleccionarArchivo()
(setq RutaArchSel (acet-ui-getfile "Nuevo archivo de vertices" (acet-filename-ext-remove (getvar "DWGNAME")) "csv;*" "Acet:RText" 1))
(if (not (= RutaArchSel ""))
;(SET_TILE "error" (strcat "Ruta: " RutaArchSel))
(setq RutaArchSel nil)
)
)


(defun aceptar()
(cond
((<= (ATOI (GET_TILE "txtEscala")) 0) (MODE_TILE "txtEscala" 2)(acet-ui-message "Debe de ingresar una escala valida." VersionCorex (+ (+ 0 48) 0)))
((< (ATOI(GET_TILE "txtDecimales")) 0) (MODE_TILE "txtDecimales" 2)(acet-ui-message "Ingrese un numero de decimales valido." VersionCorex (+ (+ 0 48) 0)))
((AND (= DondeExportar "Archivo" )(null RutaArchSel))(acet-ui-message "Debe de eligir la ruta del archivo a exportar." VersionCorex (+ (+ 0 48) 0)))
(T
(setq EscalaTextoOperar (ATOI (GET_TILE "txtEscala")))
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Escala de la tabla" "" EscalaTextoOperar)

(setq NDecimalesOperar (ATOI(GET_TILE "txtDecimales")))
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Numero de decimales" "" NDecimalesOperar)

(if (= ConciCota "1")
(setq ConciderarCota "Si")
(setq ConciderarCota "No")
)
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Conciderar la cota" "" ConciderarCota)
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Texto del vertice" "" TextoVertice)
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Insertar texto vertice" "" InsertarTexto)
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Insertar circulo vertice" "" InsertarCirculo)
(VL-REGISTRY-WRITE "HKEY_CURRENT_USER\\Software\\Construcgeek.com\\Corex.Lsp\\Donde exportar" "" DondeExportar)

(DONE_DIALOG 1)
)
)
)


(defun acercade()
(acet-ui-message (strcat "Programa Corex V08, Comando: Corex"
"\nExporta o crea una tabla con las coordenadas de puntos indicados."
) VersionCorex (+ (+ 0 64) 0))
)

(defun EjecutarComando()
(cond ;Cond1
((= DondeExportar "Archivo")
(ExportarAArchivo)
)
((= DondeExportar "Tabla")
(ExportarATabla)
(if (not (null SeIndicoVerticeExportar))
(progn
(LeerDeArchivo)
(CrearCuadricula)
)
)
)
);Cond1
(if (not (null SeIndicoVerticeExportar))
(Princ "\nSe exportaron los vertices satisfactoriamente.")
)

)

(defun ExportarAArchivo()

(if (not (null RutaArchSel))
(progn
(setq archAbierto (OPEN RutaArchSel "a"))

(if (= TextoVertice "0")
(SeleccionarVertices)
(progn
(while
(setq puntoCoordenada (getpoint "\nSeleccione el vertice a exportar: "))
(if (not (null puntoCoordenada))
(progn
(setq SeIndicoVerticeExportar "Si")
(ExportarVertices)
)
)

)
)
)

(close archAbierto)
)
(acet-ui-message "Debe de indicar un archivo." VersionCorex (+ (+ 0 48) 0))
)
)


(defun ExportarATabla()

(setq RutaArch "C:\\CorexM.txt")

(if (setq ExisArch (FINDFILE RutaArch))
(vl-file-delete RutaArch)
)

(setq archAbierto (OPEN RutaArch "a"))

(if (= TextoVertice "0")
(SeleccionarVertices)
(progn
(while
(setq puntoCoordenada (getpoint "\nSeleccionar el vertice a exportar: "))
(if (not (null puntoCoordenada))
(progn
(setq SeIndicoVerticeExportar "Si")
(ExportarVertices)
)
)
)
)
)

(close archAbierto)
)


(defun SeleccionarVertices()
(while
(setq ent (car (entsel "\nSeleccione el texto del vertice: ")))
(setq LetraVertice (vlax-ename->vla-object ent))
(vla-Highlight LetraVertice 1)
(setq vtextoVertice (vla-get-TextString LetraVertice))
(princ (strcat "<<" vtextoVertice ">>"))

(setq puntoCoordenada (getpoint "\nSeleccione el vertice a exportar: "))
(if (not (null puntoCoordenada))
(progn
(setq SeIndicoVerticeExportar "Si")
(ExportarVertices)
)
)
)

)


(defun ExportarVertices()

(setq xpuntoCoordenada (car puntoCoordenada)) (setq xpuntoCoordenada (rtos xpuntoCoordenada 2 NDecimalesOperar))
(setq ypuntoCoordenada (cadr puntoCoordenada))(setq ypuntoCoordenada (rtos ypuntoCoordenada 2 NDecimalesOperar))
(setq zpuntoCoordenada (caddr puntoCoordenada))(setq zpuntoCoordenada (rtos zpuntoCoordenada 2 NDecimalesOperar))

(setq NumLinea (1+ NumLinea))

(if (= TextoVertice "1")
(progn
(setq vtextoVertice (itoa NumLinea))
(princ (strcat "<<" vtextoVertice ">>"))
)
)


(if (= NumLinea 1)
(progn
(if (= ConciderarCota "Si")
(setq Lineatexto (strcat "Punto" "," "Norte" "," "Este" "," "Elevacion"))
(setq Lineatexto (strcat "Punto" "," "Norte" "," "Este"))
)
(write-line lineaTexto archAbierto)
)
)
(if (= ConciderarCota "Si")
(setq Lineatexto (strcat vtextoVertice "," ypuntoCoordenada "," xpuntoCoordenada "," zpuntoCoordenada))
(setq Lineatexto (strcat vtextoVertice "," ypuntoCoordenada "," xpuntoCoordenada))
)

(write-line lineaTexto archAbierto)

(if (= TextoVertice "0")
(vla-Highlight LetraVertice 0)
(progn
(if (= InsertarTexto "1")
(AgregarTexto)
)
(if (= InsertarCirculo "1")
(AgregarCirculo)
)
)
)

)


(defun AgregarTexto()
(setq TxtObjVert (vla-AddText mspace vtextoVertice (vlax-3d-point puntoCoordenada) (* altura_texto EscalaTextoOperar)))
(vlax-put-property TxtObjVert 'alignment acAlignmentMiddle)
(vlax-put-property TxtObjVert 'textalignmentpoint (vlax-3D-point puntoCoordenada))
)


(defun AgregarCirculo()
;(setq pt1 (vlax-3d-point (setq pt (getpoint "Center point: "))))
;(setq rad (getdist "Radius: " pt))
(vla-addcircle mspace (vlax-3d-point puntoCoordenada) (* 0.0005 EscalaTextoOperar))

;(setq TxtObjVert (vla-AddText mspace vtextoVertice (vlax-3d-point puntoCoordenada) (* altura_texto EscalaTextoOperar)))
;(vlax-put-property TxtObjVert 'alignment acAlignmentMiddle)
;(vlax-put-property TxtObjVert 'textalignmentpoint (vlax-3D-point puntoCoordenada))
)


(defun LeerDeArchivo()
(command "_style" "Arial" estilo_texto (* altura_texto EscalaTextoOperar) "1.0" "" "" "")
(setq start_pt (getpoint "\nSelecciona la esquina superior izquierda de la tabla: "))
(setq y (cadr start_pt))
(setq archAbierto (open RutaArch "r"))

;; Leer datos
(while
(setq txt (read-line archAbierto))
(setq txt_lst (parse txt))
(setq x (car start_pt))
(setq x_distancia 0.0175)
(print_lst txt_lst)
(setq y (- y (* y_distancia EscalaTextoOperar)))
)
(close archAbierto)
(vl-file-delete RutaArch)
)


(defun parse (txt / n count word lst in_quart)
(setq n (strlen txt) count 1 word "" in_quart nil lst nil)

(while (<= count n)
(setq char (substr txt count 1))

(if (= char "\"")
(if in_quart
(setq in_quart nil)
(setq in_quart T)
)
)

(if (and (= char ",")(= in_quart nil))
(progn
(setq lst (append lst (list word)))
(setq word "")
)
(progn
(if (/= char "\"")
(setq word (strcat word char))
)
(if (= count n)
(setq lst (append lst (list word)))
)
)
)
(setq count (1+ count))
)
(setq lst lst)
)



(defun print_lst (lst / txt txt_pt)
(foreach txt lst
(setq txt_pt (list x y))
;(command ".text" "s" "Arial" "j" align_texto txt_pt "0" txt )

(setq TxtObj (vla-AddText mspace txt (vlax-3d-point txt_pt) (* altura_texto EscalaTextoOperar)))
(vlax-put-property TxtObj 'alignment acAlignmentMiddle)
(vlax-put-property TxtObj 'textalignmentpoint (vlax-3D-point txt_pt))

(setq x (+ x (* x_distancia EscalaTextoOperar)))
(setq x_distancia 0.020)
)
)


(defun tberror (S)
(if (/= S "Function cancelled")
(princ (strcat "\nError: " S))
)
(setvar "TEXTSTYLE" EstiloActual)
;(setvar "CLAYER" TEMPLA)
(setvar "CMDECHO" TEMPCMD)

(if (not (null archAbierto))
(progn
(close archAbierto)
(vl-file-delete RutaArch)
)
)

(setq *error* OLDERR)
(princ)
)


(defun CrearCuadricula ()

(setq XInicial (car start_pt))
(setq YInicial (cadr start_pt))

(setq YFinal (+ y (* y_distancia EscalaTextoOperar)))

(setq DistanciaY (- YInicial YFinal))
(setq NumLineas (+ (/ DistanciaY (* y_distancia EscalaTextoOperar)) 1))

(setq NumLineas (Rtos NumLineas 2 4))
(setq NumLineas (atoi NumLineas))

(setq P1 (list (- XInicial (* 0.007 EscalaTextoOperar))(+ YInicial (* 0.0025 EscalaTextoOperar))))

(if (= ConciderarCota "Si")
(setq P2 (list (+ XInicial (* 0.065196 EscalaTextoOperar))(+ YInicial (* 0.0025 EscalaTextoOperar))))
(setq P2 (list (+ XInicial (* 0.048 EscalaTextoOperar))(+ YInicial (* 0.0025 EscalaTextoOperar))))
)

(if (= ConciderarCota "Si")
(setq Pc (list (+ XInicial (* 0.029098 EscalaTextoOperar))(+ YInicial (* y_distancia EscalaTextoOperar))))
(setq Pc (list (+ XInicial (* 0.0205 EscalaTextoOperar))(+ YInicial (* y_distancia EscalaTextoOperar))))
)

(setq TxtObj (vla-AddText mspace "TABLA DE COORDENADAS" (vlax-3d-point Pc) (* 0.0023 EscalaTextoOperar)))
(vlax-put-property TxtObj 'alignment acAlignmentMiddle)
(vlax-put-property TxtObj 'textalignmentpoint (vlax-3D-point Pc))

(setq LineaH (vla-addline mspace (vlax-3d-point P1)(vlax-3d-point P2)))

(setq P1Inicial P1)(setq P2Inicial P2)

(repeat NumLineas
(setq xP1(car p1))(setq yP1(cadr p1))
(setq xP2(car p2))(setq yP2(cadr p2))

(setq P1 (list xP1 (- yP1 (* y_distancia EscalaTextoOperar))))
(setq P2 (list xP2 (- yP2 (* y_distancia EscalaTextoOperar))))

(setq LineaH (vla-addline mspace (vlax-3d-point P1)(vlax-3d-point P2)))
)

(setq P1Final P1)(setq P2Final P2)

(setq LineaVI (vla-addline mspace (vlax-3d-point P1Inicial)(vlax-3d-point P1Final)))
(setq LineaVF (vla-addline mspace (vlax-3d-point P2Inicial)(vlax-3d-point P2Final)))

;Lineas Intermedias
(setq xP1(car P1Inicial))(setq yP1(cadr P1Inicial))
(setq xP2(car P1Final))(setq yP2(cadr P1Final))

(setq P1 (list (+ xP1 (* 0.014 EscalaTextoOperar)) yP1))
(setq P2 (list (+ xP2 (* 0.014 EscalaTextoOperar)) yP2))

(setq LineaHI (vla-addline mspace (vlax-3d-point P1)(vlax-3d-point P2)))

(repeat 2
(setq xP1(car p1))(setq yP1(cadr p1))
(setq xP2(car p2))(setq yP2(cadr p2))

(setq P1 (list (+ xP1 (* 0.0205 EscalaTextoOperar)) yP1))
(setq P2 (list (+ xP2 (* 0.0205 EscalaTextoOperar)) yP2))

(setq LineaHI (vla-addline mspace (vlax-3d-point P1)(vlax-3d-point P2)))
)


)

(defun crear_CuadroDialogo ()

(setq fname (vl-filename-mktemp "CorexV2.dcl"))

(setq fn (open fname "w"))

(write-line "dlg_Corex : dialog {
label = \"Corex V2\";
: boxed_column {
label=\"Destino de las coordenadas \";

: row {
: radio_button {
key = \"rbTabla\" ;
label = \"&Tabla\" ;
value = \"1\" ;
}

: radio_button {
key = \"rbArchivo\" ;
label = \"&Archivo\" ;
value = \"0\" ;
}

: button {fixed_width=true; width=5; key=\"cmdArchivo\"; is_default=false; label= \"...\";}
}
: row {
: edit_box { key = \"txtEscala\"; fixed_height = true; allow_accept = true; fixed_width = true; alignment = center; label = \"&Escala\"; }

}

spacer;
} // boxed column

: boxed_column {
label=\"Texto del vertice \";

: row {
: radio_button {
key = \"rbAutomatico\" ;
label = \"A&utomatico\" ;
value = \"1\" ;
}

: radio_button {
key = \"rbSeleccionar\" ;
label = \"&Seleccionar texto\" ;
value = \"0\" ;
}

}

: toggle {
label = \"Insertar un texto automaticamente\";
key = \"chkInsertarT\";
mnemonic = \"I\";
fixed_width = true;
}

: toggle {
label = \"Insertar un circulo en el vertice\";
key = \"chkInsertarC\";
mnemonic = \"c\";
fixed_width = true;
}

spacer;
} // boxed column



: boxed_column {
label=\"Coordenadas \";

: toggle {
label = \"Tomar valor del eje z (elevacion)\";
key = \"chkTomarZ\";
mnemonic = \"T\";
fixed_width = true;
}

: edit_box { key = \"txtDecimales\"; fixed_height = true; fixed_width = true; alignment = center; label = \"Nro de &Decimales\"; }

spacer;
} // boxed column

spacer;

: row {

: button {
fixed_width=true;
width=11;
key=\"accept\";
is_default=true;
label= \"&Aceptar\";
}
: button {
fixed_width=true;
width=11;
is_cancel=true;
key=\"cancel\";
label= \"&Cancelar\";
}

: button {
fixed_width=true;
width=11;
is_cancel=false;
key=\"Acerca\";
label= \"Acerca &de...\";
}



} // row
: text_part
{
key=\"error\";
label=\"\";
}
}" fn)

(close fn)

);defun


(PRINC "\nPrograma Corex V08, Comando: Corex")
(PRINC "\nExporta o crea una tabla con las coordenadas de puntos indicados.")
(setvar "modemacro" "Construcgeek.com/")
(princ)

Guest escribió: Podrian crear un comando para listar las coordenadas x,y,z de uno o varios puntos o vertices de una poligonal.

Hola,

Ya hemos creado el comando para exportar coordenadas desde AutoCAD. El comando se llama TOP-EXPORTAR y hemos incluido las siguientes posibilidades:

Puede generar una tabla de coordenadas en AutoCAD y al mismo tiempo exportar esa tabla a un archivo de texto.

1. Crea tablas estandar de AutoCAD que despues pueden ser modificadas a gusto del usuario.
2. Permite extraer las coordenadas de los puntos respecto a un punto distinto del origen de coordenadas.
3. Permite exportar los vertices de una curva o polilinea.
4. Permite exportar las coordenadas de unos puntos marcados con inserciones de bloque.
5. Permite exportar las coordenadas de unos puntos marcados con entidades de punto.
6. Permite exportar automatica o manualmente en el caso de inserciones y entidades de punto.
7. Localiza automaticamente el identificador de cada punto por un texto escrito al lado.
8. Permite modificar la tabla a crear, pudiendo:

Indicar el titulo de la misma. Indicar los textos de cabecera de cada columna. Cambiar el orden de cada columna de datos en la tabla. Extraer datos como el angulo y la distancia de cada punto.

Tambien permite colcocar los identificadores rotulados en una capa indicada por el usuario.

Dispone de varias formas para representar el identificador en el dibujo.

Esperamos que le sea de utilidad. A continuacion puede ver un video del funcionamiento del comando:

[swf height=500] www.arkiplan.es/ARKIVideos/ARKITool/Top-...tar_controller.swf## [/swf]

Saludos:

Gracias a el usuario, que solicito este comando. Idepro, ha realizado una gran utilidad, para generar tablas de agrimensira.

Me sorprenden !!!, con la gran variedad de la aplicacion y estoy facinado con sus programas y utilidades.

Respondi a el usuario que solicito un programa para exportar coordenadas con un LISP, que podria resolver, pero nada mejor que el programa ARKITools

Donde todos nos beneficiamos de sus aportaciones...

FELICIDADES!!!

Gracias por su acostumbrada atencion

Saludos:

Gran comando, es perfecto y funciona de maravilla, pero si en unas polilineas cerradas,. Por ejemplo en el caso, solares o pafcelas de terreno, ademas de los datos de mensura y las coordenadas, la tabla generada, al final de la misma calculara el area en metros cuadrados y cuerdas y los escribiera. Seria SUPER!!!

1 cuerda = 3930.395625 metros cuadrados (en Puerto Rico, utilizamos este sistema de medida en las lotificaciones)

Gracias por su acostumbrada atencion y gran aporte...

ARKITool escribió: Hola,

Ya hemos creado el comando para exportar coordenadas desde AutoCAD. El comando se llama TOP-EXPORTAR y hemos incluido las siguientes posibilidades:

Puede generar una tabla de coordenadas en AutoCAD y al mismo tiempo exportar esa tabla a un archivo de texto.

1. Crea tablas estandar de AutoCAD que despues pueden ser modificadas a gusto del usuario.

2. Permite extraer las coordenadas de los puntos respecto a un punto distinto del origen de coordenadas.

3. Permite exportar los vertices de una curva o polilinea.

4. Permite exportar las coordenadas de unos puntos marcados con inserciones de bloque.

5. Permite exportar las coordenadas de unos puntos marcados con entidades de punto.

6. Permite exportar automatica o manualmente en el caso de inserciones y entidades de punto.

7. Localiza automaticamente el identificador de cada punto por un texto escrito al lado.

8. Permite modificar la tabla a crear, pudiendo:

Indicar el titulo de la misma.

Indicar los textos de cabecera de cada columna.

Cambiar el orden de cada columna de datos en la tabla.

Extraer datos como el angulo y la distancia de cada punto.

9. Tambien permite colcocar los identificadores rotulados en una capa indicada por el usuario.

10. Dispone de varias formas para representar el identificador en el dibujo.

Hola, un par de comentarios para este nuevo comando TOP-EXPORTAR. Al sacar la tabla con los vertices de una polilinea repite y rotula el primer vertice donde empieza la misma. Puede parecer una tonteria pero ¿que necesidad de marcar un vertice dos veces, se superponen? Es decir, 4 vertices, marca 5 puntos. Seria de agradecer que a la hora de numerar el vertice se pudiera dar una opcion de colocarlo a un distancia X,Y del vertice y, a su vez, dar la posibilidad de "marcar" el vertice en pantalla con una cruz p.e. (a la postre vuestro comando POL-VERVERTICES) no solo el numero del mismo con el recuadro elegido. Lo de poder poner el numero a una distancia determinada del vertice es exclusivamente estetica, pues si tienes muchos vertices y marcas estos con una simple cruz las dos cosas se solapan y es necesario moverlos a mano. En cuatro da igual, pero si lo haces con 100 el trabajo ahorrado deja de serlo...
La segunda cuestion es que he observado que al ejecutar el comando y senalizar la polilinea esta se queda seleccionada (punteada) y para quitar la seleccion lo unico que se puede hacer es seleccionando la polilinea y darle a escape, pues te permite ejecutar otros comandos aun siguiendo estando esta punteada...

Muchas gracias por el aporte...