capde06

Merci Gile ces fonctions marchent sur des blocs. mais ne marche pas quand les blocs sont attaches a des ligne de repères multiples on tombe la sur une entité complexe trop complexe pour moi je voulais mettre une image mais je ne sais comment on fait

avant j'utilisais un bloc avec 3 attributs avait ma petite fonction pour récupérer la valeur de mes attributs maintenant j'utilise ligne de repére multiple avec mon bloc (pratique et conviviale a mon avis) mais problème je n'arrive pas a faire une fonction pour récupérer la valeur d'un attribut si vous avez eu ce problème.....merci de m'aider voila ma fonction pour la valeur d'un attibut ;; ;valeur d'un attribut : entité avant entget + etiquette (defun val_eti(enti eti / alt) (setq ent_att (entnext enti)) (while (/= (cdr (assoc 0(entget ent_att))) "SEQEND") (if (= (cdr(assoc 2(entget ent_att))) eti) (setq alt (cdr(assoc 1(entget ent_att)))) ) (setq ent_att (entnext ent_att)) ) alt )

essai la commande FLATTEN

la variable FILEDIA 1

je viens de d'ecrire la fonction je la met quand meme (defun c:prefixe () (setq pref (getstring "\nprefixe du texte :")) (princ "\nSelection des TEXTES") (setq sel (ssget '((0 . "TEXT")))) (setq cpx 0) (repeat (sslength sel) (setq ent (entget(ssname sel cpx))) (setq txt (strcat pref (cdr (assoc 1 ent)))) (entmod (subst (cons 1 txt) (assoc 1 ent) ent)) (setq cpx (+ cpx 1)) ) )

(defun c:toto () (setq sel (ssget "x" '((0 . "CIRCLE")))) (command "chprop" sel "" "ca" "cercle" "") ) petit prog pour mettre tous les cercles dans le calque cercle il faut avant crer le calque CERCLE

moi je fais comme ca, mais il y a peut etre mieux menu express > tools > system variable editor la, tu peux expoter importer

essai cette fonction recupé sur cadxp elle supprime les echelles (if (>= (atof (substr (getvar "acadver") 1 2)) 16.0) (progn (princ "toto") (while (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST")) (vla-delete (vlax-ename->vla-object (cdr (assoc 350 (dictsearch (namedobjdict) "ACAD_SCALELIST"))))) ) (apply 'command (append (list "-scalelistedit") (list "a" "1/50" "1:0.05" "a" "1/100" "1:0.1" "a" "1/200" "1:0.2" "a" "1/250" "1:0.25" "a" "1/500" "1:0.5" "q"))) (if (>= (atof (substr (getvar "acadver") 1 4)) 17.2) (command "cannoscale" "1/200") ) ) ) [Edité le 28/1/2009 par capde06]

il y a surement trop d'échelles dans ton dessin il faut que tu ouvres tes xref et supprimer les échelles commande MODIFLISTECHELLE apres ca va mieux

variable système "acadver"

si tu veux transformer un sommet de polyligne en arc il suffit d'utiliser la command RACCORD

il faut faire des cotes associatives variable DIMASSOC 2 on peut aussi reassocier des cotes existantes command COTREASSOCIER [Edité le 23/1/2009 par capde06]

envoie moi un courriel

dans la liste des échelles '_scalelistedit il y a le bouton réinitialiser et la une liste d'échelle par défaut comment peut on modifier cette liste par defaut

SUR LE TERRAIN ? ON LEVE LE POINT ET ON RENTRE LE CODE 10 DANS l'appareil sur autocad le prog regard dans la table de codif a quel bloc correspond le code 10, et il l'insere dans les dwt il y a seulement le minimun tous les blocs se trouvent dans le fichier exemple codification.dwg

Il faut utiliser le fichier ini du répertoire exemple codification Comment se sert-on de la commande décaler à droite ou gauche ? le décalage se fera là ou le point a été levé en fait je reprend la command "decaler" "par" tout simplement ++++++++++INSERTION BLOCS SIMPLE++++++++++++++ code =10 symbole=TOPO-ELEC-LAMP1 calque =TOPO-ELEC symbole = .. nom du bloc à insérer ou fichier c:/xxx/xx.dwg : attention c:/… ou c:\\... important.. dans le cas d’un code polyligne ne rien mettre calque = calque d'insertion du bloc 11046 (fin de la polyligne puis décaler) ou 11056 (ferme la polyligne puis décaler) pas de code a 5 chiffres 1100 1101 1101 1104 ou 1105 seulement après xxx4 ou xxx5, le code 1106 point levé sur la largeur du mur par ex. en fait le fichier exemplepasdecode.xyz n'a rien a voir avec le fichier exemple codification.dwg jai oublié de l'effacer. le dessinauto se fait après avoir inséré les points, cela permet d'avoir un visu et de contrôler, seulement après on lance « dessinauto ». les erreurs de code au levé son plus facile a corriger ce principe permet aussi de mettre au point et de tester la codif en créant des points à l'écran comme si on était sur le terrain. Peux-tu m'expliquer sommairement quelques lignes du fichier "exemple pas de code.xyz" que tu proposes en exemple ? C'est un fichier après traitement (calculs) ? ce fichier est sorti d'un leica sur un contrôle d'implantation, mise en station sur 3 cibles GSI vers excel puis xyz j'ai changé quelque valeurs Z pour des tests sinon il formaté N X Y Z j'ai aussi rajouté les codes pour tester les macros, en fait il ne ressemble plus à rien. sur leica on peu avoir des n° de point de type R-10.20 pratique. mon programme ne fait pas de calcul de polygo ou autre trop compliquer pour moi à programmer, trop de cas particulier a gérer. Pour calculer des polygo on utilise wintopographie de OBBC si cet échange doit se prolonger fait le sur captopo@orange.fr plus simple pour d'autre explication ou exemple

-- [Edité le 22/1/2009 par capde06]

le fichier est a coté du point zip sur skydrive ton windows doit etre mal configuré, essai ouvrir avec notepad.exe il est au format texte tout simple j'espère de le fichier exemple est assez clair si tu as besoin de plus d'explication pas de prob.

dans le ruban il y a des petits des moyens des grands icônes mais bizarrement l'outil fourni ne fait que des petits icones comme faire pour d'autre taille

tu es tombé sur le mauvais forum pas de warez ici

une nouvelle version de captopo jai simplifié la codification, c'etait incomprehensible je crois qu'il y avait que moi pour comprendre j"ai mis un exemple de fichier codé dwg avec des explications bon courage [Edité le 20/1/2009 par capde06]

ul ptit lisp vite fait pour ton problème (defun c:pttext () (command "scu" "g") (setq seltxt (ssget '((0 . "TEXT")))) (setq x 0) (repeat (sslength seltxt) (setq ent (ssname seltxt x)) (setq pt (cdr (assoc 10 (entget ent)))) (command "point" pt) (setq x (+ x 1)) ) )

si tu veux un nombre précis de bloc commande DIVISER choix B pour blocs

ho la je n'ai pas fait d'aide sur la codification ca va pas etre simple je vais mis mettre je mattrai des exemples sur les prochaines versions

le problème est là le mieux est de créer un profil captopo dans les options d'autocad il te permettras de gérer plusieurs applications et recommence l’instal, avant supprime dans menu le captopo.cui il sera recrée commande CUI decharge le cui partiel « captopo.cui » bon courage