stugeol

bonjour, J'ai déjà tester avec battman, mais je pers les valeurs des attribut ALTITUDE, ALTITUDE deviens ALT mais n'est pas renseigné. Le fichier est un peut gros. (16 Mo) Voici le liens : Mon lien

Bonjour, Je me trouve face à un problème. Je viens de récuperer un plan topographique, les points topographiques sont représentés par un bloc PTOPO. Le bloc PTOPO comprends deux atribut : ALT et MAT. Le problème est le suivant : dans l'editeur de bloc les atributs sont ALT et MAT.dans la fenêtre de propriètées selon les blocs PTOPO j'ai comme attributs ALT et MAT ou ALTITUDE et MATComment est-il posible qu'un bloc portant le même nom puisse avoir des attribut différent? Comment peut-on attribuer le même nom d'attribut au bloc sans perdre la valeurs de l'attribut? Cordialement.

Bonjour, Peux tu mettre le code des scripts que tu as trouvé, afin que l'on puisse te proposer une modificaton. Cordialement.

Bonjour, Je suis à la recherche d'une routine pour sélectionner un type de ligne, ou d'une commande pour ouvrir la boite de dialogue Gestionnaire des types de ligne, et récupérer le type de ligne sélectionné afin de l'affecté à un objet. Cordialement. Rq : vla-get-Linetypes me permet d'accéder à la collection des types de lignes existant.

Je te remercie alala pour cette routine et le liens trèsintéressant. Cordialement.

Bonjour, Essayezd'aller dans espace de travail, personnaliser. Développezdans l’arbre Bouton de la souris,MAj+Clic en bouton2 tu dois avoir la macro :$P0=SNAP $p0=* Si c'est ok, je ne voie pas...

Jesuis à la recherche d'une routine lisp pour sélectionner un calque parmi laliste de calques existant, et qui me retourne le nom du calque sélectionné. Cordialement.

Bon voilà pour finaliser j'ai trouvé un lisp de Gille qui permet d'afficher temporairement la direction d'une polyligne. En modifiant sommairement ce lisp et en l'intégrant j'obtient une fonction qui m'affiche le sens de la polyligne avant de saisir la largeur de la bordure. Une largeur positive décale vers la droite dans le sens de construction de la polyligne. Une largeur négative décale vers la gauche. Merci de votre aide. Cordialement. (defun c:DecBord (/ ent ent1 o o1 o2 largeur_bordure Layer_symb pt_decal) (or (vl-load-com)) (defun senspoly (selection / selection ent n pt pt0 pt1 ang dis) (vl-load-com) (setq dis (/ (getvar "viewsize") 50)) (repeat (setq n (fix (vlax-curve-getEndParam selection))) (setq pt (trans (vlax-curve-getPointAtParam selection (- n 0.5)) 0 1) pt0 (trans (vlax-curve-getPointAtParam selection n) 0 1) pt1 (trans (vlax-curve-getPointAtParam selection (1- n)) 0 1) ang (angle pt0 pt1) n (1- n) ) (grvecs (list 1 pt (polar pt (- ang (/ pi 6)) dis) 1 pt (polar pt (+ ang (/ pi 6)) dis) ) ) ) (princ) ) (if (setq ent (entsel)) (progn (setq ent1 (car ent)) (senspoly (car ent)) (setq Layer_symb (getstring "Nom du calque de la symbologie :")) (setq largeur_bordure (getdist "\nLargeur de la bordure: ")) (setq o (vlax-ename->vla-object (car ent))) (setq o1 (vlax-invoke o 'Offset (/ largeur_bordure 2.0))) (command "_CHPROP" "_Last" "" "_Layer" Layer_Symb "") (command "_CHPROP" "_Last" "" "_Ltype" "Bylayer" "") (command "_PEDIT" "_Last" "LA" (abs (- largeur_bordure (* 2 (/ largeur_bordure 10.0)))) "") (setq o2 (vlax-invoke o 'Offset largeur_bordure)) (command "_CHPROP" "_Last" "" "_Layer" Layer_Symb "") (command "_CHPROP" "_Last" "" "_Ltype" "continuous" "") ) ) (princ) )

bonjour philsogood, je ne connais pas le lisp de vincent as tu un lien? voici le liens de mes sources : http://forums.augi.com/showthread.php?70440-Automatic-offset-of-drawn-line Je viens de modifier un second code: (defun c:DecBord (/ ent o o1 o2 largeur_bordure Layer_symb) (or (vl-load-com)) (if (setq ent (entsel)) (progn (setq Layer_symb (getstring "Nom du calque de la symbologie :")) (setq largeur_bordure (getdist "\nLargeur de la bordure: ")) (setq o (vlax-ename->vla-object (car ent))) (setq o1 (vlax-invoke o 'Offset (/ largeur_bordure 2.0))) (command "_CHPROP" "_Last" "" "_Layer" Layer_Symb "") (command "_CHPROP" "_Last" "" "_Ltype" "Bylayer" "") (command "_PEDIT" "_Last" "LA" (abs (- largeur_bordure (* 2 (/ largeur_bordure 10.0)))) "") (setq o2 (vlax-invoke o 'Offset largeur_bordure)) (command "_CHPROP" "_Last" "" "_Layer" Layer_Symb "") (command "_CHPROP" "_Last" "" "_Ltype" "continuous" "") ) ) (princ) ) Dans ce code ci quel sont les modification à apporter pour sélectionner le coté du décalage des polylignes?

Voici une solution : ;; Merci à gille pour sa routine de base ;; Cette routines permet de dessinner une polyligne ;; cette polyligne est décalée d'une demi largeur de bnordure et d'une largeur de bordure ;; La polyligne centrale prend pour largeur lka largeur de la bordure moins 2 dixiéme de l'épaisseur de la bordure ;; Une largeur positif décale les ligne vers la droite, dans le sens de constgruction de la polyligne ;; Une largeur négative décale les ligne vers la gauche, dans le sens de constgruction de la polyligne ;; Stugeol (defun c:DrawBord (/ *error* special_offset largeur_bordure Layer_symb) (defun *error* (msg) (if (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (if file (close file) ) (princ) ) (defun special_offset (pl largeur_bordure / o1 o2) (vl-load-com) (setq pl (vlax-ename->vla-object pl)) (setq o1 (car (vlax-invoke pl 'Offset (/ largeur_bordure 2.0)))) (command "_CHPROP" "_Last" "" "_Layer" Layer_Symb "") (command "_CHPROP" "_Last" "" "_Ltype" "Bylayer" "") (command "_PEDIT" "_Last" "LA" (- largeur_bordure (* 2 (/ largeur_bordure 10.0))) "") (setq o2 (car (vlax-invoke pl 'Offset largeur_bordure))) (command "_CHPROP" "_Last" "" "_Layer" Layer_Symb "") (command "_CHPROP" "_Last" "" "_Ltype" "continuous" "") ) (and (vl-cmdf "_.pline") (while (/= 0 (getvar "CMDACTIVE")) (vl-cmdf pause) ) (setq Layer_symb (getstring "Nom du calque de la symbologie :")) (setq largeur_bordure (getdist "\nLargeur de la bordure: ")) (special_offset (entlast) largeur_bordure) ) (princ) ) Je ne suis pas sur que le traitement des erreur que j'ai ajouté fonctionne. Je suis ouvert à toutes proposition d'améliorations. Bonne fin de journée à tous...

Je vous remercie, en effet je suis en train de faire un lisp pour résoudre le problème. En cherchant sur le net j'ai trouvé un code que je suis en train d'adapter. Je poste le début d'une solution dans quelques temps. Cordialement.

Bonjour, êtes vous allez dans le menu option (op), onglet préference utilisateur signification du clic droit?

Pour représenter des bordures je dois décaler une polyligne représentantle fil d’eau de la bordure. Pour une bordure T2 par exemple : décaler le fil d’eau de 0.075Affecter le type de ligne Bor025à la dernière polyligne crééemettre la largeur de la dernière polyligne à 0.13décaler la dernière polyligne de 0.075 J’ai voulu utiliser une action. Je me trouve face au problème suivant : la commande décaler n’accepte pas D (ou _last) pour sélectionnerle dernier objet créé. Le message explicit s’affiche : Attend un point ou Quitter. Auriez-vous une solution pour décaler le dernier objet crée ou sélectionné ? Auriez-vous une solution pour récupérer le point de la dernière polyligne sélectionnée ou créée ? Cordialement.

Bonjour speedy, Pour dupliquer des objets dans un autres calques sans les effacer j'utilise la commande : _copytolayer ou bien la macro suivante : *^C^C(if (not c:egiscopxref)(load "egiscopxref"));egiscopxref; où egiscopxref est le fichier lisp suivant : (Defun C:EgisCopXref () (setq test1 0) (While (> -1 text1) (command "NCOPY" pause "" "0,0,0" "") (command "_laycur" "D" "") (if (= (getvar "CECOLOR") "BYLAYER") (command "_chprop" "D" "" "CO" "DUCALQUE" "") (command "_chprop" "D" "" "CO" (read (getvar "CECOLOR")) "") ) (princ) ) ) Attention : - ne pas oublier d'indiquer dans chemin de recherche de fichiers de support, l'mplacement du répertoir où se trouve le lisp. - je me suis appercue la semaine dernière que : (command "NCOPY" pause "" "0,0,0" "") pause problème sous Autocad 2011. Cordialement.

Merci gile pour pour tes explications Cordialement.

Bonjour Gile, J'ai déjà testé avec (command (C:NCOPY) pause "" "0,0" "") dans ce cas ca ncopy se lance normalement mais je ne peut pas faire de saisie automatique. Je dois tout renseigner. Je perds tout l'intéret de : pause "" 0,0" "". Comment ce fait-il que : (command "NCOPY" pause "" "0,0" "") fonctionne trés bien sous Map3D ou Civil 3D et pas sous Autocad? Cordialement.

Bonjour Didier et Lecrab, Les expresse doivent être bien installé car quand je tappe la commande NCOPY, pas de problème. Je suis repassé sur un poste avec civil 3D et (command "NCOPY" pause "" "0,0" "") ne pose pas problème, j'ai le problème qu'avec Autocad 2011. Je tenterais avec (command "_NCOPY" pause "" "0,0" "") sur un poste avec Autocad. Cordialement.

Bonjour, Voici la ligne qui me pose problème : (command "NCOPY" pause "" "0,0" "") J'ai le message d'erreur command NCOPY inconnue. or dans la ligne de commande, NCOPY s'execute sans problème. Sous autocad civil 3D 2011 pas de souci, cela fonctionnait bien, sous autocad 2011 erreur. Une variable système, ou une option non cochée. je ne comprend pas...

Il me semble qu'autocad ouvre toujours un desin viérge par défaut. Cordialement.

Je vous remercie, J'étais partie sur la piste de commande Vports, mais en beaucoup plus simple, je n'ai pas encore ton niveau Bryce. Ca viendra un jour. Mais je conse toujours sur le mode off. Bon je reprendrais tous ça à tête reposer. Merci à vous. cordialement.

Bonuscad, j'ai tenté avec 0 et -1, l'erreur était la même. Patrick_35, je te remercie pour les informations. Mais j'ai deux questions : Comment ce fait-il que ca fonctionne avec : (vla-put-viewporton ent :vlax-true) Cordialement.

je suis sur la version 2011.

Bon un petit problème : (defun c:VPAllOff () (vl-load-com) (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object) ) ) (if (eq :vlax-false (vla-get-modeltype lay)) (vlax-for ent (vla-get-block lay) ; for each ent in layout (if (= (vla-get-objectname ent) "AcDbViewport") (progn (vla-put-viewportOn ent :vlax-false) ) ) ) ) ) ) lors de l'execution de ce code j'ai le message d'erreur suivant : erreur: Erreur Automation Non valable alors que VPAllOn ou j'ai : (vla-put-viewportOn ent :vlax-true) a la place de (vla-put-viewportOn ent :vlax-false) fonctionne trés bien. d'où vien le problème?

Merci bonuscad. Petit a petit j'avance. Cordialement.

Je vous remercie pour vos remarques. L'automatisation doit être compliquer, et ne vaut peut être pas la peine pour huit opérations. Cordialement.