|
AutoLisp : Teilereferenz
Helmut F am 05.06.2003 um 12:02 Uhr (0)
Hallo Dammfeld, schon so lange her und noch immer hat keiner geantwortet. Ob ich dir helfen kann? Erstens arbeite ich mit MDT6. Zweitens weis ich nicht, ob die angehängte Datei deine Probleme löst. Falls nicht, kann das aber die Basis für stundenlanges Experimentieren werden. Falls du inzwischen eine bessere Lösung gefunden hast, las es mich bitte wissen. Grüße aus Mönchengladbach Helmut
|
| In das Form AutoLisp wechseln |
|
AutoLisp : AutoCAD-Layer zurückschalten
Helmut F am 29.07.2003 um 15:39 Uhr (0)
Hallo Günther, bei mir funktioniert es nur, wenn ich im Bemaßungskommando eine Pause zur Bestimmung der Maßposition einfüge. (command _dimangular es _text (strcat {fAMGDT|b0|i0|c0|p2;k} (rtos len 2)) pause) Schöne Grüße
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Datei öffnen & schließen; crosspost. VBA
Helmut F am 15.08.2003 um 15:42 Uhr (0)
Hallo Sebastian, wie wäre es mit folgendem Trick? Du schreibst mit Lisp eine Script-Datei und führts diese aus, z. B.: (defun C:close_open ( / ) (setq scr_file (open (strcat (getvar TEMPPREFIX ) My_script.scr ) w )) (if (= (getvar DBMOD ) 0) (write-line _CLOSE scr_file) (write-line _CLOSE _Y scr_file) ) (write-line (strcat _OPEN (getvar DWGPREFIX ) (getvar DWGNAME )) scr_file) (close scr_file) (princ) ) Dann belegst du einen Button eines Werkzeugkastens mit dem Befehl: ^C^C ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Xref-Datum
Helmut F am 04.11.2003 um 07:46 Uhr (0)
Hallo Marco, welches Datum meinst du? Das aktuelle Datum oder das Datum der Datei (file_systime)? Hier ein Beispiel für beides : (defun dtm ( / akt_datum file_systime file_datum) (setq akt_datum (menucmd M=$(edtime,$(getvar,date),DD.MO.YY) )) (princ (strcat Aktuelles Datum = akt_datum)) ; (vl-load-com) (setq file_systime (vl-file-systime C:/Programme/Autodesk/MDT6/acad.exe ) file_datum (strcat (txt-2-stellig (nth 3 file_systime)) . ; Tag (txt-2-stellig (nth 1 file_systime)) . ; Mo ...
|
| In das Form AutoLisp wechseln |