---

Hallo allerseits,

ich habe ein Problem bei der Erstellung eines AutoLisp-Programms. Und zwar soll unter anderem eine Linie mit vorgegebenem Startpunkt, festem Winkel aber variabler Länge gezeichnet werden. Der Winkel bereitet mir Kopfschmerzen... Wie kann ich diesen bei einer Linie vordefinieren? In einem command funktioniert leider die temporäre Überschreibung (<45) nicht. Aber genau die wäre ansich perfekt für meine Zwecke! Weiß jemand woran's liegt? So hab ich es zB probiert:

Code:

---

(command "_.line" pt1 "<45")

---

Vielen Dank schonmal!

------------------
;--------------------------------
(princ "Hello World!\n")
;--------------------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi und herzlich willkommen auf cad.de!

Hilft dir dieser Beitrag schon weiter?
http://ww3.cad.de/foren/ubb/Forum145/HTML/001055.shtml 

------------------
Grüsse

Thomas

Korrekturen zum Kochbuch AutoLISP

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
also ich gehe davon aus, dass Du in pt1 bereits einen Punkt gespeichert hast.
Dann könntest Du es so machen:

Code:

---

(command "_.line" pt1 (polar pt1 (/ pi 4) (getdist pt1 "Abstand:")) "")

---

Wenn Du lieber einen Text an den Command-befehl übergibst, dann muss der vollständig sein, also so etwa:

Code:

---

(command "_.line" pt1 (strcat "@" (rtos (getreal "Abstand:") 2 8) "<45") "")

---

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey danke für die schnelle Antwort!
Also der Beitrag hilft mir nicht direkt weiter, aber du hast mich auf eine andere Idee gebracht. Ich werd morgen mal versuchen ob es Sinn macht die Linie mit Rotate im passenden Winkel zu drehen und anschließend zu kürzen.
Am liebsten wär mir halt die Methode mit der Winkelüberschreibung... Warum geht das denn in der Kommandozeile, aber nicht im command-Aufruf? Oder mach ich da etwas falsch??

edit:
@ wronzky:

Zitat:

---

Wenn Du lieber einen Text an den Command-befehl übergibst, dann muss der vollständig sein...

---

Ich glaub da liegt der Hund begraben! Werd da mal bissl rumprobieren. Letztendlich soll halt der Winkel von einer Variable kommen. Den Startpunkt frag ich anfangs ab und hol ihn aus der pt1.

------------------
;--------------------------------
(princ "Hello World!\n")
;--------------------------------

[Diese Nachricht wurde von stoked am 27. Nov. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Eine andere Idee:

Eine Linie im gewünschen Winkel malen mit Länge 1.0
Dann die Line Skalieren. Der Skalierfktor entspricht dann der Länge.

z.B.

Code:

---

(defun c:test (/ pt ang)
  (setvar "cmdecho" 0)
  (setq pt (getpoint "\nStartpunkt: "))
  (setq ang (getangle pt "\nWinkel: "))
  (command "_LINE" "_non" pt (polar pt ang 1.0) "")
  (princ "\nLänge: ")
  (command "_SCALE" "_LAST" "" "_non" pt pause)
)

---

Grüße

Andi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sodala.. Hab heute mal wieder bissl rumprobiert und es klappt ansich den Winkel vorzugeben. Lieber wär's mir halt, wenn der User wie bei der Winkelüberschreibung (oder Ortho) schon in der Gummiband-Voransicht der Linie nur die eine Richtung angezeigt bekommt und klicken kann. Naja mal schauen, werd nächste Woche weiter experimentieren. (Bin nur 2x die Woche am Lisplen - Werkstudent in einem Konstruktionsbüro.)

Danke auch für den neuen Tipp mit der 1mm-Linie. Vielleicht hilft's weiter! Werd dann mal berichten.

Was anderes fällt mir grad noch ein: Kann ich eigentlich von einer Linie direkt Start- und Endpunkt abfragen?

------------------
;--------------------------------
(princ "Hello World!\n")
;--------------------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo stoked,

Startpunkt:
(cdr(assoc 10(entget(car(entsel "\nLinie picken:")))))
Endpunkt:
(cdr(assoc 11(entget(car(entsel "\nLinie picken:")))))

------------------
viele Grüße

Jörn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP