rdilecce80
Guest
...: doigt:...à la limite, si vous voulez changer le calque, changez simplement la ligne (vla-put-layer écoute "4"), où "4" est le nom du calque
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
...: doigt:...à la limite, si vous voulez changer le calque, changez simplement la ligne (vla-put-layer écoute "4"), où "4" est le nom du calque
quand j'utilise esptac, si vous créez une copie de blocco et moi la esplodeJ'ai malheureusement trouvé que les talons "notchs2" sont empilés sur l'autre et, selon le chemin, je devrais ouvrir le bloc et annuler les lignes en immergé.
a
les doubles encoches m'ont créé après avoir utilisé esptac.lspVous avez raison, j'ai juste raté le fait que quand j'utilise vla-explode, le programme me fait une copie des entités qui composent le bloc, en conservant l'original, contrairement à la commande explosante, qui élimine plutôt le bloc. C'est pourquoi le comptoir aussi est allé pour le sien. Ça devrait aller.
Si vous pouvez les filtrer, c'est mieux, sinon je vais devoir exécuter un système de contrôle pour les coordonnées des blocs et effacer les blocs aussi. Cependant vous ne le faites pas en 5 minutes...:smile:
(défun c:esptac (/ blocs gru dima index listadima count)
(vl-load-com)
(blocs setq(blocs vla-get-blocks (document vla-get-active(vlax-get-acad-object))))
gru(ssget '((0 . " insérer"))
)
(répétition (indice de setq(longueur gru))
(setq dima(ssname gru (setq index(1- index))))
listadima (blocs d'éléments vla (cdr(assoc 2))))
nombre 0
)
(vlax-pour elem listadima
(si (et (égal (vla-get-objectname (vla-item listadima compter)) "acdblockreference")
(égal (vla-get-name (vla-item listadima count)) "notchs2")
)
(progrès)
(setq listaent(car) (valeur sûre (valeur variable))Vla-explosion (vla-item listadima count))))
(liste "4")
)
)
(nombre défini (1 + nombre))
)
)
(vla-get-activedocument(vlax-get-acad-object) acactiveviewport)
)
(défun c:esptac (/ blocs gru index dima listadima)
(vl-load-com)
(blocs setq(blocs vla-get-blocks (document vla-get-active(vlax-get-acad-object))))
gru(ssget '((0 . " insérer"))
)
(répétition (indice de setq(longueur gru))
(setq dima(ssname gru (setq index(1- index))))
listadima (blocs d'éléments vla (cdr(assoc 2))))
)
(vlax-pour elem listadima
(si (et (égal (vla-get-objectname elem) "acdblockreference")
(égal (vla-get-name elem) "notchs2")
)
(progrès)
(vla-put-layer (voiture (valeur de sûreté (valeur variable (vla-explode elem)))))) "4")
(vla-delete elem)
)
)
)
)
(vla-get-activedocument(vlax-get-acad-object) acactiveviewport)
(alerte "tacche esplose!")
)