|
Rund um AutoCAD : Flächen berechnen, Fehler in Lisp-Routine
CADmium am 24.02.2008 um 20:30 Uhr (0)
Zitat:Original erstellt von andi90:Ein gutes Programm währe das von Archtools2004, das kostet aber 200.- + MwSt.(Es kann aber auch viel mehr)GrußAndi Wieviel Zeit verbrauchst du denn mit Fläche und Umfangermittlung und Eintragen derselben in deine Zeichnung? Wieviel kostest du diese Zeit ? Wann hätte sich so ein Tool für dich amortisiert?Frag doch Tom Berger an, ob er diese Routine aus den Archtools herauslösen und dir separat anbieten kann.Du kannst natürlich auch deine Lispkenntnisse erweitern. Hilfre ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Kennzeichnung Maßüberschreibung
CADmium am 11.02.2010 um 15:50 Uhr (0)
ansonsten lad dir mal das in die Zeichnung :(defun C:BemOverrideMARKER(/ AWS COUNT I OV RET1 RET2) (vl-load-com) (setq RET1 0 RET2 0) (if(and(setq AWS(ssget "_x" (list (0 . "DIMENSION")(cons 410(getvar"CTAB"))))) ( (setq COUNT(sslength AWS))0) ) (progn (setq I -1) (repeat COUNT (and(setq OBJ(ssname AWS (setq I (1+ I)))) (setq OBJ(vlax-ename-vla-object OBJ)) (not(vl-catch-all-error-p (setq OV(vl-catch-all-apply ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : umwandeln mit ctb
CADmium am 28.07.2004 um 09:09 Uhr (0)
Für eine Zeichnung gleich ein Tool? Und dem mußt du auch sagen, welcher neuen Farbe eine alte zugeordnet werden soll! Also , auch wenn alles machbar ist, das Verhältnis Aufwand Nutzen sollte schon stimmen. Probiers doch erstmal Händisch: eine neue ctb zuordnen sollte ja kein Problem sein! Und dann gibts noch das Eigenschaftsfenster und die Schnellauswahl! ... Mit schnellauswahl alle Elemente der entsprechenden Farbe wählen und denen dann per Eigenschaftsfenster die neue zuweisen.... Aber ich denke mal, e ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Probleme mit Blockbestandteilen...
CADmium am 07.04.2009 um 14:23 Uhr (0)
Zitat:Original erstellt von DomiX:Funktioniert aber irgendiwe überhaupt nicht!?Vielleicht hat noch jemand eine andere Idee, wie ich alle Schraffuren anwählen kann, egal ob in einem Block, oder nicht, und bei dem man auch nur die Schraffuren herausfiltern kann...Oder man damit gleich den Layer einstellt, wichtig ist, dass es schnell geht, und zweitens, dass danach die ganze Zeichnung grau ist, und Schraffuren und Kompakte etwas heller (siehe "LAYKONV")Eine Idee wäre : Ein für dich angepasstes Programm ... ...
|
| In das Form Rund um AutoCAD wechseln |
|
Autocad VBA : VBA Tool umwandeln von mm in inch
CADmium am 24.01.2004 um 16:51 Uhr (0)
Ob s was fertiges gibt, weiß ich nicht.... Da ACAD aber intern sowieso nur in Zeicheneinheiten rechnet ist ZOLL oder mm reine Interpretationssache. Das Tool könnte aber so funktionieren : Ist bloß der Modellbereich betroffen müßte folgende Eingabe in der Befehlszeile reichen : (setq AUSWAHL (ssget _X ))(command varia AUSWAHL (0 0 0) 0.03937) Wurde mit Layouts und Viewports gearbeitet, gibt es zwei Möglichkeiten: 1 . die unsaubere : alle Bemassungstexte mittels Proggi überschreiben 2. die saubere ...
|
| In das Form Autocad VBA wechseln |
|
Rund um Autocad : Maximale Zeichenanzahl für Symbol- und Schriftnamen
CADmium am 08.11.2004 um 09:57 Uhr (0)
aus der ACAD-Hilfe : Sysvar EXTNAMES (Systemvariable) Typ: Ganzzahl Gespeichert in: Zeichnung Ausgangswert: 1 Legt die Parameter für die Namen von benannten Objekten fest (beispielsweise Linientypen und Layer), die in Definitionstabellen gespeichert werden. 0 Verwendet Parameter aus Release 14 (bis zu 31 Zeichen Länge). Die folgenden Zeichen sind zulässig: Buchstaben von A bis Z und Ziffern von 0 bis 9 sowie die Sonderzeichen Dollar ($), Unterstrich (_) und Bindestrich (-). 1 Verwendet Parameter aus A ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : _new und _qnew bzw. neu und sneu
CADmium am 29.07.2004 um 19:20 Uhr (0)
Komischerweise spinnt bei mir der Befehl sneu in ACAD Mechanical 2004DX. In meiner dwt ist( oder besser war ) der Schriftstil Standard mit der Schrift romans.shx definiert. Diese befindet sich auch im Supportordner und ist auch als FONTALT eingestellt. Öffene ich die dwt mit open : - alles ok. Erstelle ich eine neue Datei mit _new aus der Vorlage- auch alles ok. Wende ich jedoch den Befehl _qnew zur Erstellung einer neuen Zeichnung an - stellt sich die Schriftart im Stil STANDARD auf isocp.shx ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Mehrere Basispunkte!
CADmium am 29.02.2004 um 21:50 Uhr (0)
Definier mal deinen Block so, daß der Basispunkt genau mittig ist, dann meß ihn aus und schreibe Breite und Höhe in folgendes Lisp. Wenn dann ser Block in der Zeichnung vorhanden ist, kannst du die Refernzen mit entsprechenden Einfügepunkt mit dem Lisp erstellen. (defun c:4PKT-INSERT () (setq BLOCKNAME Test ) ; hier deine Werte reinschreiben (setq BLOCKBREITE 20) (setq BLOCKHOEHE 10) (setq PKT (getpoint Einfügepunkt : )) (initget R L O U ) (if (not(setq MOD(getkword
Ausrichtung [R] ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : unbenannte Blöcke ... wie Inhalt feststellen?
CADmium am 21.08.2008 um 11:12 Uhr (0)
Zitat:Original erstellt von romi1:Hallo!Bekomme immer wieder unbenannte Blöcke in die dwg, und weiß nicht woher. Leider kann ich sie nicht in die Zeichnung einfügen, da die unbenannten Blöcke beim einfügen nicht anwählbar sind. Würde mir gerne mal ansehen, was da drinnen ist um die Ursache für das massige Auftreten dieser Dinger zu verstehen, blos wie? Umbenennen geht ja scheinbar nur mit Zusatz-Tools (lt. vorigen Beiträgen zu dem Thema). Gibts da keine einfachere Lösung?Gruß,RomanNein .... umebennen und ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Text automatisch ersetzen
CADmium am 29.09.2004 um 11:42 Uhr (0)
Auch wenn das hier kein Wunschbrunnen ist .... (defun Tausche (Altertext Neuertext / Auswahl Index OBJEKTDATEN) (if(and(=(type Altertext) str) (=(type Neuertext) str) (setq AUSWAHL(ssget _x (list (0 . *TEXT )(cons 1 ALTERTEXT)))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJEKTDATEN(entget(ssname AUSWAHL(setq INDEX(1+ INDEX))))) (entmod(subst(cons 1 NEUERTEXT) (assoc 1 OBJEKTDATEN)OBJEKTDATEN)) ) ) ) ) ersetzt in ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Auswahl mittels Lisp-Ausdruck
CADmium am 04.07.2005 um 14:10 Uhr (0)
(sssetfirst (setq A(ssget _X (list(cons 8 (cdr(assoc 8 (entget (car (entsel)))))))))A) (entsel) wählt das Element und gibt Klickkoordinate und Element zurück (car(entsel)) filtert das Element aus (entget (car(entsel))) liefert die Gruppencodliste des Elements (cdr(assoc 8(entget (car(entsel))))) liefert den LAYERNAMEN (ssget _X (list(cons 8 LAYERNAMEN))) liefert einen Auswahlsatz aller Elemente im aktuellen Layout auf dem entsprechenden Layer (sssetfirst AUSWAHL AUSWAHL) setz den auswahlsatz aktiv auf ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Layer
CADmium am 27.10.2005 um 08:43 Uhr (0)
Zitat:Original erstellt von Yvonne88:@ CADmiumja. Ich habe das mit "DRAWORDER" schon probiert aber das geht ja nur mit Objekten!!!Außerdem habe ich ACAD 2006!!!Mennö, bist du blond? ... einen Layer kannst du nicht sehen,anklicken oder weiß ich was.. nur die Objekte, die den Layer als Eigenschaft haben.. zu deutsch : Die Objekte, die auf dem Layer ,liegen kannst du sehen , anklicken , verschieben!!!Ein Layer ist einfach eine "Eigenschaftsgruppe", die Farbe, Linientyp usw.. enthält und die jedem Zeichnungse ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Basispunkt bei Blöcken
CADmium am 08.02.2004 um 12:55 Uhr (0)
Ich denke mal, das es per Lisp geht.., aber wie genau soll das Tool funktionieren? Etwa so ? ...Blockreferenz anklicken, neuen Basispunkt anklicken, den bezüglich des Blockes umrechnen un im Block setzen und dann die Einfügepunkte aller Referenzen des Blockes so verändern, das sich diese an den gleichen Koordinaten innerhalb der Zeichnung bleiben .. ? Mal schauen.. So: Eine unelegante Lösung, findest du im Anhang. Setzt den Basispunkt im Block bei einer auszuwählenden Blockreferenz neu und datet alle and ...
|
| In das Form Rund um Autocad wechseln |
