|
AutoLisp : Schriftfeld mit Dateiname & Datum, die 99zigste :-)
Brischke am 27.09.2003 um 21:45 Uhr (0)
Hallo CAD Tötti, willkommen im Forum. Nun zu den Attributen. Um das zu machen, solltest du dich mit der DXF-Referenz beschäftigen. Daraus kannst du den Zeichnungsaufbau erkennen. Du suchst dir mit (seta as(ssget _X ((0 . INSERT )(2 . HEAD )))) erst einmal den Schriftfeldblock. mit (setq blel (ssname as Nr)) bekommst du den INSERT als ELement. Die Attribute folgen in der Elementreihenfolge der Zeichnungsdatenbank immer dem Insert, weshalb du mit (setq att1 (entnext blel)) an das erste Attribut k ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Layer über Datei erzeugen
CADmium am 07.07.2004 um 08:22 Uhr (0)
mal einen anderen Ansatz : Siehe Hier und speziell für Layer : (defun LAYER-export(DATEINAME / LAYER LAYDATA LISTE DATEI) (While (setq LAYER (tblnext LAYER (null LAYER))) (setq LAYDATA (vl-remove-if (lambda (L)(member(car L) (-1 330 -2 5 390))) (entget(tblobjname LAYER (cdr(assoc 2 LAYER))) ( * )) ) ) (setq LISTE (cons LAYDATA LISTE)) ) (if(setq DATEI(open DATEINAME w )) (progn (for ...
|
| In das Form Rund um Autocad wechseln |
|
OneSpace Modeling : Ansicht Kopieren
Walter Geppert am 22.02.2007 um 10:20 Uhr (0)
Kurze Frage-Lange Antwort Im Prinzip ja, aber extrem umständlich. Leider gibts keine Funktion, wo ich sagen kann: einfach die ganze Ansicht samt Bemassung und Beschriftung kopieren und dann halt nach Belieben ergänzen bzw. ändern, so wie man das im 3D gewohnt ist. Mit den Migrationswerkzeugen gibts allerdings einen umständlichen Weg, der sich nur auszahlt, wenn die Ansicht ein ordentlicher Brummer ist und eine simple Neuanfertigung sehr aufwendig. Hier das von mir vorgeschlagene Procedere: Migrationswerkz ...
|
| In das Form OneSpace Modeling wechseln |
|
AutoLisp : Mandelbrot
mapcar am 26.03.2004 um 16:21 Uhr (0)
In der Zeile (if (setvar z (complex x y))... hast du doch so einen Fall: (defun complex(real imag / )(list real imag)) (defun realpart(cmplx / )(car cmplx)) (defun imagpart(cmplx / )(cadr cmplx)) (setq myC(complex 3 2)) = (3 2) (realpart myC) = 3 (imagpart myC) = 2 Bis dahin ist das doch allerbanalstes Lisp. Wie gesagt, soweit wird doch noch gar nix gerechnet. Erst bei + , aber das hier: (+ (3 2) 1.5734462) funktioniert nun mal nicht so. Und es kommt noch mehr: (setq z (complex x y) ... (setvar ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Lisp warten lassen
joern bosse am 15.12.2008 um 07:36 Uhr (0)
Hallo CADchup,ich habe das mal so ähnlich wie Andy vorgeschlagen gelöst, solange, wie vl-file-rename nil zurück gibt ist die Datei am "Arbeiten" (in diesem Fall ein RAR-Archiv).Code:(if (and (vl-file-rename (strcat pfad A) (strcat (substr (strcat pfad A) 1 (vl-string-search "." (strcat pfad A))) ".exe") ) (findfile (strcat (substr (strcat pfad A) 1 (vl-string-search "." (strcat pfad A))) ".exe")) ) (progn (startapp (strcat (substr (strcat pfad A) 1 (vl-string-search "." (strcat pfad A))) ".exe" ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Reihenfolge Attributabfrage in Schriftfeld
CADLoe am 21.11.2006 um 21:28 Uhr (0)
Erstmal Sorry, ich hatte firmeninterne Probleme (Firewall) meine Antwort abzuschicken, warum haben wir nicht rausgekriegt. So muss ich jetzt meine Antwort von zu Hause aus abschicken.@ ThomasIch habe keine Ahnung von Makros! Ich habe schon mal versucht mich damit auseinanderzusetzen, aber beim Versuch ist es geblieben, wie gesagt...(Ich kann schliesslich nicht alles wissen, sonst würde ich wahrscheinlich nicht als CAD-Zeichner tätig sein )Der Hersteller, die Herkunft des Makros oder auch die Funktion ist ...
|
| In das Form Rund um Autocad wechseln |
|
PTC Creo Elements/Direct Modeling : Annotation - Zusatzgeometrie bei Quadrat und Rechteck
AlexG am 31.10.2016 um 10:57 Uhr (1)
Hallo Uwe,an und für sich eine tolle Idee dachte ich mir... also auf ans Werk...Leider gestaltete sich die Umsetzung nicht so einfach wie anfänglich vermutet. Bin da über einen fiesen Bug gestolpert welcher beim Funktionsaufruf für das Erstellen der Mittellinien auftaucht. Also musste ich ordentlich in die Trickkiste greifen, dass das Ding auch so läuft wie erwartet. Anbei im Anhang das Lisp welches in der Toolbox einen neuen Eintrag namens "Rectangle center line" erstellt. Als Eingabe werden vier Linien e ...
|
| In das Form PTC Creo Elements/Direct Modeling wechseln |
|
AutoLisp : ATTSYNC: als command in Lisp, (acet-attsync) usw.
Peter2 am 16.11.2005 um 17:31 Uhr (0)
Hoi Marcin der Zwischenzeit bin ich wieder etwas schlauer:a) der schwierige Aufruf und die Abstürze:Das ist anscheinend bekannt. Gefunden bei http://ww3.cad.de/foren/ubb/Forum54/HTML/008359.shtml#000004 - letzter Beitrag von Mapcar.b) die Schleife:Das habe ich auch hier im Forum gefunden (Link leider vergessen) - sie ist wirklich sinnlos, weil man mit "*" alle Blöcke updaten kann. Das ist blöderweise in der Hilfe nicht dokumentiert, sondern es wird extra von Instanzen eines bestimmten Blocks gesprochen - ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Autocad 2007
cosgeo am 04.04.2006 um 07:48 Uhr (0)
Also bei mir läuft das hier schon seit dem 22.03 und ich muß sagen es ist mal endlich wieder etwas schneller geworden. Wenn man das ganze 3D zeugs nicht braucht ist das allein schon ein grund der Version eine Chance zu geben. Außerdem sind Bugs gefixet die in 2006 selbst nach den ServicePacks noch drinn sind. (Ich sag nur insunits und willkürliches skalieren...). Wichtig ist, daß es ein neues DWG Format gibt und damit in der Regel alle Applikationen angepaßt werden müssen (ARX - bei LISP gehts vielleicht a ...
|
| In das Form Rund um Autocad wechseln |
|
OneSpace Modeling : Punktewolke auslesen
der_Wolfgang am 08.03.2008 um 14:12 Uhr (0)
Zitat:Und wie schon leider oft hier im Forum von anderen erwähnt, dassIntegrationKit ist leider nicht zu gebrauchen.Ich formuliere mal um: .. es ist nicht fuer jeden zugebrauchen. Man muss sich schon reinarbeiten. Die IKIT Dokumentation ist (IMHO) in erster Linie ein Nachschlage Werk. Aber es gibt auch einige, durchaus ausführliche Kapitel, die komplette Konzepte beschreiben, Beispiele geben und und und.Die IKIT Dokumentation beschreibt nicht wie man sein erstes "Hello-World"-Lisp Program schreibt. Es ist ...
|
| In das Form OneSpace Modeling wechseln |
|
Lisp : prüfen, ob Funktion vorhanden - ansonsten Meldung
tappenbeck am 13.01.2016 um 08:05 Uhr (1)
Moin !wer kenn sie nicht, die Anweisung eine bestimmte Datei zu laden, wenn eine Funktion nicht verfügbar ist um diese dann zu starten:Code:^C^C^P(if(not c:3dstiftschrauben)(load"tools")(princ));3dstiftschraubenMeine Aufgabe geht nun in eine etwas andere Richtung. Gebe eine Meldung aus, wenn eine Funktion nicht verfügbar. Wenn vorhanden, dann selbstverständlich ausführen. Im Grund wäre das dann Code:^C^C^P(if(not c:3dstiftschrauben)(alert "Funktion steht nicht zur Verfügung")(c:3dstiftschrauben))Nun möchte ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Alle Layerstatus löschen per button?
CADchup am 01.12.2010 um 10:52 Uhr (0)
Hi, Zitat:Das Tool ist ja nur ne Testversion Gibts da auch ne kostenlose Lösung?Gibts sicher auch, aber ohne Fleiß nun mal kein Preis. ;) Zitat:[i]Das kann doch nicht sein, dass man bei einer so teuren Software fürkleine selbstverständliche Funktionen noch extra was berappen muss./i]Was du eine "kleine selbstverständliche Funktion" nennst, ist für andere überflüssiges Gedöns. AutoCAD ist nunmal die eierlegende Wollmilchsau: Könnte alles, muss aber nicht. Zur Ausgestaltung des Programms gibts schließlich ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Linie brechen wie auch immer
steinmaus am 28.07.2006 um 10:57 Uhr (0)
Hallo Liebe Leute....Habe mich bemüht etwas zu meinem Thema im Forum zu schauen, bin aber zumindest auf Grund meiner fehlenden Macro-Kenntnisse nicht fündig geworden. Ich möchte eine Linie an mehreren Schnittpunkten brechen. Dafür gibts ja auch einen schönen Befehl. Dumm nur, das man diesen Befehl immer wieder aufs neue aufrufen muss. was mich irritiert, ist, das ich mit einer Befehlswiederholung (einfach enter) nicht den selben Effekt habe, denn nun kürzt er die Linie, anstatt sie nur zu unterbrechen. Mac ...
|
| In das Form Rund um Autocad wechseln |
