|
CoCreate Programmierung : Körperfarbe auf Flächen kopieren
rmcc1980 am 10.07.2009 um 08:30 Uhr (0)
Hallo,ich brauche für Datenkonvertierungen ein Lisp, dass die Körperfarbe auf dessen Flächen kopiert. Falls jemand so etwas hat, bitte melden.Da ich etwa 3 Jahre nichts in Lisp gemacht habe, fühle ich mich wieder als Anfänger.Bisher habe ich als Test folgendes:Die Eingabezeile(set_face_color :selected_part (gpntwc -85.047672 63.958842 8.819641 "1") :face_3d :all_3d :COLOR 255 )funktioniert.Wenn ich jetzt versuche statt den Körper "anzutippen" diesen über den Namen zu wählen geht es nicht:(set_face_color :s ...
|
| In das Form CoCreate Programmierung wechseln |
|
AutoLisp : Datei umbenennen
WolfgangE am 03.09.2004 um 11:43 Uhr (0)
Hallo Lisp-Gemeinde, gibt es eine Möglichkeit, per AutoLisp (oder auch VisualLisp) eine bestehende Datei umzubenennen. Ich stelle mir das ungefähr so vor: (SETQ currFileName C:MyOldFile.dwg ) (SETQ newFileName C: MyNewFile.dwg ) (RENAME currFileName newFileName) Gibt es so etwas wie diesen hier verwendeten RENAME-Befehl? Hintergrund ist der: über einen Automatismus (Lisp-Programm) wird die Datei als PDF geplottet. Der Dateiname vom PDF soll dabei gleich sein wie der von der DWG. Da wird mir aber immmer d ...
|
| In das Form AutoLisp wechseln |
|
OneSpace Modeling : "Negativbohrungen" als Makro??
Heiko Engel am 04.08.2003 um 14:08 Uhr (0)
Mach ich doch glatt. Hatte mir schon gedacht dass ich mich etwas seltsam ausdrücke :-) Anbei eine "Negativbohrung" Dm 5mm mit einer Länge von 50 mm und 118° Spitzenwinkel. Solche Bohrungen in unterschiedlichen Durchmessern und Längen würde ich gerne mit einem Lisp erstellen, positionieren und wenn alles passt von meinem Ventilgehäuse subtrahieren. Denn wenn ich direkt alles richtig bohre bekomme bekomme ich oft Probleme wenn ich Bohrungen verschieben möchte die sich richtig übel überschneiden. Deshalb arbe ...
|
| In das Form OneSpace Modeling wechseln |
|
Rund um Autocad : Layer Farbe
mkl-cad am 29.04.2004 um 10:01 Uhr (0)
Hallo Leute, Die Lisp-Programme sind ja alle ganz schön und ich hab auch gegen die Aufgabenstellung nichts. Ich hasse aber Zeichnungen in denen die Objekte nicht die Farbe des Layers haben. Bei unseren Zeichnungen haben alle Objekte die Farbe, Linienstärke, Linientyp von Layer. Wofür gibts denn sonst die Layer. Da könnte man ja gleich alles auf einem Layer zeichnen. Ich möchte nochmals betonen das ich nichts dagegen habe das so bunt durcheinander zu würfeln. Schön find ich es nicht. Bitte den Moderator übr ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Layouts mit Lisp umbenennen
CAD-Huebner am 03.12.2008 um 15:05 Uhr (0)
Willkommen bei CAD.DE und AUGCE! Vier wichtige Links für den problemlosen Einstieg:Richtig Fragen - Nettiquette - Suchfunktion - System-InfoSo beim ersten Beitrag glatt übersehen.Hier noch ein paar nützliche Links zum Thema Layouts umbenennen mit Lisp http://ww3.cad.de/foren/ubb/Forum145/HTML/000815.shtml http://www.cadtutor.net/forum/showthread.php?t=27120 Probier dann mal das hier:Code:(vl-load-com)(defun RenLay ( kword / n) (setq n 1) (vlax-for x (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-aca ...
|
| In das Form Lisp wechseln |
|
OneSpace Modeling : Annotation - Externes Programm ausführen
RainerH am 19.07.2004 um 13:23 Uhr (0)
Hallo outclaSs, geht auf zweierlei Arten am Beispiel von Microsoft-Paint: ;; LISP - Anfang (in-package :examples) (use-package :oli) (oli::sd-defdialog sd-mspaint-starten :toolbox-button nil :dialog-control :sequential :ok-action (oli::sd-sys-background-job mspaint.exe ) ) (in-package :examples) (use-package :oli) (oli::sd-defdialog am-mspaint-starten :toolbox-button nil :dialog-control :sequential :ok-action (oli::sd-execute-annotator-command :cmd LET Pseudo_error (WINEXEC mspain ...
|
| In das Form OneSpace Modeling wechseln |
|
OneSpace Modeling : Gewindedarstellung
tdoerner am 25.05.2003 um 17:39 Uhr (0)
Hallo zusammen, das Forum ist sehr interessant, vor allem auch für "Einzelkämpfer". Ich hoffe Ihr könnt mir helfen mein Problem zu Lösen: Habe eine LISP-Datei erstellt für den OSD - diese soll nach dem anklicken von einer Zylinderfläche und einer Kante diesen ein Gewinde-und Fasenattribut zuweisen. Soweit sogut - dies funktioniert noch, aber in der Ableitung zu Annotation, wenn ich das Gewinde bemaßen will, erhalte ich als Ergebnis z.B. M8x1.25x45 soll heißen Gewinde M8 mit Steigung 1.25 und einer Länge v ...
|
| In das Form OneSpace Modeling wechseln |
|
Programmierung : Lisp-Tool für Oberflächenzeichen?
Erwin Franz am 06.03.2007 um 21:12 Uhr (0)
Das Makro funktioniert sehr gut; wir würden trotzdem noch folgende Erweiterungen brauchen:1: Skizze skalieren, z.B. mit 1,25 (Die Zeichen sollten grösser sein als die anderen, den Kanten in den Ansichten zugeordneten Zeichen). Wenn man die Grösse statt 3.5 z.B. 5 macht, werden nur die Klammern größer, nicht die Symbole.2: Farbe der Symbole ändern, z.B. von gelb (Original) auf weiss, das entspricht bei uns der Strichstärke für dei grösseren Symbole.Wir machen diese Änderungen bis jetzt manuell.Ich kann das ...
|
| In das Form Programmierung wechseln |
|
OneSpace Modeling : Werkzeugliste mit Untermenues
Walter Frietsch am 04.06.2004 um 09:58 Uhr (0)
Zitat: Original erstellt von Heiko Engel: Hallo Walter, das Lisp-File kannst du dir im Beitrag weiter oben saugen. Aber wie gesagt, ich hab Null Plan von Lisp und Unix. Ich hatte Mühe es mir so umzustricken dass es bei mir alle meine Makros lädt, und das bekam ich nur mit learning by doing auf die Reihe. Beim nächsten Update meiner Hilfeseiten werde ich es auch mit reinpacken. Kannst auch hier lesen. Da steht auch noch was drüber. Gruß Heiko Hallo Heiko, habs fast hingekriegt. Nur ein Punkt n ...
|
| In das Form OneSpace Modeling wechseln |
|
AutoLisp : Probleme mit align
Paulchen am 01.03.2006 um 10:33 Uhr (0)
Hallo Mci,bitte erläutere diesen Satz nochmal. Zitat:1) Ich rufe align folgendermaßen auf, da es sich um einen nicht nativen Befehl handelt:(c:align ...)Das funktioniert...Woher rufst Du auf? In der Acad-Befehlszeile? Dann kannst Du Dir die Klammern und das "c:" sparen, Du müßtest also nur "align" eingeben. Vermutlich - ich bitte um Korrektur - rufst Du allerdings aus Lisp heraus auf. Dann kann ich nur auf den Beitrag von CAD-Huebner verweisen. Es wäre durchaus denkbar, daß der Aufruf aus AutoCAD heraus er ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Hilfe für Lispprogramm
pbernhard am 28.05.2004 um 10:00 Uhr (0)
Hallo Forum, da ich mich nicht sehr mit der Lisp Programmierung auskenne bitte ich kurz um Weiterhilfe. Ich bräuchte ein kleines Programm mit dem ich einen Block (Symbol für eine Bohrung) mehrfach in eine Zeichnung einfügen soll. Momentan ist der Arbeitsablauf so: ich habe eine bestimmte Länge in die der gleiche Block im Raster von z.B. 32mm eingefügt werden soll. wenn nun der letzte Abstand geringer 32 mm ist, wird dies nicht berücksichtig. Ich füge also den Block am Startpunkt ein, teile meine Strecke R ...
|
| In das Form Rund um Autocad wechseln |
|
Makro Programmierung : Laden von Code
clausb am 14.06.2005 um 22:22 Uhr (0)
Wieder mal ein LISP-Package-Problem, wie es aussieht. Ich nehme an, dass die Funktion LOLA_MESG in MA_Gewinde.lsp gerufen wird, also in Eurem Code. Probier s mal mit einer expliziten Packageangabe, in diesem Fall F2::LOLA_MESG. Ansonsten koennte man sich natuerlich auch fragen, ob der LOLA_MESG-Aufruf hier ueberhaupt einen Sinn ergibt. LOLA_MESG wird zum Lokalisieren von Meldungen verwendet. Es wird NICHT gebraucht, wenn die Nachricht ueberhaupt nicht uebersetzt werden soll (wie in diesem Fall, denn ich gl ...
|
| In das Form Makro Programmierung wechseln |
|
AutoLisp : Zahl Hochzählen
cad-lisp am 20.02.2003 um 12:39 Uhr (0)
Hallo Heinz, ich habe mir einmal erlaubt das Lisp zu ändern, damit es läuft. So sollte es funktionieren. Die Frabe stimmt aber nur dann, wenn der ausgewählte Layer die Farbe vonLayer hat. (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 (while ...
|
| In das Form AutoLisp wechseln |
