|
AutoLisp : Makro innerhalb Werkzeugbutton
Dirk.B am 14.11.2004 um 20:06 Uhr (0)
Hallo Leute! Ich hatte dies bereits im Forum rund um AutoCAD beschrieben, aber vielleicht kann mir hier ja jemand helfen. Mit der Variante Werkzeugpalette (ohne Handbuch) komme ich so noch nicht klar. Mich würde auch mehr die Variante Makro innerhalb des Werkzeugbutton interessieren. Kann mir da jemand auf die Sprünge helfen? Kann man dort nur mit "Lisp" und "Diesel" oder auch mit "VBA" arbeiten. Mit VBA kenne ich mich einwenig besser aus. Lisp geht so und Diesel garnicht. Wäre für ein Beispielmakro sehr d ...
|
| In das Form AutoLisp wechseln |
|
Lisp : mittels lisp von 3D zu 2D
Dirk.B am 01.07.2008 um 13:05 Uhr (0)
Hallo zusammen!Diesen Betrag habe ich auch unter VBA gepostet.Ich habe in einer Zeichnung sehr viele 3D Objekte in der Form wie im Bildanhang beschrieben.Da man diese 3D Daten nicht so ohne weiters und ohne teure Zusatzprogramme an eine CNC (WoodWop) übergeben kann, suche ich nach einfacheren Lösungen, daher meine Frage:Könnte man, wenn ja wie, mittels Lisp (oder einer anderen Methode) die Konturfläche zu einer Polylinie generieren?(siehe Bildchen)Für Lösungsansätze, wenn überhaupt möglich, wäre ich euch s ...
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp und dynamische Blöcke
Dirk.B am 31.01.2013 um 14:44 Uhr (0)
Hallo Holger!Sorry, dass Bildchen SQL - Fehlermeldung ist natürlich falsch.Da habe ich das falsche Bildchen erwischt.Den Codeschnipsel hätte ich auch weglassen können, da er aus verschiedensten Tests stammt.Alles, was ich bislang ausprobiert habe, habe ich mir aus dem Forum zusammengesucht jedoch ohne Erfolg.Da ich schon lange nichts mehr mit Lisp programmiert habe, fehlt mir da auch die Basis, wie ich mit den dynamischen Blöcken umgehen kann bzw. muß um solch einen Block zu manipulieren.Wie müßte ich denn ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 31.01.2013 um 19:29 Uhr (0)
Hallo CADwiesel!Wenn ich das richtig verstehe, durhläufst Du mit der foreach - Schleife die BlockProperties nach a.Das ganze läuft über vla-GetDynamicBlockProperties.Wie aber setze ich dann den Wert "Sichtbarkeit1" Ø3 mm auf "Sichtbarkeit1" Ø4 mm um?Code:(set (vlax-ename-vla-object a) "Sichtbarkeit1" "Ø4 mm")Sorry, aber ich komm damit noch nicht klar Geht das denn überhaupt mit den Werten ändern?------------------GrußDirk
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 01.02.2013 um 10:52 Uhr (0)
Hallo zusammen!Ich hab noch mal was probiert aber leider ohne Erfolg.Code:(defun c:FT()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end if ); end foreach); end defun(setProperty (vlax-ename-vla-object (car (entsel))) "Strecken1" 50.0))Wenn ich nun einen Block a ...
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp und dynamische Blöcke
Dirk.B am 01.02.2013 um 16:26 Uhr (0)
Hallo CADwiesel!Ich glaube es liegt an meinem dynamischen Block.Der hat einige Verschachtelungen.Nehme ich eine ganz einfachen Block mit nur einem Längenparameter"Abstand1", so funktioniert es.Code:(defun c:FT()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end i ...
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp und dynamische Blöcke
Dirk.B am 31.01.2013 um 14:10 Uhr (0)
Hallo zusammen!Es ist schon ne weile her, dass ich mich mit Lisp beschäftigt habe.Aber ich habe noch ältere Tools im gebrauch die ich gerade leicht angepaßt habe,was z.B. aktuelle Schraffuren etc. anbelangt.In diesem Zusammenhang wollte ich die alten starren Schraubenblöcke gegen unseredynamischen Blöcke austauschen. Hab dazu auch verschiedene Beispiele hier im Forum gefunden. Aber leider komme ich danmit nicht wirklich klar.In den Anhängen seht ihr die Eigenschaften.Ich möchte nach dem einfügendes Blocks ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 23.02.2013 um 14:07 Uhr (0)
Hallo Udo!Hallo Forum!Ok, dass mit der Änderung der Sichtbarkeit1 funktioniert.Aber leider nur die.Die anderen Prameter ändern sich nicht.Wie z.B. Winkel2 oder Länge Ø3.Was muß ich da machen?Kann man immer nur 1 Wert ändern?Ich möchte folgendes ereichen.- Block einfügen- Letztes Objekt erkennen - Sichtbarkeit1 von "Ø3mm sichtbar" auf "Ø4mm verdeckt" ändern- Länge Ø4 auf 45 ändern- Winkel2 auf 90° ändernCode:(command "-einfüge" "N:/Konstruktion/AutoCAD/Block_Konstruktion/Verbinder/Spax-Schraube.dwg" P20 "" ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 24.02.2013 um 15:45 Uhr (0)
Hallo Udo!Vielen Dank.Dann müßte es doch eigentlich so funktionieren:Code:(defun C:Db01()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end if ); end foreach); end defun (command "_Insert" "N:/Konstruktion/AutoCAD/Block_Konstruktion/Verbinder/Spax-Schraube.dwg" ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 25.02.2013 um 07:10 Uhr (0)
Hallo Udo!Nochmals Danke für Deine Geduld und Unterstützung.Nun funktioniert es prima.Ich wünsch Dir noch einen guten Start in die neue Woche.------------------GrußDirk
|
| In das Form Lisp wechseln |
|
Lisp : Variable von .Net nach Lisp übergeben
Dirk.B am 02.09.2016 um 08:09 Uhr (1)
Guten Morgen Zusammen,ich habe ein Lisp - Programm mit folgenden Variablen:Code:(setq BlockPfad "NEWBLOCKPFAD")(setq BlockName "NEWBLOCKNAME")Ich möchte/muss dieses Lispprogramm aus einer .Net Anwendung öffnen und suche die Möglichkeit,aus .Net diese Variablen zu füllen.Lisp - Programmaufruf wäre:Code:Dim MyCommand As String = "(load ""C:/Testordner/Bloecke/Test_NET_LISP.lsp"")"app.ActiveDocument.SendCommand(MyCommand & "(C:TESTLISP) ")Hintergrund:Das Lisp - Programm, welches ich ansprechen soll ist fester ...
|
| In das Form Lisp wechseln |
|
Lisp : Variable von .Net nach Lisp übergeben
Dirk.B am 04.09.2016 um 19:20 Uhr (1)
Hallo Zusammen!Vielen Dank für die Infos.Ich hab nun so einiges ausprobiert, aber leider ohne Erfolg.@HolgerDie beiden (setq ..) direkt ansprechen bzw. übergeben ok, aber wie?Wie ich die *.lsp lade und starte habe ich ja bereits beschrieben.Wie übergebe ich denn die Variablen?Die gehören ja eigentlich in die Syntax des Programmstarts, oder nicht?------------------GrußDirk
|
| In das Form Lisp wechseln |
|
Lisp : Variable von .Net nach Lisp übergeben
Dirk.B am 05.09.2016 um 20:38 Uhr (1)
Hallo Klaus!Hintergrund dieser Aktion ist folgende.Ich habe für unser Unternehmen unter VB.NET eine Anbindung als Blockverwaltung zwischen unserer Branchensoftware und AutoCAD programmiert.Diese funktioniert auch prima.Nun soll bei uns ein Aufsatztool auf AutoCAD installiert werden in dem vieles noch unter Lisp programmiert ist.Unsere User wollen aber auf unser Tool Blockverwaltung nicht verzichten, daher der Umstand bzw. Lösungsansatz.Mit eurer Hilfe aus dem Forum konnte ich nun meinen Teil erledigen und ...
|
| In das Form Lisp wechseln |
