|
Rund um Autocad : Optionen mittels Script-Datei
Brischke am 14.01.2004 um 15:22 Uhr (0)
Hallo, hier noch etwas erweitert, so dass so ziemlich alle Systemvariablen rausgeschrieben werden. Der Code brauch die im anhang befindliche c:sysvars.txt Code: (mapcar (lambda (A B C / f d) (setq f (open c:acad_sysinfo.txt A)) (mapcar (lambda (W) (princ W f) (princ f) (princ ((eval B) W) f) (princ f) ) C ) (close f) ) ( w a ) (getenv getvar) (List ( ACAD FONTALT TemplatePath PrinterStyleShee ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Externe Programme in ACAD laden !
Brischke am 03.05.2004 um 13:44 Uhr (0)
Ich würde mich freuen, wenn du mir bestätigen würdest, dass du kein Verzeichnis namens Beispiel auf dem Laufwerk C: hast und sich darin keine Datei namens calc.exe befindet und du deshalb auch nicht c:/Beispiel/calc.exe als Aufruf drin stehen hast .. richtig? Es kann nur ein Schreibfehler sein. In AutoCAD passiert auch nichts weiter, da nur einfach von AutoCAD aus dieses externe Programm gestartet wird. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Elemnte auf neuen Layer kopieren und unter die alten legen
Brischke am 28.08.2004 um 16:35 Uhr (0)
Hallo Tom, sind die Elemente des Layers A nicht in irgendwelchen Blöcken verschachtelt, dann kannst du mit (setq aws(ssget _X ((8 . A )))) die Elemente in einem Auswahlsatz zusammen fassen. Layer B erzeugen: (command _.-layer _M B ) Diesen Auswahlsatz kannst du nun für den Kopierbefehl benutzen. (command _.copy aws (0.0 0.0) (0.0 0.0)) mit (command _.CHPROP aws _LA B ) kannst du die zuvor kopierten Elemente auf den Layer B packen. Bei Fragen ... Grüße Holger PS: Klammern etc m ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : DCL verkleinern
Brischke am 11.06.2004 um 12:42 Uhr (0)
Hallo Jürgen, prinzipiell ist es so. Aber wie gesagt. Du musst vorher aber unbedingt eine Analyse machen, wie die Tiles miteinander verquickt sind. Dann kannst du das Fenster teilen und musst die Funktionalitäten wieder erzeugen. Der Beitrag von mir, die von dir angesprochene lsp-Datei, kann dir nur beim Verstehen des ganzen helfen und eben den generellen, prinzipiellen Umgang vermitteln. Am konkreten Programm sind dann sicher genügend Stolpersteine zu umfahren. Grüße Holger ------------------ Holger Bri ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : (3D-)Polylinien in LW-Polylinien
Brischke am 14.02.2003 um 10:33 Uhr (0)
Hallo Andrea, ich wüsste nicht, weshalb Du die Polyline in eine LWPolyline umwandeln solltest. Die Vertex-Punkte sind als Folgeelemente der Polylinie zugeordnet, deshalb kannst du dir mit (entnext ENAME_Polyline) das erste Vertex-Element ziehen, ein weiteres (entnext ENAME_VERTEX) liefert dir den nächsten Stützpunkt. Im Gruppencode 10 sind dann dort wiederum die Punktkoordinaten zu finden. Ich hoffe, ich habe mich einiegermaßen verständlich ausgedrückt, wenn nicht ... Grüße Holger ------------------ Holger ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : att2text---text2att
Brischke am 14.10.2002 um 22:38 Uhr (0)
Hallo Assi, was sind Absteckpunktblöcke? Wie sich das für mich anhört, hast Du viele Blöcke, die sichtbar durchnumerieren möchtest. Nur fehlt Dir dazu im Block das entsprechende Attribut? Kann das sein? Das würde heißen, dass Du der Blockdefinition selbst ein ATTDEF und den eingefügten Blöcken jeweils ein ATTRIB zuschreiben müsstest. Oder: Hast du den Text und möchtest einen Block einfügen, in dem dann ein bestimmtes Attribut mit eben diesem Text ausgefüllt wird? Nicht gleich aufgeben! Beschreib erste einm ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Arbeitsgeschwindigkeit durch Anzeigen in Befehlszeilen
Brischke am 12.11.2003 um 09:29 Uhr (0)
Hallo Andrea, jede Ausgabe am Bildschirm, egal ob in der Textzeile oder im Grafikbereich beeinflußt die Geschwindigkeit eines Programms. Deshalb sind in meinen Programmen nur auf besonderen Wunsch Statusmeldungen zu finden. Ebenfalls ist CMDECHO immer auf 0 gesetzt. Wenn das Programm mit vielen Koordinatensystemen arbeitet schalte ich zusätzlich auch das BKS aus. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz
Brischke am 17.10.2006 um 08:31 Uhr (0)
ok, mal als Begrüßungsgeschenk:(defun c:AWS (/ AUSWAHL FARBE OBJDATA) (if(and(setq AUSWAHL(ssget ((0 . "CIRCLE")))) (setq FARBE (acad_colordlg 1)) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (if(assoc 62 OBJDATA) (entmod(subst(cons 62 FARBE)(assoc 62 OBJDATA)OBJDATA)) (entmod(append OBJDATA (list(cons 62 FARBE)))) ) ) ) ) (princ))Dafür ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : Auslesen von Blockeigenschaften mittels VBA möglich?
Brischke am 11.11.2004 um 13:32 Uhr (0)
Zitat: Original erstellt von kiltswitch: ...Verstehst Du? Ich weiß einfach nicht so richtig, was alles beim konzipieren erwähnt werden muß. ... Bitte lesen: Beitrag von mapcar, erster Absatz T. was meinst du, wieviel Zeit ich für ein Konzept aufwende? Ich erspare dir den Hinweis auf meinen Beitrag in diesem Thread, indem von 20-30% der Gesamtkosten gesprochen wird. Ähnlich verhält es sich mit der Zeit. Für mich ist das ab diesem Punkt keine Hilfe mehr, sondern vielmehr die eigentliche Projektar ...
|
| In das Form Autocad VBA wechseln |
|
Rund um Autocad : Nach Export fehlt der Modellbereich
Brischke am 24.05.2004 um 17:52 Uhr (0)
Zitat: Original erstellt von MaikGausA: ...Ist jetzt wahrscheinlich ne ziemlich blöde Frage (sorry, aber ich bin ziemlicher Laie in CAD), aber wie bekomme ich denn jetzt diese winzigen Objekte auf eine erkennbare Größe? Mein Versuch mit Varia war ja nicht sehr erfolgreich (was aber wahrscheinlich eher ein Bedienfehler war... ;-)). ... Hallo Maik, mit dem Befehl zoom solltest du dir auf dem Bildschirm die Objekte so nah, wie erforderlich, ranholen können. Grüße Holger ------------------ Holger B ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : block tauschen gc2
Brischke am 15.10.2003 um 10:37 Uhr (0)
Hi Achim, ich habe in einem Tool die Attribute eines Inserts gelöscht. Danach war die Zeichnung nicht mehr zu gebrauchen. Das habe ich auf die Unterschiede zwischen Definition und Insert zurück geführt. Aus dieser Erfahrung heraus, ist es für mich zum Gesetz geworden, die Blockdefinition und die Inserts auf dem gleichen Stand zu halten, was die Anzahl der Attdefs/Attribs angeht. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP ...
|
| In das Form AutoLisp wechseln |
