---

Hallo,

hat noch jemand die Datei: SSMOD.LSP oder eine Adresse für den Downlosd?

Gruß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wenn DAS HIER legal ist...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Henning,

vielen Dank.

Gruß

Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Theodor Schoenwald:
Hallo,

hat noch jemand die Datei: SSMOD.LSP oder eine Adresse für den Downlosd?

Gruß
Theodor

---

Muss man doch nicht aus einer Datei holen:

Code:

---

(defun ssmod (ss dxf val)
  (mapent '(lambda (ename)
    (ssmodent ename dxf val)
  )
  ss
  )
)

(defun mapent (fun ss / i)
  (repeat (setq i (sslength ss))
    ((lambda (proc args / ss fun i)
      (apply
proc
args
      )
    )
      fun
      (list (ssname ss (setq i (1- i))))
    )
  )
)

(defun ssmodent (ename dxf val / old)
  (if (setq old (assoc dxf (entget ename)))
    (entmod (subst
      (cons dxf val)
      old
      (entget ename)
    )
    )
    (entmod (cons (cons dxf val) (entget ename)))
  )
)

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke,

jetzt habe ich den Code noch einmal.
Besser als nicht.

Ein Teil davon war eine Anregung, die mir weiter geholfen hat.
Meine Aufgabe ist: bei alle Außen-Radien eine Polylinie soll die Ausbuchtung (Gruppencode 42) vergößert werden.
Das habe ich soweit auch gelöst.
Gleichzeitig soll bei allen Innen-Radien die Ausbuchtung verkleinert werden.
Da bin ich gerade dabei.
Was aber Innen- oder Außen-Radien sind, wird durch den Konturverlauf CW oder CCW bestimmt.
Das habe ich noch vor mir.

Auf jeden Fall ist die ganze Sache interessant.

Nachtag:
Inzwischen gelöst.

Gruß
Theodor

[Diese Nachricht wurde von Theodor Schoenwald am 12. Feb. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP