Escala Logaritmica
4 participantes
Página 1 de 1.
Escala Logaritmica
Que tal señores, buen día para todos.
Resulta ser que voy a necesitar hacer varias gráficas en escala semi-logarítmica. El punto es, si alguien ha hecho gráficas de este tipo en autocad. Ya se que en Excel se puede, pero.... como que no me da la libertad que necesito y además, como voy a "leer" valores de la gráfica, es mas preciso (según yo) hacerlo en autocad. Anexo un jpg con una gráfica de Excel, se requiere obtener el valor de Y cuando X=25. Como podrán observar, por éste método es un tanto mas incómodo.
Saludos
https://dl.dropboxusercontent.com/u/58052688/grafica.jpg
Resulta ser que voy a necesitar hacer varias gráficas en escala semi-logarítmica. El punto es, si alguien ha hecho gráficas de este tipo en autocad. Ya se que en Excel se puede, pero.... como que no me da la libertad que necesito y además, como voy a "leer" valores de la gráfica, es mas preciso (según yo) hacerlo en autocad. Anexo un jpg con una gráfica de Excel, se requiere obtener el valor de Y cuando X=25. Como podrán observar, por éste método es un tanto mas incómodo.
Saludos
https://dl.dropboxusercontent.com/u/58052688/grafica.jpg
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Escala Logaritmica
Hola Elias.
Como siempre, por siempre, y para siempre:
Sube los datos , y el dwg.
Predicar en el desierto es duro, pero basta que UNO solo se adapte.
Como siempre, por siempre, y para siempre:
Sube los datos , y el dwg.
Predicar en el desierto es duro, pero basta que UNO solo se adapte.
Re: Escala Logaritmica
Maestro.... no hay dwg, lo quiero crear..... Tal vez si (y digo tal vez) me hizo falta decir los datos, pero como se trata de hacer "papel semilogaritmico", para sobre él graficar. Lo que quiero es que sobre una escala semilogaritmica poder graficar de acuerdo a la imagen que subí. Si quieres los datos, estos son, aunque no creo que te hagan falta....
(7,149) (14,145)(24,142)(35,138)(45,140). (x,y) (x= logarítmica)(y=decimal)
Éstos son los datos con que se cuenta, entonces hacer esa gráfica y leer cuando x=25, que valor de y corresponde.
Espero haber sido claro.
Saludos y Gracias
(7,149) (14,145)(24,142)(35,138)(45,140). (x,y) (x= logarítmica)(y=decimal)
Éstos son los datos con que se cuenta, entonces hacer esa gráfica y leer cuando x=25, que valor de y corresponde.
Espero haber sido claro.
Saludos y Gracias
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Escala Logaritmica
Espero te sirva la rutina que el Master Devitg dejó en este post de hispacad (creo que no se acuerda de él).
Esta impreso en pdf en mi dropbox y aquí te adjunto las referencias que dan los compañeros
wikipedia
análisis gráficos
cadtutos
El archivo es : HispaCAD.com • Ver Tema - HACER GRAFICAS A ESCALA O ESCALA LOGARITMICA.pdf
<en el Dropbox Nolo>
Un saludo
PD. Lo siento Gabriel, no me di cuenta que detrás del comentario estaba el enlace ...
Esta impreso en pdf en mi dropbox y aquí te adjunto las referencias que dan los compañeros
wikipedia
análisis gráficos
cadtutos
El archivo es : HispaCAD.com • Ver Tema - HACER GRAFICAS A ESCALA O ESCALA LOGARITMICA.pdf
<en el Dropbox Nolo>
Un saludo
PD. Lo siento Gabriel, no me di cuenta que detrás del comentario estaba el enlace ...
Última edición por nolo el Mar Abr 05, 2016 4:31 pm, editado 1 vez
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: Escala Logaritmica
Hola a tod@s
eliasp: Por lo que veo, tu gráfica es semilogarítmica: Eje X logaritmica, Eje Y "común"
1ra elección
Quiero que en el eje X, el segmento 1-10 ocupe 12cm en el papel impreso (o lo que tú quieras, pero hay que elegir alguna distancia antes que nada)
Listo, a partir de allí, como el logaritmo decimal de 1 es 0, allí esta el origen de la gráfica. Dibujo una vertical que representa el eje Y, de unos 7cm en el papel impreso (2da elección arbitraria, tú pon lo que quieras para representar el tramo entre 136 y 150)
La primera subdivisión corresponde al 2. Como el logaritmo de 2 es 0,303, en Autocad hago un offset del eje Y a la derecha, con un valor de 0,303 x 12 = 3,636 unidades de dibujo
La segunda subdivisión es 3. Como el logaritmo de 3 es 0,477, en Autocad hago un offset del eje Y a la derecha, con un valor de 0,477 x 12 = 5,724 unidades de dibujo
La tercera subdivisión es 4. Como el logaritmo de 4 es 0,602, en Autocad hago un offset del eje Y a la derecha, con un valor de 0,602 x 12 = 7,225 unidades de dibujo
Y así sucesivamente. Los logaritmos los consigues colocando en Google log 5 y picas en la lupa
Finalmente, el logaritmo decimal de 10 es 1, así que para la décima vertical, el offset es de 1 x 12 = 12 unidades de dibujo.
Y a partir de allí, la división siguiente (20) está a la misma distancia de 10, que 2 está desde 1. Así que para el tramo que sigue (y que tú muestras incompleto, hasta 50 en el eje X) te limitas a copiar y pegar las 4 verticales que corresponden a 2, 3, 4 y 5 con punto origen en 1 y punto destino en 10, obteniendo las divisiones 20, 30, 40 y 50.
Listo, lo que queda es Autocad puro, imprimir en papel un rectángulo de 20,38 x 7
Verás que las divisiones son irregulares (hay mucha distancia entre el 1 y el 2 y muy poquita entre el 9 y el 10) peeeeeeeero la gran ventaja de la representación logaritmica es que permite graficar en X valores entre 1 y 50 de manera legible en sólo 20 cm de ancho.
Saludos
eliasp: Por lo que veo, tu gráfica es semilogarítmica: Eje X logaritmica, Eje Y "común"
1ra elección
Quiero que en el eje X, el segmento 1-10 ocupe 12cm en el papel impreso (o lo que tú quieras, pero hay que elegir alguna distancia antes que nada)
Listo, a partir de allí, como el logaritmo decimal de 1 es 0, allí esta el origen de la gráfica. Dibujo una vertical que representa el eje Y, de unos 7cm en el papel impreso (2da elección arbitraria, tú pon lo que quieras para representar el tramo entre 136 y 150)
La primera subdivisión corresponde al 2. Como el logaritmo de 2 es 0,303, en Autocad hago un offset del eje Y a la derecha, con un valor de 0,303 x 12 = 3,636 unidades de dibujo
La segunda subdivisión es 3. Como el logaritmo de 3 es 0,477, en Autocad hago un offset del eje Y a la derecha, con un valor de 0,477 x 12 = 5,724 unidades de dibujo
La tercera subdivisión es 4. Como el logaritmo de 4 es 0,602, en Autocad hago un offset del eje Y a la derecha, con un valor de 0,602 x 12 = 7,225 unidades de dibujo
Y así sucesivamente. Los logaritmos los consigues colocando en Google log 5 y picas en la lupa
Finalmente, el logaritmo decimal de 10 es 1, así que para la décima vertical, el offset es de 1 x 12 = 12 unidades de dibujo.
Y a partir de allí, la división siguiente (20) está a la misma distancia de 10, que 2 está desde 1. Así que para el tramo que sigue (y que tú muestras incompleto, hasta 50 en el eje X) te limitas a copiar y pegar las 4 verticales que corresponden a 2, 3, 4 y 5 con punto origen en 1 y punto destino en 10, obteniendo las divisiones 20, 30, 40 y 50.
Listo, lo que queda es Autocad puro, imprimir en papel un rectángulo de 20,38 x 7
Verás que las divisiones son irregulares (hay mucha distancia entre el 1 y el 2 y muy poquita entre el 9 y el 10) peeeeeeeero la gran ventaja de la representación logaritmica es que permite graficar en X valores entre 1 y 50 de manera legible en sólo 20 cm de ancho.
Saludos
Última edición por jademar el Mar Abr 05, 2016 4:52 pm, editado 1 vez
jademar- Mensajes : 25
Fecha de inscripción : 03/04/2016
Re: Escala Logaritmica
Hola de nuevo
Como log 25 = 1,398 la coordenada 25 estará a 1,398 x 12 = 16,77 medidos desde el origen 1.
Saludos
Como log 25 = 1,398 la coordenada 25 estará a 1,398 x 12 = 16,77 medidos desde el origen 1.
Saludos
jademar- Mensajes : 25
Fecha de inscripción : 03/04/2016
Re: Escala Logaritmica
A ver mis estimados:
Maestro: Adjunto el CSV con los datos de la primera gráfica. Obviamente van a ser "pinchemil".... por eso me interesa mucho el proceso de crear la hoja semilogarítmica. En la rutina que adjuntaste como primer paso... "parece ser lo bueno" pero en esta función hace falta "algo"
Jademar: Tu explicación también está muy clara, te agradezco.
En resumen.... mientras el maestro completa la rutina, voy a hacer la hoja "a mano"....
Saludos a todos y gracias....
https://dl.dropboxusercontent.com/u/58052688/grafica1.csv
Maestro: Adjunto el CSV con los datos de la primera gráfica. Obviamente van a ser "pinchemil".... por eso me interesa mucho el proceso de crear la hoja semilogarítmica. En la rutina que adjuntaste como primer paso... "parece ser lo bueno" pero en esta función hace falta "algo"
- Código:
(defun dibuja-lineas-horizontales ( cm )
(setq cm 16)
(setq cant (* cm 5.0))
(setq num-h-lst nil)
(repeat cant
(setq pt
)
)
)
Jademar: Tu explicación también está muy clara, te agradezco.
En resumen.... mientras el maestro completa la rutina, voy a hacer la hoja "a mano"....
Saludos a todos y gracias....
https://dl.dropboxusercontent.com/u/58052688/grafica1.csv
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Escala Logaritmica
Hola a tod@s
eliasp: En 7 horas te estoy pasando una rutina que funciona para gráficos semilogarítmicos, que hoy al mediodía no pude enviarte con dropbox.
Saludos
eliasp: En 7 horas te estoy pasando una rutina que funciona para gráficos semilogarítmicos, que hoy al mediodía no pude enviarte con dropbox.
Saludos
jademar- Mensajes : 25
Fecha de inscripción : 03/04/2016
Re: Escala Logaritmica
Perfecto Jademar, la esperaré....
Saludos y gracias
Saludos y gracias
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Escala Logaritmica
Hola a tod@s
eliasp: Va código prometido, tomado del cadtutor forum
eliasp: Va código prometido, tomado del cadtutor forum
- Código:
; TIP779.LSP Semilog Graph (c)1992, Watson Kilbourne
;;; ***** SEMI-LOG.LSP ***** Watson Kilbourne 2-10-92
;;;
;;; Creates semi-log graph chart within user defined area.
;;;
(defun c:SLOG (/ OM CE BM CL X1 Y2 D1 A1 X2 Y1
D2 HS NH D3 D4 VS NV D5 E1 E2 E3
P1 P2 AH LH E4 P3 P4 AV LV P5)
(setq OM (getvar "OSMODE")) (setvar "OSMODE" 0)
(setq CE (getvar "CMDECHO")) (setvar "CMDECHO" 0)
(setq BM (getvar "BLIPMODE")) (setvar "BLIPMODE" 0)
(setq CL (getvar "CLAYER")
X1 (getpoint "\nEnter first corner: ")
Y2 (getcorner X1 "\nEnter opposite corner: ")
D1 (distance X1 Y2)
A1 (angle X1 Y2)
X2 (polar X1 0.0 (* D1 (cos A1)))
Y1 (polar Y2 pi (* D1 (cos A1)))
D2 (distance X1 Y1)
)
(setq HS (getint
"\nEnter number of horizontal log sections <3>: "))
(if (= HS nil) (setq HS 3))
(setq NH (+ HS 1)
D3 (/ D2 HS)
D4 (distance X1 X2)
)
(setq VS (getint "\nEnter number of vertical spaces <4>: "))
(if (= VS nil) (setq VS 4))
(setq NV (+ VS 1)
D5 (/ D4 VS)
)
(command "LAYER" "N" "GRID" "C" "BLUE" "GRID" "S" "GRID" "")
(if (and (> A1 0.0) (< A1 pi))
(command "LINE" X1 X2 "")
(or (if (= nil) (command "LINE" Y1 Y2 "")))
)
(setq E1 (entlast))
(command "ARRAY" E1 "" "R" NH "1" D3)
(if (and (> A1 (* 0.5 pi)) (< A1 (* 1.5 pi)))
(command "LINE" X2 Y2 "")
(or (if (= nil) (command "LINE" X1 Y1 "")))
)
(setq E2 (entlast))
(command "ARRAY" E2 "" "R" "1" NV D5)
(setq E3 (entget E1)
P1 (cdr (assoc 10 E3))
P2 (cdr (assoc 11 E3))
AH (angle P1 P2)
LH (distance P1 P2)
E4 (entget E2)
P3 (cdr (assoc 10 E4))
P4 (cdr (assoc 11 E4))
AV (angle P3 P4)
LV (distance P3 P4)
)
(if (> AV pi) (setq P3 P4))
(setq P5 (polar P3 0.0 LH))
(command "LAYER" "N" "LOG" "C" "RED" "LOG" "S" "LOG" "")
(repeat HS
(foreach NU
'(0.3010299957 0.4771212547 0.6020599913 0.6989700043
0.7781512504 0.84509804 0.903089987 0.9542425094)
(command "LINE" (polar P3 (/ pi 2) (* NU (/ LV HS)))
(polar P5 (/ pi 2) (* NU (/ LV HS))) "")
)
(setq P3 (polar P3 (/ pi 2) (/ LV HS)))
(setq P5 (polar P5 (/ pi 2) (/ LV HS)))
)
(command "LAYER" "S" CL "")
(setvar "OSMODE" OM)
(setvar "CMDECHO" CE)
(setvar "BLIPMODE" BM)
(princ)
);end
jademar- Mensajes : 25
Fecha de inscripción : 03/04/2016
Re: Escala Logaritmica
Gracias Jademar, con esto por ahora salgo de mi problema.
Aunque me está "haciendo ojitos" la posibilidad de graficar junto con la generación de la hoja en fin, tiempo al tiempo.
Saludos y gracias
Aunque me está "haciendo ojitos" la posibilidad de graficar junto con la generación de la hoja en fin, tiempo al tiempo.
Saludos y gracias
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Cambio de base de un Logaritmo
Para sacar los logaritmos en base 10 del 2 al 9
Resulta
Y trabaja con toda la precisión de ACAD.
- Código:
;; para sacar los LOG base 10 del 2 al 9
(defun log10 (n)
(/ (log n ) (log 10))
)
(defun log-2-al-9-base-10 ()
(setq log-2a9-list ())
(setq n 2)
(repeat 8
(setq log-2a9-list( cons (log10 n) log-2a9-list))
(setq n (1+ n))
)
(reverse log-2a9-list)
)
(setq log-list (log-2-al-9-base-10))
Resulta
- Código:
(0.30103 0.477121 0.60206 0.69897 0.778151 0.845098 0.90309 0.954243)
Y trabaja con toda la precisión de ACAD.
ya tienes el camino
Elias , aquí va una parte se la solución
- Código:
(defun log10 (n)
(/ (log n ) (log 10))
)
Re: Escala Logaritmica
Bien señores. Luego de varios días sin internet en la oficina (y aún no hay). Esta rutina es a lo que llegué. Por lo pronto hace la hoja tamaño carta, en vertical y/u horizontal.
Saludos y gracias
- Código:
(vl-load-com)
(defun INICIO ()
(setvar "modemacro" "Ing. José Elías Pelayo")
(setvar "osmode" 0)
(setvar "cecolor" "bylayer")
(setvar "clayer" "0")
(setq oldDZin (getvar "dimzin"))
(setvar "dimzin" (logand oldDZin (~ 8)))
(setq acadobj(vlax-get-acad-object))
(setq acaddoc(vla-get-activedocument acadobj))
(setq acadesp(vla-get-modelspace acaddoc))
(setq appa (VLA-GET-APPLICATION acaddoc))
(setq styles-collection ( vla-get-textstyles acaddoc))
(vl-cmdf "_-style" "nombredeestilo" "verdana" "0" "1" "0" "_no" "_no");-- esto tambien se hace con VL
(setvar 'textstyle "nombredeestilo")
(setq nombre(getvar "dwgname"))
(setq ruta(getvar "dwgprefix"))
(setq echo(getvar "cmdecho"))
(setq ucsi(getvar "ucsicon"))
(setvar "ucsicon" 0)
(SETVAR "cmdecho" 0)
;------------
)
;----------------------------------------------------------
(defun horizontal()
(setq fin(list 26 20)
pasox(/ 25.0 renglones)
pasoy(/ 19.0 ciclos )
pasox2 pasox
pasoy2 pasoy
)
(repeat ciclos
(setvar "cecolor" "7")
(setq l1(vla-addline acadesp (vlax-3d-point xini)(vlax-3d-point(polar xini 0 25))))
(foreach valor '(2 3 4 5 6 7 8 9)
(setq linea(vlax-invoke-method l1 'copy))
(setq dista(/(log valor)divisor))
(setq x3(polar origen (* pi 0.5)(* dista pasoy)))
(vlax-invoke-method linea "move"(vlax-3d-point origen)(vlax-3d-point x3))
(vla-put-color linea 8)
)
(setq xini(polar xini (* pi 0.5) pasoy))
);repeat ciclos
(setvar "cecolor" "7")
(setq l2(vla-addline acadesp(vlax-3d-point origen)(vlax-3d-point(polar origen (* pi 0.5)19))))
(repeat renglones
(setq linea(vlax-invoke-method l2 'copy)
x4(polar origen 0 pasox2)
)
(vlax-invoke-method linea "move"(vlax-3d-point origen)(vlax-3d-point x4))
(setq pasox2(+ pasox2 pasox))
);repeat renglones
(vl-cmdf "_rectang" (list 0 0)(list 27.09 20.75))
(vl-cmdf "_rectang" origen fin)
(Vla-ZoomExtents appa)
)
;----------------------------------------------------------
(defun vertical()
(setq fin(list 20 26))
(setq pasox(/ 19.0 ciclos)
pasoy(/ 25.0 renglones)
pasox2 pasox
pasoy2 pasoy
)
(repeat ciclos
(setvar "cecolor" "7")
(setq l1(vla-addline acadesp (vlax-3d-point xini)(vlax-3d-point(polar xini (* pi 0.5)25))))
(foreach valor '(2 3 4 5 6 7 8 9)
(setq linea(vlax-invoke-method l1 'copy))
(setq dista(/(log valor)divisor))
(setq x3(polar origen 0 (* dista pasox)))
(vlax-invoke-method linea "move"(vlax-3d-point origen)(vlax-3d-point x3))
(vla-put-color linea 8)
)
(setq xini(polar xini 0 pasox))
);repeat ciclos
(setvar "cecolor" "7")
(setq l2(vla-addline acadesp (vlax-3d-point origen)(vlax-3d-point(polar origen 0 19))))
(vla-put-lineweight l2 0.09)
(repeat renglones
(setq linea(vlax-invoke-method l2 'copy)
x4(polar origen (* pi 0.5) pasoy2)
)
(vlax-invoke-method linea "move"(vlax-3d-point origen)(vlax-3d-point x4))
(setq pasoy2(+ pasoy2 pasoy))
);repeat renglones
(vl-cmdf "_rectang" origen fin)
(vl-cmdf "_rectang" (list 0 0)(list 20.75 27.09))
)
;----------------------------------------------------------
(defun c:hojasemi()
(inicio)
(setq origen(list 1 1)
divisor(log 10)
xini origen
)
(initget 6)
(setq ciclos(getint "\n Número de Ciclos...<4>:"))
(if(= ciclos nil)(setq ciclos 4))
(setq renglones(getint "\n Número de Líneas Horizontales...<25>:"))
(if(= renglones nil)(setq renglones 25))
(initget 129 "Vertical Horizontal")
(/=(setq texto (getkword "\n Orientación de la Hoja [Vertical Horizontal] <Vertical>: "))NIL)
(If (and
(/= texto "Vertical")
(/= texto "Horizontal")
)
(setq texto "Vertical")
)
(initget 129 "Vertical Horizontal")
(if(= texto "Horizontal")
(horizontal)
(vertical)
)
(Vla-ZoomExtents appa)
(SETVAR "cmdecho" echo)
(setvar "ucsicon" ucsi)
)
(princ "Comando Cargado...Ejecutar con HOJASEMI")
Saludos y gracias
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
Re: Escala Logaritmica
Hola a tod@s
eliasp: Probada en Acad 2007 inglés. Muy buena y muchas gracias por compartirla.
Saludos
eliasp: Probada en Acad 2007 inglés. Muy buena y muchas gracias por compartirla.
Saludos
jademar- Mensajes : 25
Fecha de inscripción : 03/04/2016
Re: Escala Logaritmica
Buen día a todo el foro.
Primero que nada, feliz porque ya regresó el internet.
https://dl.dropboxusercontent.com/u/58052688/Semilog%204-25.dwg
En el enlace que comparto, encontrarán el resultado final al que deseo llegar. La gráfica la hice "a mano" pero el objetivo de crear el papel logarítmico es, precisamente crear la gráfica. Ahora, el primer punto que debo resolver (que estaba resuelto en el anterior foro) es obtener los valores máximo y mínimo de las Y de las coordenadas dadas (CSV subido anteriormente). Tengo una función para obtener esos valores pero de una lista "plana".... y ahora tengo coordenadas. Bien, la idea de obtener los máximos y mínimos es poder ubicar la gráfica "mas o menos" al centro de la hoja. En el ejemplo, la menor Y de las coordenadas es 138, y yo parto del 135. El mayor valor de la Y es 149 y llego al 150. Las "X" se ubican sin problema.
Entonces, la pregunta - consulta concreta: Me ayudan a encontrar el máximo y mínimo de las Y's. Me gustaría llegar al final a algo así: Preguntar por el CSV con las coordenadas (que ya lo hago), preguntar por los valores de la hoja y.... zaz!!! la gráfica.
Saludos y gracias.
De código, llevo esto:
Primero que nada, feliz porque ya regresó el internet.
https://dl.dropboxusercontent.com/u/58052688/Semilog%204-25.dwg
En el enlace que comparto, encontrarán el resultado final al que deseo llegar. La gráfica la hice "a mano" pero el objetivo de crear el papel logarítmico es, precisamente crear la gráfica. Ahora, el primer punto que debo resolver (que estaba resuelto en el anterior foro) es obtener los valores máximo y mínimo de las Y de las coordenadas dadas (CSV subido anteriormente). Tengo una función para obtener esos valores pero de una lista "plana".... y ahora tengo coordenadas. Bien, la idea de obtener los máximos y mínimos es poder ubicar la gráfica "mas o menos" al centro de la hoja. En el ejemplo, la menor Y de las coordenadas es 138, y yo parto del 135. El mayor valor de la Y es 149 y llego al 150. Las "X" se ubican sin problema.
Entonces, la pregunta - consulta concreta: Me ayudan a encontrar el máximo y mínimo de las Y's. Me gustaría llegar al final a algo así: Preguntar por el CSV con las coordenadas (que ya lo hago), preguntar por los valores de la hoja y.... zaz!!! la gráfica.
Saludos y gracias.
De código, llevo esto:
- Código:
(DEFUN str-div (str c / i l) ;_01
(SETQ i 1)
(SETQ l (STRLEN str))
(WHILE (AND (<= i l) (/= (SUBSTR str i 1) c))(SETQ i (1+ i)))
(LIST (SUBSTR str 1 (1- i)) (SUBSTR str (1+ i))))
;;---------------
(DEFUN str-tok (str c / tmp) ;_01
(IF (/= str "")(PROGN(SETQ tmp (str-div str c))(APPEND (LIST (CAR tmp)) (str-tok (CADR tmp) c)))))
;;---------------
(DEFUN lee-csv()
(SETQ linea-list nil)
(SETQ nombre-archivo (GETFILED "Archivo donde estan los datos " "C:\"" "csv" 0))
(SETQ ar (OPEN nombre-archivo "r"))
(WHILE
(SETQ linea (READ-LINE ar))
(SETQ datos (str-tok linea ","))
(SETQ linea-list (CONS datos linea-list)))
(CLOSE ar)
(setq linea-list(REVERSE linea-list))
)
(defun c:graflogarit()
(alert "Selecciona el Archivo CSV a graficar....")
(setq ind 0)
(lee-csv)
(setq cuantos(length linea-list))
(repeat cuantos
(setq x0(distof(car (nth ind linea-list))))
(setq desf(* pasox(/(log x0)(log 10))))
(setq punto(polar origen 0 desf))
(setq circulo(vla-addcircle acadesp (vlax-3d-point punto) 0.1))
(vla-put-color circulo 3)
(setq ind(1+ ind))
)
)
eliasp- Mensajes : 195
Fecha de inscripción : 17/03/2016
¿algo asi?
Algo así , si Ymaximo = entero en 10 100 1000 sale ese entero , false ymaximo + 1
Si Y min = entero en 10 100 1000 sale ese entero , false Y-minimo -1
DWG Y CSV
Si Y min = entero en 10 100 1000 sale ese entero , false Y-minimo -1
DWG Y CSV
- Archivos
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|