|
Rund um Autocad : ein Layer mit versch. Farben nach Farben ein/ausschalten
CADwiesel am 14.05.2003 um 11:16 Uhr (0)
ich hab dir mal was umgebastelt ;**************************************************************************************************** ; ;Hinweis: ;bitte denkt dran, wenn Ihr eine Zeichnung an andere weitergebt, sollten alle Elemente sichtbar sein. ;Es wissen die wenigsten User, wie sie unsichtbare Elemente wieder sichtbar machen können. ; ;***************************************************************************************************** ;********************** Beginn Befehle ************************** ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Objekthierarchie ausgeben
Andreas Kraus am 11.11.2010 um 10:11 Uhr (0)
Hallo AutoArch, Zitat:bin leider noch nicht wirklich weiter gekommen. Habe mit den Funktionen Blockdoc von Cadwiesel und der Funktion von Andreas aus diesem Beitrag experimentiert. Geht schon in die richtige Richtung, macht aber einiges doch anders als es für mich sinnvoll ist.Ja ja, Attribute aus verschachtelten Blöcken.Du brauchst hier sicher eine Funktion für beliebige Verschachtelungstiefen.Das muß ich wohl mal Updaten, ich setz mich in der Mittagspause mal dran. Kann aber sein daß ich das in der Zeit ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Layout in Datei Plotten, geht denn das?
molo am 07.04.2003 um 11:02 Uhr (0)
Moin, moin, hier ist ein Problem was sicherlich jeder gerne machen würde. Ich habe eine Zeichnung erstellt, in der ich im Layout mehrere Ansichtsfenste habe. Jetzt möchte ich diese Zeichnung als DWG-Datei übergeben. Und zwar so, wie ich sie im Ansichtsfenster sehe! Ich möchte, dass mein Layout und meine Modellbereich zu einer Zeichnung zusammengesetzt werden. Ich möchte, dass nur die Layer übergeben werden, die in den Ansichtsfenstern sichtbar sind. Ich würde es Layout in DWG-Plotten nennen. Meine Zeichnun ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Polylinie in Kreis umwandeln
CADwiesel am 24.03.2005 um 08:33 Uhr (0)
Hier das tuts auf alle Fälleps das macht dier auch aus eckigen Kreisen einen KreisCode:(defun C:P2C ( / elem minx maxx miny maxy mitte )(vl-load-com) (while (setq elem(entsel)) (if(wcmatch(cdr(assoc 0 (entget (car elem))))"*POLYLINE") (progn (setq elem(car elem)) (vla-getboundingbox (vlax-ename-vla-object elem) xmin xmax ) ;_ end of vla-getboundingbox (setq MINX (car (vlax-safearray-list xmin)) MINY (cadr (vlax-saf ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Schraffurprobleme
j-sc am 24.11.2003 um 16:36 Uhr (0)
Hallo, @CADwiesel in der angehängten dwg war die Umgrenzung keine Polyline, sondern alles hübsch einzeln Linien und Bögen (wer s so mag, kann s ja auch so machen) @fuhand, gefunden, weil ich selbst schon öfter solche besch... Stellen suchen musste und mir nicht noch ein zusätzliches Element über PLJOIN mit Fuzzy-Abstand einhandeln wollte (wird bei Extrusion in s 3d irgenwann lästig) @wenu im Prinzip richtig, aber nicht zwingend notwendig, über die GRIPS zu gehen. Tja und mathematische Fehler müssen auch ni ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Z-Werte von Punkten
CADwiesel am 31.07.2002 um 12:52 Uhr (0)
HaiIch hab Dir mal was gebastelt.Du wirst nach dem Blockname und dem Attribut gefragt. Das Attribut ist die Definition, (der Name des Atts) das den zu ändernden Wert enthält.Es werden aber nur Werte berücksichtigt, die einen Punkt als Trennzeichnen haben und nicht ein Komma.(Integer/Realzahlen)Teste es mal aus.(defun C:Blockänder ( / ) (setq bname (getstring "Blockname:")) (setq aname (strcase(getstring "Attributname:"))) (if(setq as (ssget "_X" (list (cons 2 bname)))) (progn (setq zaehler 0) (repeat ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Alle Schraffuren löschen!
Claudio am 09.04.2008 um 21:45 Uhr (0)
@CADmium :...(DELALL "AcDbHatch")-seeehr feines Prog!@CADwiesel : "der Code ist public free" - Ich war so frei...Habe Count-Problem eleminiert (vla-get-Count...im Übrigen - tolles Engagement!Gruß Claudio(defun c:hatch-del (/ helems x Bname Count) (vl-load-com) (if (setq helems (ssget "_X" ((0 . "HATCH")))) (repeat (sslength helems) (entdel (ssname helems 0)) (setq helems (ssdel (ssname helems 0) helems)) ) ;_ end of repeat ) ;_ end of if (setq x (tblnext "BLOCK" T)) (while x (Setq Count 1) (setq B ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : SUCHEN als Script oder ReText.lsp auch für Blockattributwerte
molo am 14.04.2005 um 10:00 Uhr (0)
Moin, moin, ich folgendes Problem. PitCup schreibt mir automatisch Heizkörpergrössen in einen Beschriftungsblock. Allerdings möchte ich diese unterstrichen haben. Also habe ich zusätzlich als eigenen Eintrag %%U eingefügt. Pit setzt alledings zwischen zwei Elementen immer ein / . Somit sieht meine Bemassung folgendermassen aus %%U/900/600/1200 . Über SUCHEN ändere ich dann alle Werte mit %%U/ - %%U Das Funktioniert ganz gut. Da Pit bei jeder Änderung des Heizkörpers wieder den Wert mit dem / schre ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Objekt-Reaktor ?????????????
Brischke am 12.10.2003 um 21:39 Uhr (0)
Hallo @all, Reactoren kann man auch hiermit entfernen: (Auszug aus der VLisp-Hilfe) Zitat: Disables all reactors of the specified type (vlr-remove-all [reactor-type]) Arguments reactor-type One of the following symbols: :VLR-AcDb-Reactor :VLR-Command-Reactor :VLR-DeepClone-Reactor :VLR-DocManager-Reactor :VLR-DWG-Reactor :VLR-DXF-Reactor :VLR-Editor-Reactor :VLR-Insert-Reactor :VLR-Linker-Reactor :VLR-Lisp-Reactor :VLR-Miscellaneous-Reactor :VLR-Mouse-Reactor :VLR-Object-Reactor :VLR-SysVar-Reactor ...
|
| In das Form Rund um Autocad wechseln |
Nuke.zip.txt |
Rund um AutoCAD : Das Problem Doppelte Definition von Block umgehen.
AutoCAD-Nutzer am 29.04.2025 um 11:16 Uhr (1)
Hallo zusammen,der "Cadwiesel" hat eine schöne Lisp mit der Bezeichnung NUKE.lspBesteht die Möglichkeit anstatt Layer „0“ alles auf einen Layer z.B. „Loeschen“ zu legen ?Das Problem was ich habe wurde hier im Forum mehrfach besprochen, es hilft aber alles nicht.Bei Einfügen von einem Block, kommt die Meldung:Doppelte Definition von Block "X" ignoriert.Dabei in der Zeichnung keine Blöcke zu sehen sind und der neuer nicht eingefügt wird, wegen "Doppelte Definition".Meine Idee wäre mir der Lisp alle Objekte i ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : acad2000i-->Layerfilter
CADwiesel am 05.07.2006 um 08:57 Uhr (0)
ok nu iss alles klarhier der Kot 4 free und alleIst ohne VL und läuft ab Autocad 2000 / 2000 LT (mit Extender)Code:(defun C:RemoveLFilter (/ DUMMY FILTERS dict filtercode) (if((substr (getvar "acadver") 1 2)"15") (setq filtercode 350) (setq filtercode 360) ) (if (and (setq DUMMY (entget (tblobjname "LAYER" "0"))) (setq DUMMY (cdr (assoc 330 DUMMY))) (setq DUMMY (entget DUMMY)) (setq DUMMY (cdr (assoc 360 DUMMY))) (setq DUMMY (entget DUMMY)) ) ;_ ende von and (progn (if (setq ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Polylinie in Kreis umwandeln
CADwiesel am 24.03.2005 um 12:58 Uhr (0)
hier isses(defun C:P2C (/ as elem minx maxx miny maxy mitte) (vl-load-com) (while (if (setq as (ssget ((0 . "*POLYLINE")))) (progn (repeat (sslength as) (setq elem (ssname as 0)) (vla-getboundingbox (vlax-ename-vla-object elem) xmin xmax ) ;_ end of vla-getboundingbox (setq MINX (car (vlax-safearray-list xmin)) MINY (cadr (vlax-safearray-list xmin)) MAXX (car (vlax-safearray-list xmax)) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Liste aller Beschriftungen als txt
Cadzia am 14.12.2004 um 12:35 Uhr (0)
hab hier auch noch was ausgegraben (auch von Cadwiesel, soweit ich mich erinnere): (defun C:txtlies (/) (setq MD_ERR *ERROR* *ERROR* M:FEHLER ) ;_ end of setq ;;Marke für Zurück nach Abbruch setzen (command "_UNDO" "_MARK") (setq as (ssx_fe)) (setq tt (ssget "x" as)) (setq txtdat "c:/temp/tmptxt.txt") (if (/= tt nil) (progn (repeat (sslength tt) (setq as (entget (ssname tt 0))) (setq txtis (cdr (assoc 1 as))) (setq dat (open txtdat "a")) ...
|
| In das Form Rund um Autocad wechseln |
