|
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 |
|
Rund um Autocad : Linien auflösen
Brischke am 28.11.2003 um 09:32 Uhr (0)
Hallo FeR, dafür gibt es keinen Befehl im AutoCAD. Der _EXPLODE Befehl dient ausschließlich dazu, AutoCAD Elemente, die aus mehreren AutoCAD-Objekten zusammengesetzt sind, in diese zu zerlegen. Das führt bei Anwendung dieses Befehls auf eine LWPolylinie dazu, dass diese in ihre einzelnen Segmente zerlegt wird. Die einzelnen Linienabschnitte sind jedoch nicht als Segment geführt und werden ausschließlich durch die Linientypdefinition bestimmt. Ein Lösungsansatz wäre deshalb, diese mit einem Tool auszulesen ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : assoc??
Brischke am 15.03.2004 um 07:21 Uhr (0)
Hallo Moony, mit (car..) sprichst du das erste Element einer Liste an. (cdr..) gibt dir die Liste ohne das erste Element als Ergebnis zurück. Mit (nth..) sprichst du ein Listenelement direkt an, und erhältst auch nur dieses als Ergebnis. Deine Liste sieht so aus: ((10 67.8505 29.062) (10 80.7359 29.062) (10 80.7359 39.4718) (10 67.8505 39.4718)) Du möchtest von jedem Element den Schlüssel, also die 10, entfernen. Für ein einzelnes Element macht man das dann mit (cdr..) - für alle auf einmal mit (mapcar c ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : CNC Daten
Brischke am 12.01.2004 um 08:48 Uhr (0)
Hallo Dressler, CADmium hat Recht. Mit AutoLISP/VLisp ist das kein Problem. Die folgenden Zeilen basteln dir den Punkt an die entsprechende Stelle. Soll mit einem Tool alles in einem Rutsch passieren, muss man doch etwas mehr Aufwand treiben. Code: (defun c:poli (/ elem mimapt mipt mapt pt) (setq elem (entsel)) (if elem (progn (setq mimapt (getboundingbox (setq elem(car elem))) mipt (car mimapt) mapt (cadr mimapt) pt (list (car mipt)(cadr mapt)) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Empfehlung eines CAD-Magazins
Brischke am 01.09.2004 um 23:56 Uhr (0)
Hallo Atomic, mir ist kein Magazin bekannt, schon gar nicht, welches sich inhaltlich auf die TGA und AutoCAD spezialisiert hat. Ich kenne nicht mal eine Zeitschrift, welche sich überhaupt so nah am AutoCAD befindet. Softwaretest: Das ist ein verdammt schwieriges Thema. Gerade solche komplexen Applikationen werden von den Anwendern höchst unterschiedlich genutzt, also auch ganz verschieden bewertet. Ich bin nicht der Meinung, dass am Ende eines solchen Tests, der Leser entscheiden kann, welches Programm ang ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : 3D Volumenkörperhöhe ermitteln und
Brischke am 21.11.2002 um 08:49 Uhr (0)
Hallo loup, das ganze ein wenig umstellen und dann kommt folgendes raus: Code: (defun C:su1 (/ po1 obj objTyp extrhoehe) (graphscr) (prompt "
Select closed polyline you want to subtract: ") (setq po1 (ssget)) ;;;(prompt "
Select solide : ") (while (not (= "3DSOLID" objTyp)) (setq obj (entsel "
Körper wählen")) (if obj (setq objTyp (cdr (assoc 0 (entget (setq obj(car obj)))))) ) ) (setq extrhoehe(SUB obj)) ;;;(setq so1 (ssget)) (command "_extrude" po1 "" extrhoehe ...
|
| In das Form AutoLisp wechseln |
|
ADT Architectural Desktop : Plotstilauswahl ADT 2005 mit SP1
Brischke am 22.11.2004 um 07:41 Uhr (0)
Hallo, folgend (m)eine Lösung für das Problem, dass bei zu vielen CTB-Dateien AutoCAD (bei geöffneten Eigenschaftenfenster) sehr langsam wird. Das Programm sollte immer automatisch beim Start mit geladen werden, so dass diese Funktionalität auch immer zur Verfügung steht. Das Prinzip des Tools ist folgendes: Der in den Optionen eingetragene Pfad verzweigt auf ein lokales "Dummy-Verzeichnis" in dem sich nur sehr wenige/keine CTB-Dateien befinden. Zu dem Zeitpunkt, zudem man jedoch die Seite einrichten will, ...
|
| In das Form ADT Architectural Desktop wechseln |
|
Rund um Autocad : Bemaßung einer Bogenlänge ???
Brischke am 23.11.2003 um 21:27 Uhr (0)
@tom.berger Defpoints: Alles richtig was du sagst, aber: . Eine Bogenlängenbemaßung bezieht sich auf einen bestimmten Bogen. Die ID des Bogens wird deshalb mit in der Bemaßung gespeichert, weshalb ich darüber (bei einer Änderung) die aktuelle Geometrie des Bogens ermitteln kann. Wird eine assoziative Winkelbemaßung zur Bogenlängenbemaßung genutzt, wird ein Modifikationsereignis durch die in AutoCAD enthaltene Funktionalität ausgelöst, somit springt auch der an der Bemaßung hängende Reaktor an. Mein Ansatz ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : import von messdaten in adt2002
Brischke am 27.10.2003 um 19:38 Uhr (0)
Hallo CADinka ehh sorry Khatinka deine 2 Fragen zusammen gefasst sieht dann so aus: Code: (defun c:einlt (/ file zeile) (setq file (getfiled Verzeichnisliste 2)) (if file (progn (setq file (open file r )) (while (setq zeile (read-line file)) (create:simplePOINT (cdadr (read(strcat ( zeile ) )))) (create:simpleTEXT (cdadr (read(strcat ( zeile ) ))) (itoa(caadr (read(strcat ( zeile ) ))))) );while (close file) ) (alert Keine Datei g ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Ergänzung Lisp-Routine für das automatische plotten benannter Ausschnitte ?
Brischke am 25.06.2001 um 12:57 Uhr (0)
Hallo Wolli, ich kann für meinen Teil sagen, daß ich reinweg nur mit der AutoCAD-Dokumentation arbeite. Angefangen habe ich mit den Büchern von R12. Diese fand ich sehr gut, die folgenden sind in meinen Augen immer schlechter geworden. Problem ist, daß man zwar alle Funktionen schön im Buch beschrieben sind, welche Eingangsgrößen und Rückgabewerte zu erwarten sind, was jedoch fehlt ist eine Beschreibung, wozu man diese Funktionen sinnvoll gebrauchen kann. Ich glaube das bringt nur die Erfahrung. Wenn ich m ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Attributdefinition / Querschnittsflächen in Excel
Brischke am 25.03.2003 um 19:59 Uhr (0)
Hallo Mr. King, nachfolgend ein paar Zeilen, die das machen. Diese sind rudimentär. Wenn es als richtige Tabelle, mehrerer Elemente dargestellt werden soll, dann wird es aufwendiger, da dann die Breite der Werte ermittelt werden muß. Es ist dann auch die Frage ob die Tabell lediglich aus Linien und Texten bestehen soll, oder jede Zeile aus einem Block mit Attributen gebildet werden soll. Da gibt es dann fast keine Grenzen. Code: (defun c:fltab () (princ "
Objekt für Flächenberechnung wählen: ") (set ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : ID abfragen
Brischke am 30.03.2017 um 16:15 Uhr (1)
... grundsätzlich benötigst du dann auch eine Liste der gültigen PC-Komponenten. Diesen Aufwand würde ich scheuen. Ich kann dir empfehlen, dich an den Domain-Namen zu hängen, der sollte in aller Regel über die Jahre fix sein. Noch leichter, ohne die ganze Hardware-Abfragerei, wäre das Prüfen auf Vorhandensein einer Datei, die auf einem Eurer Server liegt - UNC-Pfad reich ja, so dass der Ablagepfad den Anwendern auch nicht bekannt ist. Wenn in der Datei zur weiteren Prüfung eine wirre Zeichenkette gespeiche ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Einladung Produktvorstellung nächstes Release von AutoCAD
Brischke am 14.09.2004 um 23:17 Uhr (0)
Hallo Michael Nachtsheim - Willkommen Autodesk! - ich finde es sehr gut, dass Autodesk sich hier im Forum meldet! Auf den ersten Blick erstaunt mich diese Offenheit. Nach kurzem überlegen komme ich jedoch zu dem Schluß, dass dies die konsequente Fortsetzung des Weges zum Dialog mit den Kunden ist. - Anwendertreffen - Autodesk User Group Central Europe (Unterstützt und gefördert durch Autodesk) - Einladung zur Produktvorstellung sind Stichworte die mir dazu einfallen. @Community, wir sollten uns zu ...
|
| In das Form Rund um Autocad wechseln |
