---

Hallo zusammen,

habe schon hundert Jahre kein Lisp programmiert und muss jetzt wieder ran.Mein Problem ist eigentlich recht simpel. Ich habe eine unbekannte Anzahl von Bemaßungsstilen. Bei denen muss ich bestimmte Bemaßungsvariablen ändern. Dazu brauche ich eine Liste mit den Stilnamen, die dann mit foreach oder repeat aufgerufen und geändert werden. Habe auch schon einen Code gestrickt nur leider will der nicht laufen. Hier mal mein Code. Bestimmt sieht einer von euch wo ich murkse.

(defun c:change_dimstyle (/ dim_sty bemart)
(setvar "cmdecho" 1)
  (setq dim_sty (list (cdr (assoc 2 (tblnext "dimstyle" T)))))
    (while (/= dim_sty nil)
  (cons (list (cdr (assoc 2 (tblnext "dimstyle")))) dim_sty)
  (setq l (length dym_sty))
  (princ l)
  (princ dim_sty)
  (alert "stop1")
    )
;(foreach dim_sty
;(command "dimstyle" "_R" bemart )
      ;(setvar "dimzin" 8)
  ;(setvar "dimazin" 2)
  ;(setvar "dimtad" 1)
  ;(setvar "dimtih" 0)
  ;(setvar "dimtix" 0)
  ;(setvar "dimtmove" 0)
  ;(setvar "dimjust" 0)
  ;(setvar "dimtoh" 0)
  ;(command "dimstyle" "_S" bemart "_Y" )
  ;(alert "stop")
 
)

------------------
Grüße

Jörg

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

---

Code:

---

(defun c:change_dimstyle (/ dim_sty dim_sty_list)
    (setvar "cmdecho" 1)
    (while (setq dim_sty (tblnext "dimstyle" (not dim_sty)))
      (setq dim_sty_list (cons (cdr (assoc 2 dim_sty)) dim_sty_list))
    )
  ;testSTART
    (princ(strcat "\n" (rtos (length dim_sty_list) 2 0) " Bemaßungsstile gefunden:"))
    (foreach DSTname dim_sty_list (princ(strcat "\n- " DSTname)))
  ;testEND
    ;|
(foreach bemart dim_sty_list
  (command "dimstyle" "_R" bemart )
  (setvar "dimzin" 8)
  (setvar "dimazin" 2)
  (setvar "dimtad" 1)
  (setvar "dimtih" 0)
  (setvar "dimtix" 0)
  (setvar "dimtmove" 0)
  (setvar "dimjust" 0)
  (setvar "dimtoh" 0)
  (command "dimstyle" "_S" bemart "_Y" )
  (alert "stop")
)
  |;
  (princ)
)

---

Bei konkreten Fragen...fragen !

------------------
Link: User:FAQ (einiges Wissenswertes über AutoCAD)

[Diese Nachricht wurde von cadffm am 07. Feb. 2013 editiert.]

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

---

Hallo cadffm,

lange nicht gelesen   . Ich danke dir, du hast mir meinen Faschingsurlaub gerettet. Ü's sind unterwegs.

Eine Frage noch: Wo wird denn DSTname definiert?

------------------
Grüße

Jörg

[Diese Nachricht wurde von jörg.jwd am 07. Feb. 2013 editiert.]

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

---

Das macht FOREACH für mich 

------------------
Link: User:FAQ (einiges Wissenswertes über AutoCAD)

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