|
AutoLisp : entget (car (entsel( ....... ) (0 . "INSERT")
Proxy am 08.03.2004 um 14:02 Uhr (0)
Zitat: Original erstellt von cadffm: Was meinst du mit Hilfsvariablen ??? (setq blname (cdr(assoc 2(entget(ssname(ssget _:S ((0 . INSERT )))0))))) OBJEKT = Megalange Verklammerung ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ***POP **OBJECT_INSTERT und Attribute
Proxy am 16.03.2004 um 18:49 Uhr (0)
Hallo, ist es eigentlich möglich mit Diesel bzw. Lisp bei dem Anklicken eines Instert zu prüfen ob dieser mit Attributen versehen ist und dann entsprechend das Menü anzupassen wie z.B. [$(if,$(or,$(eq,$(getvar,block_hat_attribute),true),$(eq,$(getenv,username),Proxy))Befehl_1_von_2,Befehl_2_von_2] ? Das wäre perfekt z.B. beim _explode um ihn dann entsprechend logischer bzw parametrisierbar anzupassen. P.S. habe da bestimmt eine Klammer vergessen ------------------ Lisp?!?! Why the Hell did ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ***POP **OBJECT_INSTERT und Attribute
Proxy am 16.03.2004 um 20:22 Uhr (0)
Zitat: Original erstellt von marc.scherer: Hi Proxy, solche IMHO kruden Wünsche lassen immer auf IMHO merkwürdige Arbeitsweisen schließen. Da aber mit ActiveX so ziemlich nix unmöglich scheint, glaube ich schon das so etwas machbar ist. (aber dann bestimmt nicht mit $(getvar,block_hat_attribute) ) Hmm, wie soll es sonst gehen ? Ich habe Blöcke die möglicherweise Attribute besitzen und wenn ich (oder ein Endanwender dem es echt sche** egel ist was Attribute sind) den _explode Befehl anwendet dan ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : _3DROTATE
Proxy am 20.03.2004 um 15:00 Uhr (0)
3DDREHEN Objekt/Letztes/ANsicht/X-achse/Y-achse/Z-achse/2Punkt = _.ROTATE3D Object/Last/View/X-Axis/Y-Axis/Z-Axis/2Points ist das genau deine Frage ? ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinienstützpunkt einfügen
Proxy am 19.03.2004 um 13:44 Uhr (1)
Bögen sind eigentlich sehr sehr sehr selten da.Kannst du bitte die Routine posten oder via PM schicken ?------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Lisp wechseln |
|
Lisp : Polylinienstützpunkt einfügen
Proxy am 22.03.2004 um 12:52 Uhr (1)
Schönen Urlaub und 10 Untis für die abgeänderte Version.------------------ "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form Lisp wechseln |
|
AutoLisp : lisp parameter
Proxy am 13.04.2004 um 18:27 Uhr (0)
Zitat: Original erstellt von michelangelo: [...] (defun c:aufbereiten () (command filedia 0 ) (command _qsave 2000 ) (command BEREINIG AL N ) (command _AUDIT J ) [...] (command fc ) (command _qsave ) ) ;ende von aufbereiten k.A. ob das jetzt so richtig ist aber dein lisp ist extrem gefährlich deutsch... (setvar oldfiledia (getvar filedia ) [...] (command _.purge _all _no ) (command _.audit _yes ) [...] (command _.erase _all ) (command -lay ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Umstellungen Lisp Programme in 2004DX
Proxy am 21.04.2004 um 18:10 Uhr (0)
Hier sind ein paar Dokus, dabei auch eine Tabelle mit Befehlen und Variablen die sich seit 14 bis 2k5 geändert haben. ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Ergänzung des gemessenen Wertes
Proxy am 26.04.2004 um 17:56 Uhr (0)
P.S. hier der Anhang Code: ; BEFEHL: ATI ; Addiert die Fläche zu markierenden Polylinien und schreibt die Fläsche als Mtext. ; ================================================================================== (defun suma-pol () (setq polilineas (ssget)) (setq n-pol (sslength polilineas) n 0 ) (repeat n-pol (setq nombre (ssname polilineas n)) (if (or (= LWPOLYLINE (cdr (assoc 0 (entget nombre)))) (= POLYLINE (cdr (assoc 0 (entget nombre)))) ) (progn (command _.area ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nummern forlaufend
Proxy am 29.04.2004 um 12:49 Uhr (0)
Code: (defun c:num (/ nr ipt ant th prefix) (setq LAY_OLD (getvar CLAYER )) (setq prefix (getstring
Textprefix: ) nr (if (setq ant (getint
Startnummer 0 )) (1- ant) 0 ) ;_ end of if th (getreal
Texthöhe: ) ) ;hier fehlte eine Klammer (princ
Wählen sie ein Element für die Layerschaltung : ) (setq AWS (ssget)) (setq AWS (ssname AWS 0)) (setq LAY_NEW (cdr (assoc 8 (entget AWS)))) (setvar CLAYER LAY_NEW) (while ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Externe Programme in ACAD laden !
Proxy am 03.05.2004 um 17:32 Uhr (0)
Kleiner Tipp am Rande: Windows Explorer so öffnen dass er direkt in das Verzeichniss der aktuellen Zeichung springt: ^C^C^P(startapp explorer (strcat /e, (chr 34)(getvar dwgprefix )(chr 34))) ------------------ Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language? Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Erzeugung von Hoehenkoten nach Definition eines Nullpunktes
Proxy am 04.05.2004 um 20:49 Uhr (0)
Ich habe die Beiträge hier mindestens 3x durchgelesen, habe eigentlich aber immer noch nicht so direkt verstanden was Kleiner_pally will. Vermutung: 1. Eine assiziative Bemassung die den Wert, welche auch immer als Attribut in einem freidefinierbaren Block vorliegen soll. Die Attributsgrösse soll je nach eingestellten Ansichtsfensterskalierungsfaktor sich ändern. Eigentlich wäre es womöglich sinnvoll direkt mehrere Attribute Layerbezogen einzufügen und diese dann je nach Faktor sichtbar bzw. unsichtb ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Höhenkote Lisp Code 3 Fragen
Proxy am 07.05.2004 um 14:31 Uhr (0)
So etwa: Code: (defun c:HKATTS (/ ) (princ
H koten setzen. Starten mit HKATTS ) ;FEHLERBEHANDLUNGSROUTINE..................................................... (defun-q *error* (msg) (setvar osmode aosm) (setvar blipmode abli) (setvar luprec alup) (setvar dimzin azin) (setvar attdia attdiaold) (setvar clayer oldlayer) (setq p1 nil p2 nil p3 nil p4 nil c1 nil cy nil cym nil txt nil) (setq hkmz nil o_str nil n_str nil o_slen nil n_slen nil si nil st nil dx nil me nil cmmm nil cm1 ni ...
|
| In das Form AutoLisp wechseln |
