AutoCad - POLYLINEAS 3D

 
Vista:

POLYLINEAS 3D

Publicado por ALejo Sands (1 intervención) el 13/12/2018 18:48:52
Buenas tardes, espero me puedan ayudar, tengo medidas de x y z de varios puntos de un pozo de sondaje, quiero dibujarlo en autocad con la herramienta 3dpoly, la pregunta es como debo ingresar los datos para que se dibuje la polylinia? desde ya muchas gracias .
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

POLYLINEAS 3D

Publicado por Reinaldo Togores (2 intervenciones) el 26/02/2019 23:32:34
Del capítulo 10 del libro "Experto AutoCAD con Visual LISP" (https://www.amazon.es/dp/1728774748)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun cmd-poly  (lista-puntos 2d cerrado /)
  (if (> (getvar "cmdactive") 0)
    (vl-cmdf))
  (vl-cmdf (if 2d
             "._pline"
             "._3dpoly"))
  (foreach pt lista-puntos (vl-cmdf pt))
  (vl-cmdf (if cerrado
             "_cl"
             ""))
  (if (> (getvar "cmdactive") 0)
    (progn (vl-cmdf) nil)
    t))
;;;Listado 10.7. Función para dibujar una polilínea 2D o 3D.

Argumentos:
lista-puntos: lista de coordenadas 2D 0 3D
2d: t para polilíneas 2D, nil para polilíneas 3D
cerrado: t para polilíneas cerradas, nil para polilíneas abiertas

Esta es la solución mas sencilla, utilizando la función entmake resulta más eficiente, pero es más complejo para un simple post.
Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar