Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Makro Ofang -Von-

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:  Makro Ofang -Von- (1028 mal gelesen)
caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 26. Jul. 2016 14:55    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

Hi,

habe mir folgendes Makro gebastelt, welches aber nicht funktioniert:
*^C^C_break;\E;von;schn;-250;von;@;500;\

Das Problem ist der Ofang „Von“
Nach der Abfrage nach dem Basispunkt will ich einen Schnittpunkt auswählen – das geht noch –
dann kommt die Frage nach dem Abstand – da sollte es mit dem Makro weitergehen (-250) tut es aber nicht !!

Komm da einfach nicht weiter.
Für jede Hilfe dankbar.

------------------
mfg
Peter

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

jupa
Ehrenmitglied V.I.P. h.c.
Ruheständler


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

Beiträge: 6050
Registriert: 16.09.2004

Windows 10 64bit, ACAD Rel. 14 - ACAD 2023

erstellt am: 26. Jul. 2016 15:15    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 caddonner 10 Unities + Antwort hilfreich

Zeig uns mal den Inhalt Deines Textfensters, wie Du das bzw. was Du manuell über die Befehlszeile machst.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


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

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 26. Jul. 2016 15:22    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 caddonner 10 Unities + Antwort hilfreich

... oder evtl auch hilfreich

Was soll dort genau passieren ..... evtl gibt es noch andere Wege

cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 26. Jul. 2016 15:30    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

Auszug aus Textfenster:
Befehl: BRUCH
Objekt wählen:
Zweiten Brechpunkt angeben oder [Erster punkt]: e
Ersten Brechpunkt angeben: von
Basispunkt:  von <Abstand>: -250
Zweiten Brechpunkt angeben: von
Basispunkt: @
<Abstand>: 500

Es soll eine Linie an einem Schnittpunkt mit anderer Linie gebrochen werden und dabei ein „Loch“ von 500 Zeichnungseinheiten (Abstand vom Schnittpunkt jeweils 250 ZE) entstehen

------------------
mfg
Peter

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


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

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 26. Jul. 2016 15: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 caddonner 10 Unities + Antwort hilfreich

okay

da ich grad nicht weis warum der ofang da nicht will

anderes herangehen auch per Makro

ein Objekt einfügen mit Punktwahl
dann diese Objekt zum stutzen wählen
und im Anschluss Löschen


cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 26. Jul. 2016 15:44    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

interessanter vorschlag
werd ich ausprobieren

------------------
mfg
Peter

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

jupa
Ehrenmitglied V.I.P. h.c.
Ruheständler


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

Beiträge: 6050
Registriert: 16.09.2004

Windows 10 64bit, ACAD Rel. 14 - ACAD 2023

erstellt am: 27. Jul. 2016 07:50    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 caddonner 10 Unities + Antwort hilfreich


Break500.zip

 
Zitat:
Original erstellt von caddonner:

Es soll eine Linie an einem Schnittpunkt mit anderer Linie gebrochen werden und dabei ein „Loch“ von 500 Zeichnungseinheiten (Abstand vom Schnittpunkt jeweils 250 ZE) entstehen.

Muß es unbedingt ein Makro, oder dürfen es auch ein paar LISP-Zeilen sein?
Angehängte break500.lsp (quick & dirty) laden, Befehl BREAK500 eigeben, die zu brechende Linie picken, die brechende Linie picken, fertig.
Bei Bedarf kannst Du die "Lückengröße" in der ersten Codezeile (setq gap 500) ändern.
Kannst ja mal testen und berichten, ob's funktioniert.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 27. Jul. 2016 editiert.]

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 27. Jul. 2016 08: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

das ist ja mal ein Service !!
Danke funktioniert toll.

Nur eine Frage: Mit Poylinien funktionierts nicht,
kann man den Code entsprechend erweitern ?

------------------
mfg
Peter

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

jupa
Ehrenmitglied V.I.P. h.c.
Ruheständler


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

Beiträge: 6050
Registriert: 16.09.2004

Windows 10 64bit, ACAD Rel. 14 - ACAD 2023

erstellt am: 27. Jul. 2016 09:20    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 caddonner 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von caddonner:

Mit Poylinien funktionierts nicht,
kann man den Code entsprechend erweitern ?


Das wird aufwendiger. Mit dieser Frage solltest Du Dich besser mal an die Experten im LISP-Forum wenden. Vermutlich braucht's dazu einen ganz anderen Denkansatz.

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

[Diese Nachricht wurde von jupa am 27. Jul. 2016 editiert.]

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 27. Jul. 2016 09:27    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

ok
trotzdem danke nochmal

------------------
mfg
Peter

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


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

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 27. Jul. 2016 09:33    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 caddonner 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von caddonner:
das ist ja mal ein Service !!
Danke funktioniert toll.

Nur eine Frage: Mit Poylinien funktionierts nicht,
kann man den Code entsprechend erweitern ?



Moscha ...

mit dem Makro kein Problem mit PL und zur Lückenanpassung einfach Ojekt anpassen und gut .... läuft auch unter LT

cu cw

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

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

jupa
Ehrenmitglied V.I.P. h.c.
Ruheständler


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

Beiträge: 6050
Registriert: 16.09.2004

Windows 10 64bit, ACAD Rel. 14 - ACAD 2023

erstellt am: 27. Jul. 2016 11: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 caddonner 10 Unities + Antwort hilfreich


break100.zip

 
Zitat:
Original erstellt von caddonner:

Mit Poylinien funktionierts nicht,

Anbei ein LISP-Entwurf, wie es unabhängig vom Objekttyp (beides Linien oder Polylinien oder LWPolylinien oder beliebig gemischt) funktionieren sollte.
Handling:
Nach Befehlsaufruf den Schnittpunkt picken, anschließend das zu stutzende Liniensegment innerhalb des Kreises picken.
Nachteile:
- Beim Fangen des Schnittpunktes wird kein Vorschausymbol (kleines Kreuz) angezeigt.
- Zum Wählen des zu stutzenden Teiles muß man hinreichend nah herangezoomt haben.
Aber vllt. kannst Du Dich ja auch damit anfreunden.
(Falls verschiedene Koordinatensysteme (BKS) ins Spiel kommen muß man am Code noch ein wenig nacharbeiten).

Achso: Das Maß für die Lücke (ich habe hier 100 gewählt) kannst Du noch beliebig ändern, indem Du den Radius des Kreises von jetzt 50 auf einen Dir genehmen Wert änderst.

Have fun

Jürgen

------------------
Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty)

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 27. Jul. 2016 13:28    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 cadwomen

Hab dein PM Makro  meinem Wunsch nach so angepasst:

*^C^C-einfüge;"L:/Block_zum_stutzen.dwg";schn;\1;1;0;stutzen;\;\lö;v;

geht super


Danke für die Zeit und Hirnzellen die du und jupa geopfert habt !

------------------
mfg
Peter

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

cadwomen
Ehrenmitglied V.I.P. h.c.
Mädchen für fast alles


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

Beiträge: 2966
Registriert: 26.08.2002

ACAD R11 - 2022
(Plant3D)
AVIS
ACAD LT 2013- 2021
ZWCAD 2015 Versuch "nun ja"
[s]History P3D 2012/(13) SP und Hotfix([/s]<P>
Windows 10 / 64 Bit
Xeon CPU 3.5GHz
16GB Ram
NVIDIA Quadro P2000
3x Dell TV100 88P Monitore

erstellt am: 27. Jul. 2016 13: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 caddonner 10 Unities + Antwort hilfreich

also dann viel Spaß damit

cw und danke für die U´s

------------------
Also ich finde Unities gut ... und andere sicher auch
------------------------------------------------
cadwomen™
Plant ist wie Öl suchen, je tiefer man bohrt desto mehr kommt ans Tageslicht

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

caddonner
Mitglied



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

Beiträge: 166
Registriert: 24.05.2005

erstellt am: 27. Jul. 2016 14: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

Auf Anregung von Jürgen nochmal kurz nachgebessert:

*^C^C-einfüge;"L:/Block_zum_stutzen.dwg";schn;\1;1;0;stutzen;\;\;lö;v;;

------------------
mfg
Peter

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