|
Lisp : Zeichnung schreibgeschützt
axeld am 09.05.2007 um 09:43 Uhr (0)
Hat jemand vielleicht ein kleines Lisp-Programm, mit dem man erkennen kann, ob eine Zeichnung schreibgeschützt geöffnet wurde.------------------Axel
|
| In das Form Lisp wechseln |
|
Lisp : Wo liegt hier der Fehler ???
romi1 am 05.05.2007 um 14:04 Uhr (0)
Hallo!Danke CADmium und Jörn für Eure Hilfe!Also das mit den Systemvariablen war wirklich ein Volltreffer!Insbesondere die "OSNAPCOORD" wars ... sie war auf 2 eingestellt.Jörn, Deine Variante mit entmake muß ich mir erst genauer zuGemüte führen - bin ja noch ein LISP-Anfänger .... vielleichtkapier ichs ja.Muß mir dann noch überlegen, ob ich die weitere Grafik mit (entmake)oder mittels (command ...) erzeugen werde.Vielleicht muß ich euch dann ohnedies nochmals um Hilfe bitten ...Roman
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
Stefan Michel am 09.05.2007 um 18:03 Uhr (0)
Hallo,ich habe mir ein Lisp geschrieben für eine Schraffur.Die Lisp fragt mich mehrere Daten ab (z.b. Schraffurwinkel, Abstand, Schraffurfarbe). Nun möchte ich mir mehrere Werkzeugkästen anlegen welche bereits bestimmte Vorgaben (zb. Schraffurwinkel 0°, 45°, 90° usw. Vorgeben. Das ich nach Defun Variablen deklarieren kann welche ich in der Eingabeaufforderung direkt mit übergeben kann weiss ich. Allerdings brächte ich dann ja einen IF-Befehl für jede Variablenabfrage in der Lisp weil wenn ich z.b. Schraffu ...
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
Claudio am 09.05.2007 um 18:46 Uhr (0)
Hallo Stefan!Variablen werden mit setq definiert. z.B.: (setq HWIN 45) - (setq HTYP "ANSI31")(setq HSCAL 2)(setq HWIN 45)und dann die Variablen an den Befehl übergeben-(command "_hatch" HTYP HSCAL HWIN)Gruß Claudio
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
Claudio am 09.05.2007 um 18:58 Uhr (0)
Hallo Stafan!...glaube allerdings, daß das Problem noch etwas anders gelagert ist(konnte es Deiner Frage nicht genau entnehmen) - vielleicht hängstDu das Lisp an, dann kann man das Problem besser nachvollziehen.(..Ablauf beim Buttonaufruf..)Gruß Claudio
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
CADchup am 09.05.2007 um 22:14 Uhr (0)
Hi,wahrscheinlich meinst du etwas in dieser Art:(defun MeinBefehl (param1 param2 param3 / var1 var2) (if (not param1) (setq param1 (getreal "
Parameter 1: ")) ) (if (not param2) ....Für jeden Parameter, den du nicht mitgeben willst, gibst du der Funktion jetzt ein nil mit:(MeinBefehl 45.0 nil nil)Wenn ein Parameter nil ist, fragt die Funktion den Wert ab.GrußCADchup------------------CADmaro.de
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
Stefan Michel am 10.05.2007 um 07:28 Uhr (0)
Sorry, Gruß vergessen.....Vielen Dank vorabGrußStefan
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
Stefan Michel am 10.05.2007 um 07:27 Uhr (0)
guten morgen,also das was CADchup geschrieben hat schaut schon ganz gut aus.Nun habe ich aber folgendes Problem an der Sache. ich habe die Variablen die z.b. für den Schraffurabstand zuständig sind Global definiert um beim erneuten Befehlsaufruf immer automatisch den letzteingegebnen Wert als Vorgabe zu haben. Deshalb ist die Variable nie auf nil!Hier mal mein Lisp zur besseren Nachvollziehbarkeit:(defun c:hs ( / winkel abstand farbe)(if (= hs_abstand nil) (setq hs_abstand 10))(if (= hs_farbe nil) (setq hs ...
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
CADwiesel am 10.05.2007 um 08:42 Uhr (0)
Ich habe dir hier mal was gemacht - vielleicht kannst es ja nutzen:Code:(defun hs ( hs_abstand hs_farbe / winkel abstand farbe)(if (null hs_abstand) (if(null(setq hs_abstand (getreal (strcat"
Schraffurabstand eingeben " (rtos 10)":")))) (setq hs_abstand 10)) )(setq winkel (+ 90(*(getangle "
Winkel 90° zur Schraffurrichtung wählen:")(/ 180 pi)))) (if(null hs_farbe) (if(null(setq hs_farbe (acad_colordlg 256))) (setq hs_farbe 3) ) )(command "schraff" "b" winkel hs_abstand "N" (while (/=(getvar "CMDACTIVE")0 ...
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
Stefan Michel am 10.05.2007 um 08:36 Uhr (0)
hallo,ich bin gerade selber draufgekommen! ich nehem einfach für dievariablene welche ich direkt an den Befehl übergebe andere namen. dann kann ich mit ner IF-funktion prüfen ob diese übergeben wurden und kannentweder die globale Variable der übergebenen gleichsetzen oder wenn die übergebene variable nicht existiert die benutzereingabe starten!vielen Dank für die DenkanstösseGrußStefan
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
zimcad am 15.05.2007 um 19:06 Uhr (0)
habe das gerade mal überflogen. Ohne alles genau gelesen zu haben warum setzt du nicht mittels Lisp über (setvar...) die Systemvariablen HPNAME, HPANG usw. Dann kannst du anschliessend einen Punkt an den Schraffurbefehl übergeben. Wenn die Variablen gesetzt sind, startet Schraff mit diesen als Vorgabe.------------------GrussA. Zimmermann
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewerte an Lisp übergeben
Stefan Michel am 10.05.2007 um 09:31 Uhr (0)
Hallo CADwiesel,vielen Dank für die überarbeitung.Leider ist es bei deiner überarbeiteten Version so, dass z.b. derSchraffurabstand (bei benutzereingabe) immer als Vorgabe auf 10 gesetzt wird, bei meiner Lisp wurde der letzte eingegebene Wert als Vorgabe gesetzt (also wenn ich quasi beim 1. befehlsaufruf 33 als Abstand eingegeben habe wurde mir beim 2. Befehlsaufruf auch die 33 als Vorgabewert angezeigt und übernommen. Dies sollte auch so bleiben.Genauso ist es bei der Farbgebung.Deswegen denke ich, ich mu ...
|
| In das Form Lisp wechseln |
|
Lisp : Wo liegt hier der Fehler ???
romi1 am 03.05.2007 um 20:10 Uhr (0)
Hallo Leute!Habe als Lisp-Anfänger ein Problem, das ich scheinbar selbst nichtmehr lösen kann, und zwar bei der beiliegenden Funktion "romi":Der Hund liegt scheinbar bei den letzten 6 Code-Zeilen: Möchte einePolyline zeichnen lassen, die als Anfangspunkt die Koordinaten von"einsetzpunkt" nimmt, und dann jeden Punkt relativ vom vorhergehendenkonstruiert, und zwar mit Zuhilfenahme der relativen Abstände aus derListe "abstandslist". Wie ich zu den Daten von "einsetzpunkt" undzu jenen von "abstandslist" komme, ...
|
| In das Form Lisp wechseln |
