LISP FORUM

[PAOLO.ZANONCELLI@GMAIL.COM]

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")
)

[PAOLO.ZANONCELLI@GMAIL.COM]

COME FARE AD OTTENERE IN LISP LA DISTANZA TRA DUE PUNTI
COME FARE IN LISP AD OTTENERE L'ANGOLO TRA DUE PUNTI