|
AutoLisp : Bem-Suffix auslesen
Werner-Maahs.de am 25.06.2005 um 21:43 Uhr (0)
Mal wieder eine Selbstanwort: Eine angebotene Lösung wurde am 3.März 2004 (Bemaßung (Überschreibung ) bereits genannt. Vielleicht hat sich je inzwischen etwas neues und vielleicht besseres ergeben? Ich bin ausschließlich an Methoden mit LISP interressierrt! ------------------ strukturiertes Zeichnen mit www.Werner-Maahs.de
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Bem-Suffix auslesen
Werner-Maahs.de am 26.06.2005 um 13:44 Uhr (0)
Ich habe tatsächlich nicht das richtige im Beitrag vom März 2004 gefunden. Das muss ja nicht am Beitrag liegen. Hier nun mein Bestreben: Beiliegend habe ich eine Skriptdatei, die in etwa die Vorraussetzung wiederspiegelt. Ich habe Bemaßungen, die z.T. über den Bem-Stil Ergänzungen erhalten, z.T. aber auch schon überschrieben sind. Meine bisherige Bemaßungsroutine nimmt von allen Bemaßungen den assoziativen Wert, schreibt diesen mit anderen Angaben wieder ein. Bisher habe ich immer manuell die Bemaßungszusä ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kreiskoordinaten über variable???
Dolcetto am 27.06.2005 um 12:00 Uhr (0)
Hallo Forum, ich versuche eine kleine Lisp zu schrieben, bleibe aber bei folgendem Problem hängen. warum geht das hier nicht: (setq b (getdist Lochkreis eingeben: )) (setq b1 (/ b 2)) (setq kreis1 (list (cons 0 circle ) (cons 8 AM_7 ) (10 0 0 0) (cons 40 (setq aussendurchmesser1 (/ b 2))))) (setq kreis2 (list (cons 0 circle ) (cons 8 AM_0 ) (10 0 b 0) (cons 40 (setq aussendruchmesser2 (/ c 2))))) wenn ich in die Kreis koordinaten z.B. so angebe (10 0 214 0) geht das!!! wenn ich aber die 214 über e ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Kreiskoordinaten über variable???
Dolcetto am 27.06.2005 um 15:34 Uhr (0)
Ja den kenn ich und wie binde ich den ins Lisp ein?
|
| In das Form AutoLisp wechseln |
|
Lisp : Stationierung von Pline, Höhe aus Blöcken
Bernd P am 28.06.2005 um 10:29 Uhr (0)
Servus@cadffm Jup natürlich hab schon gesucht und ein paar Ansätze gefunden. Nur leider kann ich grad mal minifuzzi Lisp anpassen. Bei den grösseren LISP seh ich nicht mehr drüber.@tunnelbauerDie Blöcke liegen genau auf der Pline. Um den Bezug herzustellen brauch ich ja LISP Die Koordinaten kann ich nicht verwenden da die Pline auch knicke haben kann, wo kein Block liegt und die Reihenfolge bei -eattext verloren geht.@Cadffm THX für die schnelle AntwortLiest alle Attributewerte aus ohne Reihenfolge, ohne S ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Anordnung in Lisp
Dolcetto am 29.06.2005 um 07:19 Uhr (0)
Allgemein: Wie kann ich autoCAD befehle in eine Lisp schrieben, mit voergegebenen werten? z.B. soll er mir einen Kreis Zeichnen, diesen dan Automatisch auswählen und ihn über eine Anordnung Polar über einen festen Punkt zu einer eingegebenen Anzahl erstellen. (command _array ).......... und wie weiter??? geht das irgendwie so? Danke für die Antworten
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
Brischke am 29.06.2005 um 07:30 Uhr (0)
Hallo Dolcetto, ja, so ähnlich geht das: Kreis zeichnen: (command _circle (0.0 0.0 0.0) 10.0) Reihe: (command _array (entlast) _R 10 10 15 12) Wie du siehst ist in dem (command ..) exakt die gleiche Reihenfolge wie die Eingabe in der Befehlszeile. So ist es immer. Auf diese Weise kannst du eben die AutoCAD-Befehle in einem Lisp-Programm nutzen. Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösunge ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
Dolcetto am 29.06.2005 um 07:37 Uhr (0)
hmmm, wenn ich es z.B. so habe: (setq kreis0 (list (cons 0 circle ) (cons 8 AM_0 ) (10 0 0 0) (cons 40 10)))) Wo her weiss er welchen kreis ich meine??? also ich habe in meiner Lisp kreis0 - kreis10 will aber nur kreis3 anordnen! muss ich den befehl gleich nach (entmake kreis3) einsetzen oder wie? (command _array (entlast) _R 10 10 15 12)
|
| In das Form AutoLisp 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 |
|
AutoLisp : Anordnung in Lisp
Dolcetto am 29.06.2005 um 08:13 Uhr (0)
Ok Danke euch, hat geklappt! Wieder etwas dazu gelernt! Wünsche noch einen schönen Tag.
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
WolfgangGutke am 29.06.2005 um 11:43 Uhr (0)
Hallo Dolcetto, mal nen kleinen Tipp, wie man ACAD-Befehl in LISP bekommt . Gebe einfach z.B. (command _.array ) in die Befehlsanzeige und notiere dir die Befehlsanfragen. In der gleichen Reihenfolge musst du den Befehl auch in LISP abspulen. Eine (bisher mir bekannte) Ausnahme gibt es: Es ist der Befehl Ausrichten. VG Wolfgang
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Nachbar Zelle aus Tabelle
startrek am 29.06.2005 um 13:47 Uhr (0)
Hi, mal auf die Schnelle, ist weder Lisp noch besonders hübsch. Nur n kleiner Ansatz, wobei so ganz ohne Excel, nur als Liste bzw. Textfile könnt ich mir das auch vorstellen;-) Gruss Nancy Code: Sub x() Dim xlapp As Object, wb As Object Dim arr, i&, p#(2) Set xlapp = CreateObject( Excel.application ) Set wb = xlapp.workbooks.Open( D:Mappe1.xls ) arr = wb.sheets( Tabelle1 ).range( A1:B1000 ) wb.Close 0 Set xlapp = Nothing For i = LBound(arr, 1) To UBound(arr, 1) If arr(i, 1) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Anordnung in Lisp
Brischke am 29.06.2005 um 14:15 Uhr (0)
Hallo Dolcetto, man kann dies wirklich vereinfachen. Anbei ein Bsp. Ich selber würde mit noch ein paar Zeilen weniger klar kommen, aber dann wäre es für einen Anfänger nur sehr schwer zu verstehen. Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Autodesk User Group Central Europe Individuelle Lösungen von Heute auf Morgen. AUGCE Manager Deutschland
|
| In das Form AutoLisp wechseln |
