set byblock con colori rgb problema

[jim78b]

Hallo, ich habe eine Lispe, die alle Farben auf Byblock auch in geschachtelten Blöcken, aber fehl auf merken heute, dass mit den rgb Farben nicht ändern sie nur (Ich verstehe, ob in einem Block ich es bearbeiten und setzen die Wesen auf eine Farbe rgb es 245,0,0 und dann ich aus dem Block und starten Sie die Lise nicht setzen die Wesen auf Byblock.... wenn Sie verwalten, um Routine dank zu korrigieren

(Defun c:setbyblock)

(defun _byblock)
(falls)
(setq und (tblobjname "block" n)
(nicht (Mitglied n l)
)
(while (setq und (entnext e))
(falls (setq a (assoc 62 (setq x (entget e)))))
(entmod (subst'(62.0) bis x))
(entmod))
)
(falls (= Einsatz) (cdr (assoc 0 x)))
(_byblock (cdr (assoc 2 x)) (cons n l)
)
)
)
Nil
)

(sing)
(progn (setvar 'errno 0) (setq e (car (entsel "\nselect block: ")
(cond)
(= 7)
(princ "\nmissed, versuchen Sie es wieder.)
)
(= Name (Typ e)
(wenn (= "Insert" (cdr))
(_byblock (cdr (assoc 2 (entget e))) nil)
(princ "\nobject ist kein Block.")
)
)
)
)
)
(Befehl "_.regen")
(princ)
)

 

[rpor66]

(defun c:setbyblock)

(defun _byblock)
(wenn (und (setq e (tblobjname "block" n))) (nicht (Mitglied n l)))
(while (setq e)
(setq x (entget e)
(falls (Setq a (assoc 420 x))
(setq x (vl-remove (assoc 420 x) x))
)
(falls (setq a (assoc 62 x))
(Unterteil '(62). 0) a x)
(entmod)
)
(wenn (= "Insert" (cdr (assoc 0 x)))
(_byblock (cdr (assoc 2 x)))
)
)
)
Nil
)

(while)
(Prog.)
(setvar 'errno 0) (setq e (car (entsel "\nselect block: ")))
(cond)
( (= 7 (getvar 'errno))
(princ "\nmissed, versuchen Sie es wieder.)
)
( (= Name)
(wenn (= "Insert" (cdr (assoc 0)))
(_byblock (cdr (assoc 2 (entget e))) nil)
(princ "\nobject ist kein Block.")
)
)
)
)
)
(Befehl "_.regen")
(princ)
)

Okay?

 

[jim78b]

hello danke x die dedizierte Zeit, es funktioniert aber nicht zulassen, mehr Artikel zu wählen, die alte Funktion war so in der Tat, Sie könnten, dass mehr Artikel auswählen? ...

 

[rpor66]

(defun c:setbyblock ( / _byblock e n x a sel c)

(defun _byblock)
(wenn (und (setq e (tblobjname "block" n))) (nicht (Mitglied n l)))
(while (setq e)
(setq x (entget e)
(falls (Setq a (assoc 420 x))
(setq x (vl-remove (assoc 420 x) x))
)
(falls (setq a (assoc 62 x))
(Unterteil '(62). 0) a x)
(entmod)
)
(wenn (= "Insert" (cdr (assoc 0 x)))
(_byblock (cdr (assoc 2 x)))
)
)
)
Nil
)

(Prompt "\nselect Blöcke: ")
(setq sel (ssget (list (cons 0 "insert")))
(Setq c 0)
(Repeat)
(Setq n (Name sel c))
(_byblock (cdr (assoc 2 (entget n)))
(Setq c (1+c)
)

(Befehl "_.regen")
(princ)

)

aktualisiert, ermöglicht jetzt mehrere Auswahl.

 

[jim78b]

Danke! Ist es genug, Ihnen zu danken?

 

[rpor66]

Natürlich reicht das.
Guten Tag.

 

[jim78b]

Danke.

 

[jim78b]

Hallo, ich habe es versucht, aber es funktioniert nicht mit anonymen Blöcken, die man auch für die tun könnte? Danke.

 

[rpor66]

Anonyme oder dynamische Blöcke?

 

[jim78b]

Ich meine die mit dem Symbol * vorne. Ich erkannte, dass vielleicht bestimmte lisp-Typ ändern Farbe der geschachtelten Blöcke nicht gehen, aber vielleicht können Sie nicht behaupten...