rEsta línea de comandos permite obtener la pendiente de una linea en AUTOCAD, de forma rápida y sencilla, sin la necesidad de utilizar la calculadora, todo lo hace este LISP.
Abrir notepad (block de notas) y escribir lo siguiente:
(DEFUN C:PEN()
(SETQ PR (GETPOINT "Primer punto:"))
(SETQ SE (GETPOINT "Segundo punto:"))
(SETQ X1(CAR PR) Y1(CAR (CDR PR)))
(SETQ X2(CAR SE) Y2(CAR (CDR SE)))
(SETQ PEND (/ (- Y2 Y1) (abs (- X2 X1)) ) )
(SETQ PENDP (* PEND 100))
(PROMPT (STRCAT "\n PENDIENTE:" (RTOS PEND) " / " (RTOS PENDP) "%"))
;eDITADO pOR pAT01gen1er0
)
Luego deben salvar el archivo con el nombre pendiente.lsp
Para ejecutarlo lo deben cargar en AUTOCAD, escribiendo pen.
El programa les pedirá hacer clink en dos puntos, con lo que les entregará el valor de la pendiente.
Abrir notepad (block de notas) y escribir lo siguiente:
(DEFUN C:PEN()
(SETQ PR (GETPOINT "Primer punto:"))
(SETQ SE (GETPOINT "Segundo punto:"))
(SETQ X1(CAR PR) Y1(CAR (CDR PR)))
(SETQ X2(CAR SE) Y2(CAR (CDR SE)))
(SETQ PEND (/ (- Y2 Y1) (abs (- X2 X1)) ) )
(SETQ PENDP (* PEND 100))
(PROMPT (STRCAT "\n PENDIENTE:" (RTOS PEND) " / " (RTOS PENDP) "%"))
;eDITADO pOR pAT01gen1er0
)
Luego deben salvar el archivo con el nombre pendiente.lsp
Para ejecutarlo lo deben cargar en AUTOCAD, escribiendo pen.
El programa les pedirá hacer clink en dos puntos, con lo que les entregará el valor de la pendiente.
es virus
ResponderBorrarComo rayos va a ser un virus, si no estas descargando nada?
ResponderBorrarFuncion perfecto, gracias viejo.
Gracias.
ResponderBorrarAhora estoy volviendo a dibujar así que trataré de mejorarlo.
Ojo, ahora esoty subiendo más planillas en My Spreadsheets
no me funciona por favor ayudaaaa
ResponderBorrargracias...no me aparece la medida
esto esta en porcentaje de por ciento, para poder hacerlo en por mil (tal como se estila en alcantarillado), se le cambia en:
ResponderBorrar(SETQ PENDP (* PEND 100))
(SETQ PENDP (* PEND 1000))
y listo =)..
ahh y por siaca caso no es virus es programacion en visual del autocad
hola, tengo un problema con la rutina en la barra de comandos me dice :
ResponderBorrarCommand: _appload pendiente.lsp successfully loaded.
Command: ; error: malformed list on input
y el lsp no me funciona.
Tienes que poner el codigo tal cual, incluyendo pato ingeniero y cerrar el parentesis, solo copia y pega tal cual
Borrarhola donde debo salvar el archivo, luego d eso como lo cargo en AUTOCAD? Donde debo meterme para que me reconozca el comando pen debo abrirlo desde algun lugar en especifico
ResponderBorrarNecesito lo mismo pero el resultado en grados y minutos....para una poliminea...gracias
ResponderBorrarGracias si funciona
ResponderBorrarFUNCIONA
ResponderBorrarBuenos días, podrías modificar la rutina, haciendo el cálculo de la pendiente en porcentaje pero seleccionando la elevación entre dos puntos, o los vértices de una 3dpoly. Gracias
ResponderBorrarmuy bueno. para ejecutar el programa deben escribir el comando "AP" (appload) y abrir el archivo que guardaron como pendiente.lsp
ResponderBorrarDanny ;)
Funciona muy bien, pero para que nos coloque la pendiente escrita en el centro de la linea. Fuera buena la ampliacion de la aplicacion. Mil gracias
ResponderBorrarOk, lo reviso y te cuento.
ResponderBorrarGracias bro>>>excelente aportación
ResponderBorrar