|
Rund um Autocad : Systemvariable per Lisp setzen
wklemens am 09.02.2003 um 20:10 Uhr (0)
@CADWOMAN: Bei Deinem Tip würden dann aber alle Variablen, also auch für Bemaßung usw. überschrieben werden. Ich würde die entsprechenden Variablen mit (setvar "VARNAME" WERT) in die Datei ACAD2000DOC.LSP schreiben. Mehr als 10 Variable sind sicher nicht notwendig: MBUTTONPAN, WMFBKGND, FILEDIA, ATTDIA, DIMASSOC und vielleicht sonst noch ein paar. ------------------ Grüße aus Linz Willi Klemens MCDS Datensystem GmbH www.mcds.net
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Farbbenennung
wklemens am 17.02.2003 um 22:13 Uhr (0)
Benennung der Farbe über Lisp: (setq Kieselgrau 254) (setq myBlue 151) ;oder (setq myYellow 41 myRed 12 MyColor 130 ) Setzen der Farbe im AutoCAD: -farbe !Mycolor -Farbe bedeutet: Farbe über Befehlszeile, Mit !MyColor wird die Farbe Mycolor übergeben, wichtig ist das Rufzeichen für die Variable. ------------------ Grüße aus Linz Willi Klemens MCDS Datensystem GmbH www.mcds.net
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : WBLOCK mit VBA
wklemens am 28.02.2003 um 11:32 Uhr (0)
@Roland: Ich habe eben kein SelectionSet. Die Blöcke sind in der Zeichnung bereits eingefügt. Ich will alle Blöcke aber als WBLOCK exportieren - und das in VBA. In LISP ist das eh kein Problem. Meine jetzige Möglichkeit ist über SendCommand "._wblock" ...., aber das ist nicht gerade eine saubere Lösung. Als entweder ich bekomme ein SelectionSet von einem Block nur über den Blocknamen oder ???? ------------------ Grüße aus Linz Willi Klemens MCDS Datensystem GmbH www.mcds.net
|
| In das Form Rund um Autocad wechseln |
|
Autocad LT : Menüdatei
wklemens am 05.03.2003 um 20:12 Uhr (0)
@Chistian Marx: Du hast mich falsch verstanden! Ich befürworte Notepad. Man braucht nichts installieren, ist überall dabei und hat keine Lizenzprobleme. Ich programmiere selbst LISP im Notepad und nicht in der VisualLisp-Umgebung von AutoCAD. Im Notepad kann man auf jedenfall sicher sein, daß alles so ist wie man es will. Man braucht nicht immer ein eigenes Programm für x oder y. Wenn ich vorort beim Kunden schnelle Anpassungen mache, gibts auch nur Notepad. Daher 10 Unit´s ------------------ Grüße aus Li ...
|
| In das Form Autocad LT wechseln |
|
AutoCAD Mechanical : BKS ausschalten
wklemens am 10.01.2003 um 12:04 Uhr (0)
Hallo! Das mit dem Lisp-Eintrag funktioniert schon, aber es muß auch in der richtigen Datei stehen. Die Datei ACADDOC.LSP wird nur beim Start von AutoCAD geladen, daher ist wird das BKS-Symbol nur in der ersten Zeichnung ausgeschalten. Wird der Eintrag (setvar "UCSICON" 0) aber in die Datei ACAD2000DOC.LSP eingetragen, wird bei jedes mal das BK-Symbol abgedreht.-- ACAD2000DOC.LSP wird mit jeder Zeichnung geladen, ACAD2000.LSP nur beim start von ACAD. lg aus LINZ Willi Klemens
|
| In das Form AutoCAD Mechanical wechseln |
|
Rund um Autocad : Layerfarben übertragen
wklemens am 19.03.2003 um 15:24 Uhr (0)
@Mangeli: AB AutoCAD 2002 gibt es den Befehl LAYTRANS. Mit diesem Befehl können ganz leicht und schnell Layereinstellungen von einem System auf ein anderes layersystem geändert werden. Man kann das dann auch über einen LISP-Befehl manchen und dann eventuell ganze Verzeichnisse ansprechen. In AutoCAD Mechanical gibt es aber auch die Möglichkeit Zeichnungen von einem Standard auf einen anderen zu ändern ( geht hier seit Genius14) ------------------ Grüße aus Linz Willi Klemens MCDS Datensystem GmbH www.mc ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layerfarben übertragen
wklemens am 19.03.2003 um 16:53 Uhr (0)
Bitte nicht mit Cut & Paste!!!! Schreib Dir lieber ein kleines LISP-Programm, das die Farben entsprechend ändert: z.B.: (defun c:MyLayers ( / ) (command "._layer" "_ma" "layer1" "_co" 1 "" "_lt" "continuous" "" "") (command "._layer" "_ma" "Layer2" "_co" 2 "" "_lt" "MITTE" "" "") (command "._layer" "_ma" "layer3" "_co" 5 "" "_lt" "CENTER" "" "") (princ) ) Dadurch werden die Layer angelegt oder auf die entsprechenden Farben und Linientypen gesetzt. Linientypen müssen geladen sein. Programm läßt sich noch v ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Bemaßung importieren
wklemens am 12.02.2003 um 21:54 Uhr (0)
Ersetlle eine Zeichnung mit den verschieden Bem-Stilen. Wenn dann diese Zeichnung, die nur aus BEM-Stilen und sonst nichts enthält in Deine neue Zeichnung über den Einfügebefehl importiert wird, sind dei Bemaßungsstile auch eingefügt. Hier ein Beispiel für ein LISP-Macro: (defun c:LoadBEMStil ( / $cmdecho) (setq $cmdecho (getvar "CMDECHO")) (setvar "CMDECHO" 0) (command "._insert" "MyBEMSTil.dwg")) (command) ; Befehl wird abgebrochen ;und dadurch nicht vollständig eingefügt. (command "._purge" ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : WBLOCK mit VBA
wklemens am 05.03.2003 um 09:53 Uhr (0)
@Roland: Vielen Dank! Das Filtern der Blöcke ist kein Problem. Ich möchte eigentlich nur bereits in der Blocktabelle abgelegte, in der Zeichnung aber nicht eingefügte Blöcke als WBLOCK über VBA speichern. Der Umweg über den eingefügten Block mit Ursprung ist zwar eine Lösung, die Gut funktioniert, aber einen Auswahlsatz direkt aus der Blocktabelle wäre super. Vielleicht geht das auch nicht und ich habe einfach einen Denkfehler. Aber in Lisp geht es ja auch mit (command "._wblock" filename Blockname). Grüße ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : VBA-Makro mit Lisp nur einmal laden
wklemens am 22.01.2003 um 18:08 Uhr (0)
(defun c:MyMacro ( / fname $cmdecho) (setq $cmdecho (getvar "cmdecho")) (setvar "cmdecho" 0) (if (setq fname(findfile "MACRO.DVB")) (command "-VBARUN" (strcat fname "!MODUL_NAME.SUB_NAME")) );end if (setvar "cmdecho" $cmdecho) (princ "
MCDS Datensystem GmbH - Ihr CAD-Lösungsanbieter!
") (princ) ) Im Beispiel giebt es eine Datei MACRO.DVB mit einem Modul MODULE_NAME, in dieser die Sub ;SUB_NAME definiert ist Dieser Code in der Datei ACAD.LSP oder ACAD2000DOC.LSP stellt sicher, daß der Befehl MYMACRO die VB ...
|
| In das Form Rund um Autocad wechseln |
