|
Rund um AutoCAD : bestimmter Layerfilter für Layout
Dorfy am 28.05.2010 um 12:34 Uhr (0)
Hi,(defun check_sysvar (a b);Funktionsdef. mit Übergabewerten a und b vom Reaktor (if (= (car b) "TILEMODE");nur wenn b die Sysvar tilemode enthält mache was (setq ctab? (getvar "ctab"));ihmo noch ein progn einbauen oder cond oder... gibt Namen der aktuellen Registerkarte zurück -- ggf spezielle Filter bzw Unterscheidung Modell -Layout, wird in ctab? gespeichert;;; hier die Layerfilter-Umschaltung hineinbasteln unter Berücksichtigung der Variablen CTAB ))(vlr-sysvar-reactor nil ((:vlr-sysvarchanged . chec ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Anzeige - ruckeln - etc.
Dorfy am 09.02.2010 um 14:54 Uhr (0)
Zitat:Original erstellt von Geos:Attribut anklicken - Daten auslesen - daraus Text entmaken - Text verschieben (= neue Position abfragen) - Einfügepkt. lesen - damit Attribut entmoden.Zum Abfragen der neuen Position hängt der Text am Cursor. Bisher ging das sehr flüssig, aber seit ACAD2010 Hi,wie/womit schiebst du denn?command move oder expresstools acet-ss-drag-move oder ... ?Mal einen anderen Rechner genutzt? (Graka-Treiber usw.)Mal QTEXTMODE 1 probiert?------------------Mfg HeikoElefantenjagd in Afrika ...
|
| In das Form Lisp wechseln |
|
Lisp : entlast nach ARRAY
Dorfy am 19.08.2009 um 10:07 Uhr (0)
Zitat:Original erstellt von alterHausmeister:.... (setq AWS(ssadd)) (while (setq OBJ(entnext OBJ))(ssadd OBJ AWS)) (sssetfirst AWS AWS) (setq Sprossen (AWS)) [b]--- hier liegt....(setq AWS(ssadd));auswahlsatz wird erstellt (leer)(while ;beginn schleife(setq OBJ(entnext OBJ));bedingung (argument) und setzen von obj auf folgeobjekt(ssadd OBJ AWS));(expression) objekt zu auswahlsatz hinzufügen, ende schleife(sssetfirst AWS AWS);aws aktivsetzen -- brauchst du das?!aws ist bereits vorhanden(setq spross ...
|
| In das Form Lisp wechseln |
|
Lisp : Schleifen kontrollieren
Dorfy am 01.02.2012 um 10:04 Uhr (0)
heute noch nicht munter?Code:(setq cplist (("TB" "BRUNN" "LAYER1") ("SS" "SCHACHT" "LAYER2") ("BL" "MAST" "LAYER3")))(setq relist (assoc "BL" cplist))und dann mit car, cdr... weiterEdit: oder du wertest den Rückgabewert weiter aus, falls dein gesuchter Wert öfters vorkommt, auf die schnell und ungetestetCode:(setq cplist (("TB" "BRUNN" "LAYER1") ("SS" "SCHACHT" "LAYER2") ("BL" "MAST" "LAYER3") ("BL" "MAST1" "LAYER4") ))(setq re ())(mapcar (lambda (x) (and (= "BL" (car x)) (setq re (cons ...
|
| In das Form Lisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 16:12 Uhr (0)
Zitat:Original erstellt von cadplayer:Danke für Eure Anworten@Dorfy attsync ist doch meiner Meinung nach nur möglich, wenn man Blockeigenschaften von einem Original zur Kopie überträgt....ähm - nöwie rübe schin sagt, einfach mal probieren...ungetestet so Code:(DEFUN c:rb (/ ele wi ) (SETQ ele (CAR (ENTSEL "Block wählen: "))) (setq bname (vla-get-Name (vlax-ename-vla-object ele))) (SETQ ele (ENTGET ele)) (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele))) (SETQ wi (+ (CDR (ASSOC 50 ele)) (GETANGLE (TRA ...
|
| In das Form Lisp wechseln |
|
Lisp : Brauche Hilfe Für ein Schriftfeld Flächentool für AutoCAD 2010
Dorfy am 22.06.2009 um 20:22 Uhr (0)
Hi,da ich weder die entsprechende Acadversion noch 64-bit habe ,kann ich nur auf folgendes eingehen: Zitat:Original erstellt von Linus23:Und wie kann man eigentlich Prüfen ob eine Polylinie gewählt wurde in dieser Lisp einfügen?(setq pl (car(entsel "
Polygon wählen: "));liefert dir dein entity(setq etype (cdr (assoc 0 (entget pl))));mit assoc 0 bekommst du den typ ;dotted pair also cdr;nun noch ne schleife mit if oder while oder cound oder ne sub oder... (if (= etype "POLYLINE").... ;ist dein entity ne P ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehlslänge auf Werkzeugbuttons/Makro beschränkt?
Dorfy am 16.01.2012 um 19:22 Uhr (0)
Könnte man...Code:(defun c:Deinezeilen ( / ) ;vllt einen sinnvollen namen wählen;ab hier deine Zeilen...(setvar "CMDECHO" 0)(if (minusp (cdr (assoc 62 (tblsearch "LAYER" "_Vermessung")))) (progn (princ "Alle Vermessungslayer eingeschaltet...") (command "-layer" "EI" "*_Vermessung" "")) (progn (princ "Alle Vermessungslayer ausgeschaltet...") (command "-layer" "AU" "*_Vermessung" "")))(setvar "CMDECHO" 1)(princ));klammer zuungetestet... der code ist... nicht von mir zum laden siehe FAQbei Fragen, wende dich ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLISP - Iso Bemaßung
Dorfy am 07.11.2011 um 14:36 Uhr (1)
ungetestet:(defun isodimerr (msg) (setq msg "
Done")(princ msg)(terpri) (setvar "snapstyl" snpstl) (setq p1 nil p2 nil p3 nil snpstl nil df nil ;hier setzt du df auf nildu nil cmde nil lu nil) (setq *error* olderr) (setvar "dimatfit" df) ;hier willst du die sysvar auf nil ändern - die anderen analogDas sollte so nicht funktionieren, erst setzen dann auf nil zurücksetzen. Edit: Arbeite mit der Konsole und Haltepunkten, dann kannst du alles überwachen und den Fehler schnell selber finden. (Anleitung zur ...
|
| In das Form Lisp wechseln |
|
Schweissen Löten Kleben : Komische Schweissvorgaben DIN EN 15085-3 Tabelle B.1
Dorfy am 16.12.2012 um 12:10 Uhr (0)
Zitat:Original erstellt von tanzbaer1963:Moin Power,...Eine Y-Naht ist praktisch gesehen eine V-Naht, mit einer I-Naht als Wurzel. Mit der Nahtstärke gibst Du die Tiefe der V-Naht an, der Rest muss durch die I-Naht ausgefüllt werden.Gruß Ingodas kann man so nicht stehen lassen!Gemäß 18800-1 Tab 19 sind Y-Nähte "NICHT durchgeschweißte Nähte"Verfahrensbedingt gehe ich mit, dass Y-Nähte als durchgeschweißte Nähte ausgeführt werden können.Dies ist durch eine Schweißverfahrensprüfung oder vorgezogene Arbeitspro ...
|
| In das Form Schweissen Löten Kleben wechseln |
|
Lisp : Modellansicht BKS 90 Grad drehen
Dorfy am 15.07.2011 um 08:35 Uhr (0)
hi, vielleicht liegt es daran, dass du dein Anliegen "unglücklich" erklärt hast?!Du bist im Modelbereich und willst diesen drehen?Code:(defun c:z ( / ) (command "bks" "w"); um immer von Welt auszugehen (command "bks" "z" "90"); bks drehen um z 90° - hier Anpassung xyz (command "_plan" "a"); Modellbereich auf das zuvor gedreht bks drehen (princ))oder bist du im Layoutbereich und willst ein Fenster drehen?Wenn das oben nicht passt, einfach mal dein Anliegen in mehr Worte hüllen oder besser ein Bild oder ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Ordinatenbemassung, tausche X-Daten gegen Y-daten
Dorfy am 11.08.2009 um 10:22 Uhr (0)
hi,na dann mal soneuen BemStil erstellenund(defun c:xy-ord2 (/ dp asatz n elemli) (princ "
X-Koordinatenbemaßung ") (if (setq asatz (ssget ( (-4 . "AND") (0 . "DIMENSION") (70 . 102) ;;(-4 . "&" ) (70 . 6 ) (-4 . "AND") ) ) dp (getpoint "Durchpunkt Koordinatenbemaßung: ") ) (progn (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ) (foreach x elemli (command "_dimordinate" (cdr (assoc 13 (entget x))) ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Fehler Schnittpunkte im hohen Koordinatenbereich
Dorfy am 29.09.2009 um 10:09 Uhr (0)
Hi Jörn, Zitat:Original erstellt von joern bosse:...Ich glaube ich habe Euch mit meiner Funktion ein wenig in die Irre geführt, denn der POINT auf dem Schnittpunkt wird in WKS-Koords erzeugt, und dann ist er natürlich nicht sichtbar.Ich habe nochmal ein TRANS eingefügt, und bei dieser Funktion wird bei mir definitiv ein Schnittpunkt gefunden, getestet mit verschiedenen BKSs...Ja, ein wenig in die Irre geführt trifft es wohl man hätte auch richtig testen können Sorry...Also doch Objekte zum Nullpunkt sch ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLisp-Funktion in DWG-Datei integrieren
Dorfy am 20.07.2010 um 17:37 Uhr (0)
Zitat:Original erstellt von -reltro-: Die Sache mit dem Dictionary - hab mir die GCs von den Dingern angeschaut und muss sagen ich durchblick den Aufbau nicht.Gruppencode 3 scheint als Namensgeber zu fungieren, und 350 als Eigenschaft von GC 3 - right?jetzt ist GC 350 ein Entity name.- und dann?? dieses Entity weiter zu "entgeten" - jo, auch nicht wirklich aufschlussreich.Wäre dankbar wenn mir wer den Aufbau eines solchen Dictionary-objekt beschreiben könnte - weil es anscheinend besser funktionieren würd ...
|
| In das Form Lisp wechseln |
