LISP FORUM
PAOLO.ZANONCELLI@GMAIL.COM > 10-25-2024, 05:04 PM
ANNI FA AVEVO FATTO ALCUNI SEMPLICI LISP CHE NANO CAD NON CONCEPISCE A CAUSA DEI COMANDI DIVERSI.
ESEMPIO BRECCIA SU UN MURO: (ERA COMODO)
(DEFUN C:BRECCIA27 (/ P1 P2 P3 L1 L2 A1 A90 A2 R4 R5 R6 R7 R8)
(SETVAR "BLIPMODE" 1)
(SETVAR "OSMODE" 0)
(COMMAND "_NEA")
(SETQ P1 (GETPOINT "\n\n\n\t\t***** PUNTO SUL MURO *****"))
(SETQ P2 (GETPOINT P1 "\n\n\n\t\t***** SECONDO PUNTO SULLO STESSO MURO *****"))
(COMMAND "_PER")
(SETQ P3 (GETPOINT P1 "\n\n\n\t\t***** PUNTO SUL MURO OPPOSTO *****"))
(SETQ L1 (DIST P1 P2)) QUI NON MI RENDE LA DISTANZA TRA I PUNTI
(SETQ L2 (DIST P1 P3)) IDEM
(SETQ A1 (ANGLE P1 P2)) QUI NON MI RENDE L'ANGOLO
(SETQ A90 (/ PI 2)) IDEM
(SETQ A2 (ANGLE P1 P3 )) IDEM
(SETQ R4 (_POLAR P2 A2 L2)) QUI NON MI INSERISCE IL NUOVO PUNTO
(SETQ R5 (_POLAR P1 A1 (/ L1 2))) ""
(SETQ R6 (_POLAR P1 A2 (/ L2 2))) ""
(SETQ R7 (_POLAR P2 A2 (/ L2 2))) ""
(SETQ R8 (_POLAR R5 A2 L2))
(SETVAR "OSMODE" 0)(SETVAR "BLIPMODE" 0)
(COMMAND "_break" P1 P2)(COMMAND)
(COMMAND "_break" P3 R4)(COMMAND)
;;;
(COMMAND "_LINE" P1 P3)(COMMAND)
(COMMAND "_LINE" P2 R4)(COMMAND)
(SETVAR "_OSMODE" "33")
)