|
Lisp : Blockattribute drehen
Dorfy am 01.08.2011 um 19:46 Uhr (0)
Zitat:Original erstellt von cadplayer:...@Dorfy Du warst jetzt schneller mit posten - Danke aber ich bekam Deine Lösung nicht richtig zum Laufenlass mich raten (vl-load-com) fehlt?!sollst du dir mal in die acad.lsp packen oder irgendwo, wo es immer mitgeladen wirdbei mir läuft es - wenn man es so nennen kann sollstest mal noch ein Paar Abfangseile einbauen Edit: greift dein entlast immer? auch wenn dein Block nicht das letzte Objekt ist?nein - macht es nicht...------------------Mfg Heiko Elefanten ...
|
| In das Form Lisp wechseln |
|
Lisp : dyn Blöcke 2
Dorfy am 10.02.2010 um 07:30 Uhr (0)
Zitat:Original erstellt von Christian B.:...Soweit bin ich jetzt gekommen.Allerdings bin ich immer noch nicht so ganz da wo ich das Ding haben will. Ich will irgendwie alle Blöcke im Blockset bearbeiten.Dazu habe ich einen Zähler eingebaut, der noch irgendwie bis zu der max. Anzahl der Elemente in der Liste zählen soll und dann immer wieder, insofern vorhanden den Parameter abändern soll....Das erste geht, das zweite mit Variablen nicht.Hab ich da irgendeinen Denkfehler in der Reihenfolge? (Komme von VBA) ...
|
| In das Form Lisp wechseln |
|
Lisp : Schleifen kontrollieren
Dorfy am 03.02.2012 um 11:12 Uhr (0)
Zitat:Original erstellt von cadplayer:Ja hat ´ne Weile gedauert bis der Funke gefallen ist - verflixt&zugenähtCode:; Kodeliste(setq cplist (("TB" "TB" "LAYER1") ("T" "LÖVTRÄD" "LAYER2") ("BS" "BEL-STOLPE" "LAYER3") ("AV" "AV" "LAYER4") ) ); Hauptprogramm(defun demo ( / ) ;(/ i ss ssl ent elist) (setq i 0 ss (ssget ((0 . "TEXT"))) ssl (sslength ss) ) (repeat ssl (setq ent (entget (ssname ss i))) (setq erg (mapcar cdr (vl-remove-if-not (lambda (x) (= (car x) ...
|
| In das Form Lisp wechseln |
|
Lisp : Befehl fortsetzen
Dorfy am 01.04.2008 um 06:59 Uhr (0)
Hallo,ich möchte einen Standardbefehl (line oder copy...)ausführen dann eine kleine Lisp starten und danach den Befehl fortsetzen.(defun hs:start (/) (setq AWS(ssget));;egal mach was, berechne oder vergleiche was);endeBsp: kopieren aufrufen - Objekte wählen - (hs:start) aufrufen -hs:start-Objekte wählen - (vllt. noch Punkte übergeben) - kopieren wiederaufnehmen bzw. fortsetzen...Nun wird aber Kopieren mit den hs:start-Objekten und nicht mit den ursprünglich gewählten Objekten fortgesetzt!?sssetfirst aktivi ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Ordinatenbemassung, tausche X-Daten gegen Y-daten
Dorfy am 11.08.2009 um 14:14 Uhr (0)
Hi Christoph,weils Spaß macht (defun c:xy-ord3 (/ ent dpy dpy vtex entlax) (if (and (setq ent (vl-catch-all-apply entsel (list "
Wähl mal ne Polylinie: ") ) ) (setq dpx (vl-catch-all-apply getpoint (list "
X-Line: ") ) ) (setq dpy (vl-catch-all-apply getpoint (list "
Y-Line: ") ) ) (setq vtex (vl-remove-if-not (function (lambda (v /) (member (car v) (10)))) (entget (car ent)) ) ) ) (foreach v vtex (command "_dimordinate" (cdr v) "X" (lis ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Insert mit BP-Definition
Dorfy am 02.07.2007 um 11:17 Uhr (0)
Hallo,ich möchte via LISP einen Block einfügen und beim Einfügen den Basispunkt frei wählen.Laut ACAD-Hilfe:Der Block wird vorübergehend an seiner aktuellen Position in der Zeichnung abgelegt, sodass Sie einen neuen Basispunkt für die Blockreferenz angeben können, während Sie diese an die gewünschte Position ziehen. Dies wirkt sich jedoch nicht auf den ursprünglich für die Blockreferenz definierten Basispunkt aus.So weit so gut, nur wird der Block vorübergehend im Weltkoordinatensystem auf 0,0,0 abgelegt u ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Attribute in Blöcken automatisch nummerieren (+1)
Dorfy am 04.08.2011 um 15:23 Uhr (0)
Code:Code:(defun vertxt (ent / entlst points) ;ein entity name wird übergeben (setq entlst (entget ent);Liste der entity definition datapoints () ;leere Liste ) (if (= (cdr (assoc 0 entlst)) "LWPOLYLINE") ;prüfen ob es eine lwp ist (foreach gcpair entlst ;für jeden gc mache -- (cond ;Abfrageschleife((= (car gcpair) 10);wenn der gc 10 ist mache --(setq points (cons (cdr gcpair) points)));zur Liste points - den zum gc10 zugehörigen Wert hinzufügen - sollte je ein Stützpunkt sein(t nil);da streiten sich di ...
|
| In das Form Rund um AutoCAD wechseln |
|
Kritik : Zwischenabfrage bei Unity-Vergabe
Dorfy am 17.06.2010 um 11:08 Uhr (0)
Entschuldigung, dass ich hier ein Thema anschneiden will, welches evtl. schon mal da war... Folgendes ist passiert:Bei der Ü-Abgabe habe ich versehentlich einen falschen Wert gedrückt – und damit war der Zug auch schon abgefahren …Eine simple Zwischenabfrage wäre hier hilfreich. Fenster mit Abfrage -- Wollen sie wirklich XYZ n-Unities zukommen lassen ja/nein/vielleicht) Erhöhen geht nicht (auch OK), weiteren Beitrag aus dem Thread bewerten geht auch nicht (auch OK). Bei einem anderen Thread einfach Unitie ...
|
| In das Form Kritik wechseln |
|
Rund um AutoCAD : Platzhalter in Suchen und Ersetzen
Dorfy am 18.03.2010 um 15:16 Uhr (0)
Zitat:Original erstellt von walter.f:ich habe Texte: A, B, C, D, E, F, usw.usf. Daraus soll werden A_1, B_1, C_1, D_1, E_1, F_1, usw.usf. D.h. im Ersatztext soll der jeweils gefundene Teil wieder mit übernommen werden, ich möchte ja wa anhängen.Hi,vllt. sowas auf die Schnelle ohne Fehlerhandling und Co.Code:(defun c:supre (/ elist ent prefix ss INDEX str suffix) (setq prefix (getstring "
Prefix: ")) (setq suffix (getstring "
Suffix: ")) (princ "
Texte wählen: ") (setq ss (ssget ((0 . "*TEXT")))) (setq IND ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Fehler Schnittpunkte im hohen Koordinatenbereich
Dorfy am 28.09.2009 um 15:21 Uhr (0)
Zitat:Original erstellt von joern bosse:... einmal nahe dem Nullpunkt, einmal im ungekürzten GK-Bereich. Nahe dem Nullpunkt arbeitet die Funktion korrekt, es wird kein Schnittpunkt gefunden, aber im ungekürzten GK-Bereich findet die Funktion einen Schnittpunkt (obwohl sich die Objekte definitiv nicht schneiden).Ausprobiert habe ich das ganze unter ACAD 2008.Kann einer von Euch meine Beobachtungen nachvollziehen und wenn es so ist, gibt es ein anderes Mittel...Hi Jörn,nachvollziehen mit ACAD 2007 -- jaande ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Convertierungstool für Bemaßungsstile
Dorfy am 18.03.2010 um 21:35 Uhr (0)
Hi,interessant, interessant … da könnt man noch schön was mit einer Oberfläche machen… vllt. gibt es ja bei d-tools.eu schon was/ bzw. bald kannst ja mal testen ob es den Alltag erleichtertCode:(defun c:Dimstch (/ doc dimstyleslst ddimstyles tdimstyle ename ss i err) (if (and (not (equal (setq tdimstyle (getstring "
Dimstyle: ")) "")) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq ddimstyles (vla-get-DimStyles doc)) (vlax-for each ddimstyles (setq dimstyleslst (cons (vlax-get each Name ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Schleifen kontrollieren
Dorfy am 01.02.2012 um 14:48 Uhr (0)
X liefert dir die "subliste" dein Elementx1 = ("TB" "BRUNN" "LAYER1")x2 = ("SS" "SCHACHT" "LAYER2")x3 = ("BL" "MAST" "LAYER3")(mapcar ; führe aus cdr ; liefert die Subliste ab zweitem Listenelement zbsp ("MAST" "LAYER3")(vl-remove-if-not ; ??? -- schmeißt alles raus, was die Bedingung nicht erfüllt (lambda (x) (= (car x) "BL")) ; entspricht das einer if-schleife so ähnlich - ja cplist)); in Verbindung mit mapcar eine Liste(setq re ()) ;leere liste(mapcar (lambda (x) (and (= "BL" (car x))(setq re (cons x re ...
|
| In das Form Lisp wechseln |
|
Lisp : Grösste Kote
Dorfy am 16.03.2010 um 17:47 Uhr (0)
Zitat:Original erstellt von Steff179:...so ich hoffe mein problem ist klar beschrieben und natürlich hoffe ich das mir jemand einen lösungsansatz geben kann....... ob ich das richtig verstanden hab ich würde die Koten in Listen packen und auswertenCode:(setq a "399.93")(setq b "400.03")(setq lista (vl-string-list a))(setq listb (vl-string-list b)) (mapcar (lambda (a b) (if (not (equal a b)) b ) ) lista listb )-- (52 48 48 nil 48 nil)evtl. vorher nach Trennzeichen suchen und die Listen teilen ...
|
| In das Form Lisp wechseln |
