|
Lisp : Vordefinierte Variablen holen
andi2050 am 08.03.2011 um 21:28 Uhr (0)
Lisp ist eine Sprache, die LISTEN verarbeitet.Hier eine Variante die eine Liste verwendet.(setq pointlist ((0 0) (42 0) (0 42) (42 42) (0 84) (42 84) (0 126) (42 126) (0 168) (42 168) (0 210) (42 210) (0 252) (42 252) ))(foreach point pointlist (command "_circle" point "d" 34.5) (initget (+ 2 4) "J N") (if (= "N" (getkword "
Soll hier ein Kreis hin? J oder N J: ")) (command "_erase" "L" "") ))GrüßeAndi
|
| In das Form Lisp wechseln |
|
AutoLisp : Befehlabruch bei Eingabe von 0
andi2050 am 12.10.2005 um 22:20 Uhr (0)
Hi KarliEinen Programmabbruch kann man mit (exit) erzwingen.z.B....(setq var (getreal "
Wert einegeben:"))(if (= var 0) (exit))...oder man läßt von gar keine "0" als Eingabe zu mit (initget)....(initget 2) ; bei nächster Eingabe keine 0 zulassen - siehe Lisp Hilfe(setq var (getreal "
Wert eingebn:"))...GrüßeAndi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp für Rohransichten verschwunden ?
andi2050 am 31.03.2003 um 19:31 Uhr (0)
Hi Mario Ich habe mir erlaubt Dein LISP etwas abzuändern ! Es ginge zwar noch etwas eleganter, aber auf die schnelle... Wenn ich richtig verstanden habe, dann soll die Ursprungslinie am aktuellen Layer bleiben und die neuen Linien auf dem neuen Layer liegen. Der Layer wird im LISP erstellt, aber nicht aktiviert. Nachdem das neue Element erstellt wurde wird der Layer des Elements geändert. Das hat den Vorteil, daß bei einem Programmabbruch nicht der Layer "005b...." aktiv ist, sondern der aktuelle Layer. Da ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Probleme mit Lambda ?
andi2050 am 30.03.2003 um 22:40 Uhr (0)
Hi Holger Mapcar s Seiten kenne ich, hab s mir auch schon mal runtergeladen aber noch nie richtig gelesen. Ich programmiere zwar schon seit mehereren Jahren in LISP, aber so richtig verstehen fange ich erst an. Alte BASIC Zeiten lassen grüßen... Über Laufzeitprobleme habe ich mir bisher noch nie Gedanken machen müssen. Kann sein, daß in nächster Zeit noch einige Fragen auftauchen. Grüße Andi
|
| In das Form AutoLisp wechseln |
|
Lisp : Lisp warten lassen
andi2050 am 11.04.2003 um 14:38 Uhr (0)
Hi CADchupWenn die Externe Anwendung die Datei während der Bearbeitung auf Schreibgeschützt setzt, dann könntest Du ja in einer Schleife die Datei immer wieder versuchen zu löschen und mir FINDFILE abfragen ob sie wirklich weg ist.Ist nur so eine Idee, obs praktikabel ist weiß ich nicht.Ich hab sowas bisher so gelöst:Mit Shell die Anwendug aufgerufen und in der nächsten Code-Zeile eine Getstring-abfrage mit "Bitte ENTER drücken..." gesetzt.Ist aber nicht die elegante Lösung.Vielleicht hilfts...GrüßeAndi
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Layername über Variable erstellen
andi2050 am 04.04.2003 um 15:05 Uhr (0)
Hi Zeli In LISP könnte man es so machen: (defun c:Layer_erstellen () (setvar "CMDECHO" 0) (if (= (type VARIABLE) STR) ;; Layer erstellen, wenn nicht vorhanden (if (not (tblsearch "LAYER" VARIABLE)) (progn (command "_-LAYER" "_N" VARIABLE "") (princ (strcat "
Neuer Layer "" VARIABLE "" erstellt")) ) (princ (strcat "
Layer "" VARIABLE "" existiert bereits")) ) (alert "Variable ist kein String oder leer") ) (princ) ) Mußt nur VARIABLE durch Deinen Variablennamen e ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Finde Fehler nicht ...
andi2050 am 29.12.2008 um 15:26 Uhr (0)
Ich habe mit Dein Lisp nicht genau angesehen, aber mir fällt auf, daß Du alle keine lokalen Variablen delariet hast. Da kann es leicht sein, daß bei mehrmaligem Aufruf noch Altlasten zurückbleiben und somit die Programmlogik durcheinander purzelt !Tatsächliche globale Variablen solletst Du kennzeichnen (z.B. *h_attnam* )In der Funktion heben suchst Du mit ssget alle Inserts mit einem bestimmten Einfügepunkt. Wenn der Einfügepunk aber nicht EXAKT mit dem Punkt übereinstimmt kann es hier zu einem Fehler komm ...
|
| In das Form Lisp wechseln |
|
Autocad LT : Steuerzeichen/Makro
andi2050 am 01.06.2003 um 22:53 Uhr (0)
Hi Mäse In LISP gibt es die Befehle LOGIOR und LOGAND. Damit kannst Du die Bits von zwei oder mehr Zahlen logisch miteinander Verknüpfen. Da der Zahlenwert für den Objektfang Bitcodiert ist, könntest Du damit Dein Problem lösen. (setvar "osmode" (LOGIOR (getvar "osmode") 32)) - Schnittpunkt HINZUFÜGEN Dabei eird IMMER das 5.Bit gesetzt (entspricht der Zahl 32). Für andere Objektfänge die 32 durch einen anderen Wert ersetzten (siehe Beitrag weiter oben) Damit kannst Du auch Kombinationen hinzufügen: (setva ...
|
| In das Form Autocad LT wechseln |
|
AutoLisp : Polylinie versetzen
andi2050 am 05.04.2003 um 00:36 Uhr (0)
Hi Theodor Deine Konturen sind perfekt ! Wenn ich in Deiner Zeichung die Konturen Versetze, tauchen aber wieder sie gleichen Fehler auf ! ACAD rechnet bei der obersten Kontur ca. 10 Sekunden für den Offset. Auch wenn ich Offset über vla-offset auf rufe kommt der gleiche Müll raus. Liegt also wahrscheinlich am System. Ich arbeite unter ACAD2002 ohne Servicepacks. Welche Version bzw. Servicepacks hast Du installiert ? Ganz ähnliche Konturen haben übrigens auch schon einer CNC-Steuerung Probleme gemacht. Dabe ...
|
| In das Form AutoLisp wechseln |
|
Mechanical Desktop : Makro
andi2050 am 26.03.2003 um 20:07 Uhr (0)
Hi Kasiragi Habs zu dem neuen Befehl MySchraff zusammengepappt. Folgendes mußt Du auf deinen Button legen: ^C^C(if (null C:MySchraff)(defun c:MySchraff ()(command "_-BHATCH" "_P" "ANSI31" "" "")(while (/= 0 (getvar "CMDACTIVE")) (command pause ) )(entmod (subst (cons 8 "2SCHRAFFUR") (assoc 8 (entget (entlast))) (entget (entlast))))(princ)) );MySchraff Und hier noch mal als normales LISP-Programm: (defun c:MySchraff () (command "_-BHATCH" "_P" "ANSI31" "" "") ; Schraffurbefehl aufrufen (while (/= 0 ( ...
|
| In das Form Mechanical Desktop wechseln |
|
Lisp : vla-TranslateCoordinates
andi2050 am 06.09.2006 um 23:49 Uhr (0)
Hallo vlide !Ich denke Du verwechselt OCS (Objektkoordinaten) mit MCS (Modellkoordinaten).Die Koordinaten in der Blockdefinition werden als MCS bezeichnet (kannst Du Dir als eine Art Weltkoordinaten innerhalb der Blockdef. vorstellen, jede Blockdef. hat ihr eigenes WCS).Du musst also die Koordinaten der Pline vom MCS der Blockdef. in WCS umrechnen.Ganz exakt: OCS-Pline - MCS-Blockdefinition - WCS (abhängig von der Lage des INSERTS (BlockREFERENZ)OCS-MCS ist kein Problem, geht einfach mit: (trans Punkt (cdr ...
|
| In das Form Lisp wechseln |
|
Autocad LT : Koordinaten bei einer Polylinie berechnen
andi2050 am 26.03.2003 um 22:43 Uhr (0)
Hi Adrian Kenne mich in VB nicht besonders aus (mehr in LISP), und kann Dir nur einen Ansatz zur Problemlösung bieten. Ich habe mir mal ein Programm zur Abwicklungsberechung geschrieben, das war ähnlich. Ich gehe davon aus, daß Du die einzelnen Stützpunkte der PLINE in einer Variablen, Liste oder Array gespeichert hast. 1.Die wandelst Du Dir in einzelne Segmente (Linien und Bögen)um. evtl. ein Array bilden: - Segmentlänge - Startpunkt - Endpunkt - bei Bögen zusätzlich Radius, Zentrum, Eingeschlossener Win ...
|
| In das Form Autocad LT wechseln |
|
AutoLisp : Polylinie versetzen
andi2050 am 03.04.2003 um 15:33 Uhr (0)
Hi Forum Eine komplizerte und heikle Frage... Ich möchte den VERSETZ Befehl für LWPOLYLINIEN in LISP nachbilden und für meine Bedürfnisse optimieren.Die PLINE besteht aus Linien und Bögen.(keine Splines o.ä.) Das ganze benötige ich für die CNC-Bearbeitung von Konturtaschen, die ich Konturparallel ausräumen möchte. Dazu soll eine geschlosene Kontur um einen bestimmten Wert nach innen versetzt werden. Die versetzte Kontur wird nun wieder um den gleichen Wert versetzt usw... - siehe Ausraeumen.jpg Ursprüng ...
|
| In das Form AutoLisp wechseln |
