|
AutoLisp : Acad_Colordlg
mapcar am 30.07.2004 um 12:28 Uhr (0)
Nach wie vor, Waldemar, bleibt mir dein Anliegen verhüllt wie das gegenüberliegende Ufer des Sees im frühen Morgennebel... Willst du jetzt über die Farbauswahl einem Linientyp eine Farbe zuweisen? Das geht doch nicht! Oder lautet die Frage: Gibt es analog zu acad_colordlg eine Lisp-Funktion, die den Auswahldialog für Linientypen aufruft und in einem Lisp-Programm den User einen Linientyp auswählen lässt? Ein acad_linetypedlg ? Schau in die Hilfe: In diesem Fall lautet die Antwort NEIN. Gruß, Axel Str ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Acad_Colordlg
Waldemar am 30.07.2004 um 12:54 Uhr (0)
Hallo Axel, Du hast die Frage erkannt. Gibt es analog zu acad_colordlg eine Lisp-Funktion... Nachdem ich in der Onlinehilfe nichts gefunden haben, hebe ich schone befürchtet dass es nichts vergleichbares zu acad_colordlg gibt. Schade... Ich danke Dir für die Antwort. Grüße Waldemar
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nochmal Urheberecht..
CADmium am 30.07.2004 um 13:28 Uhr (0)
Hi, Nachdem hier schon sehr ausgiebig diskutiert wurde... und ich mir eigentlich nicht vorstellen kann, das wegen der hier geposteten Lisp s ein Rechtsstreit vom Zaun gebrochen wird ( Siehe Schöpfungshöhe ) schieb ich mal noch eine Frage nach : ..wie siehts eigentlich mit einem unbeabsichtigten Plagiat aus ? Auch wenn die Codes von mir aus meiner Feder stammen, kann ich mir nicht vorstellen, das sie einmalig wären. Irgendeiner hat bestimmt das gleiche Konzept/Ansatz und das Ergebnis ist mit Siche ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nochmal Urheberecht..
mapcar am 30.07.2004 um 14:49 Uhr (0)
Hi Thomas, es bleibt dabei: Wer s nicht lesen will, der muss es ja auch nicht. Auf diese Frage bin ich glaube ich schon mal eingegangen (in dem Zusammenhang, als ich CADchups Programm als trivial bezeichnet habe). Ein unbeabsichtigtes Plagiat kann nicht nur passieren, sondern es ist unvermeidbar! Damit sich keiner auf den Schlips getreten fühlt, nehme ich diesmal Beispiele von mir selber. Mein Sysvar-Tool, das ich hier veröffentlicht habe, gehört auch zu den trivialen: Jeder Programmierer, der Lisp beher ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nochmal Urheberecht..
tom.berger am 01.08.2004 um 12:02 Uhr (0)
Zitat: Original erstellt von mapcar: Ich habe diesen Handler mit gutem Grund als Beispiel für ein Programm gewählt, das auch in meinen Augen eine Schöpfungshöhe erreicht. Da geht es nicht (nur) um das Rücksetzen von ein paar Variablen, dieser Handler beruht auf einer Funktion, die eine weitere Funktion erzeugt, die sich dann selbst modifiziert und mit jedem weiteren verschachtelten Aufruf wächst und die vom User übergebenen Eventhooks in sich integriert, ohne dabei irgendwelche globalen Variablen zu ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Umschalten zwischen geöffneten Zeichnungen
Wilfried Nelkel am 01.08.2004 um 16:27 Uhr (0)
Hallo Leute, ich möchte über ein Lisp-Programm / DCL Dialog, auf alle zur Zeit geöffneten DWGs zugreifen. Also durch Klick auf eine Zeichnung, soll dann das entsprechende Fenster aktiviert werden. Geht das in Lisp (hab nix gefunden) oder wie könnte man das anders lösen. Als Parameter für den Aufruf wird der Zeichnungsname übergeben. Über Lösungen wär ich dankbar. Schönen Sonntag noch :-) (Wetter passt ja) Wilfried Nelkel ------------------ Schöne Grüsse Wilfried Nelkel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Umschalten zwischen geöffneten Zeichnungen
startrek am 01.08.2004 um 17:26 Uhr (0)
Hi Wilfried, mit Lisp kann ich Dir nicht dienen, hier ein gruseliger VBA-Code - hoffentlich bekomm ich keine Prügel hier ;-) CU Nancy -- Userform1.frm Code: Option Explicit Private Sub UserForm_Initialize() Dim i% For i = 0 To Documents.Count - 1 ListBox1.AddItem Documents.Item(i).Name Next End Sub Private Sub ListBox1_Click() Dim i% With ListBox1 For i = 0 To .ListCount If .Selected(i) Then if Documents(i).WindowState = acMin then Documents(i).Window ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Umschalten zwischen geöffneten Zeichnungen
Wilfried Nelkel am 01.08.2004 um 19:23 Uhr (0)
Hy Nancy, danke für die schnelle Antwort. Aber wie starte ich das Programm aus einem Lisp heraus? Wahrscheinlich bekomme ich jetzt Prügel, weil ich so doof frage, aber ich hab mich leider noch nie mit VBA oder VB befasst. :-( Ich möchte ja ausserdem den Zeichnungsnamen der geöffneten AutoCAD-Datei als Parameter mit übergeben. ------------------ Schöne Grüsse Wilfried Nelkel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Umschalten zwischen geöffneten Zeichnungen
CADmium am 02.08.2004 um 09:45 Uhr (0)
(vl-load-com) (defun DOCUMENT-ACTIVATE (DOCUMENT / FOUND) (vlax-for ITEM (vla-get-documents (vlax-get-acad-object) ) (if (and(not FOUND) (=(strcase(vla-get-name ITEM))(strcase DOCUMENT)) ) (setq DOCUMENT ITEM FOUND T ) ) ) (if FOUND (vla-activate DOCUMENT)) ) Aufruf dann mit (document-activate Zeichnung1.dwg ) Zu bedenken ist allerdings, das das Lisp normalerweise in eine Zeichnung geladen wird, und ...
|
| In das Form AutoLisp wechseln |
|
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
mapcar am 02.08.2004 um 22:36 Uhr (0)
(lselsetp ...) ist Lisp-intern eine Prädikatfunktion, die ein Argument daraufhin testet, ob es einen Auswahlsatzsatz enthält. In deinem Fall ist es wohl so, dass ein (ssget ...) o.ä. nil zurückgegeben hat (das ist ja das Problem: Es wäre viel sauberer, wenn man dann wenigstens einen leeren Satz kriegen würde - aber man kriegt nil. Wenn man dann hinzufügen will, kommt genau dieser Fehler. Tom hat 100% Recht: All diesen Quark sollte man einmal im Leben behandeln und sich ein paar Funktionen schreiben. Und da ...
|
| 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 : Layerstand speichern Button
cadffm am 05.08.2004 um 09:48 Uhr (0)
du brauchst doch keinen Namen angeben, bzw den gibst du im Makro autom. an.. aber egal, bleib bei dem Lisp-Weg. ------------------ - Sebastian -
|
| In das Form AutoLisp wechseln |
