multilijn

[Lyrix]

Beste mensen,

Ik ben opzoek naar iets simpels.
Ik wil in een lisp een lijn kunnen tekenen, in iedere richting.
De lisp moet dan 2 lijnen offsetten en van de middelste lijn een hartlijn maken.

Hebben jullie daar een lispje voor?

Ik heb het geprobeerd met dline maar dat commando pakt mijn lisp niet.

Greetz Alex

[WebRacer]

kan je het commando multiline niet gebruiken? of is het om IN een lisp te gebruiken?
in ieder geval, de lijnen real-time laten uittekenen is enkel moeilijk in lisp omdat er bij knikken en bochten met vanalles rekening gehouden moet worden.
je kan eventueel beginnen aan een lisp, wij helpen je graag verder.

[Lyrix]

Ik kan het commando dline of dl niet gebruiken in lisp.
Er verschijnt de melding dat autocad het commando niet herkend.

Wat ik bedoelde met een lijn in iedere richting, is enkel 1 lijn in alle richtingen op de x en y as.

Ik ga wel even puzzelen.
Als ik een stukje code heb zal ik het posten.

[WebRacer]

multiline-style  aanmaken -> MLSTYLE
multilines tekenen -> MLINE

bv. in lisp:
(command "mline" (getpoint) (getpoint) "")

[Lyrix]

Ik heb een oplossing bedacht:

(defun C:pijp ()
(setq PT1 0)
(setq PT2 0)
(setq OUTSIDE 20)
(setq PT1 (getpoint "\nGeef invoegpunt buis "))
(while (setq PT2 (getpoint PT1 "\nGeef eindpunt buis "))
(setq LINE_ANGLE  (angle PT1 PT2))
(setq LINE_LENGTH (distance PT1 PT2))
(setq HALF (/ OUTSIDE 2))
(setq SANG1 (+ LINE_ANGLE (/ PI 2)))
(setq SANG2 (- LINE_ANGLE (/ PI 2)))
(setq PT1UO (polar PT1 SANG1 HALF))
(setq PT1LO (polar PT1 SANG2 HALF))
(setq PT2UO (polar PT2 SANG1 HALF))
(setq PT2LO (polar PT2 SANG2 HALF))
(command "LINE" PT1 PT2 "")
(command "LINE" PT1UO PT2UO "")
(command "LINE" PT1LO PT2LO "")
(setq PT1 PT2)
))

Dit wertk precies zoals ik wil. 

Tnx voor de moeite.