---

Hallo Leute!

gibt es eine möglichkeit objekte die auf dem layer DefPoints liegen zu plotten? oder muss ich auf allen zeichnungen die objekte auf einen ander en layer legen?
zur info: es handelt sich um ca 4000 Zeichnungne -> wäre schön wenn ich die objekte nicht auf einen anderen layer legen muss...

MfG Miky

------------------
MfG Miky

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

---

Zitat:

---

Original erstellt von Miky:
Hallo Leute!

gibt es eine möglichkeit objekte die auf dem layer DefPoints liegen zu plotten?

---

acad weißt die Ploteinstellung für defpoints prinzipiell zurück ( auch per Programmierung).. eine Möglichkeit ist, den Layer Defpoints umzubenennen -> _rename und dann auf Plotbar zu setzen .. Acad legt sich dann bei Bedarf einen neuen Layer Defpoints an.

oder du automatisiert das Objekte von einen Layer auf einen anderen kopieren per Programm ..

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Danke erstmal für die schnelle antwort.

mit welchen programm wäre das am besten zu lösen? lisp oder gibt es eine einfachere lösung (hab noch nie ein lisp programmiert).
könnt man dann auch ein automatisches plotten gleich dazuprogrammieren (sozusagen den layer umbenennen, plotbar schalten und dann gleich ausplotten)?

MfG Miky

------------------
MfG Miky

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

---

..also ich programmier meist in LISP..
und ..die Layergeschichte und automatisches plotten usw ist programmierbar .. und wenn es viele Zeichnungen sind, läßt du dieses Lisp dann im Script ablaufen , da ist dann die Arbeit in einem Rutsch erledigt.

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Könnte mir jemand von euch so ein Programm schreiben?

------------------
MfG Miky

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

---

Ich weiß ja nicht, wie viele PMs mit Angeboten nun schon in deinem Postfach liegen, aber um die Frage zu beantworten - Ja.

Anschließend sollte die Frage gestellt werden, wie eine Auftragsarbeit zu entlohnen ist, denn "Programm auf Bestellung" ist ein Geschäft, von dem einige Programmierer leben müssen.

Die Aufgabe ist keine Herausforderung, sondern nur Arbeit.

Ich schreibe dies hier nur hin, da der Satz

Zitat:

---

... Könnte mir jemand von euch so ein Programm schreiben?

---

etweder so
...Könnte mir jemand von euch für lau so ein Programm schreiben?
oder so
...beim wem kann ich so ein Programm schreiben lassen (nach Aufwand). Erbitte ein Angebot.?

verstanden werden kann. Wie ist es denn gemeint?

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

naja, am schönsten wär natürlich gratis. oder vielleicht hat jemand schn ein ähnliches prog?!

------------------
MfG Miky

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

---

Hi,
das wirft natürlich ein paar Probleme bei der Fortführung auf aber eine Schnelllösung könnte so etwas sein:

Code:

---

(defun CAD:DE:DEFPOINTS (NEUERNAME /)
  (if (not (= (type NEUERNAME) 'STR))
    (alert "Namensparameter war kein String. Funktionsende!")
    (progn
      (if (tblsearch "Layer" NEUERNAME)
        (alert (strcat "Ungültig: Neuer Layername \n>"
                      NEUERNAME
                      "<\nexistiert schon in dieser Zeichnung. Funktionsende!"
              )
        )
        (progn
          (if (not (tblsearch "Layer" "Defpoints"))
            (command "_.layer" "_m" "Defpoints" "")
          )
          (command "_.-rename" "_layer" "Defpoints" NEUERNAME)
          (command "_.-layer" "_plot" "_plot" NEUERNAME "")
          (princ (strcat "\nOK, Layer Defpoints in >"
                        NEUERNAME
                        "< umbenannt und Plotbar geschaltet."
                )
          )
        )
      )
    )
  )
  (princ)
)

(CAD:DE:DEFPOINTS "MyPlotableDefpoints")

---

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 16. Nov. 2005 editiert.]

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

---

Hi Marc,

Hab das prog gerade getestet. funktioniert super!!
Danke nochmals für deine Hilfe.

------------------
MfG Miky

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