|
Rund um AutoCAD : Attibute: Inhalt plötzlich unsichtbar
CADmium am 28.09.2007 um 13:53 Uhr (0)
Zitat:Original erstellt von Ander:hallo, wollte das nach oben schupfen und aktualisieren. hatte nämlich auch das problem und bin beim und-color: #FFFF99'>suchen auf diesen beitrag gestoßen. nur leider funktioniert der befehl "attdisp" bei acad2008 nicht mehr, hier wurde er wohl eingedeutscht und heisst jetzt "attzeig"funzt allerdings bestens :-)so long, andiATTZEIG ist der deutsche Befehl_ATTDISP ist die Internationale FORM - siehe (getcname "ATTZEIG")und beide greifen auf die SYSVAR ATTMODE zu ... die man auch mitdem Befeh ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Block mit ATT filtern
CADmium am 17.04.2008 um 10:20 Uhr (0)
(sssetfirst(setq a(ssget "_x" ((0 . "Attdef") (2 . "1.Planbezeichnung") (1 . "EDV"))))a)funktioniert doch prima .. filtert alle Attributsdefinitionen , die "1.Planbezeichnung" heißen und den Vorgabewert "EDV" haben.wenn du Blockreferenzen filtern willst, muß der GC 0 den WERT "INSERT" haben .. wenn du Blockreferenzen mit Attributen haben willst, muß GC66 den Wert 1 haben.Wenn du nach bestimmten Attributen und-color: #FFFF99'>suchen willst, muß den Blockreferenzauswahlsatz durchlaufen , die Attribute ermitteln und die nicht d ...
|
| In das Form Lisp wechseln |
|
AutoCAD Mechanical : Probleme mit Schleife / Exit
CADmium am 04.07.2016 um 15:15 Uhr (1)
(defun c:a (/ FILE LISTE ZEILE NOTFOUND) (if(and(setq FILE (getfiled "Datei laden" "" "txt" 4)) (setq FILE (findfile FILE)) (setq FILE (open FILE "R")) ) (progn (while (and NOTFOUND (setq ZEILE (read-line FILE))) (if (setq NOTFOUND((strlen ZEILE)100 )) (princ (strcat ZEILE "
")) ) ) (close FILE) (princ) ) ) )Nächstes Mal besser im Lispforum fragen!!! Ist kein Mechanical Thema!Ich würde aber immer erst die gesamte Textdatei in einer Lis ...
|
| In das Form AutoCAD Mechanical wechseln |
 |
Rund um AutoCAD : Lisp für Scheitelpunkte bereinigen...
CADmium am 02.06.2014 um 21:19 Uhr (15)
wronzky schrieb mal dazu: ....eine schnelle Methode wäre die Datei als DXF-Datei abzuspeichern und in den Einstellungen die Anzahl der Dezimalstellen der Ausgabe auf 0 oder 1 stellen. Aber Achtung! Das rundet gnadenlos ALLE Koordinaten. Für Teilbereiche kannst Du die zu rundenen Objekte als Wblock in eine separate Datei schreiben und dann diese Datei über DXF "runden".Ich hatte auch mal ein Tool dafür geschrieben .. finde es momentan aber nicht ... kannst ja selbst noch mal und-color: #FFFF99'>suchen.Ein Link noch dazu Klick- ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Stempelattribute
CADmium am 18.02.2005 um 12:32 Uhr (0)
Zitat: Original erstellt von MaxWachtl: ich suche .. Könnt Ihr mir da weiterhelfen ? Ja sicher : zum und-color: #FFFF99'>Suchen versuchs mal mit www.google.de .. wo hast du eigentlich schon geguckt, ob du was findest ?? Im Ernst: klar ist sowas per Lisp lösbar: Das Papierformat des Layouts liefert dir z.B. folgende Funktion: (defun LAYOUT-GET-PAPERSIZE ( / WIDTH HEIGHT) (vla-GetPaperSize (vla-get-activelayout (vla-get-activeDOCUMENT (vlax-get-acad-object) ) ) WIDTH HEIGHT ...
|
| In das Form AutoLisp wechseln |
|
AutoCAD VBA : Punkt innerhalb von Polygon
CADmium am 10.04.2008 um 14:00 Uhr (0)
Zitat:Original erstellt von pistolpete1:Aber ich glaube, diese Funktion müsste es ja auch schon längst in VBA geben, oder?Da das Universum wohl unendlich ist, und damit auch die Möglichkeiten, gibt es sicher eine Wahrscheinlichkeit 0 , das eine VBA-Lösung für das Problem existiert.Bei Lisp-Lösungen bin ich mir sicher Mann, quatsch und tipp nicht so lange rum, sondern mach einfach das Teil fertig, ist bestimmt schneller als und-color: #FFFF99'>suchen Und außerdem lernste was dabei!!Und wenn du fertig bist, postest du ...
|
| In das Form AutoCAD VBA wechseln |
|
Rund um AutoCAD : Mit AutoLISP Eigenschaften von Linien in Blöcken ändern
CADmium am 06.09.2017 um 12:41 Uhr (15)
Sowas wie "unterste Blöcke" gibt es nicht, eine Referenzen eines Blockes können Bestandteile anderer Blöcke oder der Layouts sein ... In deinem Beispiel würde ich alle Blöcke mit ccLAB im Namen berücksichtigen ...Da es viel mehr RGB als ACI Farben gibt ... und ihr alle sicher nicht per Zuweisungs-Tabelle Abdecken wollt, würde ich optisch ähnliche zuweise ... dafür gabs von mir schon mal das Programm COLORS2ACI (- mal und-color: #FFFF99'>suchen)Der Rest ist dann auch machbar. Aber alles kein 10-Zeiler.------------------Also ic ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Bearbeitungszeit ändern
CADmium am 25.11.2004 um 23:01 Uhr (0)
Hier mal 2 Routinen, wie es gehen sollte: (defun c:GET-BEARBEITUNGSZEIT(/ DICT PROPS ZEIT STUNDE MINUTE SEKUNDE) (if(and (setq DICT (dictsearch (namedobjdict) "DWGPROPS")) (setq PROPS (entget(cdr(assoc -1 DICT)))) (setq ZEIT (cdr(assoc 40 PROPS))) ) (progn (setq TAGE (fix ZEIT)) (setq ZEIT (* 24.0 60 60 (- ZEIT TAGE))) (setq ZEIT (+ ZEIT 0.0005)) (setq STUNDE (fix (/ ZEIT 3600.0))) (setq MINUTE (fix (/ (- ZEIT (* STUNDE 36 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : ErrorHandler
CADmium am 09.05.2009 um 09:29 Uhr (0)
Zitat:Original erstellt von rkauskh:Hallo Beim Export in ein DXF beendet sich mein LISP wenn die Zieldatei schon existiert. Für den Fall sollte *error* für einen sauberen Abgang und-color: #FFFF99'>suchen. Sollte vl-catch-all-error-p & Co den Fehler handlen und das Prog fortsetzen können, wäre das noch besser.da macht man dann sowas ... :(setvar "filedia" 0)(if(findfile "meine.dxf") (command "_saveas" "dxf" 16 "meine.dxf" "_y") (command "_saveas" "dxf" 16 "meine.dxf" ))(setvar "filedia" 1)oder probier mal (command "_dxfout" ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Vollständiger Pfad in Titelleiste
CADmium am 23.11.2008 um 12:47 Uhr (0)
Danke fürs und-color: #FFFF99'>Suchen und weil Sonntag ist,noch ein paar Funktionen zum setzen und auslesen(defun C:FULLPATH-ON() (vl-registry-write (strcat "HKEY_CURRENT_USER" (vlax-product-key) "PROFILES" (vla-get-ActiveProfile (vla-get-PROFILES (vla-get-preferences (vlax-get-acad-object) ) ) ) "GENERAL" ) "ShowFullPathInTitle" 1 ))(defun C:FULLPATH-OFF() (vl-registry-write (strcat "HKEY_CURRENT_USER" (vlax-product-key) "PROFILES" (vla-get-Acti ...
|
| In das Form Rund um AutoCAD wechseln |
|
Inventor : DWG-Export Linientypfaktor krumm.
CADmium am 05.08.2010 um 10:09 Uhr (0)
Zitat:Original erstellt von Alexander_M:Ich meine das bei verdekten Linien der Faktor anders ist als bei Mittellinien und die Schnittlinien, die als ein Block in die DWG kommen, ist der Faktor wieder anders. Im Moment mache ich im ACAD strg+a und dann in den Eigenschaften den Faktor auf 1 stellen, aber die Blöcke bleiben ja davon unberührt.um für alle Objekte ( auch die in Blöcken ) dann den Linientypfaktor auf 1 zu setzten gibts Tools .. einfach mal im "Rund um Autocad" und-color: #FFFF99'>suchen oder noch mal melden .. anb ...
|
| In das Form Inventor wechseln |
|
Lisp : Plotten in Bricscad
CADmium am 06.03.2012 um 11:09 Uhr (0)
Was ist mit den SYSVARS DRAWORDERCTL, HPDRAWORDER ?Ansonsten hatte ich auch mal ein Programm geschrieben , das die Schraffuren in den Hintergrund setzt , via AcDBSortanstable bzw. als Option auch physisch ... auch in Blöcken. Als Tipp :Mit "ZEICHENREIHENF/_draworder" kann die Zeichnungsreihenfolge aller sichtbaren Objekte(d. h. die Anzeige- und Plotreihenfolge) geändert werden. Hierbei werden aber nicht dieGeometrieobjekte in der Zeichnungsdatenbank umsortiert, sondern diese nur indiziert unddie Objektzeig ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : X-Y-Z-Koordinaten eindeutig bestimmen
CADmium am 06.12.2004 um 13:18 Uhr (0)
wie wäre es mit der Property POLYLINE.COORDINATES ??? F1 .. brachte folgendes Beispiel : Sub Example_Coordinates() This example creates a polyline. It then uses the Coordinates property to return all the coordinates in the polyline. It then resets one of the vertices using the Coordinates property. Dim plineObj As AcadPolyline Create Polyline Dim points(5) As Double points(0) = 3: points(1) = 7: points(2) = 0 points(3) = 9: points(4) = 2: points(5) = 0 Set ...
|
| In das Form Autocad VBA wechseln |
