|
Rund um Autocad : Auswahlsätze mit Hilfe von Attributeinträgen erstellen
marc.scherer am 03.04.2003 um 14:36 Uhr (0)
Hi, bitteschön, meine Lösung in Lisp: [mit schön n paar mapcar s für den Axel ;-)] Code: (defun C:ATT-SEARCH (/ BLOCKLST BNAMES SEARCHATTNAME SEARCHWHAT SGET SSRETVAL X) (setq SEARCHATTNAME (getstring "
Name des Attributs in dem der Text gesucht werden soll?: " ) ;_ end getstring SEARCHWHAT (getstring "
Zu suchender Text? (Wildcards-möglich): ") ) ;_ end setq (if (not (and SEARCHATTNAME SEARCHWHAT)) (alert "Unzureichende Angaben. ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Blockattribut 1x eingeben und mehrfach anzeigen lassen
marc.scherer am 16.02.2006 um 18:38 Uhr (0)
Zitat:Original erstellt von romi1:Mit einem Tool würds gehen - sicher,aber dann werden ja wieder die Dateninhalte geändert,und das birgt so seine Gefahren, man mit dem rauf- undrunter skalieren, das irgendwann die Daten nicht mehrsauber sindWie dem auch sei.Ein Tool wirst Du für diese Aufgabenstellung auf jeden Fall brauchen.Ich glaube auch die dynamischen Blöcke in R2006 helfen Dir da nicht weiter; jedenfalls nicht bei Masseninserts.Deine Lösung mit den Layern geht auch, aber Du hast immer das Synchronis ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Blockname konvertieren ??
marc.scherer am 06.05.2004 um 11:41 Uhr (0)
Hi fbeckersm, na denn will ich mal. Hab mal was für Dich zusammengestellt: (den Vorgabe-Dateinamen für die Parameterdatei kannst Du ja selbst im Pgm ändern.) Vielen Dank an Axel mapcar Strubbe-Zettler für die ganze mapcar-Magie (vlax*... und laden von Parameter-Files mittels load) Format der Übersetzungsdatei: (erster Eintrag ist der alte Name, zweiter der neue Name) Code: (list ( 1 Eins ) ( 2 Zwei ) ( 3 Drei ) ( 4 Vier ) ) Programmcode: Code: ;;; ActiveX Extension laden.. ...
|
| In das Form AutoLisp wechseln |
|
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 ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Textfilter nach Höhe in Skript
marc.scherer am 13.11.2006 um 09:29 Uhr (0)
Hi ChrisIn,Du solltest UNBEDINGT die VLIDE benutzen (Befehl: VLIDE)!Insbesondere die Debugging-Funktionen (Hilfe: Introducing Visual LISP Debugging Features).Zum Textstil hab ich Dir hier noch mal ne Beispiel-Anwendung zusammengeschraubt. Hier auch wieder die Technik mit Subroutinen-Aufruf. In diesem Fall eine Subroutine zum erzeugen von Objektlisten gemäß ssget-Filterbedingungen...Code:;|Textstyle-ChangerÄndert den Stil von Textobjekten.Beim MText nicht den eventuell manuell veränderten Font,das ist ne an ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Alle Blöcke exportieren/importieren?
marc.scherer am 10.02.2004 um 09:50 Uhr (0)
Erster!Code:;;; Block-Out.LSP;;; Erzeugt aus jedem internen Block eine eigene DWG-Datei in einem;;; automatisch angelegten Unterverzeichnis des Windows-Temp-Ordners,;;; das anschließend im Explorer angezeigt wird.;;; (In der Explorer-Grundeinstellung wird der Temp-Ordner bei den;;; meisten Windows-Versionen NICHT angezeigt);;; ;;; Autor: Marc Scherer (marc.scherer@zvo.com);;; Bestandteil der HERDT-Schulungsunterlage;;; AutoCAD 2004 - 2D-Aufbaukurs (Autor: Peter Tropf)(defun C:BLOCK-OUT (/ PATH XREF-L ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
marc.scherer am 10.05.2004 um 19:28 Uhr (0)
Uuund anbei noch mal n komplettes Ding... Code: (vl-load-com) ; Macht einen Layer aktuell (defun SET-LAYER (NAME / RETVAL) (vla-put-activelayer (CURRENT-DOCUMENT) (setq RETVAL (vla-item (DOCUMENT-LAYERS) NAME)) ) ;_ Ende von vla-put-ActiveLayer RETVAL ) ;_ Ende von defun ; gibt das Vla-Object zu einem ; Layernamen zurück (defun layer-object(name / result) (vlax-for layer(document-layers) (if (=(strcase name) (strcase(vla-get-name layer)) ) (setq result lay ...
|
| In das Form AutoLisp wechseln |
|
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 ...
|
| In das Form Rund um Autocad wechseln |
