|
Lisp : Auswahl ja/nein
fuchsi am 12.01.2007 um 13:19 Uhr (0)
Für diese Art der ABfragen, habe ich mir ein kleines Tool gebastelt, da mit diese textlichen Eingaben nicht gefallen. Mit folgendem Tool kann man diese Abfragen auch per Dialog machen(if (= VbOk (msgbox "Wollen sie den Block einfügen" "AutoCad" VbYesNo)) (command "._insert" ...) (command "._insert" ...));------------------------------------------------------------------------------; VBA MSGBOX Box; (MsgBox "Wollen sie das wirklich löschen ?" "Fuchsi CAD" (+ vbYesNoCancel VbQuestion) );------------------- ...
|
| In das Form Lisp wechseln |
|
Tsetfurom : Josys Schultüte
fuchsi am 05.09.2007 um 15:18 Uhr (0)
Na dann gehen wir mal, eineige inge Schritt für Schritt durch (setq OldOsmode (getvar "OSMODE")) (setvar "OSMODE" 0)Merken des alten Objektfangesund Löschen des Objektfanges (setq LastObj (entlast)) Merken des letzten Objektes. Alle nachfolgenden Objekte sind dann von deinem LISP erzeugt wordenHier gibt es 3 Möglichkeiten, die zu beachten sind1. Zeichnung ist leer die Variable LastObj = nil2. Das letzte Objekt war ein INSERT mit Attributen - Es gibt noch NachfolgeObjekte3. Das letzte Objekt ist irgenein so ...
|
| In das Form Tsetfurom wechseln |
|
Lisp : INSERT mit (command) setzen
fuchsi am 29.09.2008 um 10:11 Uhr (0)
Zitat:(command "_-insert" "testblock" "f" 1 "d" 0 pause)Ich finde es immer wieder lustig, warum ihr die Befehle auf Englisch schreibt, die Befehlsoptionen jedoch nicht.also entwqeder nur deutsch(command "-einfuege" "testblock" "faktor" 1 "drehen" 0 pause)oder gleich Mutltilingual(command "_-insert" "testblock" "_scale" 1 "_rotate" 0 pause)Noch was. Befehlsoptionen immer auschreiben, in einer nächsten Autocad-Version kann "F" vielleicht nicht mehr eindeutig sein ("Faktor" ausgeschrieben wird es jedoch blei ...
|
| In das Form Lisp wechseln |
|
Lisp : Welche Dias sind in SLB ?
fuchsi am 11.12.2007 um 13:25 Uhr (0)
Dann sollten wir aber auch das Prüfen des Dateiheaders einbauen, damit sich die Funktion nicht aufhängt, falls es keine SLB ist.Code:(defun get-slides-from-lib (lib-file / fs f eof a1 dia dia_liste) (vl-load-com) (setq fs (vlax-get-or-create-object "SCRIPTING.FILESYSTEMOBJECT")) (if (and (setq lib-file (findfile lib-file)) (setq f (vlax-invoke fs "OpenTextFile" lib-file)) ) (if (wcmatch (vlax-invoke f "Read" 32) "AutoCAD Slide Library 1.0*") (progn (setq eof nil) (while (not eof) (s ...
|
| In das Form Lisp wechseln |
 |
AutoLisp : Verwendete CTB über Lisp auslesen
fuchsi am 31.10.2003 um 08:58 Uhr (15)
(vla-get-stylesheet (vla-get-ActiveLayout (vla-get-activedocument (vlax-get-acad-object)))) gibt dir vom aktuellen layout den stylesheetname (ctb-date) siehe auch (VLA-get-CONFIGNAME pc3 date (VLA-get-CanonicalMediaName format (vla-get-centerplot plot zentrireen (vla-get-paperunits mm ioder inch (vla-get-stylesheet ctb datei
|
| In das Form AutoLisp wechseln |
|
Lisp : Welche Dias sind in SLB ?
fuchsi am 11.12.2007 um 12:28 Uhr (0)
Habe schnell mal aufgrund der Datei Beschreibung in VB was geschrieben.Code: file = "d:hicad10b10A0ART2.SLB" Set fs = CreateObject("SCRIPTING.FILESYSTEMOBJECT") Set f = fs.OpenTextFile(file) ok = True a1 = f.Read(32) ersten 32 Byte ignorieren. Hier könnte noch eine Prüfung stattfinden, ob es eh einen SLB ist While ok = True a1 = f.Read(36) If Mid$(a1, 1, 1) Chr(0) Then a2 = Mid$(a1, 1, InStr(a1, Chr(0)) - 1) Debug.Print a2 ausgeben des DIA Names Else ok = False ...
|
| In das Form Lisp wechseln |
|
Lisp : Welche Dias sind in SLB ?
fuchsi am 11.12.2007 um 12:20 Uhr (0)
Im Handbuch für Benutzanpassungen der 12er Version war das SLB Dateiformat sehr genau beschrieben.Im jetzigen findet man nur nochCode:In diesem Abschnitt wird das Format von AutoCAD-Diabibliotheken (ab Release 9) für Entwickler beschrieben, die eine Unterstützung von Diabibliotheken in ihre Programme einbauen möchten. Eine Diabibliothek weist im allgemeinen das folgende Format auf: "AutoCAD-Diabibliothek 1.0" CR LF ^Z NUL NUL NUL NUL Kopfzeile (32 Byte) Ein oder mehrere Diaverzeichniseinträge (je 36 Byte) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Plotdialog in Lisp nutzen
fuchsi am 17.10.2003 um 08:45 Uhr (0)
ja ich arbeite sehr gerne mit reaktoren hab z.B.: einen, der nach dem befehl copy,reihe,pasteclicp usw. die neu erstellten teile in der zeichnung analysiert, und automatisch neue positionsnummern vergibt. das hat den vorteil, dass ich rund um den autocadbefehl keine eigene routine schreiben muss, und die originalen autocadbefehle nicht sperren muss. so kann der anwender wie gewohnt mit den bekannten autocad-befehlen arbeiten, und hinterher läuft mein lisp an
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ACAD2004 mag meine DCLs nicht.
fuchsi am 14.10.2003 um 16:26 Uhr (0)
du musst dem dialog auch innerhalb des dcl-datei einen namen geben TEST:dialog { label = Konturverlauf zeigen ; usw... denn du kannst in einer dcl-datei mehrere dialogboxen defnieren laden tust dann das so (setq dclid (load_dialog d: est.dcl )) ;; laden der datei (new_dialog TEST dclid) ;; anzeigenn der definition TEST in deieser datei
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ACAD2004 mag meine DCLs nicht.
fuchsi am 20.10.2003 um 08:37 Uhr (0)
also bei mir funktionierts soweit, die dialogbox erscheint, ich drücke ok, unmd muss dann ein objekt wählen, wies weiter geht hab ich dann nicht untersucht wo hast du denn die dcl datei abgespeichert, das einzige, da sie ohne pfad geladen wird, muss sie in einem suchpfad von autocad liegen was bekommst du für eine fehlermeldung ?? vielleicht eine dialogbox mit Laden der Dialogbox nicht moeglich! dann kopier die dcl-datei mal ins support-verzeichnis von autocad dann sollte es eigentlich gehen
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Getfiled: welches Flag
fuchsi am 20.10.2003 um 12:00 Uhr (0)
1 und 32 1..neue datei 32.. nicht fragen wegen überschreiben
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Getfiled: welches Flag
fuchsi am 20.10.2003 um 12:03 Uhr (0)
autodesk könnte die hilfe auch mal überarbeiten zitat: To set more than one condition at a time, add the values together to create a flags value between 0 and 15. und was ist mit den flags 16 32 64 128 also das 0 bis 15 galt nur bis autocad14 original aus der hilfe: flags An integer value (a bit-coded field) that controls the behavior of the dialog box. To set more than one condition at a time, add the values together to create a flags value between 0 and 15. The following flags arguments are recognized by ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Konstruktionslinien versetzen von einer Linie in einem Block
fuchsi am 21.10.2003 um 08:25 Uhr (0)
habe das ganze so ergänzt , dass die layer automatisch erstellt werden, falls sie nicht vorhanden sind mit dieser zeile kannst du nun für alle möglichen autocad-befehle layer festlegen z.B.: beim start vom befehl circle (kreis) sold der layer KREISLAYER mit der farbe 7 als aktuell eingestellt werden ((= value CIRCLE ) (setlayer KREISLAYER 7)) nuin das vollständige neue lisp (vlr-remove-all :vlr-editor-reactor) (vlr-editor-reactor nil ((:vlr-commandWillStart . MyCommandWillStart) (:vlr-commandE ...
|
| In das Form AutoLisp wechseln |
