|
Lisp : Daten mit assoc auslesen
joern bosse am 20.07.2011 um 11:31 Uhr (0)
@CADmium,ich glaube Deine Zeile alleine verwirrt ein bißchen, ich habe es so im Gefühl, daß blue noch nicht allzu tief im LISP drinsteckt (vielleicht irre ich mich ja auch)Also, wie die Zeilen von CADmium, nur ein bißchen ausführlicher:Variante 1: mit viele (unnötigen) ZwischenvariablenCode:(defun c:test ( / LISTE OBJ P1 P2 P3 P4 SP)(setq obj(car(entsel "Poly wählen")))(setq liste (entget obj));;;mit vl-remove-if alle ungleich 10 rausschmeißen(setq liste (vl-remove-if (lambda(A)(/= (car A)10))liste));;;wen ...
|
| In das Form Lisp wechseln |
|
Lisp : Blöcke durchnummerieren
joern bosse am 10.06.2007 um 08:49 Uhr (0)
Hallo Hein,na das hast Du aber eine ziemlich lange Liste mit Forderungen, soetwas bekomme ich von meinen Kunden auch öfters, aber die beauftragen mich ja dann auch, die Programmierung zu machen.Anbei ein Code, mit dem Du genau das 5te Attribut von ausgewählten Blöcken hochzählen kannst. Weil Du verschiedene Blockname hast, solltes Du bei der Objektauswahl den Befehl "FILTER" verwenden und die verschiedenen Blöcke in mehreren Arbeitsgängen bearbeiten.Code:(defun c:att5_nr ( / AWS M N NEXT_OBJ NR) (princ "
B ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Messreihen importieren
joern bosse am 12.01.2005 um 08:22 Uhr (0)
Hallo Praktikant, für Deinen Fall könntest Du folgendes LISP ausprobieren (ich habe jetzt erst gesehen, daß Dein Eintrag ja schon ziemlich alt ist, aber egal, falls Du es immer noch brauchst). Es wird an jeder Koordinate ein Punkt erzeugt. Voraussetzung: Die Nachkommstellen Deiner Koordinaten müssen immer einen festen Wert habe, in diesem Fall 8, wenn es anders ist, ist die Variable "nachkomma" in der Funktion "xyz" entsprechend zu ändern. Und natürlich: DIE ERGEBNISS PRÜFEN. (defun c:koord_in ( / datei ze ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : ein LISP-Tool für Parallelbemaßung
joern bosse am 09.02.2005 um 13:14 Uhr (0)
Hallo Jan, ich habe die Objektfänge so wie Du es beschrieben hast eingefügt und es klappt. Du kannst ja mal die Codes vergleichen: (defun c:bem_bks (/ ucs pkt1 pkt2 aws_line osmode_alt) (setq osmode_alt (getvar OSMODE )) (if (= (getvar WORLDUCS ) 1) (progn (setvar osmode 512);Ofang nächster (if (setq pkt1 (getpoint
Startpunkt der Bemassung eingeben. )) (progn (setvar osmode 128);Ofang Lot (setq pkt2 (getpoint pkt1
Endpunkt der Bemassung eingeben. ))) ) (if (and ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : MTEXT
joern bosse am 05.02.2006 um 12:34 Uhr (0)
Hallo Antor,probier es mal mit folgendem LISP. Zu Beachten ist aber, das Formatierungen, die über die zu löschenden Zeile hinaus gehen, zerstört werden. Also, die Ergebnisse prüfen!!Code:;;;Jörn Bosse, 05.02.06(defun c:mt_del_zeile (/ temp text text1 text_liste n n1 aws) (if (not JB_zeile) (setq JB_zeile 2)) (princ "
Bitte wählen Sie MTexte aus:") (if (setq aws (ssget (list (cons 0 "MTEXT")))) (progn (if (setq temp (getint (strcat "
Bitte geben Sie die zu löschende Zeilennummer an:" (it ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : cons überschreibt den letzten durch cons dazugefügten eintrag????
joern bosse am 18.03.2009 um 16:10 Uhr (0)
Hallo Steff,hier nochmal ein Beispiel, wie man einen Gruppencodeeintrag zwischen zwei vorhandene packt. Aber Vorausetzung ist, daß Du Dich mit den von CADmium angesprochenen Funktionen auseinandersetzt. Zudem weiß ich nicht, ob Du Dich bereits mit MAPCAR und APPLY auseinandergesetzt hast (die habe ich auch verwendet)Versuch dochmal, den Code Step by Step mit den Überwachungsfenster im Visual-LISP-Editor durchzugehen, dann wird bestimmt einiges klarer.Code:;;;(;;; (-1 . OBJEKTNAME: 75406208>;);;; (0 . ...
|
| In das Form Lisp wechseln |
|
Lisp : Aus Lisp ein BAT starten und darauf warten
joern bosse am 13.12.2010 um 14:56 Uhr (0)
Hallo Peter,auch ich habe schon das Thema gehabt und habe es folgendermaßen gelöst: Ich benenne die auszuführende Datei um, führe Sie dann aus und laß eine While-Schleife hinterherlaufen, die solange läuft, bis die Datei wieder in Ihren ursprünglichen Namen umbenannt werden kann. Zudem läuft ein Indexzähler mit (im Beispiel bis 400000) damit darüber ein Notausstieg aus der While-Schleife erfolgen kann, wenn die Datei nicht mehr umbenannt werden kann. Sicherlich nicht sehr elegant, aber bisher habe ich dami ...
|
| In das Form Lisp wechseln |
|
Lisp : Ausnahmebedingung bei GC 102 + 103 ???
joern bosse am 19.03.2010 um 08:30 Uhr (0)
Hallo,ich habe ein Phänomen entdeckt was ich nicht ganz nachvollziehen kann.Folgender Code erzeugt eine Ausnahmebedingung:Code:(defun c:test (/ liste) (setq liste ( (102 . 0) (103 . 0) )) (setq liste (subst (cons 102 1) (assoc 102 liste) liste) liste (subst (cons 103 1) (assoc 103 liste) liste) ))Ergebnis:Befehl:Befehl: test; Fehler: Ausnahmebedingung aufgetreten: 0xC0000005 (Zugriffsverletzung)Befehl:Befehl: testFehler bei Aussage in Datei ..LOSIOLOSTERMWIN.CPP, Zeile 398:tp-GetBuf ...
|
| In das Form Lisp wechseln |
|
Lisp : vla-wblock mit gespeicherten Blöcken
joern bosse am 20.02.2020 um 16:45 Uhr (1)
Hallo Melmacker,dann muss irgendetwas in Deinem VLA-Auswahlsatz was nicht stimmen.Aus der AutoCAD-Hilfe: (vla-Wblock doc "C:AutoCADWBlock_example.dwg" ssetObj)http://help.autodesk.com/view/ACD/2016/ENU/?guid=GUID-4EEC4025-ACFC-41DA-899A-8264394D7691Ich glaube, Dein Problem beginnt schon vorher, Du öffnest mit VLA-OPEN eine Datei.Die Datei ist geöffnet, hat aber nicht den Focus.Dann wird eine VLA-Auswahlwatz erstellt mit dem Namen "Test", gespeichert in die Variable LISTE.Und dann sollen scheinbar aus der g ...
|
| In das Form Lisp wechseln |
|
AutoCAD VBA : Zugriff auf excel-zeile als Datensatz per ID
joern bosse am 20.05.2008 um 11:30 Uhr (0)
Hallo Anton,danke erstmal für Dein Antwort.Also meine Datenmenge wird ungefähr 2000 Zeilen groß sein. Mit der Find-Methode komme ich da auch wirklich schnell zum Ergebnis.Hätte es jetzt nicht funktioniert, dann hätte ich mich bestimmt mit dem Microsoft Scripting.Dictionary Objekt auseinandergesetzt, hatte ich bis jetzt noch nichts von gehört.Aber das mit dem Klassenmodul habe ich gleich für meine Variante übernommen (auch noch alles Neuland für mich).Eine weiter Frage hätte ich aber noch.Ich möchte von der ...
|
| In das Form AutoCAD VBA wechseln |
|
Lisp : Darstellung Seite XX von YY
joern bosse am 29.03.2019 um 09:14 Uhr (1)
Hallo AM82,erstmal zu Deinem Problem: die Funktion LENGTH gibt eine Ganzzahl wieder. Wenn Du eine "01" haben möchtest, musst Du die Ganzzahl erstmal mit ITOA in einen String konvertieren (1 = "1"),dann kann mit STRCAT eine "0" vorangestellt werden ("1" = "01")Was Du aber prüfen musst, wie wird die Variable totalLayouts weiterverarbeitet? Wenn die weiterverarbeitende Funktion eine Ganzzahl braucht, dann wird ein String so nicht akzeptiert werden, dass heißt, auch dort müßte angepasst werden.Folgender Code i ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Bemassung
joern bosse am 11.05.2005 um 10:55 Uhr (0)
Hallo, ich denke die Variableneinstellung von DIMEXO ist nicht das Problem, den das ist ja nur der Abstand vom zu vermasssenden Objekt zur Hilslinien selbst. Die Hilsfslinie soll aber wohl eine fest Länge bekommen. Ich würde da einfach den Anfangspunkt der ersten und zweiten Hilfslinie um ein variables Maß verschieben, so daß die Hilfslinien immer die gleiche Länge hat. probiert habe ich es mal aber das klappt nur bei gedrehten Bemassungen, ist nur ein Gedankenansatz, mehr nicht. (defun c:test ( / ent def1 ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : neues Notebook für AutoCAD 2012
joern bosse am 10.06.2011 um 08:09 Uhr (0)
Hallo,ich bin gerade auf der Suche nach einem neuen Notebook.Meine Anforderungen:- MS-Office, AutoCAD 2012 CIVIL, Photoshop CS3, MS-Visual StudioIch denke das sind so die wichtigsten Programme die ich am laufen habe.Die meiste Zeit bin für AutoCAD in LISP am programmieren, komme also meistens mit kleineren Testzeichnungen aus. Dennoch ist es nicht auszuschließen, daß ich in CIVIL auch mal eine größere Datei aufmachen möchte, und diese soll dann noch flüssig bearbeitbar sein.Mein altes Notebook:WinXPIntel(R ...
|
| In das Form Rund um AutoCAD wechseln |
