---

Hallo @all!
Ich habe ein Problem! Ich baue mir meine eigene Lispdatei, leider bin ich blutiger Anfänger, und komme einfach nicht weiter.
Ich will automatisch Textstile bereinigen. Klappt auch alles gut, bis auf ein Textstil, der leider als Text in einem Bemaßungsstil eingestellt ist. Zu dem kommt noch, dass es eine Stilüberschreibung gibt, die gelöscht werden kann... wie ist der code für meine LISP??
Mit der Variablen DIMTXSTY komm ich nicht weiter... leider...

mfg Flo

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

---

Du musst die Textstille innerhalb der Bemassungsstille auf einen Wert umstellen der nicht bereinigbar sein soll, d.H Der Bemassungsstill verlinkt auf den Bemassungsstill und dieser kann smit nicht gelöscht werden. Im Gruppencode 3 der Bemassung hast du den Bemassungsstill gespeichert dieser muss dan auf einen anderen Bemassungsstill ungeschrieben werden. Bassierend auf tom.berger ssmod funktion könnte es so gehen.

Code:

---

;;; SSMOD changes DXF values of AutoCAD drawing entities
;;; usage: (ssmod <selection set> dxf-code new-value
;;;
;;; (ssmod (ssget) 8 "NEWLAYER") moves the selected entities to
;;; layeer NEWLAYER
;;; (ssmod (ssget '((0 . "INSERTION"))) 2 "NEWBLOCKREF") changes
;;; the references for selected block insertions to "NEWBLOCKREF"
;;; (ssmod (ssget '((0 . "INSERTION"))) 10 '(0 0 0)) changes
;;; the insertion point for selected block insertions to 0,0,0

(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)))
  )
)

(defun ss2el (ss / res)
  (mapent (function (lambda (en) (setq res (cons en res))))
  ss
  )
  res
)

(defun newscale (sset xyz /)
  (mapent
    (function
      (lambda (x)
(if (= "INSERT" (cdr (assoc 0 (entget x))))
  (progn
    (if (car xyz)
      (ssmodent x 40 (car xyz))
    )
    (if (cadr xyz)
      (ssmodent x 41 (cadr xyz))
    )
    (if (caddr xyz)
      (ssmodent x 42 (cddar xyz))
    )
    (while (= "ATTRIB"
      (cdr (assoc 0 (entget (setq en (entnext x)))))
  )
      (if (car xyz)
(ssmodent en 40 (car xyz))
      )
      (if (cadr xyz)
(ssmodent en 41 (cadr xyz))
      )
      (if (caddr xyz)
(ssmodent en 42 (cddar xyz))
      )
    )
  )
)
      )
    )
  )
)

(defun c:newscale ()
  (if (setq sset (ssget '((0 . "INSERT"))))
    (progn
      (if (setq xyz (getpoint "\nSkalierung X,Y(,Z): "))
(newscale sset xyz)
)
      )
    )
  (prin1)
  )

------------------------------------------------
(defun C: DIMStyleChange (/)
  (ssmod (ssget '((0 . "DIMENSION") (3 . "PROXY-STYLE_NO1"))) 3 NEUERBEMSTYLE)
  (princ)
  )
------------------------------------------------

---

------------------
"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

---

Hallo fbeckersm,

vielleicht habe ich falsch verstanden, aber so kannst du alle Textstyle bereinigen.

(command "_-purge" "_st" "*" "_n")

MfG Serghei

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

---

Du kannst nur "freiliegende" Textstille Bereinigen und nicht diejenigen die innerhalb von einem Objekt belegt werden. Es würde ja bei dir folgern dass Bereinigung = Löschen ist. Dem ist es aber nicht so.

------------------
"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

---

Moin!
Also, mein Code ist bisher so:
defun c:switch_text ()
(command "-umbenenn" "Textstil" "2" "Norm")
(command "-bereinig" "alles" "" "N")
(command "DIMTXSTY" "Norm" )
(command "-stil" "Norm" "Arial Narrow" "0" "1" "0" "N" "N")
)

Es bleibt ein Textstil nach dem bereinigen übrig, sein name "16".
Er kann ihn nicht bereinigen, weil er beim Bemaßungsstil "STANDARD" als Textstil definiert ist!
Damit er gelöscht werden muss, soll er vor dem bereinigen auf "Norm" geändert werden. Wo und wie ist der Befehl dafür?

mfg Flo

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

---

... den Textstil, der im Bemassungsstil referenziert ist, kannst du nicht bereinigen! - Egal wie er heißt!... Wenn du den Textstil los werden willst, änder den Bemassungsstil .. !

------------------
- Thomas -

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

---

Hallo CADmium!
Genau das habe ich ja vor!
Ich will den Textstil im Bemaßungsstil auf "Norm" setzten und dann mit bereinigen den Textstil "16" entfernen. Ich hab es mit DIMTXSTY versucht, klappt aber nicht.... Wie bekomm ich das in meine Lisp hin???
HILFE

mfg Flo

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

---

DIMTXSTY setzt den Textstil, der aktuell für Bemassungen herangezogen wird - ändert aber nicht im Bemassungsstil den dir z.B. (tblobjname "dimstyle" "DIMSTYLENAME"))liefert. Allerdings kommst du mit (entget .. und (subst nicht an den Textstil ran.

------------------
- Thomas -

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

---

Aha... also muss ich das immer manuell umstellen, oder?
Wenn ja, ist es ganz schön doof.... naja, trotzdem danke

mfg Flo

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

---

Zitat:

---

Original erstellt von fbeckersm:
Aha... also muss ich das immer manuell umstellen, oder?
Wenn ja, ist es ganz schön doof.... naja, trotzdem danke

mfg Flo

---

Nein, die Sache ist doch wirklich einfach. Dein Bemaßungsstil "Standard" referenziert den Textstil "16", soll aber den Tetstil "Norm" referenzieren. Wenn der Textstil "Norm" bereits existiert, dann kannst Du einfach den Bemaßungsstil "Standard" so ändern, dass er danach den Textstil "Norm" verwendet. Falls es einzelne Bemaßungen gibt, die als Bemaßungsstilüberschreibung einen anderen Stil als "Norm" referenzieren, dann musst Du diese einzlenen Bemaßungen ändern (BEM UPDATE). Falls der Stil "Norm" noch nicht existiert, dann benenne doch einfach den Stil "16" nach "Norm" um und ändere ihn gegebenenfalls so ab, wie Du ihn haben willst.

All das kannst Du sehr einfach vollautomatisieren.

Tom Berger

------------------
Architekturwerkzeuge für AutoCAD: http://www.archtools.de