|
AutoLisp : Layerstand speichern Button
Proxy am 05.08.2004 um 09:55 Uhr (0)
Also ich habe mit ein VBA-teil programmiert. Kannst auch für Namen z.B. automatisch Datum + Uhrzeit mit Mili-Sek eingeben als Default Code: ... Dim StateObj As AcadLayerStateManager Dim eMask As AcLayerStateMask On Local Error Resume Next SaveLayerStateFrm.Show If SaveLayerStateFrm.OK = True Then Set StateObj = New AcadLayerStateManager StateObj.SetDatabase ThisDrawing.Database eMask = acLsNone With SaveLayerStateFrm If .CheckBox1.Value = True Then eMask = acLsOn If .Chec ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Set_by_layer.lsp
CeZet am 06.08.2004 um 09:05 Uhr (0)
Hi all Ich habe auf dieser Page einen Verweis auf ein Lisp gefunden, dass alle Objekte auf VONLAYER zurückstellt. Das ist seit kurzem bei mir im Einsatz und funktioniert gut :-) Nun möchte ich aber den Linientyp nicht mehr umstellen, kriege es aber nicht gebacken wie ich das aus dem LISP entferne. Kann mir jemand helfen? Grüsse Cezet
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
CADmium am 06.08.2004 um 11:44 Uhr (0)
Ein Tipp : Die Ausrichtung ist in den Gruppencodes (72 . 0) und (73 . 0) gespeichert. Mit hilfe des Tools aus diesen Threads solltest du eigentlich in der Lage sein, dir deinen Wunsch selbst zu erfüllen! ( soll ja ein Forum mit Hilfe zur Selbsthilfe sein! - auch wenn ich mich jetzt frage, was länger gedauert hat/hätte: das Lisp zu ändern oder diese antwort zu schreiben ) ------------------ - Thomas - [Diese Nachricht wurde von CADmium am 06. Aug. 2004 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
fuchsi am 06.08.2004 um 11:51 Uhr (0)
aus der Lisp-Hilfe (DXF-Referenz) 72 Typ für Horizontale Textausrichtung (optional; Vorgabewert = 0); Ganzzahlcodes, nicht bitcodiert 0 = Links, 1 = Oben, 2 = Rechts 3 = Ausgerichtet (falls vertikale Ausrichtung = 0) 4 = Zentriert (falls vertikale Ausrichtung = 0) 5 = Angepaßt (falls vertikale Ausrichtung = 0) 73 Typ für vertikale Textausrichtung (optional; Vorgabewert = 0): Ganzzahlcodes (nicht bitcodiert): 0 = Basislinie; 1 = Unten; 2 = Mitte; 3 = Oben Weitere Informationen finden Sie in den Tabellen d ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsablauf in Lisp
CeZet am 06.08.2004 um 15:53 Uhr (0)
Hi zusammen Ich habe am morgen bereit im AutoCAD-Forum einen Beitrag verfasst zum Thema Lisp oder Script für meine Wünsche. Anfangs versuchte ich es in Lisp, stieg dann aber mittags um wieder auf Script und muss nun damit auch wieder aufgeben, da es zuwenig kann für meine Bedürfnisse. Besser gesagt, ich müsste die Schnellauswahl im Script benützen können, geht aber nicht so wie ich gelesen habe. Das heisst, umsteigen auf Lisp. ich hoffe ihr helft mir bei meinen Startschwierigkeiten: Im grossen und ganzen g ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsablauf in Lisp
mapcar am 09.08.2004 um 00:41 Uhr (0)
Schönes Beispiel für das, was ich immer wieder (und ob s jemand hören will oder nicht) hier erzähle. So sollte ein Interface aussehen: (defun c:machwas() (machwas(objekte-wählen)) (princ) ) (defun machwas(objekte / ) (...) ) Hätte sich Adesk an diese einfachen Grundregeln gehalten, wäre das jetzt kein Problem. Lokale Funktionen wie in burst.lsp sind ein nettes Feature - aber da hat man etwas übertrieben: Alles lokal zu (defun c:burst()...) ist zuviel des Guten, so bleibt nur noch ein Befehl ohne Para ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsablauf in Lisp
CADmium am 09.08.2004 um 08:19 Uhr (0)
@Axel : Volle Zustimmung, bloß bei mir sieht s immer so aus (defun machwas(objekte / ) (...) ) (defun c:machwas() (machwas(objekte-wählen)) (princ) ) Du siehst, dein Predigen hat zumindest bei mir Anklang gefunden! Tja, und zu burst ... wo fängt das Plagiat an ? - aber dein Tipp zum alleine Rausfinden ist wohl das sicherste ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsablauf in Lisp
mapcar am 09.08.2004 um 19:20 Uhr (0)
Ich wollte eigentlich noch eine 100%ig Plagiatfreie Lösung liefern. Mein Ansatz: Genau das, was man immer macht, wenn solche Inkompatibilitäten vorliegen: Man lädt die Datei burst.lsp , biegt aber temporär den load-Vorgang ein bisschen um, so dass das Ganze dann passt. Auf diese Weise kann man mal eine SCHEME-Funktion im LISP-Interpreter fahren oder umgekehrt. Naheliegend der Gedanke, die wenigen notwendigen Änderungen am burst-sourcecode on the fly durchzuführen. Etwa so: Code: (defun m-burst( / o ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Petra_Sp am 10.08.2004 um 14:44 Uhr (0)
Hallo Leute vor einer ganzen Weile hab ich mal gefragt um Teile eines Strings und von sehr sehr super Tipps bekommen!! Nun wollte ich etwas Fragen bezüglich einer Antwort von CADmium - Thomas: Folgendes: Diese Funktion schneidet bei einer Anzahl die Verzeichnissen ab. Wie kann ich so eine Funktion einsetzen-benutzen??? Mittels Lisp, Button, Text, oder etwas anderem damit ich mein Ergebnis bekomme???? Der Tag ist schon sehr sehr lange, bitte helft mir! (defun Zchnstr ( VERZEICHNISSE / RETURN) (if (=(type ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Brischke am 10.08.2004 um 14:52 Uhr (0)
Hallo Petra, dieser Code ist eine Subfunktion. Du kannst diesen in deinem Programmcode verwenden. (setq ergebnis (Zchnstr PfadangabeAsString)) Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
Alpschorsch am 10.08.2004 um 14:52 Uhr (0)
Hallo, ich bin s nochmal! Möchte jetzt den Einfügepunkt etwas nach unten verschieben! z.B. 10 Einheiten! Geht doch bestimmt mit den Gruppencodes? Wo muß ich suchen! Hab in der LISP-Hilfe gesucht und ein bischen gefunden, aber noch nicht das richtige! Kenn mich da noch nicht so aus! Bitte um einen kleinen Hiep auf den Hinterkopf! Nich so doll! Mfg Alpschorsch
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Num.LSP (Einfügepunkt)
CADmium am 10.08.2004 um 15:30 Uhr (0)
@Caddfm .. schöne Möglichkeit mit einfachen Mitteln ans Ziel zu kommen!! @Alpschorsch: wenn du es gleich in dein Tool implementieren willst, anbei mal ein Codfragment: (setq DATEN (entget(car(entsel)))) (if (not(equal (cdr(assoc 11 DATEN)) (0.0 0.0 0.0))) (progn (setq XYZ (cdr(assoc 11 DATEN))) (entmod (subst (cons 11 (list (car XYZ) (- (cadr XYZ) 10) (caddr XYZ) ) ) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Einsatz
Brischke am 10.08.2004 um 15:47 Uhr (0)
Hallo Petra, dann fangen wir mal ganz am Anfang an. Was willst du überhaupt machen? a) Du schreibst gerade ein Lisp-Programm, und willst diesen Code verwenden b) Du willst die Pfadangabe einfach irgendwo in der Zeichnung als Text oder Attributwert, oder oder oder haben Schreib mal ganz genau, was du vorhast! Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD Da weiß man, wann man s hat!
|
| In das Form AutoLisp wechseln |
