Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Block auflösen gesperrt - rückgängig machen?

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:  Block auflösen gesperrt - rückgängig machen? (2621 mal gelesen)
mapla
Mitglied
CAD Administrator


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

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Feb. 2011 11: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

Wie kann ich erkennen (DXF Daten oder so) ob bei einem Block das auflösen gesperrt wurde!
Kann ich das auch wieder Lisp seitig rückgängig machen?

Karsten

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

.

erstellt am: 25. Feb. 2011 12:19    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 mapla 10 Unities + Antwort hilfreich

via ActivX kannst du auf die Property "Explodable" in der Blockdefinition zugreifen und diese auch ändern.

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

mapla
Mitglied
CAD Administrator


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

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Feb. 2011 12: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 Thomas,
ich gehe davon aus das dieses in deinem Blockade.lsp aus 02/2008 ACAD magazin verwendet hast!
BlockLock / BlockUnlock!
leider habe ich die DVD gerade nicht zur Hand!
Würdest Du mir  lsp auch so zur Verfügung stellen?

Karsten

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

.

erstellt am: 25. Feb. 2011 12: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 Nur für mapla 10 Unities + Antwort hilfreich

Nee, kann ich so nicht ...

aber
(defun c:BLOCKUNLOCKALL (/ BLOCK)
  (if(>=(atof(getvar "ACADVER"))16.2)
    (vlax-for BLOCK (vla-get-blocks
                      (vla-get-activedocument
                        (vlax-get-acad-object)
                      )
                    )
      (if(and(=(vla-get-islayout BLOCK):vlax-false)
            (=(vla-get-isXref BLOCK):vlax-false)
        )     
        (not(vl-catch-all-error-p
                (vl-catch-all-apply
                  'vlax-put-property
                  (list BLOCK 'Explodable :vlax-true)
                )
              )
          )
      )
    )
    (prompt "\nBlock gegen Auflösen sperren wird erst ab ACAD2006 unterstützt")
  )
  (princ)
)

sollte dir helfen

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

mapla
Mitglied
CAD Administrator


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

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Feb. 2011 13: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

Hallo Thomas,
vielen Dank für die schnelle Hilfe ( dafür gibst volle Punktzahl!)
Das Tool funktioniert perfekt! Leider hat es mein Problem dennoch nicht gelöst!
Nachdem das gescheitert ist habe ich erst jetzt bemerkt, das es sich um einem anonymen Block *E... handelt!
Lassen die sich grundsätzlich nicht auflösen?

Auch die Meldung nach dem Explode ist etwas anders als bei gesperrten Blöcken

Dieser Block kann nicht aufgelöst werden.


wohin ein Block dessen Auflösung gesperrt ist die Meldung bringt

1 konnte nicht aufgelöst werden.

Karsten 

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

.

erstellt am: 25. Feb. 2011 13: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 mapla 10 Unities + Antwort hilfreich

es gibt noch MINSERTS .... die können mit Bordmitteln nicht aufgelöst werden ( Tool hilft )

und ungleich skalierte Blockreferenzen .. da hilft schon die SYSVAR EXPLMODE auf 1

berichte mal oder stell so ne dwg hier rein

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

mapla
Mitglied
CAD Administrator


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

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Feb. 2011 14: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


BlkAnonym.zip

 
Hallo Thomas,
ein MINSERT ist es nicht - das wäre in den Eigenchaften sichtbar und zudem würde die witzige Msg kommen
BLOCK ist MEINGEFÜGT

Habe den Block nach A2K-2000er Format konvertiert.
Trotz gleichem Blocknamen *E... , reagiert der Block im Gegensatz zu AC2011 auf ProxyShow(0/1)
Bisher hatte ich nur ProxyElemente die auch als solches im Eigenschaftsfenster gemeldet wurden,
und nicht als Blockreferenz!

siehe Anhang

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

.

erstellt am: 25. Feb. 2011 14: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 Nur für mapla 10 Unities + Antwort hilfreich

setzt mal die Skalierung gleich .... ganz bewußt im Eigenschaftsfenster auf 147 z.B bei x,y,z .. und probier es dann mit dem _explode 

.. da das ein Wipeout im Block ist , klappt es auch nicht mit explmode

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

mapla
Mitglied
CAD Administrator


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

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Feb. 2011 15: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

Hallo Thomas,
der Block ist in der Z-Achse doch nicht ident.
leider erst in der 4. nachkommastelle und deshalb im Eigenscahftenfesnster ohne aufdrhen der Einheiten nicht gleich sichtbar!
Und die Msg Meingefügt war wohl in früheren Versionen - sonst hätte ich es gleich bemerkt!
Wir stellen gerade um von 2002/2006 nch 2011!
Übrigens die Dwg aus der das Objekt stmmt - kommt aus dem Arabischen Raum!
Daher wohl die Meldung der Schulungsversion!


Karsten

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

mapla
Mitglied
CAD Administrator


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

Beiträge: 93
Registriert: 20.06.2007

120 CAD-Arbeitsplätze
Win7x64
HPNB Elite 8760W - 16GB
2011(2006)
ACADOEM-CAD+T 2011
Impression2de / 3En
AutoLisp
T1100 T1120 T770 / T1200 /OCE9400

erstellt am: 25. Feb. 2011 15: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

Hallo Thomas,
da hat sich die Antwort wohl überschnitten!
Vielen Dank für Deine Unterstützung :-)
ein schönes WE!

gruss Karsten

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