|
Rund um Autocad : aktuelles Datum einfügen
CADwiesel am 01.11.2000 um 10:42 Uhr (0)
Hi Holger Was für ne Acad Platform habt Ihr? Hier n kleines Proggi (defun c:dt () (setq zeichnungsname (getvar "dwgname") date_str (rtos (getvar "cdate") 2 4) year (substr date_str 1 4) month (substr date_str 5 2) day (substr date_str 7 2) date (strcat day "." month "." year) hour (substr date_str 10 2) minu (substr date_str 12 2) zeit (strcat hour ":" minu) );ende setq (setq md_size (getvar "textsize")) (setq md_einfueg (getvar "extmin")) (com ...
|
| In das Form Rund um Autocad wechseln |
|
BricsCad : Expresstools für V11
CADwiesel am 28.06.2011 um 18:38 Uhr (0)
Ich empfehle dringend alle alten Dateien aus dem Verzeichniss Expresstools zu entfernen, bevor die neuen Dateien aus dem Paket eingespielt werden.@alf Am Besten so vorgehen: - Menülad aufrufen und das Expressmenü entladen- Dann Bricscad beenden- Nun alle Dateien aus dem Verzeichniss Express löschen- Die Dateien aus dem neuen Paket in das Verzeichniss Express entpacken- Die Datei on_doc_load.lsp nuss in das Verzeichniss Support (an dieser hat sich aber nichts geändert, sollte diese schon aus einer vorherige ...
|
| In das Form BricsCad wechseln |
|
BricsCad : Konturlücken
CADwiesel am 04.03.2013 um 08:07 Uhr (0)
meinst du das:?Zitat:Befehl: GPOLYGeben Sie einen Punkt im Inneren des zu schraffierenden Bereiches ein: Es wurden keine gültigen Schraffur Grenzen gefunden. Passen Sie den Lücken Toleranz Wert an,wenn die Grenzen geschlossen werden sollen.Dabei ist mit folgendes aufgefallen:Wenn du zuerst ein Objekt wählst, welches deffinitiv eine geschlossene Kontur aufweist, so wirde der Toleranzwert zum schließen offener Polygonzüge für folgende Polygone berücksichtigt und angewandt.Hast du hingegen gleich zu Anfang ei ...
|
| In das Form BricsCad wechseln |
|
Lisp : Save-Methode und Reactor
CADwiesel am 07.07.2011 um 07:08 Uhr (0)
Wie du schon gesagt bekommen hast: Es geht nicht, das ein Lisp Zeichnungsübergreifend weiterläuft. Ich habs zwar noch nie getestet, aber vielleicht kannst du noch einen Befehl in einer anderen Zeichnung ausführen - das wäre dann eine in dieser Zeichnung geladene Funktion. So könntest du evtl. erst alle anderen geöffneten Zeichnungen nacheinander schließen und am Ende dann die, aus der gestartet wurde.Also keine Ahnung, obs wirklich geht...ok, geht so nicht, nach Aktivieren der Zeichnung geht nix mehr. was ...
|
| In das Form Lisp wechseln |
|
Lisp : Bitte um Hilfe zur Präfix-Notation
CADwiesel am 01.12.2008 um 16:29 Uhr (0)
Hier mal eine Funktion, mit der du Attributwerte ändern kannst:Die Übergabeparameter sind in der Beispielzeile dargestellt.Du muss die Attributsbezeichnung deines zu ändernden Attributes wissenIch hoffe dies ist in Etwa sowas, was du suchst?Code:;;; bspl. (attchange elementname "4.ATTRIBUT" 1 "Hallo");;; oder (attchange (cdr(assoc -1(entget(car(entsel))))) "4.ATTRIBUT" 1 "Hallo") (defun attchange (elem attname gcwert wert / aslst) (setq aslst (entget elem)) (if (= (cdr (assoc 0 aslst)) "INSERT") (progn ...
|
| In das Form Lisp wechseln |
|
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 : 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 : 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 |
 |
Lisp : Werte von Attributen in Blöcken ändern
CADwiesel am 19.01.2021 um 14:53 Uhr (15)
Im Kern brauchst du ENTNEXT. Damit hangelst du dich durch die Attribute, wenn deine Blockref welche hat.Hier mal ein Lisp codeschnipsel mit dem du was machen könntest...Code:(defun attchange (elem attname gcwert wert / aslst) (setq aslst (entget elem)) (if (= (cdr (assoc 0 aslst)) "INSERT") (progn (if (= (cdr (assoc 66 aslst)) 1) (progn (setq aslst (entget (entnext (cdr (assoc -1 aslst))))) (while (/= (cdr (assoc 0 aslst)) "SEQEND") (if (= (cdr (assoc 2 aslst)) attnam ...
|
| In das Form Lisp 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 |
|
AutoLisp : Flaechen berechung
CADwiesel am 26.04.2006 um 07:44 Uhr (0)
so müßte s PassenCode:(defun c:area_feet(/ t_2 Ss) (setq Ss nil t_2 nil ) ;_ end of setq (setq Ss (ssget ((0 . "*POLYLINE")))) (setq md_zaehler 0) (setq gesamt 0) (if (not Ss) (princ (strcat "
Da waren keine Polylinien dabei.")) (progn (while (setq t_2 (ssname Ss 0)) (setq md_in (cdr (assoc 10 (entget t_2)))) (setq startp md_in) (command "_.area" "_o") (command t_2) (entmake (LIST (0 . "TEXT") (cons 8 (getvar "clayer")) (CONS 10 startp) (40 . 0.3 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Layerschlüssel in ACAD-Mechanical
CADwiesel am 16.07.2003 um 12:55 Uhr (0)
Sieh dir das mal an: (defun C:RemLayerFilters (/ eprLayFilt lstTemp lstFilters enaFilter) (setq eprLayFilt (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 330 (entget (tblobjname LAYER 0 )))))))))))) (foreach lstTemp eprLayFilt (if (= (car lstTemp) 360) (progn (princ lstTemp) (setq lstFilters (append lstFilters (list (cdr lstTemp)))) ) ) ) (if lstFilters (foreach enaFilter lstFilters (entdel enaFilter)) ) (princ) ) (defun C ELFIL ...
|
| In das Form AutoLisp wechseln |
