|
Rund um AutoCAD : Autocad internen BMP, Bitmap, Icon, Symbol Editor ersetzen
Wolfgang S am 12.09.2011 um 13:24 Uhr (0)
servus!nee, noch direkter kommst Du nicht ran.Meine Vorgangsweise:- ich erstelle mir eine .dll mit allen Icons - ich verwende "XN Resource Editor" zum Verändern der Icons wenn nötig.hat den Vorteil dass ich nicht mal bis ins AutoCAD rein muss um die Icons zu verändern.Auch das Erstellen und Einfügen der Icons geht einigermassen komfortabel, über eine RC-Datei gehts noch besser.mit den bmps schlage ich mich extra gar nicht mehr rum (*), wären viel zu viele. da ist mir eine dll lieber lgWolfgangPS: (*) noch ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Firmen .cuix
Leonidas20 am 30.10.2012 um 16:45 Uhr (0)
Hallo liebe Auto CAD Gemeinde,ich habe folgende Frage.... Wir nutzen in unserer Firma ein Tool das bisher über die Haupt cui geladen wird, dieses Tool beinhaltet verschiedene Produktgruppen die in der Menüleiste als Abrollmenüs angezeigt werden. Dort sind Baugruppen enthalten die mit verschiedensten LISP Routinen verknüpft sind, alles funtioniert wunderbar.Da etliche User dieses Tool nutzen und ich nicht möchte das das dort etwas verändert wird möchte ich diese cui als Unternehmens cui ablegen.Hat soweit a ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Spline in Kreise umwandeln
CAD-Huebner am 16.03.2011 um 09:21 Uhr (0)
Hatt denn noch keiner das tool von Alfred getestet Hier noch mal ein Lisp Makro, das die Splines mit Kreisen überzeichnet, falls man noch kein VBA für AutoCAD nachinstalliert hat.Code:(vl-load-com); Udo Hübner 16.03.2011 - CAD.de Beitrag(defun c:sp2cir ( / aw cnt koordlist mitte radius) (prompt "
Bitte Splines zur Umwandlung in Kreise wählen:") (if (setq aw (ssget (list (cons 0 "SPLINE")))) (progn (setq cnt (sslength aw)) (While (= (setq cnt (1- cnt)) 0) (setq koordlist (UH:getBoundingBox (ssname aw ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : layout kopieren, umbenennen ans ende setzen mit einem klick?
Proxy am 06.07.2006 um 12:59 Uhr (0)
Naja, zwar kein LISP -Forum, aber so als Denkanstoss (oder einfach zum testen) ...Code:(defun C:LAYOUT_SORT (/ OBJDICT GRPDICT OUTLIST KEY SL N NN BB A3) (setq OBJDICT (namedobjdict)) (setq GRPDICT (dictsearch OBJDICT "ACAD_LAYOUT")) (setq KEY (getstring "? / ? : ")) (if (= KEY "") (setq OUTLIST (acad_strlsort (LAYOUTLIST))) (setq OUTLIST (reverse (acad_strlsort (LAYOUTLIST)))) ) ;_ Ende von if (setq SL (length OUTLIST)) (setq NN 0) (repeat SL (setq BB (nth NN OUTLIST)) (setq N 2) (while (/= (cdr (assoc ...
|
| In das Form Rund um Autocad wechseln |
 |
Rund um AutoCAD : Versteckte Layer.
Chico-22 am 11.06.2019 um 08:55 Uhr (15)
Hallo alle zusammen.Besteht die Möglichkeit Objekte, die einen bestimmten Layer enthalten, sichtbar zu machen.Ich habe folgendes Problem. Ich versuche eine Zeichnung zu bereinigen und habe 2 Layer, die sich nicht löschen lassen. Wenn ich den Rest einfriere – sehe ich diese auch nicht. Löschen funktioniert nicht, da diese angeblich „Layer mit Objekten“ sind. Ein „XRef-abhängige Layer“ ist das auch nicht.Das „Löschen“ an sich ist kein Problem, das kann ich ja mit „laydel“ (laylösch) – Befehl, es besteht aber ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : wenn Funktion im Autocad?
CADchup am 28.01.2008 um 10:40 Uhr (0)
Hi, Zitat:Ein kleines Tool ließt die Planart aus dem EDM aus und gibt diese Info an das Attribut weiter. Kann man denn nicht über die Bezeichnung des Attributes oder den ausgefüllten Inhalt was machen?Natürlich kann man, aber eben nicht mit DIESEL. Dazu brauchts ein Tool in LISP, VBA, etc., das den o.g. Weg geht.Dieses kleine Tool zum Planartauslesen könnte nicht mit einer Zeile erweitert werden? Zitat:Was macht "setenv" denn genau?setenv erzeugt eine "Umgebungsvariable". Vereinfacht gesagt ist das sowas ä ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Befehl Rückgängig
alfred neswadba am 25.11.2010 um 23:03 Uhr (0)
Hi,wenn Du mal _UNDO gemacht hast, dann probier gleich darauf mal den Befehl _REGEN, könnte durchaus mal sein, dass nur die Graphikengine nicht an Wiederbelebung glaubt und man es ihr erst verklickern muß.Die andere Variante wird Dir noch weniger gefallen (zumindest die Vermutung bzw. Idee, die mir jetzt vorschwebt):Hast Du Tools (LISP mit Reaktoren oder VB/VBA mit Events)? Wenn da nicht sauber gearbeitet wurde, Befehls-events oder Löschen-Events abgefangen wurden, dann kann zwar das _UNDO kurz seine Arbei ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Alle Blöcke doppelt
CADingsbums am 09.12.2003 um 11:44 Uhr (0)
Nach einem unglücklichen (vorzeitig abgebrochenen) Durchlauf der hatch_back.lsp war mein Gebäudeplan plötzlich doppelt so groß. Grund: Es war plötzlich jeder Strich, jeder Block, eben alles doppelt vorhanden mit selben Einfügepunkt. Mittlerweile hat sich der Architekturplan geändert, die Elektrosymbole wurden in den neuen Plan eingefügt (ob doppelt oder nicht). Gefragt ist nun eine genaue Stückliste. Dafür hab ich blockzähler.lsp . Nur zählt es die doppelten Blöcke natürlich auch doppelt. Meine Idee: Es ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : ??? Leerer Block ???
Proxy am 05.08.2004 um 14:20 Uhr (0)
Ich habe hier eine Zeichnung mit einem Block die anscheinend eine Schraube beinhaltet (oder soll) jedoch ist dieser Block für mich einfach leer. ADC zeigt NIX an und bei W-Blöcken ist auch die Datei 100% leer bis auf die standard zeugs, layer 0, dimstyle, ....) wie bekomme ich das Ding raus bzw gegen einen anderen Ausgetauscht BTW . es ist in mehreren anderen Blöcken verschachtelt und alles Sprengen will ich auch nicht da ich dann Mutmassungen anstellen müsste ob der angezeigter Basispunkt auch örtlich ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Blockattribute so einfach wie dtext bearbeiten
xem am 26.06.2009 um 12:05 Uhr (0)
Ich habe noch mal gesucht und ein LISP gefunden, mit dem man Text mit einem Doppelklick ändern kann ohne den Text nach dem Doppelklick auswählen zu müssen.Code:(defun c:func (/ selset loc:get_txt_point) (defun loc:get_txt_point (ent) (if (/= (cdr (assoc 72 (entget ent))) 0) (cdr (assoc 11 (entget ent))) (cdr (assoc 10 (entget ent))) ) ;_ end of if ) ;_ end of defun (if (setq selset (ssget "_:L" ((0 . "TEXT")))) (foreach txt (vl-sort (vl-remove-if listp (mapcar cadr (ssnamex selset))) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : CAD Sytembetreuer
C. Wincziers am 29.03.2001 um 13:27 Uhr (0)
Zitat: Original erstellt von BerndW: Hi User Admins usw, hat jemand erfahrung oder einen Tip wo ich eine möglichst effektive CAD Systembetreuer Schulung Inkl. LISP Programmierung machen kann? Habe bisher nur ein Angebot, von Cinteg AG. Bringt die Schulung ein vernünftiges ergebniss (logisch auch abhängig vom Schüler)? Bin Dankbar für jede Anregung Hallo Bernd, also, ich habe mich auch mal nach Seminaren umgeschaut und habe zwei Schulen dafür gefunden (allerdings habe ich noch keine Erfahrungen dami ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : R14 Arbeiten mit Dialogfeldern
M.Krause am 26.06.2002 um 17:15 Uhr (0)
Hallo alle zusammen! Erwartungsvoll wende ich mich, auf suche nach schneller Hilfe, an euch! Ich habe folgendes Problem: Ich möchte für ein Druck-Programm über ein "Listenfeld" die zu druckenden Seiten auswählen! Das ist auch so alles kein Problem! Das Problem ist, das es oftmals sehr viele Seiten werden können (400 aufwärts!) Wenn ich nun im Listenfeld z.B. die besagten 400Seiten auswähle, bekomme ich leider nur "256" Seiten am Ende raus! Wie kann ich an dieser "magischen" 256 etwas ändern oder voreinstel ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Infos per AutoLIPS in Zwischenablage
Baldeagle am 19.06.2008 um 12:58 Uhr (0)
Hallo Thomas,danke für die Hilfe.Nur leider komme ich damit nicht so ganz zu recht.Ich habe Deinen Text in mein LISP-Tool kopiert und den Befehl eingebaut.Der "eigene" Teil von mir sieht so aus:(defun c:zwab ( / ) (setq block (car (entsel "
Bitte auszulesenden Block wählen:"))) (setq handle (cdr (assoc 5 (entget block)))) (setq kriterium (cdr (assoc 2 (entget block)))) (while (/= kriterium "ARTIKEL-ID") (setq block (entnext block)) (setq kriterium (cdr (assoc 2 (entget block)))) (if (= kriterium "ARTIKE ...
|
| In das Form Rund um AutoCAD wechseln |
