|
AutoLisp : (vla-putPaperMargins LAYOUT LowerLeft UpperRight) ?
CADmium am 02.08.2004 um 16:18 Uhr (0)
Ein ACAD-Layout stellt unter ActivX die Methode (vla-GetPaperMargins) bereit, welche die Druckränder ausliest. (Siehe auch Datei- Plot- Reiter Plotter - Knopf Eigenschaften - Benutzerspezifische Eigenschaften - Weitere Optionen - kleinere Ränder ) Gibt es eine Möglichkeit via Lisp (vla-putPaperMargins LAYOUT LowerLeft UpperRight) zu implementieren, um diese Ränder zu setzen? .. oder einen anderen Trick, diese beim Layouteigenschaftenübertragen zu setzten? Ein (vla-RefreshPlotDeviceInfo an geeigneter ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Probleme mit Auswahlsatz
tom.berger am 02.08.2004 um 19:50 Uhr (0)
Zitat: Original erstellt von tappenbeck: Ich habe eine Funktion in der ich das letzte Elemente in einen Auswahlsatz mit (setq aws (ssadd (entlast) aws)) hinzufüge. Fehlerhafter Argumenttyp: lselsetp Der Auswahlsatz AWS scheint hier noch nicht zu existieren. Du musst notfalls erst einen leeren Auswahlsatz mit (setq aws (ssadd)) erzeugen. Ich arbeite so gut wie nie mit Auswahlsätzen, da diese Datenstruktur doch eine ziemliche Krücke darstellt. Ein Auswahlsatz ist einer offenen Datei vergleichbar m ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : entmake mit Mechanical Elementen
mapcar am 02.08.2004 um 22:45 Uhr (0)
Tja, nachdem hier keiner antwortet, der es 100%ig weiss - ich bin mir nur ziemlich sicher: Auch die Entity-Typen der Vertikalen Applikationen laufen unter CUSTOM ENTITIES - und Lisp kann nun mal keine C.E. erzeugen. Das geht derzeit nur mit ObjectARX und mit .NET (mit der Einschränkung allerdings, dass man mit .NET welche erzeugen kann, aber AutoCAD die nicht erkennt). (entmod) ist viel allgemeiner gelagert - vielleicht hast du Glück und kriegst es hin, dass du eine Kopie machst und so lange mit entmod f ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Standart Plotstildatei
mkl-cad am 03.08.2004 um 12:45 Uhr (0)
Oder auch nicht: Wenn ich einen Plan öffne der Farbabhängig eingerichtet ist und ich in den Optionen einen Benannten Plotstil angebe so wird der auch mit (vla-get-DefaultPlotStyleTable (vla-get-Output (vla-get-Preferences (vlax-get-acad-object) ) ) ) korrekt angezeigt Wenn ich dann mit (command convertpstyles ITB-Farbig ) den Plan umstelle und in den Layermanager gehe und dort die Plotstile änden will steht im Dialogfester Plotstilwählen unter aktive Plotstiltabelle keine.ctb Das e ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerstand speichern Button
CADmium am 05.08.2004 um 09:32 Uhr (0)
Schau mal Hier .. evtl hilft dir du statt (princ (entmake DATEI) ein (princ (entmode DATEI) weiter oder eine Fallunterscheidung mit (if (tablesearch LAYER ... ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
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 : Layerstand speichern Button
michelangelo am 05.08.2004 um 14:32 Uhr (0)
Habe für das ein lisp gefunden braucht nur ein button, ist aber nur für die aktuelle zeichnung gültig nach schliessen der zeichnung ist der layerstand weg. ;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ;; LAYERSTATUS ;; ;; Programm sichert den aktuellen Layerstand oder schreibt den gesicherten Layerstand wieder zurück. Die Variable, ;; in die gesichert wird, kann vom Benutzer nicht vorgegeben werden - auch hat diese Routine nichts mit den ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerstand speichern Button
mkl-cad am 06.08.2004 um 08:22 Uhr (0)
Hallo Leute Das ist ja schön und gut. Den Ansatz von Thomas aus einem anderen Beitrag finde ich besser, da ohne dem Befehl command . Hab ihn mal hier reinkopiert. (defun LAYER-export(DATEINAME / LAYER LAYDATA LISTE DATEI) (While (setq LAYER (tblnext LAYER (null LAYER))) (setq LAYDATA (vl-remove-if (lambda (L)(member(car L) (-1 330 -2 5 390))) (entget(tblobjname LAYER (cdr(assoc 2 LAYER))) ( * )) ) ) (s ...
|
| 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 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
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 : 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 |
|
AutoLisp : Einsatz
Petra_Sp am 11.08.2004 um 08:27 Uhr (0)
Hallo Hier mal die Datei mit dem Plankopf eingefügt!! LG Petra ------------------ LG Petra
|
| In das Form AutoLisp wechseln |
