Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Problem mit: Ausschneiden + als Block einfügen

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:  Problem mit: Ausschneiden + als Block einfügen (2905 mal gelesen)
David Galvagno
Mitglied



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

Beiträge: 148
Registriert: 10.12.2002

Windows 2000 Prof
Autocad 2000i
Prostahl3d-V16.1
HP Deskjet 1220C

erstellt am: 13. Aug. 2003 10:04    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

Mein Ziel ist es aus einer Menge Linien (z.B.) einen Block zu erstellen. NUN: wenn ich mehrere Linien ausschneide und danach wieder einfüge als Block über das "Rechte-Maus" Menü am praktisch selben Ort wie beim Ausschneiden fügt mir Autocad2000i den Block irgendwo hin "im CAD-Raum".

FRAGE: Wie kann ich auf einfachste Art den Block genau an den gewünschten Ort setzen nach dem Ausschneiden, dh. der "Fixpunkt (o.a. Einfügepunkt" ist am Block selbst und nicht irgendwo im Raum ?

Ich freue mich auf jegliche Tipps.

------------------
Gruss David

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 13. Aug. 2003 10:18    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 David Galvagno 10 Unities + Antwort hilfreich

wenn du das mit "auschneiden" und "als block einfügen" machst setzt acad einfach einen rahmen um all deine gewählten objekte und setzt den basispunkt auf die untere linke ecke (zumindest ACAD2002 - 2000i würd wohl auch so machen schätz ich).

aber warum erstellst du nicht ganz normal einen block mit dem dafür vorgesehenen befehl "_block" ohne dieses ausschneiden/einfügen?? wär doch logischer?

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 13. Aug. 2003 10:35    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 David Galvagno 10 Unities + Antwort hilfreich

Über deine Methoden möchte ich besser nicht reden,
du wirst schon einen Grund haben (hoffe ich).

Antwort:

1. Kopieren mit Basispunkt
2. Entf (löschen -Objekte sind noch markiert...)
3. Als Block einfügen


siehe da...

------------------
Gruß Sebastian
Der Feind des Guten ist das Bessere.

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: 13. Aug. 2003 10: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 David Galvagno 10 Unities + Antwort hilfreich

Das funktioniert aber nur problemlos, wenn beim AUSSCHNEIDEN das BKS auf WELT steht. Ist ein anderes eingestellt, gerät das System mit den absoluten und relativen Bezugskoordinaten durcheinander und der Einfügepunkt liegt nicht mehr in der Nähe der Elemente.
J-SC

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 13. Aug. 2003 10:49    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 David Galvagno 10 Unities + Antwort hilfreich

@J-SC

dies kann ich nicht nachvollziehen da der BlockBasispunkt weder im
WCS noch im UCS gespeichert wird,

Kannst du mir versuchen ein konkretes Beispiel zu liefern ?
-ich kann es nicht erwirken...
------------------
Oder meinst du generell die Arbeit mit verschiedenen Koordsyst. ?
-in diesem Fall hat das ja jetzt nichts (direkt) mit dieser Geschichte

In ACAD bezieht sich alles auf das aktuelle Koordsyst, mit wenigen
Ausnahmen. - das auschneiden/kopieren genauso wie das Einfügen.
Aber das sind doch ganz normale Abläufe in ACAD ?!

Denke das du dich auskennst und bin deswegen etwas irritiert...

------------------
  Gruß Sebastian
Der Feind des Guten ist das Bessere.

[Diese Nachricht wurde von cadffm am 13. August 2003 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: 13. Aug. 2003 11:08    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 David Galvagno 10 Unities + Antwort hilfreich

@cadffm

ich hatte mich auf den Beitrag mit ctrl-X und ALS BLOCK EINFÜGEN bezogen. Dein Posting war beim Schreiben noch nicht da.
Aber es ist tatsächlich so, steht das BKS bei copyclip (bzw. CTRL-X oder CTRL-C) nicht auf Welt, landen die Objekte beim Wiedereinfügen (egal ob mit CTRL-V oder ALS BLOCK EINFÜGEN) ganz schön weit weg vom Fadenkreuz.

Und um die Verwirrung komplett zu machen, der sich für den so erstellten Block ergebende Basispunkt ist auch noch abhängig davon, wie der aktuelle ansichtspunkt liegt (nur Koordinatensystem gedreht, oder darunter auch Draufsicht).  Und nen logischen Zusammenhang zwischen den Punkten gibt es auch, es ist halt leider nicht immer die untere linke Ecke des Rechteckes, das die ausgewählten Elemente umschließt. Das gilt nur für BKS WELT.

Ciao
Jörg

[Diese Nachricht wurde von j-sc am 13. August 2003 editiert.]

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 13. Aug. 2003 11:34    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 David Galvagno 10 Unities + Antwort hilfreich

..mit Orginal-Koordinaten klappt das Einfügen aber wiederum

wieder etwas gelernt ! Danke Jörg 

Da ich die "raussholen" und "einbringen" Methoden nie so kombiniere
das die der Fall ist, ist es mir nie aufgefallen...

"nur einfügen"       - dann habe ich vorher mit Basispunkt kopiert.
"als Block einfügen" - %ebenfalls%
"org.Koord.einfügen  - na da klappt es ja...


Bernd Cuder kennt sich mit dem Austausch von Daten über
die Zw.Ablage wohl bestens aus- evtl erklärt er mal was
dazu wenn er es zufällig lesen sollte !? (oder jmd. anders?)

*********************
Ohh- den letzten Absatz konnte ICH diesmal noch nicht lesen..
(desw. Vorschlag Erklärung BerndC. , darf aber dennoch  )
Vielen dank für die Aufklärung -
*********************


------------------
  Gruß Sebastian
Der Feind des Guten ist das Bessere.

[Diese Nachricht wurde von cadffm am 13. August 2003 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: 13. Aug. 2003 11:41    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 David Galvagno 10 Unities + Antwort hilfreich

@cadffm

dumm ist nur, MIT ORIGINALKOORDINATEN EINFÜGEN steh nach CTRL-C oder CTRL-X nicht zur Verfügung.

Aber was wäre, wenn immer alles einfach wäre, dann gäbe es ja auch diese tolle Forum nicht.

Ciao
Jörg

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

BerndE
Mitglied
Hochbautechniker


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

Beiträge: 557
Registriert: 05.07.2003

Revit 2013
ACA 2012 deutsch
BuildingOne 5.4.5
Win7
WindowsNetz

erstellt am: 13. Aug. 2003 11:49    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 David Galvagno 10 Unities + Antwort hilfreich

1. kopieren mit basispunkt
2. als basispunkt den absoluten nullpunkt eintippen  0,0
3. als block einfügen mit dem einfügepungt 0,0
4. voila

------------------

Bernd

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 13. Aug. 2003 12:26    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 David Galvagno 10 Unities + Antwort hilfreich

warum steht DIR das nicht zur verfügung ?
-sollte wählbar sein...

**********************
-ach so, du meinst innerhalb einer Zeichnung...dabei mußt
du mir jetzt aber recht geben wenn ich sage das es wohl
Schwachsinn ist etwas zu kopieren um es dann am selben Punkt
einzufügen, oder? -ansonsten mache ich das in diesem Fall
wie BerndE...
(benutze es manchmal eben doch  - )

------------------
    Gruß Sebastian
Der Feind des Guten ist das Bessere.

[Diese Nachricht wurde von cadffm am 13. August 2003 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: 13. Aug. 2003 13:35    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 David Galvagno 10 Unities + Antwort hilfreich

@cadffm

zugegeben, echte benannte Blöcke sind mir auch lieber als die so vom system willkürlich erstellten Pseudonamen. Und Schwachsinn hin und her, man glaubt gar nicht, auf wieviel Wegen (und natürlich auch Umwegen) sich bei acad die gewünschten Ergebnisse erreichen lassen. Wenigstens sieht's dann auf dem Papier meist danach aus - aber wehe man schaut in die Datei. Deshalb finde ich diesen Austausch über unterschiedliche Arbeitsweisen auch echt gut, zum Dazulernen ist's halt nie zu spät.

Ich freu mich schon auf das nächste Problem.

Schönen Tag noch,
Jörg

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

Wolli
Mitglied
Konstrukteur


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

Beiträge: 704
Registriert: 28.02.2001

Win7 64Bit+32Bit VM-Ware
I7 12GB
ACAD Mech 2010
Inventor Pro 2010 + 2012
Ansys 13 NLS

erstellt am: 14. Aug. 2003 09:10    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 David Galvagno 10 Unities + Antwort hilfreich

Hallo Zusammen,

also ich finde das Anliegen von David ganz normal und sinnig.
ich will einfach aus einer Auswahl von Linien einen Block machen, wobei mich der Blockname nicht interessiert ich ihn auch nicht eingeben will und ich auch nicht 0,0 für irgend welche Koordinatensysteme eingeben will.
Acad soll aus meiner Auswahl einfach zack einen Block machen fertig.
Dafür müsste man doch ein Makro zusammenzimmern können oder.
Danke und Gruß Wolfgang

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 14. Aug. 2003 09: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 Nur für David Galvagno 10 Unities + Antwort hilfreich

(defun c:automaticb ()
  (setq ss (ssget))
  (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0))))))
  (setq l (strlen ent1))
  (setq ent1 (strcat "automaticblock" (substr ent1 14 (- l 14))))
  (command "_-block" ent1 "0,0,0" ss "" "_-insert" ent1 "0,0,0" "" "" "")
  )

erstellt blocke mit den namen "automaticblock"+objektnamen es ersten objektes im auswahlsazt 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Wolli
Mitglied
Konstrukteur


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

Beiträge: 704
Registriert: 28.02.2001

Win7 64Bit+32Bit VM-Ware
I7 12GB
ACAD Mech 2010
Inventor Pro 2010 + 2012
Ansys 13 NLS

erstellt am: 14. Aug. 2003 11:38    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 David Galvagno 10 Unities + Antwort hilfreich

Hallo Siegfried,
Super, ein Klick und der Block ist da.
Nur noch ein Wunsch eines Kollegen, ob man nicht doch bevor der Block erstellt wird einen Basispunkt anklicken kann, da sonst der Block einen Basispunkt evtl. sehr weit außerhalb hat, der mich zwar nicht interessiert aber doch mal stören kann wenn er so weit weg ist.
Das könnte dann so aussehen:
-Ich habe meine Linien markiert
-Aufruf des Befehls
-Ich werde aufgefordert einen Basispunkt zu klicken
-Bums Block ist fertig (an der gleichen Position wie vorher die Linien)
Wäre das noch leicht möglich?

Danke und Gruß Wolfgang und Kollege

[Diese Nachricht wurde von Wolli am 14. August 2003 editiert.]

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 19. Aug. 2003 11:24    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 David Galvagno 10 Unities + Antwort hilfreich

(defun c:automaticb ()
  (setq ss (ssget))
  (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0))))))
  (setq l (strlen ent1))
  (setq ent1 (strcat "automaticblock" (substr ent1 14 (- l 14))))
  (command "_-block" ent1 (setq p1 (getpoint)) ss "" "_-insert" ent1 p1 "" "" "")
  )


so jetzt mit der Abfrage für den Blockbasisipunkt. hat etwas gedauert weil ich kaum Zeit hatte um ins Forum zu schaun.
Hoffe geholfen zu haben 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Wolli
Mitglied
Konstrukteur


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

Beiträge: 704
Registriert: 28.02.2001

Win7 64Bit+32Bit VM-Ware
I7 12GB
ACAD Mech 2010
Inventor Pro 2010 + 2012
Ansys 13 NLS

erstellt am: 19. Aug. 2003 11:38    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 David Galvagno 10 Unities + Antwort hilfreich

Hallo Siegfried,

Dankeee, so spar ich mir sicher jeden Tag 100 Klicks, dafür solltest Du eigentlich 100 Unities bekommen.

Jetzt habe ich ja beide Versionen und kann etwas nachvollziehen wie so ein Lisp funktioniert.

Danke und Gruß Wolfgang

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

David Galvagno
Mitglied



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

Beiträge: 148
Registriert: 10.12.2002

Windows 2000 Prof
Autocad 2000i
Prostahl3d-V16.1
HP Deskjet 1220C

erstellt am: 03. Sep. 2003 13: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

ich bedanke mich für die regen Forumsbeteiligungen von allen ! Herzlichen Dank vorallem Schachinger, welcher glaube ich ein Gutes Makro erstellt hat, doch leider bringe ich dieses nicht zum laufen, wenn ich die Befehlszeilen im lisp "blockerst.lsp" im Support-verzeichnis abgespeichert habe und danach mit dem Namen blockerst starten möchte - was mache ich wohl falsch ? Danke für jeden tipp. Merci.

------------------
Gruss David

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

Kardinal
Mitglied
Ingenieur


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

Beiträge: 233
Registriert: 07.08.2003

Win 2000
Acad 2002
Eagle 4.09
P4 512MB

erstellt am: 03. Sep. 2003 13: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 Nur für David Galvagno 10 Unities + Antwort hilfreich

erst laden

Gruß Friedhelm

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 03. Sep. 2003 13:57    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 David Galvagno 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Schachinger:
(defun c:automaticb ()
  (setq ss (ssget))
  (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0))))))
  (setq l (strlen ent1))
  (setq ent1 (strcat "automaticblock" (substr ent1 14 (- l 14))))
  (command "_-block" ent1 (setq p1 (getpoint)) ss "" "_-insert" ent1 p1 "" "" "")
  )


ist ganz einfach! wie ein lispbefehl benannt wird hat absolut nichts damit zu tun wie die lsp-datei benannt ist in der er steht. in einer lsp-datei können ja auch mehrere befehle deklariert sein. sie werden mit
(defun c:blabla ()
(blabla)
(blabla)
)
definiert - was für dich wichtig ist das was in der zeile mit "defun" steht.

in meinem beispiel steht "defun c:automaticb" was bedeutet das der befehl mit "automaticb" in der befehlszeile aufgerufen wird. willst du ihn umtaufen musst du einfach diese zeile mit dem editor verändern.

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



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

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 03. Sep. 2003 14:04    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 David Galvagno 10 Unities + Antwort hilfreich

Hallo David,

gib vorher mit Klammern (load "blockerst.lsp") und dann kannst du das mit automaticb starten.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
Ich bin vom 07.-10.10. auf dem Anwendertreffen anzutreffen.

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

cadffm
Moderator
良い精神




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

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 03. Sep. 2003 14:04    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 David Galvagno 10 Unities + Antwort hilfreich

Ich habe den Text zwar nicht verstanden aber:

Code in eine Datei (zB im editor) speichern als "Name".lsp
Befehlsaufruf mit "automaticb" - diese in einem Supportpfad
ablegen.

[der Befehlsaufruf steht immer nach "  c :  " (defun c:automaticb ()]

im Makro/Button dann zB: ^C^C(load "name");automaticb 
hinterlegen...

(oder Lisp durch die ACADdoc.lsp mitladen lassen...und dann im
makro nur noch --> automaticb  hinterlegen !

------------------
Gruß Sebastian Mattis
Die Befehlszeile ist dein Freund...lesen bildet !

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

David Galvagno
Mitglied



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

Beiträge: 148
Registriert: 10.12.2002

Windows 2000 Prof
Autocad 2000i
Prostahl3d-V16.1
HP Deskjet 1220C

erstellt am: 03. Sep. 2003 14:43    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

perfekt - ich danke für alle Hinweise und Hilfen. Langsam verstehe ich die Sache ein wenig besser...

an Alle

------------------
Gruss David

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

Walter Zettlitzer
Mitglied
Dipl.-Ing (FH)


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

Beiträge: 228
Registriert: 25.07.2002

WIN XP Pro, ACAD 2004

erstellt am: 27. Okt. 2003 16:24    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 David Galvagno 10 Unities + Antwort hilfreich

Hallo Siegfried,

wieder einmal ein tolles tool. Kannst Du das noch so erweitern, das als Vorgabe des Bezugspunktes 0,0,0 drinsteht. Bei den vielen Fällen wo's egal ist, könnte man dann einfach Return drücken (noch schneller).

Schöne Grüße,

Walter

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

Schachinger
Ehrenmitglied V.I.P. h.c.
Konstrukteur



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

Beiträge: 2040
Registriert: 08.04.2002

AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D

erstellt am: 27. Okt. 2003 17:39    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 David Galvagno 10 Unities + Antwort hilfreich

(defun c:automaticb ()
  (setq p1 nil)
  (setq ss (ssget))
  (if (= (setq p1 (getpoint "(0,0,0)")) nil) (setq p1 "0,0,0")) 
  (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0))))))
  (setq l (strlen ent1))
  (setq ent1 (strcat "automaticblock" (substr ent1 14 (- l 14))))
  (command "_-block" ent1 p1 ss "" "_-insert" ent1 p1 "" "" "")
  )

soda, ist eingearbeitet. ist eine sinnvolle erweiterung die du vorgeschlagen hast (und nicht schwer zu realisieren gewesen)! 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

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

Ines
Mitglied
Bauzeichnerin


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

Beiträge: 271
Registriert: 24.05.2002

ADT 2011, ACAD 2011

erstellt am: 15. Sep. 2004 16:36    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 David Galvagno 10 Unities + Antwort hilfreich

Hallo,
ich kenn mich leider mit Lisp-Dateien nicht so gut aus.
Gibt es vielleicht die Möglichtkeit doch den Blocknamen eizutippen, oder diese Blöcke automatisch zu numerieren, da mir der Name nicht egal ist.
Ines

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

CADmium
Moderator
Maschinenbaukonstrukteur




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

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 15. Sep. 2004 16:49    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 David Galvagno 10 Unities + Antwort hilfreich

zieh dir mal dies in die Zeichnung:

(defun c:automaticb (/ p1 ss NAME) 
  (if(and(or(and(setq ss (ssget "I"))(>(sslength ss) 0))
            (and(setq ss (ssget))    (>(sslength ss) 0))
        )
        (or(setq p1 (getpoint "\n(0,0,0) : "))
            (setq p1 "0,0,0")
        )
        (and (or(setq NAME (getstring "\nBLOCKNAME : "))
                (setq NAME (vl-princ-to-string(cdr(assoc 5 (entget(ssname ss 0))))))
              )         
              (not(tblsearch "BLOCK" NAME))
        )
    )   
    (command "_-block" NAME p1 ss "" "_-insert" NAME p1 "" "" "")
  ) 
)

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 15. Sep. 2004 editiert.]

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

Ines
Mitglied
Bauzeichnerin


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

Beiträge: 271
Registriert: 24.05.2002

ADT 2011, ACAD 2011

erstellt am: 16. Sep. 2004 10: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 David Galvagno 10 Unities + Antwort hilfreich

Vielen Dank Thomas
Das funktioniert hervorragend.
Das spart mir ne Menge Zeit.

Ines


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