|
Mechanical Desktop : Bemaßung Bogenlänge
Helmut F am 09.05.2003 um 08:25 Uhr (0)
Hallo monti, hilft dir dieses kleine Lisp-Programm ? (defun C:Bogenmass ( / auswahl eintrag radius zentrum start_winkel end_winkel pkt masstext) ; (SETVAR "CMDECHO" 0) (setq auswahl nil) (while (not auswahl) (setq auswahl (car (entsel " Bitte Bogen auswählen... ")))) (setq eintrag (entget auswahl)) ; (if (/= (cdr (assoc 0 eintrag)) "ARC") (alert (strcat "Es wurde kein Bogen gewählt")) ; else (progn (setq zentrum (cdr (assoc 10 eintrag)) radius (cdr (assoc 40 eintrag)) ...
| | In das Form Mechanical Desktop wechseln |
|
Mechanical Desktop : Attribute (Texte) mit LISP-Prog. ändern ?
Helmut F am 09.05.2003 um 14:42 Uhr (0)
Hallo Peter, hilft dir das folgende kleine LISP-Programm ? ; Ändern eines Attributwertes in einem Block ; Alle erforderlichen Angaben werden beim Aufruf übergeben ; z.B. (Att_aendern "Mein_Block" "TXT1" "Hier neuer Text") ; Ist der Block mehrmals vorhanden, wird die Änderung bei ALLEN Blöcken vorgenommen (defun Att_aendern (Block_Name Attribut_Name Neuer_Wert / Block_Set Attribut Alter_Wert i) (SETVAR "CMDECHO" 0) (setq Block_Set (ssget "X" (list (cons 0 "INSERT") (cons 2 Block_Name))) i 0) (Repeat ...
| | In das Form Mechanical Desktop wechseln |
|
Mechanical Desktop : Lisp: Bereinigen und neue Vorlage einfügen
Helmut F am 03.07.2003 um 09:48 Uhr (0)
Hallo josh, was du da vorhast, interessiert mich auch, da ich ähnliches machen möchte. Ich füge einen Block ein mit dem Kommando : (setq Ext_Vorlage C:/dwgs/Vorlage.dwg ) (command _INSERT Ext_Vorlage (0 0 0) 1 1 0) Anstelle von Bereinigen speichere ich die Zeichnung als Block (wblock) Was mir aber noch Probleme macht, ist das Öffnen von Zeichnungen mit LISP. Mache ich das mit folgendem Kommando : (setq Datei C:/dwgs/Test.dwg ) (command vbastmt (strcat AcadApplication.Documents.Open (chr 34) Datei ...
| | In das Form Mechanical Desktop wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
