|
AutoLisp : bildeigenschaften via lisp abfragen
fuchsi am 21.10.2003 um 10:14 Uhr (0)
der gc10 ist der einfügepunkt der gc11 ist der U-vektor (das ist der abstand des rechten,unteren punktes ausgehend vom einfügepunkt in x,y,z) der gc12 ist der V-Vektor (das ist der abstand des linken oberen punktes ausgehend vom einfügepunkt in x,y,z) ist das bild mit winkel 0 eingefügt ist der gc11 eine liste aus (bildbreite 0 0) und der gc12 eine liste aus (0 buildhöhe 0) ist das bild mit winkel 0 eingefügt , wirds etwas koplizierter den pfad erhälst du über den gc340, dieser enthält wiederum einen elem ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : bildeigenschaften via lisp abfragen
fuchsi am 21.10.2003 um 10:53 Uhr (0)
sorry noch ne kleine ergänzung, der U-vektor ist nur der vektor eines einzigen pixels ! und nicht der bildbreite im GC13 hast du eine liste aus (xPixel und YPixel) dir berrechnung ´des rechten oberen punktes läuft dann so (setq en1 (car (entsel))) elementname image (setq ed1 (entget en1)) elemtdaten image (setq LiUn (cdr (assoc 10 ed1))) einfügepunkt (setq u (cdr (assoc 11 ed1))) u-vektor (setq u1 (polar LiUn 0 (car u))) (setq u1 (polar u1 (/ pi 2.) (cadr u))) u-punkt abs ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : nummerierung der referenzen
Brischke am 22.10.2003 um 11:40 Uhr (0)
Hallo Steffen, ich habe es mir nun einmal engesehen, machbar ist das, aber auch ein wenig aufwendig. Du willst das also Programmieren, dann solltest du dir die (vlax-curve ..) -Funktionen mal anschauen, damit ist das dann, den ersten Teil betreffend, alles machbar. Das mit der Spline habe ich noch nicht so ganz verstanden. Ich versuche mal zu beschreiben, wie ich das verstanden habe. Du willst eine Spline/3DPolyline zeichnen, die entsprechend der Teilung der Linie (10er-Schritte) Stützpunkte hat. Diese St ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
CAD-Tötti am 04.10.2003 um 20:09 Uhr (0)
HI @ ALL :-),folgendes ist nun mein Problem (ich weiss, ich nerve :-)):Vor jedem Bemassungs-Befehl möchte ich, dass mir eine Lisp-Routine den aktuellen Layer abfragt, dann auf den Layer "DIM" schaltet (das ist der Layer auf dem die Bemassungs-Objekte eingefügt werden sollen) und nach der Bemassung wieder auf den ehemals aktuellen Layer geht.Hat jemand von Euch sowas schon mal gemacht ? Kann mir da jemand weiterhelfen ?Danke,CAD-Tötti
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
ManfredMann am 09.10.2003 um 14:22 Uhr (0)
Hallo!Eine ähnliche Lösung wäre, mit einer Lisp-Routine alle vorhandenen Bemaßungs-Elemente auf DIM-Layer zu stellen. Also Zeichnung beliebig mit Bemaßungen versehen, und nachträglich die auf DIM "verschieben". Natürlich geht DIM aktiv stellen + bemaßen + altes Layer als aktiv stellen auch. Dies hat aber einen Nachteil: es gibt eine ganze Reihe Bemaßungs-Befehle, die müssten alle in diese Funktion auswählbahr integriert werden. Das nachträgliche "Aufräumen" ist von Kommandoauswahl und Ablauf dagegen unabhä ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
CAD-Tötti am 09.10.2003 um 15:37 Uhr (0)
Hi,danke erstmal für Eure Antworten. Ich meine, dass jeder Bemaßungsbefehl seinen Ursprung im Befehl "DIM" oder "DIM1" hat, und wenn man vor jedem dieser Befehle auf den Bemaßungslayer schaltet, müsste das doch gehen, oder ?Jetzt mein Problem: wie geht das :-) ??? Ich beschäftige mich noch nicht sehr lange mit Lisp.CAD-Tötti
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
tmoehlenhoff am 13.10.2003 um 12:42 Uhr (0)
Hi Cadwiesel,ist schon klar, dass das dann nicht dir hyperelegante Lösung wird, aber Originalaussage von CAD-Tötti war "Ich beschäftige mich noch nicht sehr lange mit Lisp" und dann halte ich Reaktoren für recht schwere Kost. Wenn man dann die Bemassung eben nicht in einem weiteren zweiten Schritt auf den gewünschten Layer legen möchte bleibt nicht mehr wirklich viel übrig. Der von mir vorgeschlagene Lösungsweg bedeutet tatsächlich, dass man eigene Buttons oder Menüeinträge für alle Bemassungsbefehle schaf ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 13.10.2003 um 13:28 Uhr (0)
Hi, jetzt will ich mich auch einmal einmischendie folgenden paar Zeilen sind für die Implementierung eines Reaktors vollkommen ausreichend- es sind auch alle Befehle, die mit DIM beginnen erschlagen. Code:(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird (cond ((wcmatch (car befname) "DIM*") (setq *oldlay* (getvar "CLAYER")) (setvar "CLAYER" "0") ) ) )(defun after_lay (reatyp befname / );Wenn Bem beendet wird (cond ((and (wcmatch (car befname) "DIM*") *oldlay* ) (setvar "CLAYER ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 13.10.2003 um 22:57 Uhr (0)
Hallo CAD-Tötti,Reactoren reagieren ohne weitere Befehlseingabe auf ein bestimmtes Ereignis.Object-Reactoren auf irgendeine Aktion, die mit einem Objekt ausgeführt wird.Command-Reactoren auf die Befehle. Das ist in meinem Code passiert. Es werden 2 Reaktoren geschaffen. Der eine für den Befehlsstart und der 2. für das Ende des Befehls.Bei Fragen ...Grüße Holger------------------Holger Brischke(defun - Lisp over night!AutoLISP-Programmierung für AutoCADNEU: AutoLISP- ProjektschulungNEU: Praxisorientierte Sc ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
daiz am 18.10.2003 um 12:26 Uhr (0)
Hallo CAD-Tötti,ich brauche für verschiedene Projekte jeweils einen anderen Satz Layer.Ich habe das so gelöst:Es gibt eine "acad.lsp", die bei jedem Start automatisch geladen wird. Dort trage ich alle LISP ein, die geladen werden sollen. Ein Eintrag lauten: (princ (load "laden_layer" "ladenlayer.LSP-Datei nicht geladen."))Das "laden_layer.lsp" sieht so aus:(defun c:laden_layer (/ wahl)(setq wahl (getfiled "Layer-Anwendung wählen" "J:/acad_support/Layer_Verwaltung/" "" 8))(load wahl))Im Ordner Layer_Verwalt ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer umschalten bei der Bemassung
Brischke am 18.10.2003 um 16:29 Uhr (0)
Hallo CAD-Tötti, Zitat:Wie gestallte ich eine Überprüfung, diea) prüft ob der Layer in der zeichnung existiertb) den Layer ggf. nach den Maßgaben aus einer Datei z.B. "Layer.dat" anlegtc) die Layer generell beim Start von AutoCAD aus dieser Datei lädtzu a)(setq LayName "Testlayer")(if (tblobjectname "LAYER" LayName)(princ "
Layer vorhanden")(alert (strcat LayName " fehlt!")))zu b) das kann man verschieden lösen, hängt im wesentlichen vom Dateiaufbau ab.zu c) ich gestalte mir meist eine Menüdatei, und schre ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Werkzeugpaletten um Funktionen erweitern
tappenbeck am 22.10.2003 um 20:07 Uhr (0)
In der Standardversion von AutoCAD 2004 können nur Blöcke und Schraffurn in die neuen Paletten aufgenommen werden. Ellen Finkelstein beschreibt in http://usa.autodesk.com/adsk/servlet/item?siteID=123112&id=3368975&linkID=2475176 wie man mit einer undokumentierten Schnittstelle auch LISP-Funktionen in die Toolbar aufnehmen kann ! Creating a Command Tool Palette An undocumented type of tool palette is the command tool palette. There is no support or interface for this type of tool palette, and the best wa ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Dline mit Permanentfang
Brischke am 24.10.2003 um 14:02 Uhr (0)
Hallo, stelle mal die LISP-Datei hier rein, das kann man bestimmt auch korrigieren. Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop
|
| In das Form AutoLisp wechseln |
