Hulp bij Lisp (Opgelost)

[Atwist]

Hallo forumleden,

Ik heb hier een lisp die ik graag wil gebruiken heb deze gevonden op het web, maar hij wil niet werken.
Deze lisp is orgineel in het Duits en heb het al vertaalt, en heb "B" gewijzigt in "-B" in dat ik al gevonden via de help.
Hier de simple code.

Code Selecteer Uitklappen

DEFUN C:Pijl()
(SETVAR "CMDECHO" 0)
(SETQ S (GETPOINT "\nStart: ")
      E (GETPOINT S "\nEinde: "))
(COMMAND "PLINIE"
         S
         "-B" 0 0
         (POLAR S (angle s e) (- (Distance S E) (GETVAR "TEXTSIZE")))
         "-B" (/ (* 2.0 (GETVAR "TEXTSIZE")) 3.0) 0 E "")
(terpri)
)


Wie ziet wat hier mis is.


Atwist

[sschevers]

maak van "Plinie" eens "pline" moet je een heel eind meekomen

greetz

stephan

Hallo forumleden,

Ik heb hier een lisp die ik graag wil gebruiken heb deze gevonden op het web, maar hij wil niet werken.
Deze lisp is orgineel in het Duits en heb het al vertaalt, en heb "B" gewijzigt in "-B" in dat ik al gevonden via de help.
Hier de simple code.

Code Selecteer Uitklappen

DEFUN C:Pijl()
(SETVAR "CMDECHO" 0)
(SETQ S (GETPOINT "\nStart: ")
      E (GETPOINT S "\nEinde: "))
(COMMAND "PLINIE"
         S
         "-B" 0 0
         (POLAR S (angle s e) (- (Distance S E) (GETVAR "TEXTSIZE")))
         "-B" (/ (* 2.0 (GETVAR "TEXTSIZE")) 3.0) 0 E "")
(terpri)
)


Wie ziet wat hier mis is.


Atwist

[Atwist]

Beste sschevers,

Dacht ik alles vertaalt te hebben "Nee" dus heb het aan gepast maar werkt nog niet.
Deze lisp moet een aanwijs pijl maken volgens de beschrijving.

Atwist

[Reimer]

Ik snapte de functie -B al niet, maar ik denk dat dit ook uit het Duits komt. Verander deze (2x in totaal) in "w" of "_w" en er wordt wel een pijl getekend.

Reimer

[Atwist]

Beste Reimer,

Dat is hem

Er wordt nu een mooie pijl gemaakt.