|
AutoLisp : Bemaßungswerte in Excel einfügen
Moony am 02.03.2004 um 10:29 Uhr (0)
Hallo zusammen, Heinz danke für Deine Tipps, aber es kann ja sein ich sehe das alles zu kompliziert. Der eigentliche Gedanke ist der, ich möchte ein paar Maße in ACAD auswählen und in ein anderes Programm einfügen. In diesem Programm stehen alle Variablen in einer Textdatei die zum Programmstart eingelesen werden. Z.B. Datei „Test.txt“ Var1=0.000 Var2=0.000 usw. Ich möchte jetzt die Werte 0.000 mit den Maßen aus Autocad ersetzen und die Datei speichern. Da war mein erster Gedanke Excel VBA in einer Textd ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
fuchsi am 29.09.2005 um 12:50 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. _$ (setq letzteob (cdr (assoc 1 abfrage)))"111/9"danke heinzich würds so machen(setq a1 "115/1")(setq a2 (fsplit a1 "/")) ; - (115 1)(strcat (itoa (car a2 )) "/" (itoa (1+ (cadr a2))));---------------------------------------------------------- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Usprung von Blöcken in Layouts
nahe am 07.05.2003 um 12:13 Uhr (0)
Hallo Heidi vielleicht funktioniert es ja auch damit. Geht auch ganz ohne Active-X Grüße Heinz (defun C:exp( / ll bn as i e) (if (setq ll (getlaylist)) (progn (if (and (setq bn (entsel
Block wählen: )) (= (cdr (assoc 0 (entget (car bn)))) INSERT ) ) (progn (setq as (ssget X (list (cons 0 INSERT ) (cons 2 (cdr (assoc 2 (entget (car bn)))))))) (foreach n ll (setq i 0) (setvar CTAB (car n)) (while (setq e (ssname as i)) (if ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Datum aus einem Fenster auswählen
Niggemann am 29.06.2011 um 23:06 Uhr (0)
@Jörn,mit OpenDcl kenne ich mich nicht aus, weiß auch nicht wie es geht und wird wohl auch nur in Englich sein. Das Fenster was du angehangen hast ist genau das was ich suche.@Heinz,darüber habe ich schon nach gedacht es aber verworfen weil ich nicht von noch mehr Software abhänig sein möchte und es mir zu aufwändig ist für jede ACAD-Version eine bestimmte DosLib-Version zu installieren und in meinem Lisp zu prüfen.Die Idee von DosLib ist zwar super aber keiner weiß wie lange MCNeel das noch macht.Ideal wä ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text kopieren und ändern
Brischke am 08.01.2004 um 12:44 Uhr (0)
Hallo Heinz, bist du dir sicher, dass du ein Textelement angeklickt hast? Da dein Tool eigentlich nur mit Texten funktioniert, solltest du es dahingehend erweitern, dass mit diesem Tool auch nur Texte gewählt werden können. Dann sollte der Basispunkt des Kopierens auch mit dem Basispunkt des Textes übereinstimmen. So wie der Code dort jetzt steht, kann es passieren, dass du einen Block kopierst, dessen Basisipunkt (einfügepunkt) sonstwo liegt. Anders kann ich mir deine Schilderung auch nicht erklären, als ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Prüfen ob Zahl
archtools am 22.12.2005 um 10:43 Uhr (0)
Zitat:Original erstellt von Dober Heinz:@ ThomasDanke dir das warsfunkt super mfgDer Vergleich der ASCII Codes von Cadmium war clever, besser geht es aber noch, wenn man mit Listen statt mit Strings arbeitet. Dann sieht das so aus:Code:(defun STR-ZAHL-AM-ENDE (STR / retlst strlst) (setq strlst (reverse (vl-string-list str))) (while (and strlst ( 47 (car strlst) 58)) (setq retlst (cons (car strlst) retlst) strlst (cdr strlst) ) ) (read (vl-list-string retlst)))Wenns die vl-string-list Funktion und ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Kreise ersetzen
Meldin am 14.11.2011 um 17:06 Uhr (0)
@CADchup@CADmium@mundalSo nochmals Achtung! Gerade als Anfänger kann das einen zur weißglut bringen wenn man Sachen probiert die nachher nicht funktionieren und Heinz wird hier kontinuierlich der gleiche Fehler präsentiert.Und wenn man immer einen Fehler vorgegaukelt bekommt und es dann einfach nicht funktioniert bleibt das Lispwissen auch rudimentär.Zum eigentlichen.Ich habe es oben schon einmal angemahnt.GC 40 ist der Radius nicht der Durchmesser!also bitte überall wo Durchmesser steht durch dieses erset ...
|
| In das Form Lisp wechseln |
|
Lisp : Bemassung ausfiltern
tunnelbauer am 06.02.2009 um 22:14 Uhr (0)
@Heinz:Wir sind ein Forum bei dem geholfen wird - ist richtig - aber helfen inkludiert auch, dass man sich selber Gedanken macht, über das, was man will und was man braucht und wie man dazu kommt.Und ich sehe hier niemanden Werbung machen... Oder siehst du hier irgendwo: Kaufe Produkt "X" bei Herrn "Y" - ich nicht... Wenn du es siehst tut es mir leid...Wärst du Programmierer - hauptberuflich - würdestest du es witzig finden wenn eh alles gratis ist? Von was zahlst du dann die Miete, Strom, Gas, Wasser, dei ...
|
| In das Form Lisp wechseln |
|
Lisp : Bereinigen / Purge Befehlsabfrage
Theodor Schoenwald am 22.06.2011 um 10:27 Uhr (0)
Hallo Heinz,Dein Tool ist sehr praktisch, deshalb habe ich es schon lange hier: http://www.lehrer.uni-karlsruhe.de/~za685/cad/cadtools.htm, Punkt 9,gelistet.@Chris, als Info: wenn Du willst, dass ein Befehl ohne Dialog arbeitet, wird ein Bindstrich davor gesetzt. Damit ein Befehl in englischer Sprache verwendet ein Unterstrich.Beispiel:_ (engl.) - (ohne Dialog) purge (engl. Befehl).Oft wird einfach vorausgesetzt, dass alle solche Angaben wissen.Wenn nicht, kommen oft schnippige Antworten und in Folge schni ...
|
| In das Form Lisp wechseln |
|
Lisp : Reaktor wieder laden
Dober Heinz am 07.04.2008 um 08:24 Uhr (0)
Hallo Danke für eure HilfeHabe es so gelöst, und es funktioniertCode:; Funktion zum Setzen der Reaktoren(defun c:reaein() (vl-load-com) (if(not com:react) (progn (setq com:react (vlr-command-reactor nil ((:vlr-commandWillStart . cmd-start-callback) (:vlr-commandEnded . cmd-end-callback) (:vlr-commandCancelled . cmd-end-callback)))) (princ "Reactor EIN ") ) ;ende progn ) ;ende if (princ) ) ;ende c:reaein (defun c:reaaus() (if com:react (progn (vlr-remove com:react) (setq com ...
|
| In das Form Lisp wechseln |
|
AutoLisp : blockattribute in liste auslesen und nachträglich zeichnung über liste bearbeiten
Mario H am 20.08.2004 um 09:28 Uhr (0)
Hi Heinz Jetzt geht es. Ich habe mal ein wenig ausprobiert. Eine Frage noch, kann man einen Befehl in den Quelltext schreiben der erkennt das es sich um Gleiche Attribute handelt und diese dann in der Gleichen Spalte auflistet. Also nicht immer das Attribut vor dem Wert in einer Zeile, sondern das Attribut oben in einer Spalte und darunter dann die Werte? Ich weiss das ich einiges von dir möchte ich versuche aber gerade selbst etwas das Programmieren zu verstehen und hoffe das ich solche Fragen oder Probl ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Wechsel in einem Layout zwischen Papier- und Modellbereich
nahe am 29.10.2003 um 15:34 Uhr (0)
Hallo Manuel, ich weiß nicht genau, ob Dir das weiterhilft, aber es gibt eine Systemvariable CTAB die den aktuellen Layoutbereich enthält, bzw. über die man den aktuellen Bereich auch setzen kann. ACHTUNG: der Modellbereich hat immer den Namen Model also z.B.: auf Layout2 wechseln CTAB layouts oder in den Modellbereich CTAB model Grüße Heinz P.S. anbei ein kleines Makro, das Dir eine Liste der Layouts zurückgibt ;** ---------------------------------------------------------------------- ;** Erstellt ein ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Reaktor wieder laden
Dober Heinz am 31.03.2008 um 10:11 Uhr (0)
Hallo FuchsiHier das lispCode:; Anfang der Datei; Funktion zum Setzen des Reaktors(defun add-cmd-reactors( / ) (vl-load-com) (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-commandEnded . cmd-end-callback)) )); Funktion zum Setzen der Reaktoren(defun add-cmd-reactors( / ) (vl-load-com) (if(not *cmd-reactor-added*) (progn (vlr-command-reactor nil ( (:vlr-commandWillStart . cmd-start-callback)) ) (vlr-command-reactor nil ( (:vlr-comma ...
|
| In das Form Lisp wechseln |
