|
Lisp : Prüfform - Bemaßung
joern bosse am 27.07.2011 um 09:57 Uhr (0)
Hallo Proxy,anbei die Aufschlüsselung der Xdaten:((1070 . 396) (1000 . "");;;Textwert Kontrollrate (1070 . 395) (1000 . "");;;Textwert Beschriftung (1070 . 394) (1070 . 4);;;Bitcodierung ;;;(rund =1, eckig = 2, ohne = 4, ;;; Beschriftung = 16, Kontrollrate = 32) (1070 . 393) (1070 . 0);;;Booleab (0/1) Kontrolle / Kontrolle entfernen )Die Reihenfolge kann variieren, Du mußt immer nach dem Code 393, 394, 395 oder 396 suchen und dann den Folgenden 1000er Gruppencode verwenden.Bei der Bitcodierung fehlt die 8, ...
|
| In das Form Lisp wechseln |
|
AutoLisp : überlappende Linienteile entfernen
cadking am 30.11.2004 um 08:26 Uhr (0)
Hallo Leute, es geht noch einmal um überlappende Linienteile. Am 27.10.2004 bekam ich von Thomas den Hinweis über die Existenz von OverLapF. An dieser Stelle nochmals vielen Dank an Thomas, das war der entscheidende Tip. Ich habe mir OverLapF für 15$ gekauft und mußte feststellen, daß bei überlappenden Linien nicht nur der überlappende Teil der Linien, sondern beide Linien von Endpunkt bis Endpunkt mit einer Ellipse markiert wurden. Daraufhin habe ich mich mit dem Programmierer dieser Datei John Leavin ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Polylinien-Stützpunkte entfernen mit entdel
Uwe Neumann am 12.08.2008 um 11:25 Uhr (0)
Hallo zusammen,ich versuche aus einer POLYLINE (gezeichnet mit 3dpoly) alle Stützpunkte außer dem Anfangs- und dem Endpunkt zu löschen. Leider komme ich dank meiner geringen LISP-Kenntnisse nicht weiter. Das Tool von CADWiesel hilft mir leider auch nicht, da es bei mir leider nicht für diesen Polylinientyp funktioniert.Deshalb hier meine Frage. Wie kann ich mit entdel einen Stützpunkt löschen?Hier mein Ansatz (basierend auf CADWiesel):(setq NeuePLinEig (entget (entnext (cdr (assoc -1 PLinEig)))))(while (= ...
|
| In das Form Lisp wechseln |
|
Lisp : Strecken auf Maß
archtools am 10.09.2021 um 16:02 Uhr (1)
Zitat:Original erstellt von Maier2018:Ok, ENTSEL ist nun klar. Aber mit dem Auswahlsatz meinte ich den, den ich mit ssget bekomme. Da habe ich im Netz nicht gefunden, wie ich da Koordinaten mit rausbekomme. Kannst du da evtl. einen Tipp geben?Ich könnte natürlich die Punkte mit getpoint und getcorner vorher definieren und den Auswahlsatz mit ssget "_:C" ausführen.Code:(setq p1 (getpoint "
Erste Ecke:") )(setq p2 (getcorner p1 "
Zweite Ecke:"))(setq ss (ssget "_:C" p1 p2))Dabei hat man aber nicht die Möglic ...
|
| In das Form Lisp wechseln |
|
Lisp : mit Lisp Flächen anwählen
SHP am 11.01.2007 um 11:35 Uhr (0)
Zitat:Original erstellt von wronzky:Hallo Hans-Peter,das mit der "Pause" geht schon, aber du musst für JEDE Eingabe eine Pause einfügen. Bei folgendem Befehl kannst Du eine Kante wählen, und die angrenzenden Flächen werden versetzt.(command "_solidedit" "_face" "_offset" pause pause "1.3" "" "")Bei folgendem Befehl kannst Du eine Kante wählen, "E" für entfernen drücken, und eine Flächen wegklicken, und die übrig gebliebene Fläche wird versetzt.(command "_solidedit" "_face" "_offset" pause pause pause paus ...
|
| In das Form Lisp wechseln |
|
Lisp : Sortierung Masstabsliste
Meldin am 25.03.2019 um 09:27 Uhr (1)
Ja so ist es weil das Beschriftungsobjekt einen verweis auf den Maßstab hat und im grunde in dem prog jedem Maßstab ein neuer Wert zugewiesen wird. Aber der Verweis bleibt der gleiche. Und wie schon erwähnt Zitat:ich gebe noch zu bedenken ein entfernen und hinzufügen so auf keinen fall ratsam Und da sagen die Jungs hier immer die hätten keine Glaskugel Du hast natürlich jetzt auf meine Spielerei aufgabaut die ich dir gezeigt habe.Da du keinen Ansatz hattest sollte es dir zeigen wie du an die Maßstab Da ...
|
| In das Form Lisp wechseln |
|
Lisp : Werte von Attributen in Blöcken ändern
cadffm am 20.01.2021 um 12:35 Uhr (1)
Ich fange mal an1. Die Auswahl von dynamischen Blöcken funktioniert mit "(setq obj_ename (car(entsel "
Block wählen: ")))" nichtMit entsel wählt man höchstens Blockreferenzen, nie einen Block.Dabei sollte dann auch völlig egal sein ob die Blockreferenz von einem dynamischen Block stammt oder nicht."mit "(setq obj_ename (vlax-ename-vla-object (car (entsel))))" bekomme ich "Fehlerhafter Argumenttyp: lentityp #VLA-OBJECT IAcadBlockReference 00000173bd877d88" Daran ist aber nicht die Zeile an sich schuld, aber ...
|
| In das Form Lisp wechseln |
|
Lisp : Excel Daten aus sheet einlesen
Meldin am 09.06.2015 um 09:16 Uhr (1)
Zudem was Holger erwähnt hat möchte ich noch eine Idee anhängen die mir gestern eingefallen ist. Zitat:Mit dem Abfragen des UsedRange hatte ich in der Vergangenheit so meine Probleme, da Excel mitunter auch den Bereich als genutzt kennzeichnet, in denen nur irgendwelche Zell-Formatierungen vorgenommen wurden und keine Werte enthalten sein müssen. Für den Fall das es vorkommenkann das man massig leere Datensätze hat könnte man über Code:(setq UsedUsedRange (vlax-invoke-method (vlax-get-property ExcelSeite " ...
|
| In das Form Lisp wechseln |
|
Lisp : Dateiformat *.fas
Brischke am 06.09.2004 um 08:27 Uhr (0)
@CADwiesel, @ALLderjenige, der das geschrieben hatte, hat diese Anmerkung bereits gelöscht und mich per PM gebeten, den Verweis auf seine Person zu entfernen.Ich selbst habe geantwortet, dass das, was er geschrieben hat, nichts Verbotenes darstellt. Es ist nun einmal im Allgemeinen bekannt, dass es solche Programme gibt, und alleine die Vermutung, dass es dafür eines geben könnte, ist in meinen Augen keinesfalls Grund dies zu löschen.Bevor jedoch dieser Thread mit Fragen wie:Wo kann ich ein Hackerprogramm ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Syntaxfehler
Wolli am 30.03.2011 um 17:52 Uhr (0)
Hallo Zusammen,ich habe aus einem größeren Script das funktioniert hat einen Teil herausgenommen den ich jezt als eigenes Lisp laden und starten möchte.Leider ist mir da wohl ein Syntaxfehler entstanden den ich nicht beheben kann.ich lade das falscher_rahmen.lspin dem Lisp steht:(defun c:falscher_rahmen ()(if(or(tblobjname "BLOCK" "A-FORMAT") (tblobjname "BLOCK" "B-FORMAT") (tblobjname "BLOCK" "C-FORMAT") (tblobjname "BLOCK" "D-FORMAT") (tblobjname "BLOCK" "E-FORMAT") (tblobjname "BLOCK" "F-FORMAT") (tbl ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlsatz Attribute
sponk-mg am 23.11.2011 um 11:39 Uhr (0)
Hallo,mein Halbwissen stösst mal wieder an seine Grenzen.Statt Blöcke aufzulösen, um Attributtexte zu löschen,möchte ich die Gruppencode 2 und/oder 1 aus dem Block entfernen.(defun attribloe (/ blk INDEX blkatt)(setq blk (ssget "_x" (list (0 . "INSERT")))) (if (progn (setq INDEX -1) (repeat (sslength blk) (setq blkatt (entget (ssname blk (setq INDEX (1+ INDEX))))) (if (assoc 66 blkatt) (while (/=cdr (assoc 0 blkatt)) "seqend") (setq blkatt (entget (entnext (cdr (assoc -1 blkatt))))) (if(=(c ...
|
| In das Form Lisp wechseln |
|
Lisp : Doppelte Listeneinträge entfernen
archtools am 15.04.2014 um 16:05 Uhr (1)
Zitat:Original erstellt von Meldin:@ Theodor -ikarus- hat keine Vorgabe gegeben wie lang seine Liste ist als bin ich auch der Liste des vorhergehenden Beitrag gefolgt. 10000. Da wird dein Code viel zu langsam. Ansonsten ist er in Ordnung.@ archtools Anhand der Auswertung von CAD-Huebner liegen mir folgende Auswertungen mit den verschiedenen Listenlängen vor. Wie hast du es getestet?Du hast recht: außer der Listenlänge selbst spielt bei den verschiedenen Varianten natürlich noch eine große Rolle, wieviele D ...
|
| In das Form Lisp wechseln |
|
Lisp : Auswahlmöglichkeit beim Plotten
CADmium am 03.09.2009 um 08:47 Uhr (0)
(defun WarDateiPlot2000 (/ p1 p2 File Ausrichtung)(initget "Hoch Quer")(if(=(getkword "
Blattausrichtung [Hoch/Quer]Hoch: ")"Quer") (setq Ausrichtung "Q") (setq Ausrichtung "H"))(command "_.-plot")(command "_y") ; detailliert?(command "Model") ; Layoutnamen eingeben(command "FreePDF XP") ; Ausgabegerätname eingeben(command "A4") ; Papierformat angeben(command "M") ; Papiereinheiten angeben(command Ausrichtung) ; Ausrichtung der Zeichnung angeben(command "_n") ; Auf dem Kopf plotten?(command "_w") ; Plotber ...
|
| In das Form Lisp wechseln |
