|
Rund um Autocad : Block als Icon erstellen
marc.scherer am 16.03.2007 um 10:51 Uhr (0)
Zitat:Original erstellt von tom2323:Ich dachte mir das so ich klick auf das neue Icon daraufhin hab ich den block am Mauspfeil hängen Richtung , Größe und dann block auflösen.Könnte man einfachst so machen (ohne besonderes Errorhandling!):Code:(defun INS_BLCK (NAME_BLOCK / PKT1 INS_NAME OBJ LAYNAM) (setq INS_NAME (strcase NAME_BLOCK)) (princ (strcat "Block: " "" " INS_NAME " "" " wird eingefügt, und "zerlegt"." "
Objekt wird auf den AKTUELLEN Layer gelegt !" ) ;_ end strcat ) ;_ end princ ( ...
|
|
Rund um Autocad : Blöcke neu definieren über Script
marc.scherer am 04.11.2005 um 15:45 Uhr (0)
Hi,ich benutze dafür immer so etwas in dieser Art hier:Code:(vl-load-com)(defun MS:NO-XREF (/ BLIST BCOLL OBJ) (setq BCOLL (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)) ) ) (if ( (vla-get-count BCOLL) 0) (progn (vlax-for FORITEM BCOLL (setq BLIST (cons FORITEM BLIST)) ) (vl-remove-if (function (lambda (X) (apply (lambda (OBJ /) (if (= (vla-get-isxref OBJ) :vlax-true ) t ) ...
|
|
Rund um Autocad : Blöcke mit Attributen
marc.scherer am 21.12.2001 um 13:12 Uhr (0)
Hi, ersetze die "attributifizierten" Blöcke doch einfach GLEICH durch neue Blöcke... Für solche Fälle benutze ich immer diese Pgme: pre ;;; Pgm "BRED" ersetzt vorhandene Inserts durch andere Inserts ;;; Attributwerte werden nicht berücksichtigt. ;;; Passe die Variable "BLLIST" auf Deine Bedürfnisse an ;;; Aufbau von "BLLIST" (("Alter Blockname" "Neuer Blockname")(..)) ;;; Die Ersetzungsliste kann soviele Blöcke wie nötig enthalten. ;;; Voaraussetzung ist aber, daß die neuen Blöcke entweder in der ;;; akt ...
|
|
Rund um Autocad : Systemvariable für die Blockkonvertierung
marc.scherer am 10.05.2002 um 09:09 Uhr (0)
Hi C., zu: "Die Sysvar müßte es allerding geben, da man in der Dialogbox von "Block" bei MDT6 einstellen kann, das die geblockten Elemente nicht gelöscht werden." Das ist doch Blödsinn, wieso muß es dann ne Sysvar geben? Mit dem Haken wirst Du eben einfach nur dem Blockerzeugungsprogramm "sagen", daß der Block nach der Erstellung nicht gelöscht werden soll. Mit Sysvars muß das nicht immer was zu tun haben, daß kann doch auch nur ne Programminterne Verzweigung sein. Ciao, Marc
|
|
Rund um Autocad : Aus Objekte Block erstellen, Name egal
marc.scherer am 26.09.2002 um 17:23 Uhr (0)
Hi Bernd, Dein Menümakro: ^C^C_copybase;;^C^C_erase;p;;^C^C_pasteblock; enthält ein paar unsinnige Zeichen. Auch wenn es funktioniert (bei mir übrigens nicht), benötigst Du ^c^c nur AM ANFANG eines Makros, NIE mittendrin. Das ^c^c am Anfang soll nur dafür sorgen, das der Befehlsinterpreter beim Start des Makros "frei" ist. Mittendrin macht also keinen Sinn. ------------------ Ciao, Marc
|
|
Rund um Autocad : Lisp-->Attribute-->Werte finden und ersetzen
marc.scherer am 01.11.2002 um 10:04 Uhr (0)
Hi Benwisch, check mal diesen Code an, da müßtest Du alles drin finden was Du für sowas brauchst... Code: ;;; *********************************************************************** ;;; * ATT-CLONE dient zum Übertragen von Attributwerten eines Blockes auf * ;;; * beliebige andere Blöcke. * ;;; * Bei identischen "Feldnamen" (also AttributNAMEN) wird der Wert des * ;;; * Quellblocks als Wert des zu klickenden Zielblocks eingetragen. * ;;; * Versuch s mit de ...
|
|
Rund um Autocad : Blöcke extrahieren in Datei
marc.scherer am 11.12.2002 um 10:12 Uhr (0)
Hi, ich hab auch noch einen: Code: ;;; erzeugt aus allen internen Blöcken Wblöcke im Pfad: ;;; c:Tempout[Date] (defun c:block-out (/ PATH XREF-LST OLD-CMD OLD-FDIA MAP-CHK) (setq xref-lst (VON-TABLE 14)) ;_ Liste erstellen, nur interne Blocks (if (not xref-lst) (alert "Keine Blöcke in aktueller Zeichnung definiert! Funktionsende." ) ;_ end of princ (progn (setq old-fdia (getvar "filedia") ;_ save sysvars old-cmd (getvar "cmddia") ) ;_ end setq (setv ...
|
|
Rund um Autocad : Lisp Tool funzt nicht !?
marc.scherer am 20.12.2002 um 14:01 Uhr (0)
Hi, für alle anderen die an der Lösung Interessiert sind: Code: ;;; OEFFNEN.LSP ;;; VERSION 1.2 ;;; Pgme zum Öffnen von Blöcken und Xref s aus einer Zeichnung heraus. ;;; Kommandos: XOPEN - Öffnet Xref - DWG s ;;; BOPEN - Öffnet Block - DWG s ;;; Für Acad-Releases ab Acad2000 ;;; Wenn SDI = 1 wird eine weiter AutoCAD Sitzung geöffnet ;;; Wenn SDI = 0 wird der Block / das XREF in einem weiteren Dokumentenfenster geöffnet ;;; Erforderliche Dateien: ;;; DOSLIB 5.0 oder höher [www.mcneel.com] - ...
|
|
Rund um Autocad : z-Koordinate
marc.scherer am 27.04.2004 um 10:59 Uhr (0)
Hi, versuch s mal hiermit: Code: (defun c:hkote (/ ATTDIA-S DIMZIN-S DXF-CODE ENAME KOORD SGET SNAME) (if (find-block hkote ) (progn (setq attdia-s (getvar attdia ) dimzin-s (getvar dimzin ) attreq-s (getvar attreq ) ) ;_ end of setq (setvar attdia 0) (setvar dimzin 0) (setvar attreq 1) (if (not (setq SGET (ssget I ))) (progn (princ
Objekte für Beschriftung wählen: ) (setq sget (ssget)) ) ...
|
|
Rund um Autocad : farbe ohne explode ändern????
marc.scherer am 23.08.2006 um 16:51 Uhr (0)
Hey Kickdown,AutoCAD2000 hat IMHO noch keinen Blockeditor.Also würde ich die klassische Methode verwenden:# Block über Befehl: WBlock als eigene DWG-Datei exportieren# Diese Datei in AutoCAD öffen# Objekteigenschaften je nach Wunsch ändern und speichern.(unbedingt die Hilfe zum Thema Blöcke lesen: Besondere Bedeutung des Layers "0", Objekteigenschaften "VonLayer" und "VonBlock")# Bearbeitete Zeichnung als Block über den Befehl: Einfüge in die Ursprungszeichnung einfügen, Frage nach neudefinition bejahen, b ...
|
|
Rund um Autocad : Support Pfad - Block Einfügen
marc.scherer am 28.02.2007 um 10:59 Uhr (0)
Klar ;-),hier ein einfaches Beispiel:(Edit: Subroutine MONIKABFINDBLOCK verbessert, Überprüfung der Argumente = flexiblere Parameterübergabe)Code:(VL-LOAD-COM);|Einfügefunktion für Blöcke.Argumente:STRBLOCKNAME = Blockname, eventuell mit Teilpfadangaben als String Subroutine überprüft die Pfadangaben (siehe Sub MONIKABFINDBLOCK)Beispielaufrufe:(MONIKABINSERT "/3-DIVERSES/block.dwg")(MONIKABINSERT "3-DIVERSES/block.dwg")(MONIKABINSERT "3-DIVERSES/block")(MONIKABINSERT "block")(MONIKABINSERT "block.dwg")| ...
|
|
Rund um AutoCAD : Attributsdaten übertragen
marc.scherer am 07.05.2009 um 11:01 Uhr (0)
Zitat:Original erstellt von Iris2:Geht sowas überhaupt?Hi Iris2,es geht eigentlich so gut wie alles.Jedoch benötigt man auch ne klare Vorstellung von dem was man eigentlich will.Aus Deiner Beschreibung kann ich nicht so ganz herauslesen was genau Du willst.Man benötigt schon präzisere Angaben als Du sie hier postest um eine Anpassung vornehmen zu können.Att-Clone macht ja nix anderes als aus einem zu klickenden Block die Attribute auszulesen und dessen Attributwerte auf gleichnamige Attribute eines andere ...
|
|
Rund um AutoCAD : Attributsdaten übertragen
marc.scherer am 07.05.2009 um 15:44 Uhr (0)
Hi Iris2,das heißt also:# Jedes Layout hat immer nur ZWEI in Frage kommende TitleBlocks?Fragen:# Warum unterscheiden sich die Namen der Quellblöcke pro Layout? (Dein Beispiel: Kopf0001, Kopf0002 ...). Ist das nicht immer derselbe Block?# Welchen Regeln folgt die Benennung der Zielblöcke (Dein Beispiel: KopfP001, KopfN002)? Ist das nicht immer "KopfP*"?# Ist 100% gewährleistet, das sich nur zwei TitleBlocks (Quell- und Zielblock) in jedem Layout befinden?# Soll die Funktion nur auf dem jeweils aktiven Layou ...
|
