---

Aloa  

Könnte mir bitte jemand den Code so umschreiben, dass die Funktion für Bögen und Linien statt nur für Linien läuft? Habe von lisp leider keine Ahnung...

Code:

---

(defun C:BOE()
(command "ofang" "keiner")

(setq OB_LIN (entsel "\nobere Linie picken   ")
      NAME_OB_LIN (car OB_LIN)
      PO_ANF (cdr (assoc 10 (entget NAME_OB_LIN)))
      PO_END (cdr (assoc 11 (entget NAME_OB_LIN)))
      WIN2 (angle PO_ANF PO_END)

      UN_LIN (entsel "\nuntere Linie picken   ")
      NAME_UN_LIN (car UN_LIN)
      PU_ANF (cdr (assoc 10 (entget NAME_UN_LIN)))
      PU_END (cdr (assoc 11 (entget NAME_UN_LIN)))

      PMITTE (polar PO_ANF WIN2 (/ (distance PO_ANF PO_END) 2) )
      PSEIT (POLAR PMITTE (- WIN2 (* 0.5 PI)) 0.5)
      PSCHNITT (inters PMITTE PSEIT PU_ANF PU_END NIL)
      WIN1 (angle PMITTE PSCHNITT)

      PX PO_ANF
      ZAEHLER 1
      PSCHNITT_O (list 1 1)
)

(while (or PSCHNITT_O PSCHNITT_U)
;;;lange Striche:
   (setq PSEIT (polar PX WIN1 0.5)
         PSCHNITT (inters PX PSEIT PU_ANF PU_END NIL)
         ABST (distance PX PSCHNITT)
   )
   (if (= ZAEHLER 1)
      (setq PX (polar PX WIN2 (* ABST 0.25)))
      (setq PX (polar PX WIN2 (* ABST  0.5)))
   )
   (setq ZAEHLER 2
         PLANG (polar PX WIN1 (* ABST 10) )           
         PSCHNITT_O (inters PX PLANG PO_ANF PO_END)
         PSCHNITT_U (inters PX PLANG PU_ANF PU_END)
   )

   (if (and PSCHNITT_O PSCHNITT_U) (command "linie" PSCHNITT_O PSCHNITT_U "") )

;;;kurze Striche:
   (setq PSEIT (polar PX WIN1 0.5)
         PSCHNITT (inters PX PSEIT PU_ANF PU_END NIL)
         ABST (distance PX PSCHNITT)
   )
   (setq PX (polar PX WIN2 (* ABST 0.5))
         PLANG (polar PX WIN1 (* ABST 10) )           
         PSCHNITT_O (inters PX PLANG PO_ANF PO_END)
         PSCHNITT_U (inters PX PLANG PU_ANF PU_END)
   )

   (if (and PSCHNITT_O PSCHNITT_U)
      (progn
         (setq PEND (polar PSCHNITT_O WIN1 (* ABST 0.5) ) )
         (command "linie" PSCHNITT_O PEND "")
      )
   )
)
)

---

Vielen Dank für die Hilfe  

[Diese Nachricht wurde von mercato am 14. Jul. 2010 editiert.]

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

---

Hi,
dafür gibt es Leute die damit ihr Geld verdienen.
Und auf die Schnelle drei Zeilen änder wird wohl nicht reichen 
Ich kann mir schwer vorstellen, dass du im Rahmen der Forenhilfe jemanden findest der es dir für lau umschreibt aber schauen wir mal.

Ihmo gab es da schon was fertiges was auch mit Bögen klar kommt 

CADwiesel.de unter sonstiges/sonstiges/Böschungsschraffur

oder ne Suchmaschine bemühen 

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

Ich kann den Aufwand für das Umschreiben mangels Kenntnisse leider nicht einschätzen...hätte ja sein können das die erwähnten drei Zeilen ausreichen 

Aber vielleicht findet sich ja doch noch jemand...

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

---

Hallo Mercato,
da kann ich Dorfy's Antwort nur bestätigen, der Aufwand ist doch recht hoch.
Aber wenn Du noch eine Böschungsschraffur ausprobieren willst, bei den Bosse_tools http://www.bosse-engineering.com/bosse_tools/index.htm  ist eine Schraffenprogramm enthalten, das kannst Du für 30-Tage nutzen, vielleicht reicht das ja schon für Deine Aufgabestellung. Detailfragen bitte direkt an mich, denn ich mache hier schon wieder eine Gradwanderung zwischen Werbung und Information, und Werbung wird in diesem Forum nicht so gerne gesehen (bitte keine ausufernde Diskussion zu diesem Thema)

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

Jörn
http://www.bosse-engineering.com

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

---

Zitat:

---

Original erstellt von Dorfy:

Ihmo gab es da schon was fertiges was auch mit Bögen klar kommt  

CADwiesel.de unter sonstiges/sonstiges/Böschungsschraffur

oder ne Suchmaschine bemühen  

---

schon getestet?! und?!

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."

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

---

 

Zitat:

---

Original erstellt von joern bosse:
... denn ich mache hier schon wieder eine Gradwanderung zwischen Werbung und Information, und Werbung wird in diesem Forum nicht so gerne gesehen  

---

OT:

Eine konkrete (Nach)Frage .... eine konkrete Lösungsmöglichkeit!!
Ob Mercato die so nutzen will, soll und kann er selbst entscheiden. Wenn es dann zum beidseitigen Vorteil ist, um so besser!

Also Information ! Unverlangte Berieselung würde ich löschen.

Sonst könnte man hier auch kein Buch empfehlen ....
Aber das ist nur meine Meinung.

------------------
      - 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

---

Die LISP von CADWiesel habe ich soeben mal probiert, funzt soweit auch einwandfrei...Danke für den Hinweis!

Nur leider kann man als Abstand nur ganze Zahlen eingeben, was für mich etwas ungünstig ist...versuche jetzt mal iwi den jeweiligen Wert für den Abstand im Code noch um 0,5 zu verkleinern, dann hätte ich mein persönliches Ideal  ...das sollte ja zu realisieren sein, hoffe ich 

Falls ich mit meinem MS-VB Wissen an der Realisierung scheitere, wird das hier zu lesen sein   

Schau mir nachher auch mal noch das B-Tool an...

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