Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Langloch Makro

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Langloch Makro (868 mal gelesen)
Granate11
Mitglied
Projektleiter Metallbau


Sehen Sie sich das Profil von Granate11 an!   Senden Sie eine Private Message an Granate11  Schreiben Sie einen Gästebucheintrag für Granate11

Beiträge: 27
Registriert: 01.11.2003

Autocad2000
CAD430 von Han Dataport

erstellt am: 06. Jan. 2004 13:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Leute,

suche dringend ein Makro mit dem man Langlöcher und Bohrungen zeichnen kann, ohne sich dabei die Finger zu brechen.

Gruß Granate

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

Kramer24
Ehrenmitglied V.I.P. h.c.
Architekt


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

Acad Architecture 2023
WIN 10

erstellt am: 06. Jan. 2004 15:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von CAD-Tötti an!   Senden Sie eine Private Message an CAD-Tötti  Schreiben Sie einen Gästebucheintrag für CAD-Tötti

Beiträge: 116
Registriert: 27.09.2003

ACAD 2004

erstellt am: 06. Jan. 2004 19:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

ähmmm :-),

ich will ja nicht meckern, aber.......die Längen dieser Langlöcher stimmen nicht mit den Eingaben überein die man in dieser Routine machen soll ???????

Grüße

CAD-Tötti

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

Kramer24
Ehrenmitglied V.I.P. h.c.
Architekt


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

Acad Architecture 2023
WIN 10

erstellt am: 06. Jan. 2004 19:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

@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


Sehen Sie sich das Profil von Granate11 an!   Senden Sie eine Private Message an Granate11  Schreiben Sie einen Gästebucheintrag für Granate11

Beiträge: 27
Registriert: 01.11.2003

Autocad2000
CAD430 von Han Dataport

erstellt am: 07. Jan. 2004 08:25    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Leute,

ich kann es erst heute Mittag probieren.
Danke euch vorerst mal.

LG Granate

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

Granate11
Mitglied
Projektleiter Metallbau


Sehen Sie sich das Profil von Granate11 an!   Senden Sie eine Private Message an Granate11  Schreiben Sie einen Gästebucheintrag für Granate11

Beiträge: 27
Registriert: 01.11.2003

Autocad2000
CAD430 von Han Dataport

erstellt am: 07. Jan. 2004 13:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Mist grigg das Ding nicht zum laufen, habe keine Ahnung was ich jetzt tun soll. Ich bin Anfämger.

Gruss Granante

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

CADchup
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 07. Jan. 2004 14:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

Hi,

Geh mal zu http://autocad.cad.de dann Downloads und Lisp Tools. Da ist beschrieben, wie Du Lisps zum Laufen bekommst.


Gruß
CADchup

------------------
www.cadditions.de

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

Granate11
Mitglied
Projektleiter Metallbau


Sehen Sie sich das Profil von Granate11 an!   Senden Sie eine Private Message an Granate11  Schreiben Sie einen Gästebucheintrag für Granate11

Beiträge: 27
Registriert: 01.11.2003

Autocad2000
CAD430 von Han Dataport

erstellt am: 08. Jan. 2004 08:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Morgen zusammen,

problem besteht darin wie mache eine datei.lsp daraus.

Gruß Grannate

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

marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von j-sc an!   Senden Sie eine Private Message an j-sc  Schreiben Sie einen Gästebucheintrag für j-sc

Beiträge: 1837
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Kramer24 an!   Senden Sie eine Private Message an Kramer24  Schreiben Sie einen Gästebucheintrag für Kramer24

Beiträge: 5881
Registriert: 09.11.2001

Acad Architecture 2023
WIN 10

erstellt am: 08. Jan. 2004 09:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von CAD-Tötti an!   Senden Sie eine Private Message an CAD-Tötti  Schreiben Sie einen Gästebucheintrag für CAD-Tötti

Beiträge: 116
Registriert: 27.09.2003

ACAD 2004

erstellt am: 08. Jan. 2004 09:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von marc.scherer an!   Senden Sie eine Private Message an marc.scherer  Schreiben Sie einen Gästebucheintrag für marc.scherer

Beiträge: 2490
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von CAD-Tötti an!   Senden Sie eine Private Message an CAD-Tötti  Schreiben Sie einen Gästebucheintrag für CAD-Tötti

Beiträge: 116
Registriert: 27.09.2003

ACAD 2004

erstellt am: 08. Jan. 2004 10:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

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.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 08. Jan. 2004 10:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

Hi,

dazu brauchst Du keine Lisp, sondern einen Block, den Du in X- und Y-Richtung unterschiedlich skalieren kannst.


Gruß
CADchup

------------------
www.cadditions.de

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

j-sc
Ehrenmitglied



Sehen Sie sich das Profil von j-sc an!   Senden Sie eine Private Message an j-sc  Schreiben Sie einen Gästebucheintrag für j-sc

Beiträge: 1837
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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

@ cadchup

das Dumme ist nur, dass dann dabei aus den Bögen  Teile von Ellipsen werden.

J-SC

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

CADchup
Ehrenmitglied V.I.P. h.c.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 08. Jan. 2004 12:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Granate11 10 Unities + Antwort hilfreich

Ok.
Vergesst das mit dem Block.


Gruß
CADchup

------------------
www.cadditions.de

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

Granate11
Mitglied
Projektleiter Metallbau


Sehen Sie sich das Profil von Granate11 an!   Senden Sie eine Private Message an Granate11  Schreiben Sie einen Gästebucheintrag für Granate11

Beiträge: 27
Registriert: 01.11.2003

Autocad2000
CAD430 von Han Dataport

erstellt am: 08. Jan. 2004 12:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz