---

Hallo Zusammen,

wie haltet Ihr das eigentlich mit den 2D-Schnitten:
Im Großen und Ganzen ist das Ergebnis passabel aber mache Linien müssen weg oder gestrichelt werden. Diese Aktion ist stumpfsinnig und dann auch noch ziemlich unhandlich !
Schnitt klicken > rMT > Liniengrafik - bearbeiten > Linien wählen > rMT > usw Ihr kennt das ja alle...
Ich denke da an einen Knopf für Linien aus dem 2DSchnitt rausschmeissen, 
in die PopUp-Toolbar lässt sich das (für mich zumindest :-( )nicht integrieren.
Hat jemand schon mal in diese Richtung geknobelt und kann da Unterstützung geben ?

Schönes WE
Gruß
heiko

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

---

Nun ja, das Entfernen von Linien aus dem Schnitt finde ich gar nicht so dramatisch, aber wenn man es komplett auf ein Knöpfchen haben will hilft im Zweifelsfall ein bisschen Lisp. Folgendes Progrämmchen erzeugt einen Befehl SLE, mit dem man (sofern man es auf eine Schaltfläche eines Werkzeugkastens legt) auf Knopfdruck mehrere Linien aus einem berechneten Schnitt entfernen kann:

--- 8< --- Hier den Glasschneider ansetzen --- 8< ---

; Schnitt Linien Entfernen
(defun c:sle( / en oldcmd)
  (setq oldcmd (getvar "cmdecho"))
  (setvar "cmdecho" 1)
  (command "2dSectionResultEdit")
  (while (/= (getvar "cmdactive") 0)
    (command pause)
  )
  (while (setq en (car (entsel "\nElemente zum entfernen wählen, Ende mit RETURN: ")))
    (entdel en)
  )
  (command "AecInplaceEditSaveAll")
  (setvar "cmdecho" oldcmd)
  (princ)
)
 
--- 8< --- Hier den Glasschneider ansetzen --- 8< ---

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

Danke Heiko für das Thema, das wollte ich auch schon mal ansprechen,
Danke Thorsten für die Lösung!
Das macht ja Hunger auf mehr!!
Linien ändern etc.
Da gehört am besten ein richtiger Werkzeugkasten her!
Aber ich kanns nicht.
Habe eine ganze Zeit und viel nachstöbern gebraucht, bis ich das Lisp überhaupt zum laufen gebracht habe.

Jetzt klappt das wunderbar.

Toll

Gruß Herbert

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

---

Klingt sehr vielversprechend!

....Und wie bringt man es zum Laufen?
Was muß ich mit den Zeilen Lisp machen?

mfG,

          mARTin  (leider nur user - und kein Programmierer!?)

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

---

Hui, da gibt es gleich eine ganze Reihe von Möglichkeiten.
Zunächst mal speichert man den gekennzeichneten Text ein eine Datei beliebigen Namens mit der Erweiterung .lsp (also z.B. Helferlein.lsp). Dann kann man entweder diese Datei beim Befehl appload in die Startgruppe verfrachten, eine acaddoc.lsp anlegen und dort die Datei mittels (load "helferlein.lsp") laden oder man macht es gleich wie in der inoffiziellen ADT-Hilfeseite in der Admin-Ecke beschrieben.
Anchließend (bei allen 3 Verfahren) steht im ADT in allen zukünftig geladenen oder erstellten Zeichnungen ein neuer Befehl bereit, dessen Name nach dem (defun c: steht. Im Beispiel oben also SLE. Diesen kann man einfach eintippen oder man legt ihn sich auf eine Schaltfläche in einen Werkzeugkasten.

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

 

Zitat:

---

Original erstellt von HerbertSimon:
...
Das macht ja Hunger auf mehr!!
Linien ändern etc.
...

---

Ändern geht dann z.B: so:

--- 8< --- Hier den Glasschneider ansetzen --- 8< ---

; Schnitt Linien ändern
(defun c:slä( / ss oldcmd)
  (setq oldcmd (getvar "cmdecho"))
  (setvar "cmdecho" 1)
  (command "2dSectionResultEdit")
  (while (/= (getvar "cmdactive") 0)
    (command pause)
  )
  (if (setq ss (ssget))
    (command "2dSectionEditComponent" ss "")
  ) 
  (command "AecInplaceEditSaveAll")
  (setvar "cmdecho" oldcmd)
  (princ)
)

--- 8< --- Hier den Glasschneider ansetzen --- 8< ---

sayonara
Torsten Möhlenhoff
ACAD-Systemhaus Bremen

------------------
Alles wirD guT

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

---

Hallo Torsten,

das ist mal wieder mehr und vollständiger als ich es mir geträumt habe.
So ein Start in die Woche macht Laune, ich werd' das alles gleich probieren.

Besten Dank und eine
erfolgreiche Woche
Gruß
Heiko

PS - Jetzt muss ich nur noch eine Möglichkeit finden den Bildschirm nach dem Glasschneidereinsatz wieder aufzupolieren ;-)

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

---

Hi Torsten,
das taugt was!!
Dank
Herbert

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

---

Lisp - was ist der richtigere Weg?

Hallo,
um die obigen Lisps zu nutzen kenne ich 3 Wege.

Grundsätzlich:
Das lsp ist in einem Ordner, der „durchsucht“ wird, abgelegt.

1. laden mit „appload“
2. das Laden bei Programmstart über Eintrag in „acaddoc.lsp“
        wie bei adt.cad.de beschrieben.
3. Das „laden“ mit auf den icon legen, z.B.
        ^C^C(load "Schnittlinien_entf");sle;

Bei 3. lädt man wohl das Programm bei jedem Klick auf das Icon.
Ist das wurscht oder ???
Das wäre mir der sympatischere Weg.

Danke
Herbert

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