|
Rund um Autocad : Layer bzw. Bemaßung umschalten
Brischke am 15.03.2004 um 13:29 Uhr (0)
Hallo Dressler, anbei 2 Dateien, die diese Funktionalität unterstützen. Beide Dateien in ein Acad-Support-Verzeichnis kopieren. Die Datei dim_lay_change.VLX der Startgruppe hinzufügen, so dass diese immer automatisch mit geladen wird. Die Datei DIMLAYERS.CFG musst du dazu nutzen, die Zuordnung von Bemaßungsstil zum Layer zu definieren. Diese einfach mit einem Editor öffnen Code: (;nicht löschen!, muss immer am Anfang stehen ( Standard . 0 );Bemaßung Standard wird auf Layer 0 gezeichnet ( ISO- ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Fehler. Funktion abgebrochen
Brischke am 19.05.2004 um 17:40 Uhr (0)
@Bernd, wie du selber gemerkt hast, hast du uns alle ziemlich gut auf Trab gehalten, ohne dass jemand eine Lösung bringen konnte. Warum? Weil du nicht den vollständigen Code gepostet hattest. Deshalb möchte ich dich bitten, auch in deinem eigenen Interesse - dem Finden einer schnellen Lösung- das nächste mal etwas mehr code zu posten. Denn wie auch eben bei dir, hat die Fehlermeldung nichts mit dem geposteten Code-fragment zu tun. Bitte beschreibe dann auch, was du selber schon als fehlerquellen ausschal ...
|
| In das Form AutoLisp wechseln |
|
Autocad VBA : Mittelpunkt suchen?
Brischke am 05.11.2004 um 09:39 Uhr (0)
Hallo moony, überlege noch einmal genau was du suchst. Ein Layer ist meines Wissens ein nichtgrafisches Objekt, was deshalb auch keine Eigenschaft Mittelpunkt besitzt. Das objekt Rechteck gibt es im AutoCAD auch nicht. Wenn ich das mal übersetzen darf, dann suchst du Linien oder Polylinienobjekte, die augenscheinlich ein Rechteck darstellen. Diese Elemente sollen zusätzlich noch eine bestimmte Layereigenschaft besitzen. - Richtig? Die Schwierigkeit besteht nun darin, überhaupt erstmal die augenscheinlich ...
|
| In das Form Autocad VBA wechseln |
|
AutoLisp : Attribute umbenennen
Brischke am 23.03.2004 um 11:05 Uhr (0)
die Frage ist, welche Abhängigkeit besteht, um Programmtechnisch die Entscheidung des Anhängsels treffen zu können. Wenn das jedoch notwendig ist, dann sollte dir folgende Zeilen helfen Code: (defun chg:attdef_vg (/ aws) (setq aws (ssget _X ((0 . ATTDEF )(2 . ARTICLENUMBER )(1 . TISCH_##-###-## )))) (if aws (mapcar (lambda (AD) (entmod (subst (cons 1 (strcat (cdr(assoc 1 AD)) _N_K )) (assoc 1 AD) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Schon wieder mapcar
Brischke am 25.06.2003 um 15:44 Uhr (0)
Hallo Dea, ich würde so nicht rangehen. Bei mürde das spontan so aussehen: Code: (defun aussen1 (ptl /) (mapcar car (list (vl-sort (mapcar car ptl) ) (vl-sort (mapcar cadr ptl) ) (vl-sort (mapcar caddr ptl) ) ) ) ) Dein Konstrukt lässt sich nur auf eine Liste mit 3 Punkten anwenden. Hast Du aber immer nur 3? (vielleicht fällt mir ja noch was ein?) @Ulf, zum mapcar (lambda gab s hier in den Foren schon sehr viele Au ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Problem mit Seriennummer - geklonte Clients
Brischke am 12.08.2004 um 17:03 Uhr (0)
Hallo, also ich selbst habe hier auch einen Rechner fertig gemacht, lizensiert und dann ein paar mal geklont. Jeder geklonte Rechner hat somit die selbe Serien-Nr. Nach dem Start der geklonten Rechner musste trotz der erfolgreichen Registrierung des Ursprungsrechner, ein neuer Registrierungscode angefordert werden. Von Autodesk wurden allerdings auch XX Lizenzen unter der gleichen Serien-Nr. geliefert, so dass dieses Vorgehen durchaus legetim ist. Wenn mir hier jetzt ein Rechner abstürzt und die Lizenz ab ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : DXF
Brischke am 04.10.2004 um 14:46 Uhr (0)
http://www.dxfkonv.de/enterprise/german/news.php DXF liegt im Klartext vor, man kann die Datei also mit einem geeigneten Editor öffnen und in der betreffenden Zeile den Fehler suchen. Dazu muss man sich aber eben in der DXF-Dateistruktur auskennen (Erfahrung) weil der Fehler zwar dort auftritt aber an einer ganz anderen Stelle die Ursache dafür zu finden ist. ÉDIT: Ich persönlich mache das wie dein Kollege, da ich bisher noch nicht vor der Aufgabe stand mehr als 2/3 DXFs konvertieren zu müssen. Mitunte ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : (3D-)Polylinien in LW-Polylinien
Brischke am 14.02.2003 um 12:02 Uhr (0)
Hallo Andrea, wo dein Denkfehler liegt kann ich dir nicht sagen. Nachfolgend ein Baustein, der die Stützpunkte der (LW)Polylinien ausliest. Code: (defun f:get_Vertex (kel / kelt kpt plspt) (setq kelt (cdr (assoc 0 (entget(car kel))))) (cond ((= kelt "LWPOLYLINE") (setq plspt (subpl (entget (car kel)))) ) ((= kelt "POLYLINE") (setq plspt (apl (car kel))) ) ) plspt ) (defun apl ( kel / el eli elt geli) (setq el (entnext kel) eli (entget el) elt (cdr(assoc 0 eli) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Skalieren von Linien. Wer kann mir weiterhelfen?
Brischke am 02.09.2003 um 14:26 Uhr (0)
@marvin101010 Du hast es so gewollt! Hier ist sie also, die konstruktive, kollegiale und nette Kritik: In etwa hast du ja den Ansatz von mir umgesetzt. Ich hätte es aber etwas anders gemach. 1)Kreise auswählen 2)Für jeden Kreis den Mittelpunkt und Radius ermittelt 3)Auswahlrechteck (die Diagonale davon) aus dem Mittelpunkt und Radius berechnet, so dass, der Kreis praktisch von einem Rechteck umgeben ist. 4)Diese Rechteckdaten genutzt, um mit (ssget "_CP" ... [FILTERLISTE]) die zugehörigen Linien/Texte z ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Text Farbe ändern
Brischke am 27.05.2003 um 10:01 Uhr (0)
Hallo Georg, das Prinzip ist eigentlich ganz einfach. Die Texthöhe auslesen, davon den ganzzahligen Teil auslesen und den dann als Farb-nr zuweisen. Code: ;;;nur um mal ein paar Texte zu erstellen (defun c:machtext (/ i thn) (setvar CMDECHO 0) (setq i 1 thn 1) (repeat 300 (command _.TEXT (list 0.0 (setq thn (+ thn i)) 0.0) i (itoa i) ) (setq i (1+ i)) ) ) ;;;das eigentliche Umwandlungstool (defun c:thcol (/ as) (setq as (ssget _X ((0 . TEXT ))) as (if as (bau_elemli ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Texthöhe extrahieren
Brischke am 13.10.2003 um 13:40 Uhr (0)
... von mir aus auch das Code: (defun c:txtkoo ( / as file trenn) (setq trenn ";";tab= as (ssget ((-4 . " and") (8 . "HÖHE,HOEHE") (0 . "TEXT") (-4 . "and ") ) ) as (if as (bau_elemli as)) ) (if as (setq file (open "c:pktliste.txt" "w"))) (mapcar (lambda (E / z tmp) (mapcar (lambda (K) (if (not z) (setq z T) ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Eingabe prüfen in Dialogfeld
Brischke am 24.01.2003 um 08:50 Uhr (0)
Zitat: Original erstellt von dschu: Hallo zusammen, kann mir jemand kurz helfen? Ich mochte in einem Dialogfeld einen einzugebenen Wert (irgend eine Zeichenkette) abfragen. Ähnlich wie : " (initget 1 "J N") (setq EIN (getkword " Eingabe J/N : " ))" Geht das ? Ich hab noch nicht viel mit Dialogfeldern zu tun... Danke für einen Tipp und schönen Tag an alle! dirk Hallo Dirk, du machst eigentlich wiedersprüchliche Aussagen. Die (initget ...) liefert ja nicht irgendeine Zeichenkette zurück. Wenn D ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : lisps?? was ist das??und wie kopiere ich diese für meine privat pc
Brischke am 12.06.2004 um 16:29 Uhr (0)
Hallo Molch, wir könnten hier jetzt ein ein Was-Wäre-Wenn-Spiel beginnen. Aber ehrlich gesagt ist dass dann etwas mühselig, da du, wie du selber sagst davon keine Ahnung hast, und man deshalb alle Varianten der Fehlersuche durchgehen müßte. Deshalb: Stell die nicht funktionierenden Lisps hierein, dann kann man schauen, ob nicht evtl. noch ein paar Dateien fehlen und auch prüfen, ob diese tatsächlich für ein engl. Acad (sprachabhängig) programmiert worden. Mal ein anderer Gesichtspunkt: Irgendjemand muss do ...
|
| In das Form AutoLisp wechseln |
