|
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 : Nummern hochzählen
fuchsi am 19.10.2005 um 15:58 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo Lispler ich wiederHabe mir ein Lisp gepastel einfach (bin noch Anfänger)aber se funkt.Hat nur einen Hacken ich kann geade bis Hochzählen.(defun textzahler (aus)(setq copytext (entget aus))(setq txt (cdr (assoc 1 copytext)))(setq txt1 (substr txt 1 1))(setq txt2 (itoa(1+(1+(atoi(substr txt 2 1))))))(setq txt3 (substr txt 3 1))(setq txt4 (itoa(1+(1+(atoi(substr txt 4 1))))))(setq txtzu (strcat txt1 txt2 txt3 txt4)) (setq neuedxf (subst (cons 1 txtzu) (assoc 1 c ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Abfrage Pos eines Symbols
Brischke am 02.12.2005 um 08:05 Uhr (0)
Hallo Heinz,ersteinmal zu deinem Vokabular: Du willst keine Symbole abfragen, sondern das Vorkommen eines Zeichens ermitteln.Es gibt verschiedene Interpretationen deiner Aufgabe.a) die Zeichen in der vorgegebenen Reihenfolge, als zusammenhängende Zeichenkette betrachtet- dann ist vl-string-search die Funktion, die du suchst.b) jedes einzelne Zeichen für sich betrachtet, dann musst du das (vl-string-position ..) eben mehrmals aufrufen.Da das jedoch recht mühsam ist, habe ich mir dafür bereits eine Funktion ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Fremdpläne anpassen
AsSchu am 13.10.2004 um 14:00 Uhr (0)
Zitat: Original erstellt von Maese: Ja, super. Und, würdest du es mir zur verfügung stellen. Danke im voraus. Maese hier ist es. ;************************************************************************* ;** Datei ATTRTXT.LSP ;** Dient zum Umwandeln von sichtbaren Blockattributen in Text ;************************************************************************* ;** Funktionen ;** C:ATTRTOTXT_EXP Wandelt sichtbare Blockattribute in Text um und ;** zerlegt den Block ;** C:ATT ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Bemassung ausfiltern
CADmium am 07.02.2009 um 17:36 Uhr (0)
Mal ganz offtopic um mal was zu klären:@Heinz: Wenn du das auf einen (IMHO kleinen) Teil meiner Postings beziehst ... ok ... ich kann mir auch den Hinweis sparen , dass es da was Fertiges gibt. Ist damit dem Fragesteller mehr geholfen? Oder erwartest du, das ich meine Feierabende und Wochenenden opfere, also meine Freizeit einsetze, um anderen Leuten Zeit und damit Geld zu sparen? Soweit geht mein Idealismus nun doch nicht. Sorry!So ein Forum hat immer was mit Geben und Nehmen zu tun, und wenn ich bei Leu ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Block auf Layer
joern bosse am 15.07.2005 um 10:37 Uhr (0)
Hallo Heinz, so kompliziert ist das gar nicht. Ich habe an axel s Vorschlag angeknüpft, im Nachhinein die Blöcke auf die vereinbarten Layer umzulegen. Im folgenden Lisp mußt Du die Liste anpassen, ich habe beispielsweise die Blöcke "Test1" und "Test2" mit den Layern "Layer1" und "Layer2" verwendet. Auf Groß- und Kleinschreibung ist zu achten. Viel Spaß beim ausprobieren: (defun c:block_layer ( / liste aws layer) (setq liste (list ("Test1" "Layer1");;;Liste mit Block und zugehörigem Layer, = anpassen ...
|
| In das Form AutoLisp wechseln |
|
Lisp : setq x '(Koordinaten)
papillon.hs am 13.08.2023 um 20:50 Uhr (1)
Zitat:"erstens wurden keine Lizenzen deaktiviert zweitens gab es öffentlich laaange vorherInformationen dazudas: Die online-Aktivierung abgeschaltet wird.Das es bei dir zum Zeitpunkt X Probleme gab hat damit aber nichts zutun!Die wieder-Aktivierung kann nur über den direkten Kontakt mit Autodesk erfolgen,was zwar auch mal ein Kampf sein kann,aber das ist dann das nächste Thema."OK, das muss aber in einer anderen Welt gewesen sein. Bei mir war zweifelsfrei von einem Start zum anderen die Lizenz weg und LT l ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
s.wickel am 11.11.2005 um 11:09 Uhr (0)
Hallo!Prima Funktion Heinz . Sowas wollte ich auch schon immer mal haben. Ich habe mir den Code kopiert (dein Einverständnis vorrausgesetzt). Und die 10Us die Du CADmium geschickthast bekommst du hiermit von mir erstattet. Ich habe den Code auch etwas angepasst, da das Original nur die letzte Stelle berücksichtigt. Für die Funktion Textzahler habe ich nun folgenden Code:Code:(defun textzahler (een / copytext txt text-dr text-um1 zaehler text-u text-neu neu btext fertig neuedxf) (setq copytext (entget een)) ...
|
| In das Form AutoLisp wechseln |
