---

Rohrbild.txt

Hallo Zusammen,
Ich habe gerade mit Autolisp begonnen und habe mein erstes problem das ich nicht verstehe. Ich will ein Rohrbild programmieren. Die abstände der Rohr ergeben sich durch eine Teilung und der 60° Anordnung. Wie kann ich anstatt den befehl "Getpoint" direkt von der Variable die Teilung einfügen?

Beispiel anhand der beigefügen Datei.

Also Kreis 2 muss ich die anfangs Koordinaten eingeben da diese Varieren können. Kreis 3 ist auf gleicher Y-Ebene und bei X-Ebene der Abstand der Teilung.
Der Kreis4 liegt bei halber abstand der Teilung bei x-Ebene und bei 60° vom ersten Rohr! 3Rohre die ein 60° Dreieck bilden schlussendlich.

Also wie kann ich die Variable der Teilung in die Koordinaten der Kriese einfügen? geht das überhaupt?

Danke für eure Antworten!!!

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

---

Hi,
kannst Du mal 'n Bild posten wie das Ergebnis denn aussehen soll?

------------------
Ciao,
Marc

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

---

Rohrbild.jpg Rohrbildkomplett.jpg

Nach dem Programm sollte es das Bild mit nur 3 Rohren sein. Schlussendlich will ich aber das Komplette natürlich.

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

---

"Ein Bild sagt mehr als tausend Worte."
Danke. Jetzt wird es klarer.

------------------
Ciao,
Marc

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

---

errinnert mich irgendwie an das übungsbeispiel "Gartenweg" in der Visual-lisp Onlinehilfe. Vielleicht mal danach suchen.

------------------
WWW.FFZELL.AT.TC

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

---

Versuch's mal hiermit:

Code:

---

(defun c:rv( / r1 r2 tg p pi/3 _rb _dr)

  (defun _rb(r1 r2 tg p / loop drawn cen i _draw)

    (defun _draw( / )
      (if(<=(distance p cen)(- r1 r2))
        (progn
  (command "_circle" cen r2)
  (setq drawn(1+ drawn))
)
      )
    )

    (setq drawn 1)
    (setq cen p)
    (_draw)
    (setq loop 1)
    (while(not(zerop drawn))
      (setq drawn 0)
      (setq i 0)
      (repeat 6
(setq cen(polar p(* i pi/3)(* loop tg)))
(repeat loop
  (setq cen(polar cen(*(+ i 2)pi/3)tg))
  (_draw)
)
(setq i(1+ i))
      )
      (setq loop(1+ loop))
    )
  )

  (setq pi/3(/ pi 3.0))
  (setq r1(getreal"\nGrenzradius eingeben: "))
  (setq r2(getreal"\nKreisradius eingeben: "))
  (setq tg(getreal"\nTeilung eingeben: "))
  (setq p(getpoint"\nMittelpunkt der Anordnung: "))
  (command"_circle"p r1) ; Nur zum Testen
  (_rb r1 r2 tg p)

)

---

Warum zerschiesst die Forums-Software jetzt die Formatierung???

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

hmm Danke erstmal.
Wie lade ich jezt deine Datei?
hab sie in den editor kopiert und als Test abgespeichert.
und dann in der befehlszeile appload test eingegeben und dann.....???

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

---

Zitat:

---

Original erstellt von mapcar:

Warum zerschiesst die Forums-Software jetzt die Formatierung???

---

Welche Formatierung   
.. und das die Forumssoftware militant ist .. ?!
------------------
  - Thomas -
"Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 18. Okt. 2004 editiert.]

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

---

Hi Dolcetto,
na dann bist Du aber noch sehr am Anfang der Lisp-Programmierung??

"(defun c:rv"

Heißt in etwa "Define Function Command RV"
Nach dem laden einer solchen Routine gibt es ein neues Autocad Kommando, welches mit der Befehlseingabe "RV" gestartet werden kann.
Wenn da nur "(defun rv" gestanden hätte, könntest Du das Pgm nur mittels "(rv)" starten...
Wohl nicht auffer CAT.Pro gewesen und den Ausführungen der Herren CADwiesel und Brischke gelauscht was?

------------------
Ciao,
Marc

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

---

Ja bin leider noch voll anfänger! :-)

Ok hat geklappt Danke viel viel mals. Das sollten wir so gebrachen können! DANKE!!!!!!!!!!!!!!

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

---

> Das sollten wir so gebrachen können!

Nö. Es ist ein Vorschlag zur Orientierung. Zumindest ein Ansatz von Errorhandling/Systemvariablen usw. muss noch eingebaut werden, denn sonst funktioniert das Ding u.U. nicht.

Fertig-Tools gibt's bei Cadwiesel, bei mir nicht;-)

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

Naja eigentlich ist es genau das was ich wollte! nicht mehr und nicht weniger! Ob noch sachen hinzugefügt werden können kann ja sein aber das brauche ich momentan nicht. Es genügt schon wenn ich nicht mehr jedes rohr kopieren oder Spiegeln muss bis das ganze gefüllt ist.

Und sobald ich einen ansatz von dem Code wo du geschrieben hast verstehe, können wir über systemvariablen usw. reden. Bisdahin bin ich ziemlich zufrieden mit dem was ich von dir bekommen habe! Danke noch einmal.

Auch an kleinen dingen können Menschen sich Freuen!!! :-)

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

---

@mapcar lol, da graust es den Perfektionisten...

------------------
Ciao,
Marc

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

---

Allerdings würde es mich trotzdem noch interessieren wie ich nund bei meinem Code anstatt Getpoint zwei variablen einsetzen kann oder geht das garnicht???

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

---

Zitat:

---

Original erstellt von Dolcetto:
Allerdings würde es mich trotzdem noch interessieren wie ich nund bei meinem Code anstatt Getpoint zwei variablen einsetzen kann oder geht das garnicht???

---

Wie meinst Du denn das??
So?

Code:

---

(setq pt1 (getpoint "\nGib's mir: "))
(entmake (list (cons 0 "circle") (cons 8 "AM_0") (cons 10 pt1) (cons 40 100)))

---

...
Ach so, EIN Argument bei den get[irgendwas] Dingern ist immer der Anfragetext (s.o.)

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 18. Okt. 2004 editiert.]

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

---

Ja wenn ich nur einen Punkt habe geht das so.
Aber ein Punkt sieht doch so aus: 0,0,0 z.B.! oder?

ich habe jetzt das erste Rohr bei 0,0,0
Durch die Teilung (23mm) ergibt es mir die nächsten abstände für alle rohre:
2. Rohr 23,0,0
3. Rohr 11.5,20,0
.
.
.

Das heist ich muss doch 2 variable haben x und y richtungen.
Es geht ja auch so:
(setq kreis3 (list (cons 0 "circle") (cons 8 "0") (cons 10 '(23 0) (cons 40 50)))

(cons 10 '(23 0) dabei sind doch die koordinaten x=23 y=0???
warum kann ich nicht
(setq a 23 b 0)
(cons 10 (a b)
einsetzen???
Er kommt dann immer bid der Meldung 23.0 keine Funktion!

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

---

machs so ähnlich :
(setq a 23 b 0)
(cons 10 (list a b 0.0))

------------------
- Thomas -
"Bei 99% aller Problemen ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo Dolcetto,

Im Lisp sind die Listen das zentrale element. Diese sind von runden Klammern umschlossen, wobei das erste Listenargument die Funktion und die folgenden die Parameter der Funktion darstellen.
Du sprichst hier grundsätzliche Fragen zur Syntax an.

Wenn du also eine Liste übergeben möchtest, dann musst das dem Interpreter auch kund tun.
(cons 10 (list a b))

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

> Ob noch sachen hinzugefügt werden können kann ja sein aber das
> brauche ich momentan nicht

Da geht's nicht um Zusatz-Features... Klingt wie: "Danke für den Gebrauchtwagen, den Sie mir verkauft haben. Ja, Sie haben mich darauf hingewiesen, dass er keine Bremse hat - aber ob noch eine Bremse eingebaut werden muss, kann ich mir ja in Ruhe auf der Autobahn überlegen."

Gute Fahrt, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

@cadmium:
> Bei 99% aller Problemen ist die umfassende Beschreibung
> des Problems bereits mehr als die Hälfte der Lösung desselben.

Dieser Satz ist ein Problem. Ich hoffe, dass ich durch die 'umfassende Beschreibung' der orthografischen Fehler bereits mehr als die Hälfte der Lösung beigesteuert habe. Na ja, jedenfalls: AutoCAD wird mit einer ziemlich umfassenden Beschreibung des Problems (Online-Hilfen) ausgeliefert. Aber ist dadurch das Problem AutoCAD schon zur Hälfte gelöst?

Gruß, Axel Strube-Zettler 

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

.. voll offtopic ..
@mapcar : Tja Axel , du bist der erste, dem's auffällt, aber ich werd's für die Zukunft ändern. Danke  .. aber das der Satz auch so gut auf AutoCad anwendbar ist, ist mir bisher entgangen.

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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