|
Rund um Autocad : AutoCAD Block beim einfügen Grösse verändern
CADmium am 18.04.2006 um 21:15 Uhr (0)
Zitat:Original erstellt von ochsner:Gibt es zu diesem Problem einen kleveren und günstigen Aufsatz damit ich die Blöcke variabel gestallten kann?Nein, das ist im "alten" Blockkonzept nicht vorgesehen. Jede Variante erfordert eine neue Blockdefinition. (.. die "dynamischen" Blöcke funktionieren auch nicht anders, bloß, das die Varianten automatisch als "anonyme Blockdefinitionen" erzeugt werden..)Eine Lösung für dich wäre eine entsprechende Programmierung (Lisp/VBA) , welche die gewünschten Varianten aus d ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Blöcke um Einfügepunkt spiegeln (Lisp oder Makro)
CADmium am 05.07.2010 um 10:33 Uhr (0)
reicht nicht (defun c:blkmirror ( / ALISTE tfac) (defun bau_elemli (asatz / n elemli) (if(=(type ASATZ)PICKSET) (progn (setq n -1) (repeat (sslength asatz) (setq elemli(cons (ssname asatz (setq N(1+ N))) elemli)) ) elemli ) ) ) (if(setq ALISTE (ssget "_X"((0 . "INSERT")))) (mapcar (lambda (el / DATA) (setq DATA(entget el)) (setq gc41(assoc 41 DATA)) (entmod(subst (cons 41(*(cdr gc41)-1))gc41 DATA)) ) (bau_elemli ALISTE) ) ) (command "_att ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : amsetup in LISp Datei
CADmium am 05.11.2008 um 14:58 Uhr (0)
amconvdwg ruft intern die Dateiauswahl auf ( ohne sich um Filedia oder Expert zu scheren .. ist so programmiert) Vefolge deshalb mal die Programmierunegn von - (genconvert) - (gencnvrt-start)(defun gencnvrt-start(/ foo olderr) (setq foo(getfiled(genmsg"gencvt"1)"""ccf"2)))in der Datei gencnvrt.lspdieses ersetzt du am besten durch(defun gencnvrt-start(/ foo olderr) (if(or(setq foo(findfile "D:PROGSMEINE.CCF")) (setq foo(getfiled(genmsg"gencvt"1)"""ccf"2)) ) foo ))Nur irgendwelchen Code kopieren reic ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Layoutwechsel per Script
CADmium am 09.08.2004 um 12:29 Uhr (0)
du erweiterst, deine acaddoc.lsp ( wird mit jeder Zeichnung geladen )um folgende Zeilen: (vl-load-com) (load c:lablalayoutexplode.lsp ) oder wie-und woauchimmer du das Lisp abgespeichert hast! und im script rufst du einfach all-explode auf! oder alles im Sript: (vl-load-com) (load c:lablalayoutexplode.lsp ) all-explode Nicht vergessen (Mache-das) durch(burst-neu) zu ersetzen! Und zu den Lokalen Funktionen : (defun MAIN ( / SUB) ) ..alles was hinter dem / in der Funkti ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Konusabwicklung / Kegelabwicklung als LISP
CADmium am 01.02.2005 um 16:29 Uhr (0)
naja, kurz vor Feierabend zum Gehirn lockern : ..ich hab mir den mathematischen Zusammenhang etwas anders hergelitten .. (deine Sammlung - Foxus - ist wirklich nur der Zusammenhang,keine Lösung..) herausgekommen ist auf die Schnelle sowas : (defun ABW-Kegelstumpf (DU DO H / A1 R1 R2 A) (setq A1 (atan(/ H 0.5 (- DU DO)))) (setq R1 (/ DU 2 (cos A1))) (setq R2 (/ DO 2 (cos A1))) (setq A (/ (* DU PI) R1)) (command _PLINE ) (command (list (*(sin(/ A 2))R1 )(*(cos(/ A 2.0))R1) 0.0)) ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Block bearbeiten - Elemente ausserhalb des Blocks
CADmium am 18.08.2008 um 09:33 Uhr (0)
na ja .. wenn man mit ACAD-Befehlen Eigenschaften oder anderes ändert, werden die Objekte außerhalb der Blockdefinition ausgeschlossen und die Meldung erscheint. Wendet man Tools (Lisp o.ä.) auf die ausgegraute Auswahl an, interessiert es nicht, das die Objekte nicht zum Block gehören, da wird einfach dann der auswahlsatz abgearbeitet.Vielleicht ist die "Bearbeitungssperre" in früheren ACAD-Versionen noch nicht ganz vollständig implementiert ... _refedit in der Forem gibt es ja auch noch nicht soooo lang ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Optionen und Bildschirmhintergrund
CADmium am 10.06.2005 um 10:51 Uhr (0)
Mit Lisp gehts z.B. so SWITCH_BACKCOLOR : Schaltet die Hintergrundfarbe des Modellbereiches von schwarz auf weiß und umgekehrt. (defun c:SWITCH_BACKCOLOR ( /); ANZEIGE ) (vl-load-com) (setq Anzeige(vla-get-Display(vla-get-Preferences(vla-get-application(vlax-get-acad-object))))) (if (= (vlax-variant-value(vlax-variant-change-type(vla-get-GraphicsWinModelBackgrndColor ANZEIGE) vlax-vbLong))0) (progn (vla-put-GraphicsWinModelBackgrndColor ANZEIGE 16777215) (princ Hintergrund Modellbe ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : alle layer auf einen Kopieren
CADmium am 13.03.2008 um 21:14 Uhr (0)
(setq LAYERDATEN (GET_LAYER (cdr(assoc 8 OBJEKTDATEN)))) kannst du auskommentieren und dann die Zeilen wo Layerdaten verwendet werden, also bei der Linienstärke ebenfallsn Semikolon vor.P.S. ich finds nicht so toll, wenn einfach nur kopiert wird, ohne sich die Mühe zu machen , die Sachen wenigstens im Ansatz zu verstehen oder zumindest das zu wollen, aber .. nun ja ..stellt euch mal vor , hier postet einer n Lisp, das alle eure dwgs löscht.. (ich nicht )das brauch noch nicht mal ne kompilierte vlx ...
|
| In das Form Rund um AutoCAD wechseln |
 |
Rund um AutoCAD : Lisp für Scheitelpunkte bereinigen...
CADmium am 02.06.2014 um 21:19 Uhr (15)
wronzky schrieb mal dazu: ....eine schnelle Methode wäre die Datei als DXF-Datei abzuspeichern und in den Einstellungen die Anzahl der Dezimalstellen der Ausgabe auf 0 oder 1 stellen. Aber Achtung! Das rundet gnadenlos ALLE Koordinaten. Für Teilbereiche kannst Du die zu rundenen Objekte als Wblock in eine separate Datei schreiben und dann diese Datei über DXF "runden".Ich hatte auch mal ein Tool dafür geschrieben .. finde es momentan aber nicht ... kannst ja selbst noch mal suchen.Ein Link noch dazu Klick- ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Script aus Lisp mit Command aufrufen
CADmium am 11.09.2007 um 14:51 Uhr (0)
Zitat:Original erstellt von Peter2:Herzlichen Dank an beide. Mein Kurztest zeigt, dass es mit Übergabe von Strings klappt, dass er aber anscheinend Variablen nicht auswerten kann: Rückgabe nil, keine Meldung, keine Änderung naja .. Meldungen hab ich mir verkniffen .. aber das mit den Variablen kann ich nicht nachvollziehen.. Das erste Argument muß eine Liste mit Layernamen(Strings) sein, nicht existierender Layer werden aussortiert, das 2. muß ein existierender Layername sein. (das Anlegen hab ich mir auc ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Lisp für Schaltfläche: Linie erzeugen
CADmium am 12.02.2004 um 10:35 Uhr (0)
Lad dir mal das : (defun c:Fadenkreuz ( / OLDLAYER LAYERNAME PUNKT) (setq OLDLAYER (getvar CLAYER )) (setq LAYERNAME 0 ) (if (tblsearch LAYER LAYERNAME) (setvar CLAYER LAYERNAME ) ;Layer aktuell setzen ) (if(setq PUNKT (getpoint Punkt eingeben : )) (progn (command _pline (mapcar - PUNKT (2500 0 0)) (mapcar + PUNKT (2500 0 0)) ) (command _pline (mapcar - PUNKT (0 2500 0)) (mapcar + PUNKT (0 2500 0)) ) ) ) (setvar CLAYER OLDLAYER ) (princ ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : cui
CADmium am 04.11.2008 um 10:33 Uhr (0)
Zitat:Original erstellt von lutzc:Weißt du vielleicht auch eine Lösung auf meine andere Frage,wie ich Supportpfade per Lisp ergänzen kann?Danke und GrußChristianam einfachsten geht das wohl über (getenv "ACAD") und (setenv ACAD PFADLISTSTRING)Eine andere Möglichkeit wäre über ActiveX mittels (vl-load-com)(vla-get-supportpath(vla-get-files(vla-get-preferences(vlax-get-acad-object))))und z.B.(vla-put-supportpath(vla-get-files(vla-get-preferences(vlax-get-acad-object))) "C:")bei Fragen oder Suche eines Komp ...
|
| In das Form Lisp wechseln |
|
Lisp : Sound in Lisp?
CADmium am 02.11.2004 um 13:07 Uhr (0)
Zitat:Original erstellt von CADchup:Nur der Vollständigkeit halber:Wer die Express Tools installiert hat kann auch(acet-sys-beep)nutzen.Ich zitiere:"Make a noise. sound can be one of: -1: Standard beep using computer speaker 0: SystemDefault 16: SystemHand 32: SystemQuestion 48: SystemExclamation 64: SystemAsterisk"GrußCADchupmußte aber Soundkarte installiert haben , nur mit dem PC-Speaker gehts leider nicht... Option -1 liefert bei mir auch nur was über Soundkarte .. EDIT: je nachdem.. wen ...
|
| In das Form Lisp wechseln |
