|
Rund um AutoCAD : Ausgabe Koordinaten
CADmium am 19.07.2008 um 16:46 Uhr (0)
die weißen Punkte sind im ACAD auch Proxy-Objekte .. d.h. es handelt sich um Objekte, die mit einer Applikation erstellt wurden.Wenn du diese Proxies mit _explode auflöst, erhälst du einen Kreis, einen Text und eine Polylinie mit Länge 0.Für diese Proxies und auch Null-Längen-Polylinien sind die von dir verwendeten Lisp nicht geeignet.Wenn du nicht im Besitz der die "Punkte" erzeugenden Applikation bist , du trotzdem die Koordianten automatisch auslesen willst, brauchst du was spezielleres, das die Proxies ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : attout im script und für verschachtelte blöcke
CADmium am 16.01.2009 um 09:02 Uhr (0)
Zitat:Original erstellt von cad4fun: Was sind die gewissen Gründe?Ich arbeite extrem mit Xrefs - sind ja auch nur eine andere Form von Blockreferenz - und habe keine Probleme damit.z.B.Verschiedene Projekte, mit verschiedenen Projektständen ,die jeweils gleiche Blöcke in ebenfalls verschiedenen Ständen verwenden. Und das ganze jeweils archiviert.. dann müßte man entsprechend separat binden der so .. ginge auch.Und man weiß ja nicht unbedingt immer, wo eine Zeichnung überall referenziert wird ( obwohl man ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Attributsdefinitionen in normalen Text umwandeln
CADmium am 21.10.2004 um 15:43 Uhr (0)
zieh dir mal folgende Funktion in deine Zeichnung mit den Attributdefinitionen und starte sie mit attdef- text (defun c:attdef- text ( / AUSWAHL INDEX OBJEKT OBJDATA) (if(or(setq AUSWAHL (ssget I ((0 . ATTDEF )))) (setq AUSWAHL (ssget ((0 . ATTDEF )))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJEKT(ssname AUSWAHL (setq INDEX(1+ INDEX)))) (setq OBJDATA(entget OBJEKT)) (setq OBJDATA (subst(cons 0 TEXT )(assoc 0 OBJDATA)OB ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Gesperrte Layer in ACAD 2009
CADmium am 10.06.2008 um 16:30 Uhr (0)
Zitat:Original erstellt von wsbaucad:Es waren die Rauten. Würde aber doch gerne wissen, warum ACAD 2009 damit Probleme hat, 2008 aber nicht!eine zusätzliche Testfunktion ?? Das kann dir blocß der Programmierer sagenprobier mal (defun C:UNLOCKALL() (vl-load-com) (vlax-for ITEM (vla-get-layers(vla-get-activedocument(vlax-get-acad-object))) (vl-catch-all-apply vla-put-freeze (list ITEM :vlax-false)) (vl-catch-all-apply vla-put-lock (list ITEM :vlax-false)) (vl-catch-all-apply vla-put-layeron (list ITEM : ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Masslinie wird explodiert
CADmium am 09.05.2005 um 14:46 Uhr (0)
DIMASSOC (Systemvariable) Typ: Ganzzahl Gespeichert in: Zeichnung Ausgangswert: 2 Steuert die Assoziativität von Bemaßungsobjekten. 0 Erstellt aufgelöste Bemaßungen. Zwischen den verschiedenen Bemaßungselementen besteht keine Verbindung. Die Linien, Bogen, Pfeilspitzen und der Text einer Bemaßung werden als separate Objekte gezeichnet. 1 Erstellt nicht-assoziative Bemaßungsobjekte. Die Bemaßungselemente bilden ein einzelnes Objekt. Wenn sich der Definitionspunkt des Objektes verändert, wird der Bemaßun ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Block umbenennen lisp-tool
CADmium am 16.08.2006 um 12:21 Uhr (0)
Zitat:Original erstellt von Gigerota:Hallo Thomas,danke für den Hinweis, aber ich weiß leider nicht, was du mit deinem Rat meinst. DXB? ActiveXFunktion? Ist eine Lisp-Routine der falsche Weg? Es gibt ja den ACAD-Befehl zum Umbenennen unter: Format - umbenennen.Da kann ich nur ALLE Blöcke des selben Namens auf einmal umbenennen....wenns das doch nur mit "Markieren Sie die gewünschten Blöcke" gäbe...Einen Block umbenennen und einen Block duplizieren und das Duplikat bestimmten Referenzen zuweisen sind 2 ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Support file search path
CADmium am 27.09.2006 um 08:44 Uhr (0)
z.b. indem du ihnen Code:(defun DT:PUT-SUPPORT-PFAD(PFAD / SUPPORT POS OFFSET LISTE) (setq SUPPORT(getenv "ACAD")) (while (setq POS (vl-string-search ";" SUPPORT)) (setq LISTE (cons (substr SUPPORT 1 POS) LISTE) SUPPORT (substr SUPPORT (+ POS 2)) ) ) (if(and(=(type PFAD) STR) (setq PFAD(vl-string-translate "/" "" PFAD)) (setq PFAD(vl-string-right-trim "" PFAD)) (vl-file-directory-p PFAD) ) (progn (if (not(member (strcase PFAD)(setq Liste(mapcar strcase (reverse LISTE) ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Anonyme Blöcke per Lisp umbenennen
CADmium am 21.04.2005 um 09:41 Uhr (0)
Ein Block kann ja bloß einmal in einer Zeichnung vorkommen und dann nur öfter referenziert werden. Auswählbar sind die Blockreferenzen. Beim Umbenennen eines Blocks, der nach der gewählten Blockreferenz gesucht wird , macht es demnach Sinn nur EINE Blockreferenz auswählen zu lassen, bzw. die erste der aktuellen Auswahl zu nutzen. Nutzt man die Option Neuer Name = Timestamp könnte ich noch eine Automatisierung implementieren. Bei Neuer Name = * wird der Block anonymisiert. BLOCKS-NOTANONYMUS wandelt alle an ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Systemvariable die Textfond tausch beeinflußt?
CADmium am 11.10.2005 um 10:04 Uhr (0)
als Ergänzung: ( aus der Hilfe )FONTMAP (Systemvariable)Gespeichert in: Registrierdatenbank des SystemsAusgangswert: "acad.fmp"Legt fest, welche Schriftzuordnungsdatei verwendet wird. Eine Schriftzuordnungsdatei enthält eine Schriftzuordnung pro Zeile. Die in der Zeichnung verwendete Originalschrift und die zu ersetzende Schrift sind durch ein Semikolon ( getrennt. Um beispielsweise die Schrift Roman durch die TrueType-Schrift Times zu ersetzen, lautet die entsprechende Zeile in der Schriftzuordnungsdatei ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Texte aus einem eingefügtem Block lesen
CADmium am 10.09.2004 um 08:32 Uhr (0)
Nochmal nachgehakt, gehts dir um die Koordianten der Texte innerhalb der Blockdefinition, oder um die transformierten Koordinaten der Texte im Koordinatensystem der Zeichnung? Für ersteres kann ich dir folgende Zeile anbieten : (nicht wundern, wenn Holgers Stichwörter nnicht vorkommen .. mit denen würde es auch gehen, aber halt anders ) (defun objinfo( BLOCKNAME / BLOCK TEXTLISTE ) (vl-load-com) (if(setq BLOCK(vla-item (vla-get-blocks (vla-get-activedocument ...
|
| In das Form AutoLisp wechseln |
|
AutoCAD Mechanical : Attribute löschen
CADmium am 12.08.2004 um 08:22 Uhr (0)
Vielleicht hilft auch das kleine Lisp: (vl-load-com) (defun c:del-atts( / INSERT VLA-INSERT) (if(and (setq INSERT (ssget _:S ((0 . INSERT )))) (setq INSERT (ssname INSERT 0)) (setq VLA-INSERT (vlax-ename- vla-object INSERT)) (=(vlax-get-property VLA-INSERT HasAttributes) :vlax-true) ) (progn (setq ATTS (vlax-variant-value(vla-GetAttributes VLA-INSERT))) (setq INDEX (-(vlax-safearray-get-l-bound ATTS 1)1)) (repeat (-(vlax-saf ...
|
| In das Form AutoCAD Mechanical wechseln |
|
AutoCAD Mechanical : Referenzpunkte aus Normteilen ausblenden
CADmium am 28.07.2004 um 14:58 Uhr (0)
unter(2004) Hilfsmittel- Optionen- AM:NORMEN- Layer/Objekte gibts eine (mit der Zeichnung gespeicherte) Tabelle mit 2 Reitern Layer und Objekte . Weiterhin gibts ein Hakenkästchen mit automatische Layerverwaltung verwenden! In der Tabelle Layer kann ich mögliche Layer definieren, welche ich dann in der Tabelle Objekte bestimmten Zeichnungsobjekten zuordnen kann. wird dann z.B. der Befehl _amcentline = Mittellinie auferufen, wechselt Mechanical automatisch auf den dem Objekt Mittellinie zugeordnet ...
|
| In das Form AutoCAD Mechanical wechseln |
|
Lisp : Linientypdefinition mit VLISP ermitteln
CADmium am 03.07.2009 um 18:39 Uhr (0)
Zitat:Original erstellt von Andreas Kraus:Hallo zusammen,wenn ich das mache:(vlax-for lt (VLA-GET-LINETYPES (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-dump-object lt))bekomme ich z.B. sowas:; IAcadLineType: Die Linieneigenschaften bestehend aus Kombinationen von Strichen, Punkten und Leerzeichen; Eigenschaftswerte:; Application (RO) = #VLA-OBJECT IAcadApplication 0000000140d1fc38; Description = "Punkt (2x) . . . . . . . . . . . . "; Document (RO) = #VLA-OBJECT IAcadD ...
|
| In das Form Lisp wechseln |
