C'est-à-dire, où dois-je le copier ?(défun c:rgb2aci ( )
(couleur à acicolore)
(commande "_.regenall")
(principal)
)
(défun color-to-acicolor (/ txt nombre *error*)
(défendez l'erreur)
(principaux msg)
(mip: couche-status-restauration)
(principal)
) ;_ fin du délai
(mip: couche-état-save)
(vlax pour blk (vla-get-blocs)
(document actif vla-get (vlax-get-acad-objet))
) ;_ fin des blocs vla-get
(compte de setq 0)
(grtexte -1
(setq txt
(strcat "inspection des objets: "
(vla-get-name blk)
)
)
) ;_ fin du texte
(si (= (vla-get-isxref blk) :vlax-false)
(progrès
(vlax pour obj blk
(nombre défini (1 + nombre))
(si (zérop (nombre 10))
(grtexte -1 (strcat txt " : " (compte d ' émission))
)
(si (et (vlax-write-enabled-p-obj)
(vlax-propriété-disponible-p 'couleur)
)
(vla-put-color obj (vla-get-color obj))
)
) ;_ fin de vlax-pour
) ;_ fin du programme
) ;_ fin de
) ;_ fin de vlax-pour
(vlax pour les couches de vla-get
(document actif vla-get (vlax-get-acad-objet))
)
(vla-put-color lay)
)
(mip: couche-status-restauration)
)
(défun mip:layer-status-restauration ()
(pour chaque élément *pd_layer_lst*
(si (non (vlax-effacé-p (élément de voiture)))
(vl-prise-tout-application
"(Lambda)
(verrouillage à grande vitesse (élément de voiture) (cdr (assoc "lock" (élément de cdr)))
(gel de sortie (car article) (cdr (assoc "gel" (cdr article))))
) ;_ fin de lambda
) ;_ fin de la demande
) ;_ fin de
) ;_ fin de chaque année
(setq *pd_layer_lst* zéro)
) ;_ fin du délai
(défun mip: couche-status-save ()
(setq *pd_layer_lst* zéro)
(vlax pour l'élément (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(setq *pd_layer_lst* (cons) (liste des éléments)
(consiste à "geler" (élément de gel vla-get))
(constante "lock" (élément vla-get-lock))
) ;_ fin des inconvénients
*pd_layer_lst*
) ;_ fin des inconvénients
) ;_ fin de setq
(vla-put-lock élément :vlax-false)
(si (= (vla-get-gel) :vlax-true)
(vl-catch-all-apply '(lambda () (vla-freeze :vlax-false)))
) ;_ fin de vlax-pour
) ;_ fin du délai
(principal "\ntype rgb2aci dans la ligne de commande")(principal)