---

Hallo Bricscadgemeinde,
ich habe hier im Forum ein Tool entdeckt das ich dringend benötige um schräge Linien im rechten Winkel auszurichten.
Nur leider funktioniert das Tool in Bricscad nicht.hat jemand eine Idee warum das in Bricscad nicht läuft.
Vielen dank im vorraus

gruss Stk

(defun c line (/ k_linie winkel )

  (setq k_linie (entget
  (ssname
    (ssget "_:S" '((0 . "LINE")))
    0)
  )
)
  (setq winkel (angle (cdr (assoc 10 k_linie))
  (cdr (assoc 11 k_linie))
  )
dpkt  (polar (cdr (assoc 10 k_linie))
      winkel
      (* 0.5 (distance
              (cdr (assoc 10 k_linie))
      (cdr (assoc 11 k_linie))
      )
    )
      )
)
  (if (or(>= 1.59 winkel 1.55)
        (>= 4.73 winkel 4.69)
)
    (setq neu10 (list (car dpkt)
      (cadr (cdr (assoc 10 k_linie)))
              )
          neu11 (list (car dpkt)
              (cadr (cdr (assoc 11 k_linie)))
      )
          k_linie (subst (cons 10 neu10) (assoc 10 k_linie) k_linie)
  k_linie (subst (cons 11 neu11) (assoc 11 k_linie) k_linie)
  )
    )
  (if (or (< 6.26 winkel)
  (> 0.02 winkel)
  (>= 3.17 winkel 3.11)
  )
    (progn
      (setq neu10 (list (car (cdr (assoc 10 k_linie)))
        (cadr dpkt)
)
        neu11 (list (car (cdr (assoc 11 k_linie)))
        (cadr dpkt)
)
    k_linie (subst (cons 10 neu10) (assoc 10 k_linie) k_linie)
    k_linie (subst (cons 11 neu11) (assoc 11 k_linie) k_linie)
    )
      )
    )
  (entmod k_linie)
)

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

---

Ist ein Problem des Parsers hier im Forum.
Dein :
(defun c line (/ k_linie winkel )

sollte eigentlich so aussehen:
(defun c: oline (/ k_linie winkel )

allerdings ohne Leerzeichen zwischen c: und oline

Wäre schön wenn der Forumsbetreiber den Parser ausschalten könnte, wenn Zeilen als [Code] eingegeben werden...

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

---

hallo und danke für Deine Antwort.Im Prog sieht es auch so aus wie du es beschrieben hast.
Das Prog geht auch zu laden,aber es macht nicht das was es soll.Ich kann zwar Linien auswählen,aber
es passiert nicht.

Gruss Stk

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

---

Du hast aber schon eine Ahnung davon was das Programm machen soll?

Bzw. was möchtest Du denn das es für Dich ausführt?

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

---

es soll schräge Linien im rechten Winkel zu einer vorhandenen Linie
ausrichten.So stand es jedenfalls im Forum

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

---

Hier mal der Link zu dem Thema http://ww3.cad.de/foren/ubb/Forum145/HTML/000451.shtml#000010

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

---

  

Zitat:

---

Original erstellt von stk:
es soll schräge Linien im rechten Winkel zu einer vorhandenen Linie
ausrichten.So stand es jedenfalls im Forum

---

Jein. Die Funktion richtet die getippte Linie waagrecht /senkrecht aus, wenn die Abweichung zur waagrechten /senkrechten nur gering ist.

Mach einfach mal eine Linie mit einem Winkel von 89° und lass die Funktion laufen, danach hat sie 90°
Leider bin ich kein Lispler, kann zwar Code lesen aber selber prog 

In VBA hätte ich einen Code, den man mit geringer Anpassung das machen lassen könnte, aber da brauchst Du Bricscad Pro.

[Diese Nachricht wurde von KlaK am 20. Dez. 2011 editiert.]

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

---

Achso,danke für Deine Mühe.
Ich habe Bricscad Pro.
Wäre natürlich toll wenn Du dein prog anpassen könntest.

Gruss Stk

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

---

Dann mußt Du aber (wie im von Dir verlinkten Beitrag) definieren was dabei rauskommen soll.

Von wo aus soll gedreht werden? (nächster getippter Endpunkt, Mittelpunkt)
Soll die Linie an der Bezugslinie enden oder die Länge erhalten bleiben?
Könnte natürlich alles über ein Formular einstellbar sein.

Mal sehn wieviel Lust ich im Urlaub zum programieren habe ...   

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

---

Zwischenablage01.jpg

Zeichnungen die wir von einer Argentur erhalten sind meistens nicht sauber programiert.
scheint ja richtig kompliziert zu sein,eine Linie die nicht 90 Grad hat,auf 90 grad
auszurichten.

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

---

Also im Prinzip im Schnittpunkt rechter Winkel auf die Linie
Ist einfach 

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

---

ja so wollte ich es gern haben.Also 1. Ausgangslinie anpicken ( Winkelbezug ),dann die zu korrigierende 2. Linie
anpicken und dann soll sich die Linie auf die 90 Grad drehen.

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