|
Lisp : Kreise durch Punkte ersetzen
CADmium am 11.03.2009 um 21:27 Uhr (0)
Warum keine lokale Variablen ?Warum ssget nicht gleich nur auf Kreise anwenden?Warum keine ordentliche Verzweigung , falls der Auswahlsatz leer ist?Warum keine Umwandlung Auswahlsatz-Objektliste und dann Weiterarbeien mit der Liste, z.B mit mapcar ...Aber wenn es deinen Ansprüchen genügt, soll es ok sein ... (meine ich jetzt positiv) denn du bist derjenige, der es einsetzten soll, und der mit etwaigen Mucken klarkommen muss..Haste dich nun schon mit dem Tutorial vom Mapcar befaßt ?------------------ - Th ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Layer in Blöcken und-color: #FFFF99'>suchen / finden
CADmium am 02.03.2005 um 15:03 Uhr (0)
ohne Dialog, d.h. den Layernamen mußt du noch eingeben folgendes Tool ..gibt eine Liste mit Blocknamen zurück, in denen der gesuchte Layer referenziert ist Wenn OBJDELETE? mit T übergeben wird, werden die Elemente, die den Layer referenzieren gleich gelöscht. Aufruf z.B.(DT:SEARCH-LAYER-INBLOCK AM_GEL nil) oder DT:SEARCH-LAYER-INBLOCK in der Befehlszeile ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Lisp soll nach Blöcken und-color: #FFFF99'>suchen
CADmium am 07.04.2009 um 13:09 Uhr (0)
(if(or(tblobjname "BLOCK" "A-RAHMEN") (tblobjname "BLOCK" "B-RAHMEN") ) (alert "Falscher Rahmen"))die Zeilen in der acaddoc.lsp integriert sollten genügen ... sucht jetzt nur nach Blockdefinitionen, nicht nach Referenzierungen ... aber ein Bereinigen schadte ja auch nicht------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Text automatisch ersetzen
CADmium am 29.09.2004 um 11:42 Uhr (0)
Auch wenn das hier kein Wunschbrunnen ist .... (defun Tausche (Altertext Neuertext / Auswahl Index OBJEKTDATEN) (if(and(=(type Altertext) str) (=(type Neuertext) str) (setq AUSWAHL(ssget _x (list (0 . *TEXT )(cons 1 ALTERTEXT)))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX))))) (entmod(subst(cons 1 NEUERTEXT) (assoc 1 OBJEKTDATEN)OBJEKTDATEN)) ) ) ) ) ersetzt in ...
|
| In das Form AutoLisp wechseln |
|
Autocad VBA : Blöcke mit bestimmten Layer und-color: #FFFF99'>suchen
CADmium am 01.03.2007 um 11:25 Uhr (0)
1.durch die Blocktabelle iterieren-bei jedem Block durch die Objektliste iterieren- jedes Objekt auf entsprechenden Layer testen- wenn TRUE, dann Blocknamen merken 2. durch die Blocktabelle (oder nur durch die Layoutblöcke, wenn keine Verschachtelungen berücksichtig werden sollen) iterieren - bei jedem Block durch die Objektliste iterieren- bei jeder Blockreferenz eines Blockes, von dem der NAme auf der MERKLISTE steht- Blockreferenzobject in die Auswahlliste(Auswahlsatz)------------------ - Thomas -"Bei ...
|
| In das Form Autocad VBA wechseln |
|
Lisp : Fonts in Textstilen automatisch ersetzen lassen
CADmium am 16.11.2009 um 10:23 Uhr (0)
Wenn es nur um die Fonts geht .. und nicht um die Zusammenführung der verschiedenen Textstile , reicht es , die Textstile entsprechend zu bearbeiten.Dazu kann man mit(vl-load-com)(vlax-for ITEM (vla-get-textstyles (vla-get-activedocument (vlax-get-acad-object))) (setq LISTE (cons (list(vla-get-name ITEM) (vla-get-fontfile ITEM) ITEM) LISTE)) )sich eine Liste der Textstyle mit den Fonts estellen ,da eine Zuordnung schaffen und mit (vla-put-fontfile .. einen neuen zuordnen------------------ - Thomas -"Bei ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Unter Windows nach Layern und-color: #FFFF99'>suchen
CADmium am 16.01.2018 um 09:34 Uhr (1)
Script, was alle Dateien eines Verzeichnisses nacheinander öffnet, analysiert und ein Log schreibt ... ??Geht auch mit einem Tool, welches alle DWGs eines Verzeichnisses (mit Unterverzeichnissen) per DBX öffnet , nach dem vorgabe-Layer guckt und dann ne Meldung ausgibt ... ist aber alles etwas Progarbeit und kein 10-Zeiler------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibun ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Kann man nach Attribut-Handle-Nummer und-color: #FFFF99'>suchen ?
CADmium am 17.06.2010 um 11:02 Uhr (1)
hatte ich auch zuerst, bei Attributen oder veschachtelten Objekten war das aber nicht ganz das wahre ( da da die ganze Referenz angezoomt wird) .... geht IMHO auch erst ab 2006 die Option "o" beim zoom .... aber egal.. der Hinweis drauf ist ja nicht schlecht ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Simulation beschleunigen / command Befehl ersetzen
CADmium am 10.06.2009 um 08:35 Uhr (0)
ok .. mal eine etwas universellere Rotatefunktion ....(vl-load-com)(defun ROTATE (OBJ PKT DELTA DELAY / ENDE) (if(and(setq OBJ(cond ((=(type OBJ)VLA-OBJECT)OBJ) ((=(type OBJ)ENAME)(vlax-ename-vla-object OBJ)) ) ) (numberp DELTA) (numberp DELAY) (=(type PKT) LIST) (=(length PKT) 3) (vl-every numberp PKT) ) (repeat 1000 (vla-rotate OBJ (vlax-3d-point PKT) DELTA) (vla-update OBJ) (setq ENDE (+(getvar "MILLISECS")DELAY)) (While((getvar "MILLISECS") ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linien mit ignoriertem Muster und-color: #FFFF99'>suchen
CADmium am 14.04.2005 um 18:19 Uhr (0)
finden .. und dann? .. die Länge der Linientypdefinition findet man im GC40 des Linientyps, ist der Objektlinientyp VonLayer muß man sich entsprechend über den Layer durchhangeln. vla-get-length liefert die Länge der Linien, dann noch vergleichen und man hat die entsprechenden Linien. Entweder du läßt das ganze über einen Auswahlsatz laufen, oder durchhechelst mittels (vlax-for LAYOUT(vla-get-layouts(vla-get-activedocument(vlax-get-acad-object))) (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT)) ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Blöcke und-color: #FFFF99'>suchen über Befehl Skript File Dir
CADmium am 17.01.2005 um 10:44 Uhr (0)
in der Hoffnung richtig zu raten : Meinst du sowas ? (defun xxx (Blockname / sset) (setq sset(ssget _x (list ( 0 . INSERT ) (cons 2 BLOCKNAME)))) (sssetfirst SSet SSet) ) Aufruf dann (xxx NAME ) oder reicht vielleicht die Schnellauswahl? oder durchsuchst du mehrere Zeichnungen nach einem Blockvorkommen ??? ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben. [Diese Nachricht wurde von CADmium a ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Nach Block in Zeichnung und-color: #FFFF99'>suchen
CADmium am 20.02.2012 um 08:46 Uhr (0)
..eigentlich sollte ja genau Suchbegriffe bei gewesen sein .. ?!Was willst du denn genau wissen / machen ?(tblobjname "BLOCK" "AAA") - liefert dir das Blockdefinitionsobjekt, wenn vorhanden--------(while (setq BL(tblnext "BLOCK" )) ---- geht durch die Blocktabelle (princ(strcat "
"(cdr(assoc 2 BL)))))------(setq BLOCKNAME "AAA")(setq BLOCKLISTE nil)(while (setq BL(tblnext "BLOCK" )) ---- geht durch die Blocktabelle (setq OBJDATA(entget(tblobjname "BLOCK"(cdr(assoc 2 BL))))) (while(/= (cdr (assoc 0 OBJEKT ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Befehl NEU durch SNEU ersetzen
CADmium am 28.09.2009 um 13:00 Uhr (0)
ok, dann volständig vorgekaut:(defun DT:SNEW (/ DWT ) (vl-load-com) (and(or(and(setq DWT(vl-registry-read (strcat "HKEY_CURRENT_USER" (vlax-product-key) "PROFILES" (vla-get-ActiveProfile (vla-get-PROFILES (vla-get-preferences (vlax-get-acad-object) ) ...
|
| In das Form Rund um AutoCAD wechseln |
