|
AutoLisp : String in Zahlen umwandeln
cad-intensiv am 29.07.2005 um 20:34 Uhr (0)
Zitat: Original erstellt von MH Bit: Hallo, ich hab doch noch eine Frage denn: jetzt kommt bei (rtos 1000 2 4) = "1000.0000" da kam sonst immer "1000" raus. Wie kann ich die Anzahl der Stellen nach dem Komma einstellen? Hat das was mit DIMZIN zu tun? Michael Ja, das hat was mit DIMZIN zu tun - das stand bei Dir früher vermutlich auf 8. Ich verwende statt RTOS immer meine eigene Funktion, die Du gerne für Dich passend ändern kannst: Code: (defun my-rtos (zahl modus stellen / result olddimzin) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zweites Element
cad-intensiv am 21.07.2005 um 15:10 Uhr (0)
Zitat: Original erstellt von Rabbit 007: Hallo Kamm mir jemand sagen wie ich am besten aus einer Zeichenkette z.B. ( 3 2 5 7 9 1 usw.) das 1 3 5 7 9 Element in eine neue Zeichenkette bekomme, also so ( 3 5 9 usw.) so habe ich es schon probiert und habe einen fehler in der Rückgabe erhalten. Vielleicht gibts ja etwas anderes? (setq zahl 0) (setq pos 0) (while (/= Zahl Elemente) (Setq Liste (append Liste(list (nth pos as)))) (setq Zahl (1+ Zahl)) (setq pos (+ 2 pos)) ) APPEND i ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute suchen
cad-intensiv am 27.07.2005 um 15:26 Uhr (0)
Zitat: Original erstellt von RoyCAD: Hallo Das ich mit (ssget "X" ((0 . "INSERT")(2 . "M6"))) nach dem Block M6 innerhalb einer dwg suchen kann war mir schon klar. Ich was aber nicht, wie soll ich ihm sagen das er in allen dwg Dateien die unter D:/CAD sich befinden suchen soll. Für ein Beispiel würde ich sehr dankbar. Gruß RoyCAD Sehr einfach geht das mit einem Skript, mit dem Du die einzelnen Dateien durcharbeitest. "Etwas" komplizierter geht das in VisualLisp mit VLA-Funktionen, womit Du pro ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute suchen
cad-intensiv am 27.07.2005 um 15:05 Uhr (0)
Zitat: Original erstellt von mapcar: Also, cad-{intensiv, huebner}: Ab in die Ecke, schämt euch! Stimmt, da hab ich mich geirrt. Aber warum ich mich für einen Irrtum schämen soll, und warum Du meinst, darauf erst mal sarkastische Antworten geben zu müssen, ist mir völlig schleierhaft. Du machst sonst nicht den Eindruck, als ob Du das nötig hättest ... Robert ------------------ Lisp-Seminare in Wien am 25. und 26. Sep 2005 und später in München, Frankfurt, Köln , Berlin ... - Infos unter cad-int ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute suchen
cad-intensiv am 26.07.2005 um 23:51 Uhr (0)
Zitat: Original erstellt von mapcar: Ach ja? Gruß, Axel Strube-Zettler Was soll der Sarkasmus? Du weisst ganz genau, dass man alle Attribute mit (ssget "X" ((0 . "ATTRIB"))) erhält. Und ich weiss ganz genau, wie man sich aus dem Auswahlsatz dann diejenigen heraussucht, die den gewünschten Namen haben. Wenn "Roycad" diesen Weg verfolgt und dann Fragen hat, dann kann er sie ja immer noch stellen. Robert ------------------ Lisp-Seminare in Wien am 25. und 26. Sep 2005 und später in München, Frankf ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Blöcke bzw. Attribute suchen
cad-intensiv am 26.07.2005 um 18:29 Uhr (0)
Zitat: Original erstellt von RoyCAD: Hallo zusammen Gibt es ein Tool der nach Blocknamen oder noch besser nach Attributen sucht. Ich habe fast 200 Zeichnungen und ich will wissen in welche dwg ist der Block vorhanden. Alle Zeichnungen befinden sich unter D:/CAD. Gruß RoyCAD Dazu brauchst Du kein Tool, das geht mit ein paar Zeilen LISP, z.B. mit (ssget "X" ((0 . "INSERT")(2 . "BLNAME"))) bekommst Du einen Auswahlsatz, der alle Blockreferenzen auf den Block namens BLNAME enthält. Ganz analog kann ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Oje Reactor
cad-intensiv am 26.07.2005 um 12:16 Uhr (0)
Zitat: Original erstellt von dan_rather: Hallo zusammen, das Thema Reactor wurde hier schon des öfteren Besprochen. Aber trotz aller Themenbeiträge werde ich nicht daraus schlau. Wäre nett wenn mir dummy mal einer erklären könnte wie ich einen Reactor anwenden muss der bei einem Rechtsklick einen Befehl abbricht und dann die Lisp Datei weiter verarbeitet. Das dürfte mit einem Reaktor nicht funktionieren, da Du damit keinen laufenden Befehl abbrechen kannst/darfst. Aber die gute Nachricht ist: dafü ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zahlenreihe
cad-intensiv am 21.07.2005 um 18:50 Uhr (0)
Zitat: Original erstellt von Dabrunz: Zitat: -------------------------------------------------------------------------------- cad-intensiv: Vorausgesetzt, die Strings enthalten immer Ganzzahlen, geht s so richtig: (mapcar itoa (vl-sort (mapcar atoi aa) )) -------------------------------------------------------------------------------- Hüstel - das liefert zwar unter einigen Bedingungen ein passendes Ergebnis, aber 2x Daten konvertieren ist für meinen Geschmack doch etwas grob oder? Stimmt - ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : String in Zahlen umwandeln
cad-intensiv am 04.08.2005 um 13:54 Uhr (0)
Zitat: Original erstellt von MH Bit: Hallo, erst mal Danke für eure Hilfe. ich hab ein wenig rumprobiert, mußte aber feststellen, dass das ganze immer noch zu ungenau ist. Mit der Funkion _dist bekomme ich wenn ich zwei Punkte angebe den Winkel. Allerdings weiß ich nicht wie ich das Ergebnis dieser Funktion weiterverarbeiten kann. (command "_dist" (list (distof(nth 2 nach-Liste)) (distof(nth 3 nach-Liste)) (distof(nth 4 nach-Liste))) (list (distof(nth 2 von-Liste)) (distof(nth 3 von-Liste) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Option Bezug bei (command _.rotate)
cad-intensiv am 17.08.2005 um 10:18 Uhr (0)
Zitat:Original erstellt von joern bosse:Hallo,gibt es eine Möglichkeit, die Option "Bezug" bei der Verwendung des Command-Befehles "Drehen" zu unterdrücken?(command "_.rotate" (entlast)"" basispkt pause)In diesem Beispiel soll nur die Winkelangabe über die Tastatureingabe oder über einen Richtungspunkt mit der Maus zugelassen werden.Bei dieser Zeile gibt es einen Abbruch, sobald die Option "b" oder "_r" eingegeben wird.Falls Du doch alle Eingabemöglichkeiten zulassen willst, dann geht das hier:Code:(comma ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 12:13 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo LisplerBin AnfängerHabe einen Text 111/9 will ihn kopieren und die neun um eine erhöhen.Nach abfrage bekomme ich das zurück "111/9" wie muss ich das umwandeln um den Text bearbeiten zu können bzw. die 9 auf 10 umwandeln.Hallo Heinz,das sollte doch in dem gerade von Dir absolvierten LISP Seminar in Wien behandelt worden sein, oder hat Herr Berger das versäumt? Wenn Du mir sagst, wo Du dabei noch Probleme hast, dann kann vielleicht auch ich Dir hier weiter helfe ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 16:44 Uhr (0)
Zitat:Original erstellt von Dober Heinz:damit geht es schon besser aber manche sachen sind wir noch nicht so klar wie ich den Text "220/1.1" umwandle und letzte Zahl um eins erhöhe.Naja, es kommt halt prinzipiell drauf an, welche Texte da so auf einen zukommen können, und was die alles enthalten können. Die Frage ist schon mal die, ob in diesem Fall die letzte Zahl die letzte "1" ist, oder ob das die "1.1" ist. Meine oben gezeigte Funktion gibt letzteres zurück. Diese 1.1 auf 2.1 hochzuzählen ist simpel, ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 21:55 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo Cad-inwenn ich mir meinen Text so einlese ist das überhaupt ein string den ich bearbeiten kann.(setq textw (car (entsel))) (setq abfrage (entget textw)) (setq letzteob (cdr (assoc 1 abfrage))) Du solltest mehr prüfen und solltest die Variablen so benennen, dass sie wenigstens irgend was mit dem Inhalt zu tun haben und nicht völlig falsche Namen haben.Beispiel:Code:(if (and (setq text-entityname (car (entsel "
Textelement wählen: "))) (setq text-entgetlist ...
|
| In das Form AutoLisp wechseln |
