---

Hallo CAD-Gemeinde,

ich suche ein Makro bzw. ein Lisp mit dem ich beispielsweise Schrankfronten aufteilen kann...was bedeutet:

Ähnlich dem Teilen-Befehl eine Polylinie auswählen - Anzahl der Teilung angeben - Fugenabstand angeben - fertig...

könnte mir da jemand Hilfestellung geben...ich bekomm´s nicht hin!!

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

---

Hi,

wo hängts denn? Bzw. Wie sieht denn dein bisheriger Versuch aus?

------------------
Gruß Yvonne                                   ADT-Help-Site

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

---

Hallo Snoop_69,

die Umsetzung ist in LISP wie folgt möglich:
1) Abfrage der PLine/Line (was auch immer)
2) Anzahl der Elemente abfragen
3) Breite der Fuge abfragen
4) Länge der PL ermitteln
5) Abstand der Teilung errechnen (L/T)
6) auf der PL je Abstand
  2 Punkte zeichnen. (1) Abstand-Fuge/2 (2) Abstand+Fuge/2
7) Fertig und freuen.

Hattest du schon einen Ansatz oder scheitert es an konkreten Punkten - an welchen?

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Hallo Holger,

genau an dieser Umsetzung scheitert es, da ich leider nicht in der Lage bin das so umzusetzen. Wenn du mir da etwas helfen könntest?

mfg

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

---

Mal anders gefragt: Hast du Lispkenntnisse? Oder wolltest du eigentlich fragen, ob dir jemand so ein Tool schreibt. Dann mach es doch auch einfach.

------------------
Gruß Yvonne                                   ADT-Help-Site

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

---

ok, Schnellkurs in Sachen Lisp:

bezugnehmend auf die Nr'n aus obigen Beitrag
die Umsetzung ist in LISP wie folgt möglich:
1) (car(entsel ..))
2) (getint ..)
3) (getreal ..)
4) (vlax-get-property  .. 'LENGTH)
5) (/ ..)
6) (while ..
      (vlax-curveGetPointAtDist ..)
      (command "_.POINT" ..)
7) (princ "ferdich")

So - jetzt klarer?
Du solltest aber noch ein paar Eingabeprüfungen durchführen und Sysvariablen wie ofang checken usw ... also das Drumherum muss noch hinzugefügt werden.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Hallo Yvonne,

ich war der Meinung das es vielleicht schon so ein Tool gibt bzw. jemand einfach schreibt...nimm das...das gibts schon lange...

Ich wollte auch keine Dienstleistung erbetteln, deshalb habe ich um Hilfestellung gebeten...

Es wäre natürlich toll wenn mir jemand das Tool schreiben könnte...

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

---

Hi

Ich versteh nicht ganz warum unbedingt ein Lisp? Zwei Konstruktionslinien mit Abstand=Fugenbreite. Danach Reihe mit beiden Konstruktionslinien und Spaltenabstand=Schrankelementbreite+Fuge. So viel Kopfrechnen wirst du sicher noch hinbekommen oder? 

Oder hab ich die Frage nicht verstanden?

------------------
MfG
RK

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

---

Zitat:

---

Original erstellt von rkauskh:

...So viel Kopfrechnen wirst du sicher noch hinbekommen oder?  

Oder hab ich die Frage nicht verstanden? 

---

Antwort: ich weiß nicht ob man die Frage nicht verstehen konnte??
...warum zeichne ich wohl an einem CAD-System und nicht am Reißbrett?? Was ist das für eine Frage?? Warum fahre ich Auto..könnte ja auch reiten??? Ich hau mich weg...  

...für alle die keine Lust mehr haben...soll dieser Beitrag jetzt abgeschlossen sein!!!

...für alle die lieber Gas geben wollen...und nicht ihr Pferd mit Heu füttern...sollte das LISP folgendes tun:

- Lisp ausführen
- Linie wählen (1009 mm lang)
- Abfrage wieviele Fugen und Teile (Bsp: 3 Fugen - 2 Teile oder 1 Fuge und 2 Teile)
- Eingabe der Fugenbreite oder der Teilebreite
- Ergebnis 1 : 3 Fugen a 3mm - 2 Teile a 500mm
- Ergebnis 2 : 1 Fuge mit 3mm - 2 Teile a 503mm
- Ergebnis wird mit Punkten auf der Linie dargestellt (wie Teilen-Befehl)

Vielen Dank im voraus...

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

---

Hi

ich bin ja auch ein verfechter von ich-brauch-nicht-unbedingt-lisps-wenns-auch-anders-geht.

Gehe ich recht in der Annahme, dass deine Türen am anfang mit einer halben Fugen anfangen, und auf der anderen Seite mit einer halben fuge aufhören?

Dann mach ich immer folgendes:
Linie unter die Schranklänge zeichnen l=Schranklänge+1xFugenbreite, um eine halbe Fugenbreite verschieben, dann eine Linie am Hilfslinienanfang senkrecht zeichnen, um die Schrankkante spiegeln, damit hast du eine Fuge, dann Hilfslinie durch X teilen lassen und auf die erzeugten Punkte die Fuge mittig setzen.

(Bis man das Lisp auf der Platte gesucht hat, ist das auch schon fast jedes mal neu gezeichnet.)

Meine Meinung. Aber vielleicht proggt dir das ja auch einer.

------------------
Gruß Yvonne                                   ADT-Help-Site

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

---

Zitat:

---

Original erstellt von charlieBV:
(Bis man das Lisp auf der Platte gesucht hat, ist das auch schon fast jedes mal neu gezeichnet.)

---

...  deswegen legt man sowas ja auch in 'ne Toolbar oder Toolpalette... 
.

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!

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

---

Danke!!

Was ist jetzt eigentlich für eine Diskussion hier entbrannt?? Ich versteh das nicht so ganz?! Ich wollte doch eigentlich nur, das mir irgendein netter, freundlicher Programmier-PROFI das Tool zur verfügung stellt??

Ich wollte keine Anleitung wie ich eine Strecke teilen kann!! Ich bin Schreinermeister...und Holztechniker...und auch sonst nicht auf den Kopf gefallen...warum will mir jeder erklären wie ich mein Problem auf die altherkömmliche Art und Weise lösen kann...ich will Gas geben Leute!!!!

...zu dem Thema: "Lisp auf Platte suchen"...wie arbeitest du in ACAD das du deine Befehle erst suchen musst??

DAS THEMA IST HIERMIT BEENDET...ICH TEILE MEINE FUGEN IN ZUKUNFT WIEDER WIE GEHABT UND ENTSCHULDIGUNG DAS ICH NACH HILFE GESUCHT HABE!!!!

mfg
snoop

[Diese Nachricht wurde von SNOOP_69 am 21. Jul. 2007 editiert.]

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

---

Hallo snoop,

ich teile meine Schrankfronten immer mit folgendem Lisp ein.

(defun c:schrankfronten (/ P1 P2 A1 A2 AL AR AU AO AM breite hoehe osmode)
  (setq P1 (getpoint "\nUntere linke Ecke angeben:"))
  (setq P2 (getcorner P1 "\nObere rechte Ecke angeben:"))
  (setq A1 (fix (getdist "\nZeilenanzahl angeben:")))
  (setq A2 (fix (getdist "\nSpaltenanzahl angeben:")))
  (setq AL (getdist "\nAbstand links angeben <0>:"))
  (setq AR (getdist "\nAbstand rechts angeben <0>:"))
  (setq AU (getdist "\nAbstand unten angeben <0>:"))
  (setq AO (getdist "\nAbstand oben angeben <0>:"))
  (if (> (+ A1 A2) 2)
    (setq AM (getdist "\nAbstand mitte angeben <0>:"))
  )
  (setq breite (/
  (-
    (- (car P2) (car P1))
    (if (= AL nil) 0 AL)
    (if (= AR nil) 0 AR)
    (* (- A2 1) (if (= AM nil) 0 AM))
  )
  A2
  )
  )
  (setq hoehe (/
  (-
    (- (cadr P2) (cadr P1))
    (if (= AU nil) 0 AU)
    (if (= AO nil) 0 AO)
    (* (- A1 1) (if (= AM nil) 0 AM))
  )
  A1
  )
  )
  (setq osmode (getvar "osmode"))
  (setvar "osmode" 0)
  (command "_rectang"
  (list (+ (car P1) (if (= AL nil) 0 AL)) (+ (cadr P1) (if (= AU nil) 0 AU)))
  (list (+ (car P1) (if (= AL nil) 0 AL) breite) (+ (cadr P1) (if (= AU nil) 0 AU) hoehe))
  )
  (if (> (+ A1 A2) 2)
    (command "_array"
    "l"
    ""
    "R"
    A1
    A2
    (if (> A1 1)
      (+ hoehe (if (= AM nil) 0 AM))
      (+ breite (if (= AM nil) 0 AM))
    )
    (if (and (> A1 1) (> A2 1))
      (+ breite (if (= AM nil) 0 AM))
    )
    )
  )
  (setvar "osmode" osmode)
)

Das ganze geht vielleicht auch eleganter. Es ist aber einer meiner ertsen Lispprogramme gewesen und es funktioniert ganz gut.

mfg Alfonso

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

---

Ich weiß nicht, warum du dich so aufregst. Die althergebrachte Weise (die sich ja u.U. auch noch optimieren lässt) hätte dich in der Zeit ich weiß nicht wieviele Schranktüren einteilen lassen.

Wie ich im CAD arbeite geht dich gelinde gesagt nichts an. DU hast ein Problem, nicht ich!

Ich denke, wenn du von Anfang an klar und deutlich gesagt hättest, dass dir jemand was schreiben soll, dann wärest du hier auch besser klar gekommen.

------------------
Gruß Yvonne                                   ADT-Help-Site

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

---

ateil.lsp.txt

Hi

Als letzten Beitrag hierzu meine Version, die sich stark an den Vorschlag von Brischke anlehnt.
Ich bin auch kein Profi, aber mit ein bißchen Eigeninitiative erreicht man meist das Ziel. Wenn du ein maßgeschneidertes Tool haben willst das alle eventuellen Fehler abfängt, weniger umständlichen Code enthält usw., empfehle ich dir z.B. die Jungs von "LISPoverNight". Man möge mir die Werbung verzeihen. Die schreiben dir DEIN Tool, nur eben nicht für umsonst.

------------------
MfG
RK

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

---

Vielen Dank für deine Hilfe!!! Das Tool arbeitet exakt so wie ich es mir erträumt hab!!! 10 Unities

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

---

Vielen Dank...auch deine Hilfe weiß ich zu schätzen!!! 8 Unities...nochmal Danke an alle die mein Problem verstanden haben!!!

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