| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Teledoor setzt erfolgreich auf Configure-to-Order mit CIDEON Conify , ein Anwenderbericht
|
Autor
|
Thema: Langloch Makro (894 mal gelesen)
|
Granate11 Mitglied Projektleiter Metallbau
Beiträge: 27 Registriert: 01.11.2003 Autocad2000 CAD430 von Han Dataport
|
erstellt am: 06. Jan. 2004 13:23 <-- editieren / zitieren --> Unities abgeben:
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 06. Jan. 2004 15:11 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
Hallo, wenn Du lange auf eine Antwort warten musst, dann fehlen vermutlich noch Infos. Wie soll den ein Makro, oder Lisp aussehen? Mit oder ohne Achsen? Welche Eingaben willst Du machen? Radius und Länge? Innenmass, Außenmaß? Anbei ein mittelprächtiges *.lsp für'n Lanlochanfang: (defun C:SLOT (/ A B B1 B2 C D PW) (setq PW (getvar"PLINEWID")) (initget 1) (setq B1 (getdist "\nLength of slot: ")) (setq B2 (/ B1 2.0)) (setq B (list B2 0.0)) (initget 1) (setq C (list 0.0 (getdist "\nWidth of slot: "))) (initget 1) (while (setq A (getpoint "\nInsertion point: ")) (setq D (list (- (car A) (/ (car B) 2)) (- (cadr A) (/ (cadr C) 2)))) (setvar "PLINEWID" 0) (command "_.pline" D (mapcar '+ D B) "_a" (mapcar '+ D B C) "_l" (mapcar '+ D C) "_a" "_cl") );while (setvar "PLINEWID" PW) (princ) ) Grüße von Lothar
------------------ "Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Tötti Mitglied
Beiträge: 116 Registriert: 27.09.2003 ACAD 2004
|
erstellt am: 06. Jan. 2004 19:03 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 06. Jan. 2004 19:09 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
@CAD-Tötti, Du darfst ruhig meckern, das *.lsp kommt nicht von mir. Ich hoffte, dass ein Profi das weiter strickt, sofern "granate" sich meldet... Lothar
------------------ "Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Granate11 Mitglied Projektleiter Metallbau
Beiträge: 27 Registriert: 01.11.2003 Autocad2000 CAD430 von Han Dataport
|
erstellt am: 07. Jan. 2004 08:25 <-- editieren / zitieren --> Unities abgeben:
|
Granate11 Mitglied Projektleiter Metallbau
Beiträge: 27 Registriert: 01.11.2003 Autocad2000 CAD430 von Han Dataport
|
erstellt am: 07. Jan. 2004 13:11 <-- editieren / zitieren --> Unities abgeben:
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 07. Jan. 2004 14:16 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
|
Granate11 Mitglied Projektleiter Metallbau
Beiträge: 27 Registriert: 01.11.2003 Autocad2000 CAD430 von Han Dataport
|
erstellt am: 08. Jan. 2004 08:07 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 08. Jan. 2004 08:45 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
Markiere mit der Maus aus dem Beitrag mit der Lisp Funktion alles zwischen: (defun C:SLOT (/ A B B1 B2 C D PW)... und ... (setvar "PLINEWID" PW) (princ) ) Dann Rechtklick mit Mauszeiger über dem markierten Bereich, "Kopieren" auswählen. Programm: "notepad" starten. Dort Rechtklick im Editierbereich, "Einfügen" auswählen. Menü "Datei" anwählen, dort "Speichern unter" und Datei als "Slot.lsp" in einem Pfad speichern (Pfad merken!!). ------------------ Ciao, Marc
[Diese Nachricht wurde von marc.scherer am 08. Jan. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
j-sc Ehrenmitglied
Beiträge: 1838 Registriert: 14.07.2003 W7 64Bit intel core I7 2,8GHz / 4GB ATI FIRE PRO V5800 acad2011 acad2015 acad2018 Athena Expresstools
|
erstellt am: 08. Jan. 2004 08:54 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
Guten morgen. den Text mit crtl-c und crtl-v in eine leere txt-datei kopieren, als slot.lsp sichern und dann in acad unter EXTRAS -> ANWENDUNG laden und mit SLOT aufrufen. Aber vorher die 6. Zeile so abändern: (setq B (list B1 0.0)) dann stimmen die Längen wieder. (siehe CAD-Tötti) ciao J-SC Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 08. Jan. 2004 09:05 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
|
CAD-Tötti Mitglied
Beiträge: 116 Registriert: 27.09.2003 ACAD 2004
|
erstellt am: 08. Jan. 2004 09:45 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
Also der momentane Stand nach J-SC ist der folgende: (defun C:SLOT (/ A B B1 B2 C D PW) (setq PW (getvar"PLINEWID")) (initget 1) (setq B1 (getdist "\nLength of slot: ")) (setq B2 (/ B1 2.0)) (setq B (list B1 0.0)) (initget 1) (setq C (list 0.0 (getdist "\nWidth of slot: "))) (initget 1) (while (setq A (getpoint "\nInsertion point: ")) (setq D (list (- (car A) (/ (car B) 2)) (- (cadr A) (/ (cadr C) 2)))) (setvar "PLINEWID" 0) (command "_.pline" D (mapcar '+ D B) "_a" (mapcar '+ D B C) "_l" (mapcar '+ D C) "_a" "_cl") );while (setvar "PLINEWID" PW) (princ) ) Das Problem ist aber immer noch folgendes: wenn ich als Länge 50 und als Breite 10 angebe, macht er 60 x 10, d.h. ich glaube die zeile 6 stimmt immer noch nicht so ganz. Grüße CAD-Tötti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 08. Jan. 2004 09:54 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
Hi Tötti, "Das Problem ist aber immer noch folgendes: wenn ich als Länge 50 und als Breite 10 angebe, macht er 60 x 10, d.h. ich glaube die zeile 6 stimmt immer noch nicht so ganz." Ich glaube, das ist kein Fehler, sondern so gewollt. Bei Langlöchern werden immer die Bogen-Zentren zur Längendefinition vermaßt (wg. Fertigung mit Fräser, die Radien entstehen i.d.R. durch den Durchmesser des Fräsers). ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Tötti Mitglied
Beiträge: 116 Registriert: 27.09.2003 ACAD 2004
|
erstellt am: 08. Jan. 2004 10:42 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
Hi Marc, du hast recht, klingt plausibel. Aber es gibt dann noch die andere Zielgruppe (so wie ich): die benötigen die Außenmaße des Langlochs. Das heißt: es muß verschiedene Varianten geben . Der Hit wäre ja auch noch ein Langloch mit Mittellinien auf einem bestimmten Layer (der natürlich erzeugt wird, wenn er nicht vorhanden ist ) Grüße CAD-Tötti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 08. Jan. 2004 10:51 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
|
j-sc Ehrenmitglied
Beiträge: 1838 Registriert: 14.07.2003 W7 64Bit intel core I7 2,8GHz / 4GB ATI FIRE PRO V5800 acad2011 acad2015 acad2018 Athena Expresstools
|
erstellt am: 08. Jan. 2004 11:37 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
|
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 08. Jan. 2004 12:52 <-- editieren / zitieren --> Unities abgeben: Nur für Granate11
|
Granate11 Mitglied Projektleiter Metallbau
Beiträge: 27 Registriert: 01.11.2003 Autocad2000 CAD430 von Han Dataport
|
erstellt am: 08. Jan. 2004 12:59 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich bin kurz vorm NZB. Das Ding läuft nicht alles gemacht. Als Lisp gespeichert als Anwendung geladen. Befehlszeile slot eingegeben. Nix passiert, ausser Fehlermeldung Befehl unbekannt. Was ich noch sagen wollte, ich habe vorher auf cad430 gezeichnet. Da gab es ein Makro, wo man den Durchmesser angab, dann entweder die Gesamtbreite oder von Achse zu Achse. Mittellinie und Umrandung waren auch ok. Das Makro für Langloch und die 3d geschischt ist das einzige was ich vermisse. Vielleicht wird es ja etwas, mit eurer hilfe. LG Granante
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |