|
AutoLisp : Anordnung in Lisp
WolfgangGutke am 29.06.2005 um 11:43 Uhr (0)
Hallo Dolcetto, mal nen kleinen Tipp, wie man ACAD-Befehl in LISP bekommt . Gebe einfach z.B. (command _.array ) in die Befehlsanzeige und notiere dir die Befehlsanfragen. In der gleichen Reihenfolge musst du den Befehl auch in LISP abspulen. Eine (bisher mir bekannte) Ausnahme gibt es: Es ist der Befehl Ausrichten. VG Wolfgang
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nachbar Zelle aus Tabelle
startrek am 29.06.2005 um 13:47 Uhr (0)
Hi, mal auf die Schnelle, ist weder Lisp noch besonders hübsch. Nur n kleiner Ansatz, wobei so ganz ohne Excel, nur als Liste bzw. Textfile könnt ich mir das auch vorstellen;-) Gruss Nancy Code: Sub x() Dim xlapp As Object, wb As Object Dim arr, i&, p#(2) Set xlapp = CreateObject( Excel.application ) Set wb = xlapp.workbooks.Open( D:Mappe1.xls ) arr = wb.sheets( Tabelle1 ).range( A1:B1000 ) wb.Close 0 Set xlapp = Nothing For i = LBound(arr, 1) To UBound(arr, 1) If arr(i, 1) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
Brischke am 29.06.2005 um 14:15 Uhr (0)
Hallo Dolcetto, man kann dies wirklich vereinfachen. Anbei ein Bsp. Ich selber würde mit noch ein paar Zeilen weniger klar kommen, aber dann wäre es für einen Anfänger nur sehr schwer zu verstehen. Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
mkl-cad am 29.06.2005 um 14:27 Uhr (0)
Da war doch noch jemand schneller. Ich würde noch eine Überprüfung der Werte vornehmen. Innendurchmesser kleiner Aussendurchmesser ? Lochkreisdurchmesser kleiner als Aussendurchmesser und größer als Innendurchmesser? Lochkreisdurchmesser + Durchmesser der Löcher kleiner als Aussendurchmesser und größer als Innendurchmesser? viel Spaß beim weiterbasteln. Für den Anfang fand ich das Lisp schon ganz gut. ------------------ Martin Viele Grüße aus dem schönen Münsterland!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
Dolcetto am 29.06.2005 um 14:32 Uhr (0)
@Brischke Oh ja das sieht schon ein bischen professioneller aus und ich muss sagen ich verstehe schon fast bahnhof! ich werde sie allerdings bisschen genauer studieren. danke für die rasche Bearbeitung! @mkl-cad Ah ok ich verstehe was du meinst, das ist gut fals man sich vertippt oder z.B. den Lochkreis grösser eingibt als den aussendurchmesser dann bricht das programm ab oder so, richtig?!?!
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
mkl-cad am 29.06.2005 um 16:50 Uhr (0)
Hallo Abbrechen tut das Programm nicht, aber es entsteht entweder Müll oder die Objekte liegen auf falschen Layern. Wenn man den Innendurchmesser größer Aussendurchmesser angibt. Dann ist anschließend der Äußere Kreis auf dem Layer des Innenkreises und umgekehrt. ------------------ Martin Viele Grüße aus dem schönen Münsterland! [Diese Nachricht wurde von mkl-cad am 29. Jun. 2005 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Popupmenü laden / entfernen
WolfgangGutke am 30.06.2005 um 09:41 Uhr (0)
Hallo, wie kann man ein Popupmenü aus einer eigenen mnc mit LISP oder ActiveX laden und entfernen? Gruß Wolfgang
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Elemente aus Blockreferenz entfernen
WolfgangE am 30.06.2005 um 12:05 Uhr (0)
Hallo Lispler, gleich vorweg: bin sowohl in Lisp als auch AutoCad ziemlicher Laie. Ich habe in AutoCad eine Blockreferenz (also ein 0.INSERT). Nun möchte ich aus dieser Blockreferenz bestimmte Elemente rauslöschen, z.B. alle Linien auf einem bestimmten Layer. Ich bin schon mal so weit, wenn ich mir das Element 0.BLOCK aus der Blocktabelle hole, dass ich in Folge alle Elemente des Blocks auflisten kann. Wenn ich nun aber die Elemente löschen will, funktioniert das nicht. Warum? Hier mein Ansatz: (SETQ CurrI ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Entfernen von Benannten Layerfiltern per Lisp-Routine ?
mkl-cad am 30.06.2005 um 12:35 Uhr (0)
Ist neu feine Sache das Programm. Wie kann man denn nun mit Lisp selber Layerfilter erstellen? Ausser eine Zeichnung mit Layerfiltern einzufügen. Danke ------------------ Martin Viele Grüße aus dem schönen Münsterland!
|
| In das Form Lisp wechseln |
|
AutoLisp : Popupmenü laden / entfernen
benwisch am 30.06.2005 um 14:38 Uhr (0)
Hallo Wolfgang, Zitat: wie kann man ein Popupmenü aus einer eigenen mnc mit LISP oder ActiveX laden und entfernen? Sichtbar/Unsichtbar schalten geht ganz einfach mit AchtiveX... sammeln der Menüs...(hier als Bsp. die Menügruppe Menue Code: (setq menupopup (vla-get-menus (vla-item (vla-get-menugroups (vlax-get-acad-object)) Menue ) ) ) speichern des MenüPopups mit dem Namen: ToolBox Code: (setq popname (vla-item menupopup ToolBox )) Die für die Sichtba ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DCL Dialogfelder
joern bosse am 05.07.2005 um 13:50 Uhr (0)
Hallo, ich habe da mal was gebastelt, vielleicht hilft Dir der Gedankenansatz ja weiter. gestartet wird das Beispiel mit (test1 nil nil nil). Die Werte 1-3 werden von einer zur nächsten Funktion weitergereicht. Bei komplexen Dialogfeldern speicher ich mir die Werte immer in einer zugehörigen Textdatei ab, damit ich für das nächste Aufstarten die Default Werte der vorherigen Eingabe zur Verfügung habe. LISP****************************************************** (defun test1 (wert1 wert2 wert3 / ok dat) (se ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : rtos - Error?
Zweistein am 07.07.2005 um 14:12 Uhr (0)
Hallo! Das folgende Lisp-Modul soll Messpunkte aus einer *.txt lesen und auswerten. Dabei sollen Attribute eines Blocks mit den Einzelinformationen Punktnummer, x-Wert, y-Wert,z-Wert,bestückt werden. Wenn z.B. pkt-re (atof (substr zeile 14 11)) an den Block übergeben wird, dann habe ich zu viele sichtbare Nachkommastellen in den Attributen eingetragen. = mein Versuch mit (setq pkt-re (rtos (atof (substr zeile 14 11)) 2 3)) führt zwar zu dem gewünschten Format, jedoch scheint rtos hier falsch umzurec ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : neuer Textfont bei MText
WolfgangGutke am 29.07.2005 um 22:56 Uhr (0)
Hallo, wie kann man via LISP/ActiveX einen MText einen anderen Font (Arial) zuweisen? Schon mal vielen Dank für die Hilfe!!! VG Wolfgang ------------------ LISP = L ots of I nsane S tupid P arantheses
|
| In das Form AutoLisp wechseln |
