|
Lisp : Addition mit 3 Stellen nach Komma
malsehn am 16.04.2009 um 11:53 Uhr (0)
Servus Beisammen,bin etwas unerfahren wie alle am Anfang und möchte gerne ein kleines Lisp-Programm verwenden. Verändert habe ich dieses:(defun c:ADD ( / Z1 Z2 OBJEKT OBJEKTDATEN ) (if (setq Z1(getreal "
Zahl eingeben: ")) (while (setq OBJEKT (car(entsel "
Text wählen : "))) (setq OBJEKTDATEN(entget OBJEKT ("*"))) (if (member(cdr(assoc 0 OBJEKTDATEN)) ("TEXT" "MTEXT")) (progn (setq Z2 (atof (cdr(assoc 1 OBJEKTDATEN)))) (setq OBJEKTDATEN (subst(cons 1 (rtos (+ Z1 Z2) 2 2)) (a ...
|
| In das Form Lisp wechseln |
|
Lisp : Addition mit 3 Stellen nach Komma
CADmium am 16.04.2009 um 11:55 Uhr (0)
(setq OBJEKTDATEN (subst(cons 1 (rtos (+ Z1 Z2 Z3) 2 3))reicht aus .. Nicht einfach immer nur Copy&Paste , sonder auch mal überlegen und evtl. mal in der Lisp-Hilfe nach den Funktionsparametern suchen!!!------------------ - 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 : Wie kann ich eine Schleife für eine Abfrage machen ?
aufi am 16.04.2009 um 14:47 Uhr (0)
Hallo an alle,Habe wieder erneut ein Problem habe eine Punktwolke und will einen Block (stoptafel)setzten,(anbei mein Lisp), kann allerdings immer nur 1 Block setzen danach ist schlußmit dem Lisp.Ich will aber wenn ich in punktnummer drinnen bin eine schleife haben.Bitte kann mir wer helfen oder weiss wer eine bessere Lösung??*****************************(defun C:t5 ( / anfpkt npkt auswahl lausw obj pkt orig vlaobj opkt para vlawink winkrad wink) (setvar "CMDECHO" 1) (if (= ALT_WINK nil) (setq ALT_WINK ...
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
CADmium am 14.11.2008 um 09:53 Uhr (0)
Es werden die per externer dll / arx vorhandenen Funktionen farblich gekennzeichet ... du kannst dir z.B. per .NET ne Funktionsbibliothek erstellen, die per netload laden und schon werden die Funktionen eingefärbt dargestellt. In Lisp gibt es keine User-eigenen Funktionen, nur Listen und Symbole ... ------------------ - 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 : vl-ide keywords
Hunchback am 14.11.2008 um 09:24 Uhr (0)
Wie viele Lispler hab auch ich eine inzwischen umfangreiche Sammlungvon praktischen Funktionen die ich in einer vielzahl von Programmen verwende. Jetzt kann ich in Notpad++ hergehen und meine eigenen Funktionen in eine Liste eintragen sodas sie im Code farblich hervorgehoben werden.Weil ich aber auch sehr oft mit der vl-ide arbeite frage ich mich, ob schon irgendjemand versucht hat, eigene Funktionswörter in die vl-ide einzubinden.Hat jemand von euch schon mal versucht eine der ide-dlls (welche?) mit resha ...
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
Hunchback am 14.11.2008 um 10:09 Uhr (0)
Verstehe. Nun ja, wir sind eh gerade dabei, ein paar andauernd genutzte Lisps nach C# zu portieren.Thx und GrüßeMartin------------------You seem (in my (humble) opinion (which doesnt mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong).
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
Hunchback am 21.04.2009 um 11:42 Uhr (0)
geht doch.Code:(defun codecolor () (setq functionlist (list getattrib setattrib getBlname make_dotted dotted-list table-list getattx getatty str-pos str-tok str-div str-divset stringtolist haschar is_empty_p getcoords getlayer gettype getpoly pline islocked?))(eval (list pragma (list quote (list (cons unprotect-assign functionList)))))(eval (list pragma (list quote (list (cons protect-assign functionList))))) )Ich muß aber zugeben, das das nicht auf meinem Mist gewachsen ist...GrüßeMartin-------------- ...
|
| In das Form Lisp wechseln |
|
Lisp : vl-ide keywords
Hunchback am 21.04.2009 um 12:13 Uhr (0)
Oh. Danke Thomas, hab auf die Quellenangabe vergessen.Mittagessen war nahe...GrüßeMartin------------------You seem (in my (humble) opinion (which doesnt mean much)) to be (or possibly could be) more of a Lisp programmer (but I could be (and probably am) wrong).
|
| In das Form Lisp wechseln |
|
Lisp : Kote Lisp - Höhenwerte werden nicht eingetragen
CADchup am 21.04.2009 um 12:40 Uhr (0)
Hi,ich tippe auf die Systemvariable ATTREQ, die bei dir vermutlich auf 0 steht. Der Code geht davon aus, dass sie auf 1 steht.Übrigens hat sich hier der Autor bez. fehlender Header im Code mal gemeldet .GrußCADchup------------------CADmaro.de
|
| In das Form Lisp wechseln |
|
Lisp : Kote Lisp - Höhenwerte werden nicht eingetragen
spiess am 21.04.2009 um 10:54 Uhr (0)
Hallo Leute,ich habe schon seit einiger Zeit die Lisp.Anwendung "Kote" in Verwendung.Aus irgendeinem Grund funktioniert diese Sache nicht mehr.Es wird bein Setzen der Höhenpunkte immer der Wert Null eingetragen. Verwendet wird der Block HKATTS.dwg.Wer kann mir da wetierhelfen.DankeMartin SpiessCode:--------------------------------------------------------------------------------(defun c:HK (/ )(princ "
Hkoten setzen. Starten mit HK ");FEHLERBEHANDLUNGSROUTINE................................................. ...
|
| In das Form Lisp wechseln |
|
Lisp : Kote Lisp - Höhenwerte werden nicht eingetragen
joern bosse am 21.04.2009 um 11:33 Uhr (0)
Hallo Martin,bei mir hat es gefunzt (ACAD 2008).Hier noch der Link zum Höhenkotenblock, falls es noch einer ausprobieren will. http://ww3.cad.de/foren/ubb/uploads/Fiedelzastrow/HKATTS.dwg.txt ------------------viele GrüßeJörnhttp://www.bosse-engineering.com
|
| In das Form Lisp wechseln |
|
Lisp : Kote Lisp - Höhenwerte werden nicht eingetragen
spiess am 21.04.2009 um 11:40 Uhr (0)
Hallo Jörn,danke für Deine Antwort. Wir arbeiten noch auf der 2007Version.Ich weiß nicht, ob es mit folgender Sache zusammenhängt:Von meinem PC wurde einmal eine Lizens auf einen Laptop verliehen, damit man zu Hause Weiterarbeiten kann.Ist das der Grund??GrußMartin
|
| In das Form Lisp wechseln |
|
Lisp : Kote Lisp - Höhenwerte werden nicht eingetragen
Steff179 am 21.04.2009 um 11:40 Uhr (0)
also bei mir funzt es auch --- acad 2006gruss
|
| In das Form Lisp wechseln |
