---

einefarb.zip

ich formuliere meine frage um, dass heisst habe zwei fragen erstens wie bringe ich im angehängten lisp die aufforderung weg möchte es im stappel ausführen (alles auf Farb 8).

wie kann ich die zeile mit _xplode und pltscale zum laufen bringen?

(defun c:aufbereiten ()
(command "filedia" "0")
(command "_qsave" "2000" "")
(command "BEREINIG" "AL" "" "N")
(command "_AUDIT" "J")
(C:layerstatusliste)
(command "löschen" "alle" "")
(command "-layer" "t" "*" "")
(C:as2isocp)
;
;as2isocp setzt alle schriftstile auf isocp
;
(C:xplode "alle" "" "g" "u")
;(command "_.LAYER" "FA" "8" "*" "T" "*" "")
  (command "ändern" "alle" "" "E" "Fa" "VONLAYER" "")
;
(command "varia" "alle" "ein" "0,0" "0.1")
;
; je nach Architekt ist ein Scaliervorgang notwenig.
;
(command "LTfaktor" "10")
;
; Wenn scaliert wird, muss man auf den Ltfaktor acht nehmen.
;
(command "-BEREINIG" "AL" "" "N")
(command "_audit" "j")
(command "filedia" "1")
(command "_qsave")
;(c:ltfscale "25")
;
; je nach plan kann diese Funktion (ltfscale) Probleme erzeugen, in diesem Fall löschen.
;
(command fc "" "")
(command "_qsave")
) ;ende von aufbereiten

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

---

Hallo,
ungeduldig bist du gar nicht (mail, PM und Posting) ???

Es gibt viele verschiedene Möglichkeiten, denn ich denke, du willst wie im AutoCAD-Magazin-Forum bereits diskutiert nur eben Sicherheit haben, dass niemend deine Script-Datei versaut - richtig?

Dann schreibe dir ein Lisp, welches dir die Script-Datei immer wieder neu schreibt, egal, ob jemand darin etwas geändert hat oder eben auch nicht.
Suchworte:
open, close, princ, prin1, write-line

Noch'n Vorschlag. Behalte die 2 Zeilenb als Script bei, welches du aus einer LISP-datei lädst.

Nächster Vorschlag, bau dir die externen LISP-Dateien, auf die du dich beziehst, so um, dass du die Parameter direkt übergeben kannst.

einefarb:
(acad_colordlg 256) durch die 8 ersetzen

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Zitat:

---

Original erstellt von michelangelo:
[...]

(defun c:aufbereiten ()
(command "filedia" "0")
(command "_qsave" "2000" "")
(command "BEREINIG" "AL" "" "N")
(command "_AUDIT" "J")
[...]
(command fc "" "")
(command "_qsave")
) ;ende von aufbereiten

---

k.A. ob das jetzt so richtig ist  aber dein lisp ist extrem "gefährlich" deutsch...

(setvar oldfiledia (getvar "filedia")
[...]
(command "_.purge" "_all" "" "_no")
(command "_.audit" "_yes")
[...]

(command "_.erase" "_all" "")
(command "-layer" "_thaw" "*" "")
[...]

Dein Explode ist irgend wie so sinnlos, versuchsmal mit z.B. deepmod

Code:

---

(defun _deepmod (blname expr / rover data)
  (setq rover (cdr (assoc -2 (tblsearch "block" blname))))
  (while rover
    (setq data (entget rover))
    ((eval expr) data)
    (if (= "INSERT" (cdr (assoc 0 data)))
      (_deepmod (cdr (assoc 2 data)) expr)
    )
    (setq rover (entnext rover))
  )
)

(defun deepmod (blname dxfcode value /)
  (_deepmod blname
    '(lambda (data /)
      (entmod
(if (assoc dxfcode data)
  (subst
    (cons dxfcode value)
    (assoc dxfcode data)
    data
  )
  (append data (list (cons dxfcode value)))
)
      )
    )
  )
)

---

Anwendungsbeispiel:

(defun c:BLOCK_2_NEUERLAYERIMBLOCK (/)
  (setq blname
(cdr
  (assoc 2
  (entget (ssname (ssget "_:S" '((0 . "INSERT"))) 0))
  )
)
  )
  (deepmod blname 8 "NEUERLAYERNAME")
  (deepmod blname 62 256)
  (deepmod blname 6 "bylayer")
)

Diese Methode verknüpft mit paar ifs die eine Wahrheitsabelle darstellen und du kannst mit einem Knopfdruck bzw Script 1000 von Dateien in die gewünschte Struktur ohne Zerstörung und mit extremen Tempo konvertieren.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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