yusukens82

Bonjour, il me semble que ce sujet n'a jamais été abordé à ce jour. Est-il possible de redéfinir plusieurs blocs d'un fichier par plusieurs blocs d'un autre fichier ? Si vous avez une idée, je suis preneur. Merci Pour compléter ma demande je joint 2 fichiers : Maison.dwg contenant les divers blocs que je souhaite redéfinir par des blocs du fichier bibliotheque.dwg fichier à télécharger : http://yusukens.free.fr/CADXP/BlocsRedefinir.zip

Merci Tramber Pourtant j'avais regardé autour du F1 et des variables autour de l'EXTRUSION c'est vrai qu'avant l'aide dévoilait toute les variables associés à la commande. ce n'est plus le cas depuis quelque année. encore merci.

Bonjour, Après la réinstallation de mon Autocad 2014, la fonction EXTRUSION ne fonctionne plus pareil. Après l'extrusion d'une polyligne, ce dernier est normalement conservé mais ce n'est plus le cas depuis le formatage. je n'ai trouvé aucune variable à ce sujet. merci de votre aide.

x_all : pas de SSM car c'est une fenêtre à choix multiple, et je passe mon temps à cocher les 3 premières casses. Grand merci Gile pour avoir bien voulu modifier ton LISP. Bonne journée

Bonjour, Sans passer par une fenêtre à choix multiple je souhaite fusionner 3 Lisp en lançant qu'un seul lisp. Si quelqu'un peut m'aider, merci. Les 3 Lisp en question : ;;;===============================================================;;; ;; Sélection par calque (defun c:ssl (/ ss ent) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (sssetfirst nil (ssget "_X" (list (assoc 8 (entget ent))))) ) (princ) ) ;;;===============================================================;;; ;; Sélection par type d'entité (defun c:sse (/ ss) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (sssetfirst nil (ssget "_X" (list (assoc 0 (entget ent))))) ) (princ) ) ;;;===============================================================;;; ;; Sélection par couleur (defun c:ssc (/ ent elst col) (and (or (and (setq ss (cadr (ssgetfirst))) (= 1 (sslength ss)) (setq ent (ssname ss 0)) ) (and (sssetfirst nil nil) (setq ent (car (entsel))) ) ) (setq elst (entget ent) col (cond ((assoc 430 elst)) ((assoc 420 elst)) ((assoc 62 elst)) (T (cons 62 256)) ) ) (sssetfirst nil (ssget "_X" (list col))) ) (princ) ) ;;;===============================================================;;;

Une idée de code Zebulon ? C’est exactement ce qu'il me fallait je n'aurais jamais pu coder ça !!! Un grand merci. rebcao : Idem je déteste récupérer des plans avec des couleurs forcées, mais dans certain cas lorsqu'on a besoin d'appliquer différentes couleurs RVB c'est vachement utile.

Merci zebulon_ merci VDH-Bruno je vais faire un mixage de vos messages et essayer de créer ce *.lsp et *dlg

Merci Steve c'est de cet façon que je procédais déjà, je cherchais plutôt un moyen d'ouvrir la boite de dialogue "COULEURS VRAIES" grâce à une commande Autocad. Merci Didier, en le réadaptant en LISP cela donne : (command "_change" ent "" "_p" "_c" "u") c'est le seul moyen que j'ai trouvé pour utiliser rapidement les RVB. L'idéal pour moi serait d'avoir une commande permettant d'ouvrir directement la boite de dialogue "Couleurs vraies"

Bonjour, connaissez-vous la commande permettant de modifier la couleur d'un objet sans passer par la casse propriété ? http://yusukens.free.fr/CADXP/Propriete_color.jpg Merci

Merci Bonuscad et Gegematic. Vous êtes les meilleurs. J'ai opté pour "initdia". encore merci..

Bonjour, je désire définir 2 variables avant de lancer la boîte de dialogue de l'HACHURES. Mon code : (defun c:HPP () (command "HPLAYER" "." "HPCOLOR" "DUCALQUE" "HACHURES")) Les 2 variables sont bien définies mais la boite de dialogue n'apparait pas. une idée ? Merci,

Bonjour, Je sais bien que chacun pourrait mettre sa patte et qu’on se retrouverait avec une multitude de possibilité. J’insiste sur l’aspect : demande de personnalisation de la routine à titre personnelle. En effet j’utilise cette routine plusieurs fois par jour et depuis de nombreuses années, cette modif me faciliterait la vie.

Bonjour à vous J'utilise très régulièrement le Routine de GILE : Edit bloc 3.5 Disponible ici : http://pagesperso-orange.fr/gile/LISP/Edit_bloc_3.5.zip Néanmoins pensez-vous qu'il est possible de le modifier légèrement afin que des paramètres soient cochés par défaut au lancement de la routine ? Choix des blocs : Tous les blocs insérés Couleur : DuCalque Type de ligne : DuCalque Epaisseur de ligne : DuCalque http://yusukens.free.fr/image/EDIT_BLOC.jpg

Merci ça fonctionne très bien avec cette variable positionné en "1" cela donne : (command "QAFLAGS" "1") (setq jeu(ssget "x" '( (0 . "INSERT") ) ) ) (command "DECOMPOS" jeu "" "") (command "QAFLAGS" "0") merci VDH-Bruno pour cette explication détaillé. Merci à vous tous.

comme ça ? (defun c:TEST () (setq jeu(ssget "x" '( (0 . "INSERT") ) ) ) (command "DECOMPOS" jeu "" "") ) Bizarrement ça fonctionne avec EFFACER mais pas avec DECOMPOS ni _EXPLODE

Effectivement avec INSERT ça marche mieux. en revanche ça fonctionne très bien avec la commande EFFACER mais pas avec DECOMPOS. Commande EFFACER : (setq jeu(ssget "x" '( (0 . "INSERT") ) ) ) (command "EFFACER" jeu "") Commande DECOMPOS: (setq jeu(ssget "x" '( (0 . "INSERT") ) ) ) (command "DECOMPOS" jeu "") même problème avec les commandes EXPLODE ou _EXPLODE

Bonjour Tramber, Etant un novice en LISP je comprend un peu ce que tu veux dire mais je n'arrive pas réecire correctement le code avec PSELECT (setq jeu(ssget "x" '( (0 . "BLOCK") ) ) ) (command "PSELECT" "DECOMPOS" jeu)

Bonjour, J'essaye d'écrire un lisp permattant de DECOMPOSER tous les BLOC visible. Début d'idée : (defun c:TEST () (ssget "x" '( (0 . "BLOCK") ) ) (command "DECOMPOS" "0,0" "_p" "") ) pouvez vous m'aider SVP.

J’aimerai juste témoigner mon remerciement pour ce topic. OVERKILL vient de me faire gagner 4h de travail. Merci à la communauté CADXP

Idem pour le filtre : - TAPER la commande - Selection du filtre - Ajouter à la liste - Appliquer - Sélectionner "tout" - command "COPIERBASE" "0,0" - command "_pasteclip" "0,0" c'est bien une solution mais beaucoup trop de manipulation. Merci quand même pour ton aide. PS : le lisp fonctionne très bien, je lance l'application et toutes les cotations ne sont plus accrochés.

Oui c'est vrai qu'on pouvait passer par les sélections rapides. Merci Steven pour l'explication (j'avais oublié cette façon de procéder). Mais finalement je continuerai avec le lisp qui me permet en plus de choisir toutes les cotations d'appliquer un copier coler. (une manipulation en moins).

Qu'est ce que la selection multiple ? en tout cas les solutions précédentes me convenaient déja.

DIMASSOC, une variable que je viens de découvrir, effectivement en le mettant à 1, les cotations ne sont plus associatives. merci beaucoup, très bon à savoir.

Merci rebcao, c'est peut etre pas très gracieux mais c'est exactement ce qui me faut. ça m'aidera bien au boulot. pour information c'est pour éviter que les cotations s'accrochent aux polylignes et aux blocs. encore un grand merci.

Bonjour, Comment écrire le code permettant de sélectionner tous les cotations de l'espace Objet ? Voila ce que je souhaite faire : (defun c:CBCOT () ??????(sélectionner tous les cotations)?????? (command "COPIERBASE" "0,0") (command "_pasteclip" "0,0") ) Merci de votre aide.