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.
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
maak van "Plinie" eens "pline" moet je een heel eind meekomen
greetz
stephan
Citaat van: Atwist op ma 01 02 2010, 13:28:40
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.
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
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
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
Beste Reimer,
Dat is hem :vreegoe:
Er wordt nu een mooie pijl gemaakt.