|
Lisp : Lisp-Programm automatisch starten
Geistl am 17.03.2007 um 10:37 Uhr (0)
das ist mein laienhaft auf die schnelle gebautes Programm!(defun mysettigs ( / eingabe) ; Alten Pfad ausgeben; (gencfgget "gen@Paths@DWGTITLE") ; (gencfgget "gen@Paths@DWGPATH"); Neuen Pfad setzen(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(terpri)(princ "Bitte Kunden auswählen:
")(princ "----------------------------
")(princ "Kunde1:----1
")(princ "Kunde2:--------2
")(princ "Kunde3:------3
")(textscr)(textscr)(terpri)(setq eingabe (getstring T "Kunde ? ")) (if (= eingabe "1") (progn (te ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
CADmium am 17.03.2007 um 11:52 Uhr (0)
ne, aber probiers mal mit(defun mysettigs ( / KUNDE) (initget "1 2 3") (or(setq KUNDE(getkword "
Bitte Kunden auswählen: [1/2/3] 1:")) (setq KUNDE "1") ) (and(gencfgset "gen@Paths@DWGTITLE" (strcat "E:DWG_TitleKunde" KUNDE)) (gencfgset "gen@Paths@DWGPATH" (strcat "E:DWG_TitleKunde" KUNDE)) ) )------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
CAD-Huebner am 17.03.2007 um 12:53 Uhr (0)
Evt. kann man die Routine erst von der Funktion S::Startup aufrufenSiehe dazu hier diesen Beitrag http://ww3.cad.de/foren/ubb/Forum145/HTML/002013.shtml#000005 und auch die Hinweise von TOM beachten (um nicht evt. vorhandene Startup Funktionen versehentlich zu deaktivieren)------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
CADmium am 18.03.2007 um 09:05 Uhr (0)
ach so .. starte das mal nicht in der acad.lsp, sondern in der acaddoc.lspandererseits, warum packst du nicht alle Schriftfelder in ein Verzeichnis? Beim Schriftfeldeinfügen hast du dann ja im Einfügedialog ne Droplist zum Schriftfeld auswählen?!------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
Geistl am 18.03.2007 um 10:08 Uhr (0)
Hallo alle zusammen,ich habs so gelöst, daß beim Start eine Meldung kommt wie der Befehl heist und durch Eingabe dieses Befehls wird das Programm gestartet.Da wir bei uns in der Firma teilweise auch noch Kunden bedienen die mit Genius14 arbeiten stellt sich die Frage ob es da auch eine Acad.lsp gibt bzw. wenn es sie nicht gibt ob man diese erstellen kann und wo diese plaziert werden muß?Werner[Diese Nachricht wurde von Geistl am 18. Mrz. 2007 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Lisp-Programm automatisch starten
Geistl am 18.03.2007 um 10:26 Uhr (0)
Danke für den Hinweis!meine Fragen sind geklärt.Nochmals vielen dank an alle die sich an diesem Thema beteiligt haben.Werner Geistl
|
| In das Form Lisp wechseln |
|
Lisp : Blöcke anhand gegebener Polylinie einfügen
THE_ONE am 19.03.2007 um 11:20 Uhr (0)
Hallo!!Ich will anhand einer wählbaren Polylinie, eines gegeben Blockes und einer Anzahl (Anzahl der Blöcke), folgendes erreichen:z.B.: Anzahl =5 gegebener Block ist das blaue Dreieck Das Problem liegt darin die Einfügepunkte und die Ausrichtung zu ermitteln. Hab derzeit überhaupt keinen Plan wie ich da anfangen könnte. Brauche ich dazu VisualLisp, höchstwahrscheinlich oder??MFG THE_ONEps.:Kennt vielleicht jemand schon ein Lisp das sowas (oder ähnliches) kann??
|
| In das Form Lisp wechseln |
|
Lisp : Alle Einfügepunkte eines Blockes ermitteln
THE_ONE am 19.03.2007 um 12:28 Uhr (0)
Hallo! Frage kann mir vielleicht einer von euch sagen wie man alle Einfügepunkte eines Blockes bekommt- am besten in einer Liste!Hab hier im Forum ein Auto-Nummerierungstool gefunden, das ich mir auf meine Problemstellung angepasst habe! Nur muss ich dazu jeden Einfügepunkt selber angeben. Und eigentlich will ich ja nur das jeder Block eine eindeutige Nummer bekommt die neben dem Block steht (in einem fixen Abstand), dazu bräuchte ich aber die Einfügepunkte des Blockes.hier mal was ich bis jetzt habe:Code: ...
|
| In das Form Lisp wechseln |
|
Lisp : Arbeitspfade
bu am 22.03.2007 um 14:53 Uhr (0)
Tach Leute,Ich bin mal wieder auf der suche in CAD.de und hab das meiste auch schon gefunden. Es dreht sich um das Setzen der Suchpfade via Lisp. Da ich nun auch noch andere Pfade setzen will (Plotstyles, Plotters..usw.) frage ich nun wie komme ich an all die gesetzten Variablen. Gibt es hier einen ähnlichen Befehl wie "setvar" welcher alle auflistet oder steh ich hier komplett auf dem Schlauch.Grüsse bu
|
| In das Form Lisp wechseln |
|
Lisp : Vorgabewinkel beim Bezugdrehen
Stefan Michel am 23.03.2007 um 09:51 Uhr (0)
Hallo,ich habe mir folgendes kleines Lisp geschrieben um in Zukunft Objekte schneller drehen bzw. ausrichten zu können. Beim normalen Bezugdrehen muss ich erst Objekte wählen, dann einen Drehpunkt, dann muss ich "B" eintippen und dann will er nochmal 2 punkte für den Bezugswinkel und einen Punkt bzw. Winkel für den neuen Drehwinkel.Da ich aber mein Bezugswinkel zu 99% durch den Drehpunkt geht will ich mir diesen Punkt als auch das "B" sparen.Meine Lisp schaut wie folgt aus:(defun c:bezugdrehen ()(command " ...
|
| In das Form Lisp wechseln |
|
Lisp : Objektauswahl über Handle
RalphRX8 am 24.03.2007 um 14:55 Uhr (0)
Hallo CADmium,ich habe einem Bekannten ein Tool gemacht(VBA) welches anhand durch Mathcad errechneten Punkten Splines in Acad erzeugt.Nun sollen diese Splines quasi mit einer Fläche überzogen werden.Dies geschieht im Moment händisch über den Mechanical-Desktop-Befehl "_AMSWEEPSF". Für diesen Befehl finde ich in VBA aber keine Möglichkeit ihn zu automatisieren, was meiner Meinung auch nicht geht, da die erzeugten Mantel beim Ansehen der Objekteigenschaften in Acad kaum Eigenschaften besitzen.Also bleibt mir ...
|
| In das Form Lisp wechseln |
|
Lisp : _dimlinear mit Layertausch
I.nothof am 25.03.2007 um 22:02 Uhr (0)
Hallo,gleich noch eine Frage:Ich möchte bei der Bemassung den Layer immer auf einen Bestimmten Layer umschalten und dann den letzten Aktuellen wieder einschalten.(defun C:Bemlayer () (Setq aktlayer (getvar "clayer") ) (Command "layer" "se" "AZC_Grundris_LI" "") (Command "_dimlinear" (setq pt1 ( getpoint "ersten Punkt wählen")) (Setq pt2 (getpoint "zweiten Punkt wählen")) (Setq pt3 (getpoint "position wählen")) pt1 pt2 pt3) (Command "layer" "se" aktlayer "") )(princ)Das hat auch ganz gut geklappt. Abe ...
|
| In das Form Lisp wechseln |
|
Lisp : Objektname ändern?
CADmium am 27.03.2007 um 08:22 Uhr (0)
Nein, nicht in Lisp.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
