Tramber

J'attends la réponse de Patrick_35, aujourd'hui je suis enfin en WE (depuis 20 jours !)... ... mais je ne serai pas là cet après-m. ... ni trop ce soir ... ni d'ailleurs trop demain ! (bientôt l'AG extra-ordinaire de mon club) ... tiens (apparté), je vais modifier ma signature

Soit ! On crée un (qu'on ajoute ?) (setq tramber_reacteur_changed (vlr-object-reactor lst nil (list (cons :VLR-Modified (function tramber:alerte_objet_changed))))) Je suis prêt à le faire mais la fonction tramber_reacteur_changed va-t-elle devoir toute seule déterminer : 1 s'il s'agit d'une polyligne (pour commencer) 2 si un point a changé (pas drôle) 3 si sur le calque protégé (facile) Et on oublie donc définitivement la réaction à un Grip_Editing ?

Télécharge PDF-Créator, c'est une imprimante. Ca sera déjà ça. Car transformer un DWF en PDF, si possible par une magouille ou un logiciel, ça ne sera pas terrible.

Hello, Il y a pléthore de variables qu'on dirige aussi par des commandes. ATTECRAN pour ATTMODE TEXTERAP pour QTEXTMODE ORTHO pour ORTHOMODE .... Des centaines :huh: Des milliers :P

Bonjour, PROJECTNAME (ou options FICHIERS - chemin de recherche de fichiers de projet) Je te conseille la lecture de l'aide en partant de cette variable. Et cette page d'accès : Partage de données entre dessins et applications > Référence à d'autres fichiers de dessin > Association et dissociation de dessins référencés > Il y a aussi un topo sur Définition des chemins d'accès aux dessins référencés pour les syntaxes de chemins racine ou pas, dossier ou pas, etc...

Salut Patrick_35. On n'attendait plus que toi ? J'aurais pensé qu'il fallait chercher la réaction à la commande "Grip_Edit", je n'ai plus la syntaxe. Car passer par un objectModified ou qqe chose comme ça, n'est pas la meilleure solution, n'est-ce pas ? Enfin, je manipule si peu les réacteurs que je ne maitrise pas (plus) l'écriture de l'essentiel des codes. Tu donnerais une programmation minimale... ?

Pfff,... ca fait longtemps que je connais ce bug (disons ce problème.) Car, en effet, qui pour mettre au point un CUI d'entreprise n'a pas voulu le charger comme ceci ou comme cela ? Il faut désactiver le réglage d'entreprise avant d'oser charger son CUI pour l'éditer. Et le faire en 2 temps. Ou quelque chose comme ça. Dans les premières versions on avait le droit à de violents plantages. J'ai eu une version detestée à cause de cela je crois, je veux plus en parler :P

Mais oui. On préférera largement celui qui progresse doucement et prend le temps de comprendre. Je te déconseille la doc sur VLA. D'abord, prends des routines simples,... en fouillant ici par exemple. Tu passeras à VLA un jour...

(command "layer" "m" "-LU POUTRE" "c" "50" "" ""); pas capable de faire fonctionné Quand un "layer" a été "made", on ne peut le remake ! Moi je lance en Français : "calque" "Etablir" (je ne connais pas le raccourci en Anglais), beaucoup plus puissant. (command "change" ent1 "" "P" "LA" "-LU POUTRE" ""); idem Utilise la commande CHPROP, mieux, comme çi tu passais par CHANGE puis P, comme tu le fais. Nécessite plusieurs ENTREE pour sortir. A toi de jouer.

Bon, coucou mes chers amis. J'ai retouché Tabloblo pour faire plaisir à chronos21 et lui faire bon accueil ;) C'est pas tous les jours... J'ai ajouté gc:str2lst de (gile) La liste lassoc doit, en principe diminuer au fur et à mesure que la routine cherche. C'est pour otimiser basiquement la routine. Ca serait bien de faire des tests avec des gros fichiers textes et quantités de blocs. ATTENTION aux utilisateurs, cherchez l'expression FINDFILE dans le code pour y spécifier proprement le nom du fichier texte. J'espère que ca marche correctement. C'est une rustine. Une bonne normalement :(rires forts): ;; TABLOBLO (Tramber) ;; Crée un tableau qui liste les blocs insérés (sélectionnés ou toute la collection) (defun c:tabloblo (/ libloc liidbloc ss col liref ptins tableVL cont row lassoc) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (prompt "\nSélectionnez les blocs à lister ou ") (or (setq ss (ssget '((0 . "INSERT")))) (setq ss (ssget "_X" '((0 . "INSERT"))) col T)) (if ss (progn (vlax-for x (setq ss (vla-get-ActiveSelectionSet *acdoc*) ) (or (vlax-property-available-p x 'Path) (setq liref (cons (if (vlax-property-available-p x 'EffectiveName) (vla-get-EffectiveName x) (vla-get-Name x) ) liref ) ) ) ) (vla-delete ss) ) ) (if col (vlax-for i (vla-get-Blocks *acdoc*) (if (and (not (wcmatch (setq name (vla-get-Name i)) "`**,*|*")) (= :vlax-false (vla-get-IsXref i)) ) (setq libloc (append libloc (list (vla-get-name i))) liidbloc (append liidbloc (list (vla-get-ObjectID i))) ) ) ) (setq libloc (remove_doubles liref) liidbloc (mapcar '(lambda (x) (vla-get-ObjectID (vla-item (vla-get-Blocks *acdoc*) x ) ) ) libloc ) ) ) (initget 1) (setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0)) (setq tableVL (vla-addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)) ) (vlax-3d-point ptins) (+ 2 (length libloc)) 3 20 ; Hauteur cellule 80 ; Largeur cellule ) ) (vla-put-VertCellMargin tableVL 4.0) ; Marge verticale (vla-put-TitleSuppressed tableVL :vlax-false) (vla-put-HeaderSuppressed tableVL :vlax-false) (vla-setText tableVL 0 0 "Blocs") ; Titre (vla-setText tableVL 1 0 "Nom") ; Titre colonne 1 (vla-setText tableVL 1 1 "Nombre") ; Titre colonne 2 (vla-setText tableVL 1 2 "Symbole") ; Titre colonne 3 (setq cont -1 row 1 ) (setq lassoc (cond((if(setq f(FINDFILE "Table blocs.txt"))(setq f(open f "r"))); ATTENTION, fichier texte à mettre dans le dossier du fichier ou dans un dossier de support (while(setq lignt (read-line f)) (setq lignt(vl-remove-if '(lambda(x)(= x ""))(gc:str2lst lignt"\t")) lis(cons lignt lis)) ) ) ) ) (if f(close f)) (repeat (- (vla-get-Rows tableVL) 2) (setq nouvn(nth (setq cont (1+ cont)) libloc)) (vla-settext tableVL (setq row (1+ row)) 0 (cond((trouvnom nouvn))(T nouvn)) ) (vla-settext tableVL row 1 (length (vl-remove-if-not '(lambda (n) (= n (nth cont libloc))) liref ) ) ) (vla-SetBlockTableRecordId tableVL row 2 (nth cont liidbloc) :vlax-true ) (vla-setcellalignment tableVL row 0 5) (vla-setcellalignment tableVL row 1 5) ) (princ) ) ;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste (defun REMOVE_DOUBLES (lst) (if lst (cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst))) ) ) (defun trouvnom(ancn / result); attention lassoc est modifié en global dans c:tabloblo (if(setq result(cadar(vl-remove-if-not '(lambda(x)(=(car x)ancn))lassoc))) (setq lassoc(vl-remove-if '(lambda(x)(=(car x)ancn))lassoc)) ) result ) ;; gc:str2lst ;; Transforme une chaine avec séparateur en liste de chaines ;; ;; Arguments ;; str : la chaine à transformer en liste ;; sep : le séparateur (defun gc:str2lst (str sep / len lst) (setq len (strlen sep)) (while (setq pos (vl-string-search sep str)) (setq lst (cons (substr str 1 pos) lst) str (substr str (+ len pos 1)) ) ) (reverse (cons (substr str 1 pos) lst)) )

1ère remarque : ton SCU est complètement 3D. Comment cela se fait-il ? Seconde remarque : ton style de texte est annotatif. C'est un handicap sérieux pour faire simple B) Je me moque mais je n'utilise pas l'annotatif faute d'avoir pris le temps de le maîtriser. Mais toi, tu le fais sciemment ?

Et mais ouais, ca fait penser qu'on peut prendre les 2 abonnements. J'avais même pas pensé !

Et mon nom c'est Tramber

Coucou, tu peux m'écrire en MP ou passer par la page contact de mon site web (abcad.fr) Et me dire (en copiant le lien) où tu as trouvé la version de tabloblo sur CADxp. Il y a eu du mouvement. Je l'adapterai et on publiera ici. Mais vite fait alors B) J'ai plein de boulot.

J'ai voté oui mais je ne vais pas me précipiter. Il faudra que l'on se fasse confirmer que tout fonctionne et que la couverture réseau soit correcte.

Déplacer un vertex, ca veut dire quoi ? Tu parles d'édition par les poignées d'une polyligne ou déplacer un vertex d'objet 3D ? Dans tous les cas, on y arrive :P

Ce sont tes accrobjs mon ami ;) Cherche la syntaxe SETVAR et GETVAR dans nos routines publiées ici, tu comprendras qu'on renregistre la valeur, on mets à zéro (aucun accrochage) et on restitue la valeur. OSMODE est la variable à contrôler. Ensuite tu apprendras à gérer les erreurs, c'est très utile. (j'ai modifié ce sujet en le déplacant dans le forum ad-hoc)

Dans ce cas ... il te faut un programme. (defun c:zcot(/ dxoj) (setq dxoj(entget (car(entsel)))) (cond((=(cdr(assoc 0 dxoj))"DIMENSION") (setq dxoj (subst (reverse(cons 0.0(cdr(reverse (assoc 13 dxoj))))) (assoc 13 dxoj) dxoj ) dxoj (subst (reverse(cons 0.0(cdr(reverse (assoc 14 dxoj))))) (assoc 14 dxoj) dxoj ) ) (entmod dxoj ) ) ) (princ) ) A copier dans un fichier .lsp Fichier que tu peux glisser dans le dessin depuis un explorateur ou charger via APPLOAD. Le fichier chargé, lancer la commande ZCOT dans ton dessin. Si tu cliques sur une dimension, l'outil répond à ton besoin.

Seul espoir : manipuler la résolution fournie par ta carte graphique (propriétés de l'affichage dans le panneau de config).... Hélàs, c'est souvent très moche de baisser en résolution !

Non, pas de problèmes... C'est le contraire alors. Il te faut un outil qui filtre les altitudes Z de saisie. La macro : ^C^CCOTLIN;.z;0,0,0;\.z;0,0,0;\\ Regle ton problème pour la cotation linéaire, suivant le SCU en cours. Il faut ajouter un * au début pour que la commande boucle jusqu'à Echapp. NB : intervenir sur un dessin en 3D oblige, à mon sens, à connaitre le maniement des SCU. B)

Mais à plat ca veut dire quoi ? Puisque je te dis bien qu'une cotation se pose toujours sur le SCU en cours... C'est donc qu'il faut que tu manipules ton SCU. Tu fais 2 clics pour spécifier les points d'accroches de ta cote. Ok ? Veux-tu une routine qui récupère donc le Z de ces 2 clics, change donc le SCU avec ce Z et enfin place la cotation ?

Je rebondis, Patrick. On pourrait regarder sur de vieilles versions. Je suis en train de fouiller ma mémoire car je pense avoir vu cette coquille il y a longtemps. Mais impossible de retrouver exactement le neurone ;) C'est vrai que le problème, si nous le signalons, sera-t-il corrigé pour l'année suivante ? Savez-vous comment le signaler, vous ? Sauf à nous faire lire ou à trainer sur le forum de l'éditeur. Je voulais dire aussi que j'ai légèrement modifié les intitulés du vote (parmi ceux qui n'ont pas encore été cliqués). C'est anti-démocratique B)

Déjà pour ce soir, je suis étonné du nombre vote ! Voyons cette semaine qui vient ;)

Je dis que c'est bien de dire pour quelle option on vote, c'est classe ;)

Ca n'est pas pour une coquille isolée que je vais m'indigner aujourd'hui contre l'éditeur. Mais avec tous ces débats et tous ces blablas sur ce qu'est être Français, je me demande de plus en plus sur ce que sera bientôt le Français en tant que langue écrite, en tant que langue. Je pense ici qu'il ne s'agit pas d'un oubli ou d'une faute rare. Je pense que l'école a oublié des étapes en formant l'individu qui a traduit. Pour moi, ce message, c'est commme un débarquement d'Alien. Je fais certainement des X-Ref (AutoCAD) circulaires depuis 2000, mais de temps en temps, j'ai besoin d'avancer rapidement dans une étude. Et aujourd'hui j'ai eu le sifflet coupé. Je n'ai pas souvenir de cette erreur d'orthographe dès les débuts de la detection. Nos impôts, notre belle langue, et l'autre empaffé de DuClauzet (ou qqe chose comme ça) qui a vendu son livre partout (TV et radio publique) pour nous proposer sans vergogne d'abandonner l'orthographe au profit du groupe auquel il appartiendrait : les dyslexiques. Grand groupe au demeurant. Mais merde. Je suis en colère. Les Anglais débarquent. Et donc, les jeunes maintenant, comment abordent-ils orthographes (sil y en a) et logiques (il y en a) des langues étrangères ? :blink: Allons-nous devoir nous habituer ... ?