| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Textstil im Bemaßungsstil ??? (790 mal gelesen)
|
fbeckersm Mitglied
Beiträge: 13 Registriert: 05.05.2004
|
erstellt am: 13. Mai. 2004 14:38 <-- editieren / zitieren --> Unities abgeben:
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 |
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 13. Mai. 2004 16:12 <-- editieren / zitieren --> Unities abgeben: Nur für fbeckersm
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 |
valerich Mitglied Programmierer
Beiträge: 12 Registriert: 22.09.2003
|
erstellt am: 13. Mai. 2004 16:31 <-- editieren / zitieren --> Unities abgeben: Nur für fbeckersm
|
Proxy Ehrenmitglied Stateless-DHCP v6-Paketfragmentierer
Beiträge: 1629 Registriert: 13.11.2003 Tastaturen, Mäuse, Pladden, ..., AutoCADs 200X, SWX 2kX
|
erstellt am: 13. Mai. 2004 16:34 <-- editieren / zitieren --> Unities abgeben: Nur für fbeckersm
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 |
fbeckersm Mitglied
Beiträge: 13 Registriert: 05.05.2004
|
erstellt am: 14. Mai. 2004 08:10 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Mai. 2004 08:16 <-- editieren / zitieren --> Unities abgeben: Nur für fbeckersm
... 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 |
fbeckersm Mitglied
Beiträge: 13 Registriert: 05.05.2004
|
erstellt am: 14. Mai. 2004 08:50 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 14. Mai. 2004 09:10 <-- editieren / zitieren --> Unities abgeben: Nur für fbeckersm
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 |
fbeckersm Mitglied
Beiträge: 13 Registriert: 05.05.2004
|
erstellt am: 14. Mai. 2004 09:44 <-- editieren / zitieren --> Unities abgeben:
|
Ex-Mitglied
|
erstellt am: 14. Mai. 2004 12:41 <-- editieren / zitieren -->
Zitat: Original erstellt von fbeckersm: Aha... also muss ich das immer manuell umstellen, oder? Wenn ja, ist es ganz schön doof.... naja, trotzdem dankemfg 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 |