|
AutoLisp : Trassen zeichnen
CADmium am 20.01.2005 um 14:54 Uhr (0)
Zitat Holger Brischke : ..ein Hinweis: Das Forum ist hier keine Tauschbörse von Lisp-Tools. Es ist dazu da, Fragen zur Programmierung zu beantworten. Deine Anfrage erweckt jedoch den Anschein, dass du hie nur auf der Suche nach einer fertigen Lösung bist, und selber kein Interesse hast zu programmieren. (ich kann mich aber auch täuschen, und du hast das Posting nur unglücklich formuliert) Ich weise deshalb darauf hin, weil in letzter Zeit das Forum immer öfter Zweckentfremdet genutzt wird... Wenn du dich ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : RGB -> ACI
CADmium am 08.02.2005 um 12:50 Uhr (0)
Frage: Wie rechnet ACAD RGB-Farben in AutocadColorIndex-Farben um? Mit activX kann man ja auf folgende Möglichkeit zurückgreifen: (defun DT:COLOR-RGB- ACI ( RGB / COLOROBJ ACI ) (if(and (=(type RGB) LIST)(=(length RGB)3) (setq COLOROBJ (vla-getinterfaceobject (vlax-get-acad-object) AutoCAD.AcCmColor.16 ) ) (not(vl-catch-all-error-p (vl-catch-all-apply ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Schraffur effektiv erstellen
CADmium am 24.02.2004 um 10:33 Uhr (0)
hier mal ein geändertes Lisp, arbeitet mit Flächeninternen Punkten und nicht mit Objekten, die schraffiert werden sollen, da klappt dann auch die Inselerkennung... nicht das nonplusultra, aber villeicht hilft s in deinem Fall weiter... (prompt "
| | sw_hatch wurde geladen. "sw_hb001" zum Ausführen Eingeben") (defun c:sw_hb001 (/ idx ss sc clayer PKT PKTLIST) (command "_UNDO" "_BEGIN") (command "_ucs" "w") (setq PKTLIST ()) (while (setq PKT (getpoint "
Internen Punkt wählen Enter=Abbruch : ")) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Lisp-Datei kann nicht ausgeführt werden
CADmium am 13.11.2012 um 15:42 Uhr (0)
du rufst da den Textbefehl auf, anschließend wird gleich der Punkt übergeben ... das geht schief, bei einem aktuellen Textstil mit der Texthöhe 0 , d da erst die Texthöhe erwartet wird ...oder wo steigt der Befehl aus ? Besser wäre schon sowas :(defun C:CNC (/ P A B) (if(and(or(setq P (getpoint "
Zu bemassenden Punkt eingeben: ")) (prompt "
kein Punkt gewählt.") ) (or(setq A (getpoint "Textbeginn eingeben: ")) (prompt "
kein TextstartPunkt gewählt.") ) (setq B (strcat(rtos( ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
CADmium am 21.04.2005 um 10:40 Uhr (0)
Zitat:Original erstellt von Peter2: Wenn man aber dennoch mehr Blöcke auf einmal wählen könnte und die dazugehörenden Inserts der Reihe nach durchlaufen würden, wäre das schon was hübsches .. macht aber trotzdem kein Sinn, es sei denn , es sind alles Klarnamen .. sonst weiß man doch nicht welchen Block man gerade umbenennt. Zitat:Original erstellt von Peter2:Vielelicht könte man hier Optionen ergänzen: nur *U, nur *X, alle * Nein , mache ich nicht, mag für deinen Einsatzfall vielleicht ok sein, für den Al ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Linie zeichnen und verschieben
CADmium am 23.12.2005 um 20:11 Uhr (0)
sorry, was soll das werden?zum verschieben und kopieren .. 3 mm (eigentlich Zeichnungseinheiten) sind der Betrag des Verschiebevektors, aber wo ist die Richtung??prinzipiell ist in Lisp ne Menge machbar, aber du mußt schon genauer schreiben, was du willst.in etwa könnten aber die Fragmente, die du willst, so aussehen:1:(progn(setq START(getpoint "
Start: "))(setq ENDE (getpoint "
ENDE: "))(command "_line" START ENDE "")(setq LINE(entlast))(command "_move" LINE "" (0 0 0) (0 3 0)))2.(progn(setq LINE(car(ent ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Flächen berechnen, Fehler in Lisp-Routine
CADmium am 24.02.2008 um 20:30 Uhr (0)
Zitat:Original erstellt von andi90:Ein gutes Programm währe das von Archtools2004, das kostet aber 200.- + MwSt.(Es kann aber auch viel mehr)GrußAndi Wieviel Zeit verbrauchst du denn mit Fläche und Umfangermittlung und Eintragen derselben in deine Zeichnung? Wieviel kostest du diese Zeit ? Wann hätte sich so ein Tool für dich amortisiert?Frag doch Tom Berger an, ob er diese Routine aus den Archtools herauslösen und dir separat anbieten kann.Du kannst natürlich auch deine Lispkenntnisse erweitern. Hilfre ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Anordnung in Lisp
CADmium am 29.06.2005 um 07:47 Uhr (0)
z.B: (setq kreis0 (list (cons 0 circle ) (cons 8 AM_0 ) (10 0 0 0) (cons 40 10))) (setq kreis3 (list (cons 0 circle ) (cons 8 AM_0 ) (10 0 10 0) (cons 40 20))) (setq kreis8 (list (cons 0 circle ) (cons 8 AM_0 ) (10 10 0 0) (cons 40 35))) ;_usw....dann Kreise erzeugen (entmake kreis0) (setq kreis0-fertig (entlast)) (entmake kreis3) (setq kreis3-fertig (entlast)) (entmake kreis8) (setq kreis8-fertig (entlast)) ; .. und dann Reihe (command _array kreis3-fertig _R 10 10 15 12) ----------------- ...
|
| In das Form AutoLisp wechseln |
|
Lisp : gruppenfilter per lisp ändern
CADmium am 10.04.2013 um 13:13 Uhr (0)
Da du ja keinen Code mit gepostet hast , gibts wohl auch noch keinen naja.. egal .... mal ein Schnipsel für dir Richtung :(defun LAYGROUPFILTER( / OBJ DICT ITEM E D N LISTE)(if(and(setq OBJ(vla-get-layers (vla-get-activedocument(vlax-get-acad-object)))) (=(vla-get-hasextensiondictionary OBJ):vlax-true) (setq OBJ(vla-GetExtensionDictionary OBJ)) (not(vl-catch-all-error-p (setq DICT(vl-catch-all-apply vla-item (list OBJ "AcLyDictionary"))) ) ) ) (vlax-for ITEM DICT (if(and(setq E(vl ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : VBA Tool umwandeln von mm in inch
CADmium am 24.01.2004 um 16:51 Uhr (0)
Ob s was fertiges gibt, weiß ich nicht.... Da ACAD aber intern sowieso nur in Zeicheneinheiten rechnet ist ZOLL oder mm reine Interpretationssache. Das Tool könnte aber so funktionieren : Ist bloß der Modellbereich betroffen müßte folgende Eingabe in der Befehlszeile reichen : (setq AUSWAHL (ssget _X ))(command varia AUSWAHL (0 0 0) 0.03937) Wurde mit Layouts und Viewports gearbeitet, gibt es zwei Möglichkeiten: 1 . die unsaubere : alle Bemassungstexte mittels Proggi überschreiben 2. die saubere ...
|
| In das Form Autocad VBA wechseln |
|
AutoLisp : Lisp Kontextmenü
CADmium am 02.05.2005 um 10:53 Uhr (0)
hab s mal bearbeitet (defun c:Mybreak (/ osmode_save t_2 vla-t_2 abst schn) (vl-load-com) (setq osmode_save(getvar OSMODE )) (setvar OSMODE 15743) (if(and (setq t_2 (car(entsel
Linie wählen : ))) (setq vla-t_2(vlax-ename- vla-object t_2)) (or(setq abst(getdist
Abstand wählen 100 : )) (setq abst 100) ) (setq schn (getpoint
Punkt wählen )) ) (progn (setvar OSMODE 0) (command _break T_2 (vlax-curve- ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ausgleichende gerade
CADmium am 05.07.2004 um 13:10 Uhr (0)
Mal einen unoptimierten Ansatz auf Lisp : (funktioniert so wie Achim angedeutet hat) (defun Ausgleichsgerade ( PUNKTLISTE / N X Y SUMMEX SUMMEY SUMMEXY SUMMEX2) (if (and(=(type PUNKTLISTE) LIST) ( (length PUNKTLISTE) 1)) (progn (setq N (length PUNKTLISTE) SUMMEX 0.0 SUMMEY 0.0 SUMMEX2 0.0 SUMMEXY 0.0 ) (foreach PKT PUNKTLISTE (setq X (car PKT)) (setq Y (cadr PKT)) (setq SUMMEX (+ ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Spiegeln von Schraffur
CADmium am 18.10.2006 um 10:46 Uhr (0)
also eine Sysremvariable gibts dafür nicht, aber vielleicht hilft dir diese kleine Lisp ... laden mit Switchangle aufrufen und Schraffur anklicken .. es wird immer der bestehende Winkle un 90° umgeschaltet ...(defun C:switchangle ( / AUSWAHL INDEX OBJLIST) (if(or(setq AUSWAHL (ssget "I" ((0 . "HATCH")))) (setq AUSWAHL (ssget ((0 . "HATCH")))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJLIST(cons(vlax-ename-vla-object(ssname AUSWAHL(setq INDEX(1 ...
|
| In das Form Rund um Autocad wechseln |
