| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für BricsCAD |
Autor
|
Thema: Linie ausrichten (2310 mal gelesen)
|
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 20. Dez. 2011 10:12 <-- editieren / zitieren --> Unities abgeben:
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 |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624 Registriert: 02.05.2006 BricsCAD V11 - V22 Pro Visual Basic
|
erstellt am: 20. Dez. 2011 12:32 <-- editieren / zitieren --> Unities abgeben: Nur für stk
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 |
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 20. Dez. 2011 12:44 <-- editieren / zitieren --> Unities abgeben:
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 |
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624 Registriert: 02.05.2006 BricsCAD V11 - V22 Pro Visual Basic
|
erstellt am: 20. Dez. 2011 13:09 <-- editieren / zitieren --> Unities abgeben: Nur für stk
|
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 20. Dez. 2011 13:29 <-- editieren / zitieren --> Unities abgeben:
|
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 20. Dez. 2011 13:36 <-- editieren / zitieren --> Unities abgeben:
|
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624 Registriert: 02.05.2006 BricsCAD V11 - V22 Pro Visual Basic
|
erstellt am: 20. Dez. 2011 14:29 <-- editieren / zitieren --> Unities abgeben: Nur für stk
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 |
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 20. Dez. 2011 15:30 <-- editieren / zitieren --> Unities abgeben:
|
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624 Registriert: 02.05.2006 BricsCAD V11 - V22 Pro Visual Basic
|
erstellt am: 20. Dez. 2011 15:46 <-- editieren / zitieren --> Unities abgeben: Nur für stk
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 |
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 20. Dez. 2011 16:02 <-- editieren / zitieren --> Unities abgeben:
|
KlaK Ehrenmitglied V.I.P. h.c. Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2624 Registriert: 02.05.2006 BricsCAD V11 - V22 Pro Visual Basic
|
erstellt am: 20. Dez. 2011 16:11 <-- editieren / zitieren --> Unities abgeben: Nur für stk
|
stk Mitglied
Beiträge: 172 Registriert: 27.10.2002
|
erstellt am: 20. Dez. 2011 16:26 <-- editieren / zitieren --> Unities abgeben:
|