|
Lisp : werkzeugpaletten per LISP???
joern bosse am 31.03.2008 um 15:53 Uhr (0)
Hallo Udo,na das wird wohl erstmal ein Weilchen dauern, bis ich mich da durchgearbeitet habe, danke.------------------viele GrüßeJörn
|
| In das Form Lisp wechseln |
|
Lisp : Befehl fortsetzen
Dorfy am 01.04.2008 um 06:59 Uhr (0)
Hallo,ich möchte einen Standardbefehl (line oder copy...)ausführen dann eine kleine Lisp starten und danach den Befehl fortsetzen.(defun hs:start (/) (setq AWS(ssget));;egal mach was, berechne oder vergleiche was);endeBsp: kopieren aufrufen - Objekte wählen - (hs:start) aufrufen -hs:start-Objekte wählen - (vllt. noch Punkte übergeben) - kopieren wiederaufnehmen bzw. fortsetzen...Nun wird aber Kopieren mit den hs:start-Objekten und nicht mit den ursprünglich gewählten Objekten fortgesetzt!?sssetfirst aktivi ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl fortsetzen
Geos am 01.04.2008 um 07:17 Uhr (0)
Hast Du auch den (setq AWS0 (ssget "_P")) - als letzten Schritt in Deiner Lisp - wieder zum aktuellen Auswahlsatz gemacht?------------------Schöne GrüßeErnst www.geopaint.at
|
| In das Form Lisp wechseln |
|
Lisp : Befehl fortsetzen
Dorfy am 01.04.2008 um 07:41 Uhr (0)
Hallo Ernst;letzten Schritt in Deiner Lisp - wieder zum aktuellen Auswahlsatz??einfach mit command aws0 übergeben?Wie wieder zum aktuellen Auswahlsatz machen? Mfg HeikoHab es! sssetfirst und dann ssget "_I"Danke[Diese Nachricht wurde von Dorfy am 01. Apr. 2008 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : lisp aus lisp
wronzky am 01.04.2008 um 19:09 Uhr (0)
Äh...so?Code:(defun c:A () (Print "A läuft") (c:B) ; hier aufruf von B (print "wieder in A"))(defun c:B () (Print "B läuft"))Grüsse, Henning------------------Henning JesseVoxelManufakturComputer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Lisp wechseln |
|
Lisp : Attributswerte übertragen
joern bosse am 01.04.2008 um 14:47 Uhr (0)
Hallo Ian,ich glaube wir verstehen uns falsch:Das Programm ändert von einem Block der ausgewählt wird die ersten 6 Attributsnamen, mehr passiert nicht. Wie hast Du das überprüft? Ich habe bei mir einen Testblock genommen, und mit einem Doppelklick den Attributseditor aufgerufen. Die Attributsnamen waren geändert.Wie auch immer, wenn diese Attributsnamen geändert sind könntest Du das Programm von Marc verwenden. Das einbinden in Marcs Routine würde ich erst machen wenn es auch funktioniert.Vielleicht sollte ...
|
| In das Form Lisp wechseln |
|
Lisp : rotate3d - was will die Funktion von mir?
Frank88 am 01.04.2008 um 18:35 Uhr (0)
Hallo Udo,danke für die Info. Das wird dann wohl schwieriger, als ich dachte. Ich muß ein Teil um verschiedene Werte kippen und dann in kleinen Schritten um eine seiner Achsen drehen. Danach werden dann für eine der Kanten die Orientierungswerte abgegriffen.Direkt in der Zeichnung ging das Ganze. Wie Du sagst, Ansicht wechseln (links, vorne, oben), drehen. Dann brauche ich aber 3ddrehen, weil ichs ja um eine der irgendwie im Raum verlaufenden Achsen drehen muß.Per Lisp das Ganze, weil es sich um 18 Positio ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributswerte übertragen
Ian_K am 01.04.2008 um 13:10 Uhr (0)
Jupp! Das kann ich bestätigen. Genauso wie ich es eingangs dargestellt habe.Obwohl ich das Script bei Bedürftigkeit bestimmt noch etwas selbst anpassen können - Namen ändern oder drehen.Bin von Haus aus eigentlich VBAler. Mit Lisp hab ich so meine Schwierigkeiten, aber das schöne Script von Marc gibts ja nun schon mal. Eine kleine Erweiterung in der Schleife oder nach der Schleife, wo man die von der Funktion erstellte Liste der Texte mit einigen Variablen erweitern könnte wäre nicht schlecht nach dem Mott ...
|
| In das Form Lisp wechseln |
|
Lisp : lisp aus lisp
AutoCADuser am 02.04.2008 um 12:09 Uhr (0)
das ist der code:...nicht wundern, ist meine erste Lisp...(defun c:A ( / Basispunkt OldOsmode)(setq OldOsmode (getvar "OSMODE"))(setvar "OSMODE" 108)(setvar "insbase" (getpoint "
Gib den Basispunkt an:"))(setq Basispunkt (getvar "insbase")) (command "_insert" "DI_Einfügepunkt") (command Basispunkt) (command "1" "" "0")(setvar "OSMODE" OldOsmode) (prin1))------------------
|
| In das Form Lisp wechseln |
|
Lisp : lisp aus lisp
Dorfy am 02.04.2008 um 16:03 Uhr (0)
@fuchsi... zum Thema insbase - frag AutoCADuser...hab mich das weiter oben auch schon gefragtmfg heiko
|
| In das Form Lisp wechseln |
|
Lisp : lisp aus lisp
Dorfy am 02.04.2008 um 13:40 Uhr (0)
hi,was willst du denn genau machen, deine Beschreibung ist recht dünne...Deine command - Zeilen sehen komisch aus...setvar insbase ... wofürHier mal ne lange Zeile mit "insert" - vllt. hilft es:(command "_-insert" (strcat "." curdir "" (nth (atoi cursel) items )) (getvar "viewctr") 1 1 0 "_move" (entlast)""(getpoint "
Einfüge-Basispunkt") pause "_.rotate" (entlast)"" (getvar "LASTPOINT") pause)))mfg Dorfy
|
| In das Form Lisp wechseln |
|
Lisp : Versetzen in die richtige Richtung
Erich Klein am 02.04.2008 um 15:46 Uhr (0)
Hallo,ein Problem, das mich quält, sieht folgendermaßen aus:In einem LISP-Programm wird eine Polylinie als geschlossene Kontur gezeichnet. Diese Kontur besteht ausschließlich aus Linien und Bögen. Die gezeichnete Kontur muss nach innen versetzt werden. Es wird ein Punkt im Inneren der Kontur gewählt und die gesamte Kontur versetzt sich in Richtung dieses Punktes, solange die geschlossene Polylinie besteht. Es kommt aber manchmal vor, dass die geschlossene Kontur nicht als Polylinie bestehen bleiben kann un ...
|
| In das Form Lisp wechseln |
|
Lisp : lisp aus lisp
AutoCADuser am 02.04.2008 um 16:08 Uhr (0)
heiko, ist klar...is halt bissal kürzer. Aber der selbe Ablauf. Wenn ich jetzt deinen code aus meiner Haupt-Lisp starten will, funktionierts nicht.code der Haupt-Lisp:(defun c:B ( / )(command "_.zoom" "_extents") (command "_.xref" "_detach" "*") (command "_.layer" "_unlock" "*" "") (command "_audit" "j") ;-----------------Starten von A---------------------(defun c:A () (Print "A läuft") (c:B) ; hier aufruf von B (print "wieder in A"))(defun c:B () (Print "B läuft"));-----------------Ende von A--- ...
|
| In das Form Lisp wechseln |
