|
Rund um Autocad : modifizierte Befehle
tunnelbauer am 24.04.2006 um 17:42 Uhr (0)
Ja - die Klammer ist notwendig (jede Klammer die geöffnet wird muss in LISP auch geschlossen werden)und ja - es sind mehrere defuns (diese deklarieren den Befehlsaufruf) in einem Lisp möglich.Code:(defun C:kreuz () (setq X-Point (getpoint "Bitte Punkt picken: ")) (command "_xline" "_h" X-Point "") (command "_xline" "_v" X-Point ""))(defun C:kreuzL () (setq oldlayer (getvar "CLAYER")) (command "_-layer" "_m" "XLINES" "_c" "50" "" "") (setq X-Point (getpoint "Bitte Punkt picken: ")) (command "_xline" "_h" X- ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Datenimport aus Excel
heja79 am 24.04.2006 um 21:22 Uhr (0)
Hallo Thomas,vielen Dank zunächst für die schnelle Antwort. Nach meinen Recherchen im Lisp-Forum bin ich zu folgenden Feststellungen gekommen:1.) Selbst kann ich das nicht machen.2.) Leider habe ich auch nicht die Befugnis, so etwas in Auftrag zu geben an jemand, der sich damit auskennt.Fazit: ich werde es wohl "von Hand" machen müssen. Allerdings war es mal wieder sehr interessant, was alles möglich ist...Viele GrüßeJana
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : modifizierte Befehle
Werner-Maahs.de am 25.04.2006 um 10:02 Uhr (0)
Alternativ zum LISP sei noch das Skript erwähnt. Ist leichter zu verstehen, wenn man noch keine LISP erstellt hat. Mit einem Skript kann man mehr oder weniger immer wiederkehrende Eingaben ablaufen lassen.Skript= einfache Textdatei mit Endung .SCR.Aufruf dann z.B. über eine Schaltfläche. oder Alias SR (bei deutscher Version).Skriptwiederholung durch ENTER- oder Leertaste (oder wie bei Dir möglicherweise rechte Maustaste.------------------strukturiertes Zeichnen mit www.Werner-Maahs.de
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Bemassung in bestimmten Layer
Zec am 25.04.2006 um 12:39 Uhr (0)
wie wäre es mit:(vl-load-com)(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird (cond ((wcmatch (car befname) "_dim*,DIM*") (setq *oldlay* (getvar "CLAYER")) (setvar "CLAYER" "0");Anstatt der 0 den Layer einsetzen, der zum Bemassen genutzt werden soll ) ) )(defun after_lay (reatyp befname / );Wenn Bem beendet wird (cond ((and (wcmatch (car befname) "DIM*") *oldlay* ) (setvar "CLAYER" *oldlay*) (setq *oldlay* nil) ) ) )(defun reaload ();Initialisierung des Reactors (if (not *DEFUN_DI ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : modifizierte Befehle
Werner-Maahs.de am 25.04.2006 um 17:25 Uhr (0)
@Thomasich wollte gar nichts gegen LISP sagen. Habe mir nur eine Anmerkung erlaubt.Und, mal abgesehen von den nachgetragenen Layerschaltungen war ja auch bei Dir keine Aktion, die nicht auch mit einem Skript funktionieren würde.Ich kenne mich mit den englischen Befehlen nicht aus, daher ein Skript zur Fragestellung:Beginn Skriptdatei Radius 2.scr:AbRundenRadius2Ende Skriptdatei!Beginn Skriptdatei horizontale Linien.scr:KLinieHOrizontalEnde Skriptdatei!Und auf die Schaltfläche gelegt z.B.: ^C^CSR "Radius 2" ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : wollen sie wirklich
wronzky am 25.04.2006 um 17:46 Uhr (0)
Eine Idee hätte ich auch noch:laufen irgendwelche Makros, Lisp oder so?gib z. B. mal (command "_pline" p1 p2 p3 "_close") einfach in der Befehlszeile ein. Dann kommt auch die Abfrage, da p1 p2 p3 leer sind, und _pline folglich bereits beendet, wenn der _close-Befehl kommt. Dieser will dann nicht die Polylinie, sondern die AutoCAD-Sitzung schliessen...Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Füllfarbe des Bemaßungstextes bei Autocad 2006
Cimex am 26.04.2006 um 13:25 Uhr (0)
Hi!Vielleicht brauchst Du gar keine LISP-Routine dafür...Du könntest ja zuerst alle Bemassungen auswählen -und dann im EIGENSCHAFTEN-Fenster unter der Rubrik Text die Füllfarbe ausschalten!?(Sauberer wäre allerdings das globale Ändern des Bemaßungsstils allemal)Lg, Peter
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Bemassung in bestimmten Layer
scj am 26.04.2006 um 16:17 Uhr (0)
Ein Verfahren, nach dem die Bemaßung auf einen vordefinierten Layer (z.B. "BEMASZUNG") gesetzt wird und das ohne LISP auskommt (also auch für AutoCAD LT) verwendet werden kann), wurde im AutoCAD-Magazin 05/05 auf Seite 44/45 beschrieben.Das entsprechende Makro ist^C^C_DIMLINEAR;\_CHANGE;_LAST;;_;_LA;BEMASZUNGViel Erfolg damit undbeste Grüße aus der RhönJochen www.black-cad.de
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Füllfarbe des Bemaßungstextes bei Autocad 2006
Cimex am 26.04.2006 um 23:41 Uhr (0)
Nach einigen (vergeblichen) Versuchen mit LISP(leider hat auch das Tool von CADmium bei mir nicht funktioniert)hab ich eine Lösung in VBA gefunden.Is ein wenig "dirty", aber vielleicht erfüllt es den Zweck:Code:Sub RemoveDimTextMask() Dim MyBlock As AcadBlock Dim MyEnt As AcadEntity Dim MyMText As AcadMText For Each MyBlock In ThisDrawing.Blocks If InStr(1, MyBlock.Name, "*D") 0 Then For Each MyEnt In MyBlock If MyEnt.ObjectName = "AcDbMText" Then Set MyMText = MyEnt ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Bruchschleife Welle (Rundstahl)
jukni am 27.04.2006 um 09:06 Uhr (0)
Hallo.Ich suche eine Lisp o.ä. welche mir eine Bruchschleife erstellt.z.b. Bruch eines Rundstahls(Welle).Müsste ungefähr so funktionieren.Ich selektiere den Wellenaussendurchmesser (zwei Punkte), dann noch die Schleifenhöhe und fertig.Weis jemand Rat.Danke Jürgen
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Attribute ausfüllen im Batch
Martin Sigloch am 27.04.2006 um 09:36 Uhr (0)
Danke Euch beiden. Stimmt, im Lisp Forum hätte ichs auch mal versuchen können. Mit Lisp habe ich allerdings seit über 1 Jahren nichts mehr gemacht. Da ist nicht mehr viel übrig. Versucht hab ichs trotzdem siehe Anhang. Bitte nicht erschrecken.Was soll passieren:Mit dem Script Generator von AutoCAD Mechanical sollen Dateien der Reihe nach geöffnet werden. Dann soll das Lisp ablaufen:In dem Block rahmen sollen ganz bestimmte definierte Attribute andere Werte erhalten. Es hat bislang auch immer funktioniert. ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Attribute ausfüllen im Batch
Martin Sigloch am 27.04.2006 um 09:39 Uhr (0)
Zitat:Original erstellt von Martin Sigloch: Mit Lisp habe ich allerdings seit über 1 Jahren nichts mehr gemacht. Leicht vertippt: "seit über 10 Jahren" sollte es heißen
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : modifizierte Befehle
tunnelbauer am 27.04.2006 um 11:26 Uhr (0)
Generell nicht schlecht die ersten Gehversuche Code:(defun C:HSTAHL () (setq oldlayer (getvar "CLAYER")) (command "_-layer" "_m" "HATCH" "_c" "8" "" "") (command "-bhatch" "_properties" "ansi31" "20" "0" "_select" pause "" "") (setvar "CLAYER" oldlayer))Das was du vergessen hast ist die Abfrage der Objekte im Lisp zu ermöglichen (Programmablauf wird durch PAUSE unterbrochen und Benutzereingaben sind möglich...), sowie den Befehl _-bhatch vollständig abzuschliessen.------------------GrüsseThomas
|
| In das Form Rund um Autocad wechseln |
