|
Rund um Autocad : Dezimalstellen (/ 10 100)
Schachinger am 24.10.2003 um 09:57 Uhr (0)
@Kardinal Mathematische Operationen in Lisp laufen immer so ab das zuerst die rechenoperation angegen wird und dann die zahlen. also "5+6+2" wird in lisp so geschreiben: (+ 5 6 2) und "(a+b)*c" so: (* (+ a b) c) um im lisp eine real-zahl rauszubekommen muss mindestens einer zahl davon auch real sein. (/ 10 100) ergibt 0 da beide zahlen integer sind (/ 10.0 100) ergbibt 0.1 da eine zahl davon real ist. ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : ZOOM-Fenster als Tastatureingabe?
Schachinger am 30.10.2003 um 16:55 Uhr (0)
also eigendlich würd ich ich sagen leg doch zoom-fenster etc auf tastaturkürzel.. z.b. [Strg]+Q etc.. einzustellen in extras-- anpassen-- tastatur soll es wirklich so sein das q+enter zoom fenster ergibt fällt mir nur der weg über lisp ein (defun c:q() (command "_zoom" "_w") ) bei fragen einfach melden! ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : In Datei drucken mit Lisp ?
Schachinger am 31.10.2003 um 07:32 Uhr (0)
schau dir mal in der hilfe die lisp-befehle "open" "close" "read-line" "write-line" an.. kleines beispiel: (setq dateiname "c:/test/dateixy.txt") ;dateiname&pfad der zu erstellenden datei (setq f (open dateiname "w")) ;datei wird zum schreiben geöffnet (write-line "text in erster zeile" f) ;mit write-line wird zeilenweise in die datei geschrieben (write-line "text in 2ter zeile " f) (close f) ;datei wird geschlossen und gespeichert EDIT: sorry vergesst es... ich hab dich falsch verstanden gehabt.. SORRY * ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Befehl Spiegeln wiederholen.
Schachinger am 04.11.2003 um 11:12 Uhr (0)
generelle bemerkung: wenn eine abfolge von befehlen immer mit recktsklick oder enter wiederhohlt werden soll schmeiss ich den ganzen salat einfach in einen lisp-befehl. würd auch in diesem fall funktionieren (auch wenn wie marvin schon gesagt hat sicher der nutzen halt auf einen klick weniger beschränkt ) ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : 2d-Polylinie oder 3d-Polylinie?
Schachinger am 23.02.2004 um 12:52 Uhr (0)
hallo - das ist zwar nicht genau eine hilfe auf eine frage aber ich stell dir mal ein lisp rein mit dem du alle gewählten linien und bögen mit einem rohr überziehen kannst. mit einem klick. hab ich mir mal von ein paar monaten gebastelt. vielleicht hilft dir das ja auch etwas (defun c:ss2pipe2 () (setq pickmode (getvar pickstyle )) (setvar pickstyle 0) (command -layer _m Rohrmitte-7-z _c 5 farbenew ) (command _ucs _world ) (princ
Objekte wählen: ) (setq ss (ssget)) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Was ist auf den Layouts?
Schachinger am 19.08.2004 um 14:00 Uhr (0)
nur mal so ein vorlschag: layer DEFPOINTS wird nicht gedruckt.. wenn du in den layouts bzw. im modellbereich texte auf diesem layer schreibst wie z.b. SCHNITT A-A ANSICHT C etc. ist es ein leichtes rauszufinden wo sich welcher text befindet. dieses lisp durchsucht die layouts und den modellbereich nach texten (NICHT mtext) die auf dem layer defpoints liegen und spuckt alle layoutnamen aus in die dieser text vorkommt (groß/kleinschreibung beachten!) Code: (defun c:search_text (/ s_string ss i) (s ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Lisp-Anfänger - Probleme mit "_ai_molc"
Schachinger am 27.11.2002 um 15:59 Uhr (0)
Hallo Forum.... Also ich hab mir ein Schaltfläche geschaffen mit der ich den Layer eines Objektes als Text bekomme. Ich befinde mich im Papierbereich - Wechsle in ein Ansichtsfenster, wähle ein Objekt. und der Layer des Objektes (erst ab 6ter Stelle) wird im Papierbereich als Text ausgegeben. ^C^C-layer;se;6;;texteval;1;_.MSPACE;(setq lakt (getvar "clayer"));_ai_molc;\_.PSPACE;(setq lrohr (getvar "clayer"));(setq lrohr (substr lrohr 6 50));-layer;se;!lakt;;text;3.5;0.0;!lrohr; So weit so gut - funktioniert ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Lisp-Anfänger - Probleme mit "_ai_molc"
Schachinger am 28.11.2002 um 07:18 Uhr (0)
Hy Bernd bingo - haut hin! da regnets gleich ein paar unities! THANKS! ------------------ mfg Siegfried Schachinger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Farbe eines Layers als Variable Speichern? lisp....
Schachinger am 05.12.2002 um 09:56 Uhr (0)
hy... ein kleines Problem... Ich bräuchte für eine kleine Lisp-routine die ich erstelle einen Tipp. wie bekomme ich die Farbe eines Layers in eine Fariable? ist warscheindlich "watscheneinfach" aber ich komm nicht dahinter :-( ------------------ mfg Siegfried Schachinger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Farbe eines Layers als Variable Speichern? lisp....
Schachinger am 05.12.2002 um 10:26 Uhr (0)
habs mit tblsearch hinbekommen :-) thanks! ------------------ mfg Siegfried Schachinger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Farbe eines Layers als Variable Speichern? lisp....
Schachinger am 05.12.2002 um 16:38 Uhr (0)
hy Forum... (setq farbenew (cdr (assoc 62 (tblsearch "layer" lrohr)))) Habs mit tblsearch gemacht :-) Glaubt mir euer forum erspahrt einem viel Zeit und Geld! *dickes Lob an alle* ------------------ mfg Siegfried Schachinger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : VBA Tutorial
Schachinger am 15.01.2003 um 07:26 Uhr (0)
Hy Forum! Ich bin auf der Suche nach einem VBA-Tutorial. Würde gerne ein paar sachen für ACAD2002 und Inventor 6 zusammenbasteln. VBA deswegen weil Lisp einfach so umständlich ist und für Inventor sowiso kein Thema ist. Hat jemand einen Link etc. für mich? ------------------ mfg Siegfried Schachinger
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : lisp, mittelpunkt, winkel
Schachinger am 06.02.2003 um 11:16 Uhr (0)
Winkel in Radiant: (angle pt1 pt2) Beispiel: (angle (1.0 1.0) (1.0 4.0)) Mittelpunkt geht meines Wissens nicht ohne ein paar Codezeilen... (setq deltax (/ (- (car pt1) (car pt2)) 2)) (setq deltay (/ (- (cadr pt1) (cadr pt2)) 2)) (setq deltaz (/ (- (caddr pt1) (caddr pt2)) 2)) (setq pt3 (list (+ (car pt1) deltax) (+ (cadr pt1) deltay) (+ (caddr pt1) deltaz))) pt1 = erster Punkt pt2 = zweiter Punkt pt3 = Mittelpunkt hab den Code aber noch nicht getestet - nur ma so dahingeschrieben... ups.. war eh klar das ...
|
| In das Form Rund um Autocad wechseln |
