Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Ein Blockname mehrmals verwendet.

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:  Ein Blockname mehrmals verwendet. (425 mal gelesen)
RoyCAD
Mitglied
Dipl-Ing Energietechnik


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

Beiträge: 206
Registriert: 24.05.2004

Win XP
AutoCAD2008-2010
Inventor 2008-2010
Productstream Compass
P4 3,0GHz
512MB Ram

erstellt am: 03. Aug. 2005 09:46    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 habe da eine Frage, wenn ich ein Block Teil2 lösche ohne danach zu bereinigen und dann noch einmal machen oder einfach mehrmals erzeugen, dann will er natürlich den Block Teil2 neu definieren. Gibt es eine Möglichkeit dieser Vorgang umzugehenden.

(command "plinie" p1 p2 p3 p4  "s")
(setq AW(ssadd (entlast)))
(command "_-block" "Teil2" '(0 0 0) AW ""
        "_-insert" "Teil2" '(0 0 0) 1 1 0 0)

es wäre natürlich mit eine cond oder z.B. if Schleife möglich aber das ist sehr Aufwendig und nicht das was ich mich vorgestellt habe.

  (setq blockda (ssget "X" '((0 . "INSERT")(2 . "Teil2"))))
(if (/= blockda nil)
(setq Blockname "Teil2")
(setq Blockname "Teil3")
  )
   
(command "plinie" p1 p2 p3 p4  "s")
 
(setq AW(ssadd (entlast)))
(command "_-block" Blockname '(0 0 0) AW ""
        "_-insert" Blockname '(0 0 0) 1 1 0 0)


Gruß
RoyCAD

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


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

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 03. Aug. 2005 10:01    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 RoyCAD 10 Unities + Antwort hilfreich

Hallo Roy,

ich bin mir nicht sicher, ob ich Dich richtig verstanden habe, aber mit folgender Methode könntest Du einen Index an den Blocknamen anhängen.

(setq n 1);;Index
 
  (command "plinie" p1 p2 p3 p4  "s")
  (setq AW(ssadd (entlast)))
    (while (tblsearch "BLOCK"(strcat "Teil" (itoa n)))
      (setq n (+ n 1)))
 
    (command "_-block" (strcat "Teil" (itoa n)) '(0 0 0) AW ""
            "_-insert" (strcat "Teil" (itoa n)) '(0 0 0) 1 1 0 0)

getestet habe ich das ganze nicht, sollte aber eigentlich funktionieren

------------------
viele Grüße

Jörn

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

RoyCAD
Mitglied
Dipl-Ing Energietechnik


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

Beiträge: 206
Registriert: 24.05.2004

Win XP
AutoCAD2008-2010
Inventor 2008-2010
Productstream Compass
P4 3,0GHz
512MB Ram

erstellt am: 03. Aug. 2005 10: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

Das ist schon viel besser als meine Idee.

Gruß
RoyCAD

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

mapcar
Mitglied
CADmin



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

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 03. Aug. 2005 12: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 RoyCAD 10 Unities + Antwort hilfreich

Schönes Verfahren, sich die Zeichnung vollzumüllen und Blöcke zu erzeugen, deren Namen man hinterher gar nicht kennt.

Wie wär's denn mit EXPERT=2? Dann werden die Blöcke einfach neu definiert.

Gruß, Axel Strube-Zettler

------------------
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

RoyCAD
Mitglied
Dipl-Ing Energietechnik


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

Beiträge: 206
Registriert: 24.05.2004

Win XP
AutoCAD2008-2010
Inventor 2008-2010
Productstream Compass
P4 3,0GHz
512MB Ram

erstellt am: 03. Aug. 2005 12: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

Die Variable EXPERT auf  2 setzen, so einfach soll das sein, muss ich sofort ausprobieren.


Gruß
Roy

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