|
Lisp : vor jedem befehl
GrassHopper am 28.11.2006 um 13:02 Uhr (0)
Hallo Vevi,du könntest ja beim Laden der Datei eine kurze Abfrage mit einbauenin der Zeile....*username* (getstring t "
Layerbezeichnung eingeben: ")...wirst du dann nach dem Layernamen gefragt und der wird dann immer verwendet, wenn du dann auf einem anderen Layer zeichnen willst musst du allerdings (glaub ich) die Zeichnung schließen und wieder neu öffnen um den neuen Layernamen einzugeben. Übrigens Danke für das kompliment von wegen "Genial", das bekommt man selten zu hören in der Arbeitswelt.GrüßeGrass ...
|
| In das Form Lisp wechseln |
|
Lisp : vor jedem befehl
GrassHopper am 25.11.2006 um 20:20 Uhr (0)
Hallo asatt,ich hab mir mal ein paar Gedanken dazu gemacht, und wie im Beitrag vor mir, die Reactoren eingebaut.In meiner Variante wird geprüft ob der Layer vorhanden, eingeschaltet, aufgetaut und entsperrt ist, falls eines nicht die nötige Einstellung hat wird sie umgestellt.Der LayerName wird hier einfach auf den UserNamen gesetzt.Nach dem Befehl wird der vorherige Layer wieder eingestellt.Zu testzwecken hab ich noch eingebaut dass Befehle die nicht in der Befehlsauflistung (im Programm Variable *cmdName ...
|
| In das Form Lisp wechseln |
|
Lisp : vor jedem befehl
GrassHopper am 28.11.2006 um 13:41 Uhr (0)
nochmal ich,oder du könntest mit einem Vorgabe Layer arbeitenBsp. du hast meinetwegen 3 Layer die du immer verwenden willstLayernamen "Elektro" "Wasser" "Gas" oder soDu musst "nur" die folgenden Zeilen einbauen(defun f:setUserName() (if (not *username*) ; Abfrage ob der Layername schon vergeben wurde (setq *Lname* "Elektro") ; Wenn nicht LayerVorgabeName auf Elektro setzen (setq *Lname* *username*) ; Ansonsten vorhandenen Layernamen verwenden ) (initget "Elektro Wasser Gas") ; Bewirkt dass nichts a ...
|
| In das Form Lisp wechseln |
|
Lisp : vor jedem befehl
GrassHopper am 29.11.2006 um 21:42 Uhr (0)
Hallo Marc und vevi,erst mal Danke für den Tipp mit den Optionen für das Kontextmenü, den kannte ich noch gar nicht.Und zum Schluß hab ich jetzt noch eingebaut dass man beim Aufruf von SetUserName die Ractoren entfernen bzw. wieder laden kann.Aber dass ist bestimmt nicht das Ende was man machen könnte.Z.B. Die Layer aus einer Ini-Datei auslesen aber das ist bestimmt mit den LayerStandards besser zu bewerkstelligen.Schönen Abend nochGrassHopper
|
| In das Form Lisp wechseln |
|
Lisp : VRML export
GrassHopper am 01.09.2007 um 06:22 Uhr (0)
Hallo zusammen,ich hab aus gegebenen Anlaß auch mal mit der VRML-Ausgabe gespielt.Dazu habe ich zwei kleine Programme geschrieben.3ds2VRML: Wandelt bestehende 3ds-Dateien in VRML-Dateiendazu muss allerdings eine neue Zeichnung geöffnet werden.es wird eine 3ds-Datei eingelesen und dann PNETZ für PNETZ umgewandelt.Das Problem mit den teilweise verdrehten Flächennormalen habe ich "unschön" gelöst. Ich erstelle jede Fläche zwei mal, einmal cw und einmal ccw. Beispiel: Flächen Punkte 1 3 6, 1 6 3. Das hat zwar ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp im ausgeführten Befehl benutzen
GrassHopper am 17.01.2008 um 23:36 Uhr (0)
Hallo Thomas,das mit dem Befehl (Kal) ist ganz einfach. Der Befehl muss vorher geladen sein bevor du diesen verwenden kannst. Einfach vor der Befehlsausführung an der Kommandozeile von AutoCADeinmal Kal eingeben und dann kannst du während eines AutoCAD-Befehlsden Befehl für den Geometriecalculator (KAL ...) eingeben.Du kannst auch einfach KAL und dann die Berechnung eingeben.Beispiel: Linie von Punkt: cal (end+mid)/3nächster Punkt: cal (ins+ins)/2usw .....Schönen Abend nochGrassHopper
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
GrassHopper am 29.05.2009 um 18:35 Uhr (0)
Hallo Martin,ich hab hier mal eine Funktion gebbaut die genau das macht was du willst. Abgeschaut hab ich einen Teil aus AnsiCommonLisp.Die Funktion nennt sich CL:DEFCONSTANTAufruf : (cl:defconstant (Name Value))Rückgabe: entweder Value oder NilEs wird eine Liste mit Konstanten angelegt um bei nochmaligem Aufruf eine Meldung auszugeben dass dieses Symbol schon eine Konstante ist.Die Liste trägt den Namen *CL-PROTECTED-SYMBOLS*Der Trick an der Sache ich erzeuge eine neue Datei und lade diese.Beim Laden geh ...
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
GrassHopper am 30.05.2009 um 08:31 Uhr (0)
Hallo zusammen,ich hab das Programm nochmals umgebaut da ich eine Fehler drin hatte.Es sind allerdings noch vier weitere Programme dazu gekommen.cl:format gibt Formatierte Strings aus Beschreibung mit (cl:format -? nil nil)Aufruf: (cl:format stream "Destination-String" (values ...) stream t = Ausgabe auf Konsole stream nil = Rückgabe als String stream #File ... = Ausgabe in Datei Destination-String: jedes ~A wird durch die Ausgabe mit (vl-princ-to-string value) ersetzt j ...
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
GrassHopper am 31.05.2009 um 10:11 Uhr (0)
Hallo zusammen,Ich hab Noch ein kleiner Wurm innerhalb der CL:ERROR Funktion drindeswegen kann die Datei nicht geladen werden.Alte Funktion:;|(defun cl:error (msg args / msgn) (cond ((and (vl-symbolp msg) (eq -? msg)) (princ (VL-PRIN1-TO-STRING (cl:Error "Fehlermeldung Formatierung siehe (cl:Format -? nil nil)" [Wert | nil | (wert1 wert2 ...)))) == Hier hab ich das Anführungszeichen an der falschen Stelle (doof oder?) (prin1)) (CL:STRINGP msg) (setq msgn(cl:fo ...
|
| In das Form Lisp wechseln |
