stugeol

Bonjour, Sur notre serveur se trouve un Lisp (Surement récupérer sur le net) qui permet de discrétiser les arcs en lignes. Je remercie l'auteur de ce code si il passe par là. Cette fonction ARC2LINE discrétise tous les arcs du dessin. Est-il possible de modifier ce code pour discrétiser que les arc sélectionnés. Je vous remercie par avance. Cordialement. <BR>(defun C:ARC2LINE ( / js n ent dxf_ent obj_vlax pt_start pt_end res_track flag_ucs last_e old_osmd old_pdmd l_pt)<BR> (setq js (ssget "_X" '((-4 . "<OR") (0 . "ARC") (0 . "CIRCLE") (-4 . "OR>"))) n 0)<BR> (cond<BR> (js<BR> (setq<BR> old_osmd (getvar "osmode")<BR> old_pdmd (getvar "pdmode")<BR> )<BR> (setvar "osmode" 0)<BR> (setvar "pdmode" 1)<BR> (setvar "cmdecho" 0)<BR> (initget 7)<BR> (setq res_track (getdist "\nPas de résolution: "))<BR> (vl-load-com)<BR> (while (setq ent (ssname js n))<BR> (setq<BR> obj_vlax (vlax-ename->vla-object ent)<BR> pt_start (vlax-curve-getStartPoint obj_vlax)<BR> pt_end (vlax-curve-getEndPoint obj_vlax)<BR> )<BR> (setq last_e (entlast))<BR> (setq l_pt (cons (trans pt_end 0 1) '()))<BR> (command "_.measure" ent res_track)<BR> (while<BR> (and<BR> (= (cdr (assoc 0 (setq dxf_ent (entget (entlast))))) "POINT")<BR> (not (equal (entlast) last_e))<BR> )<BR> (setq l_pt (cons (trans (cdr (assoc 10 dxf_ent)) 0 1) l_pt))<BR> (entdel (entlast))<BR> )<BR> (command "_.line" (mapcar 'command (cons (trans pt_start 0 1) l_pt)))<BR> (entdel ent)<BR> (setq n (1+ n))<BR> )<BR> (setvar "osmode" old_osmd)<BR> (setvar "pdmode" old_pdmd)<BR> (setvar "cmdecho" 1)<BR> (princ (strcat "\n" (itoa n) " Cercles ou Arcs convertis en Ligne"))<BR> )<BR> (T (princ "\nAucun Arc ou Cercle trouvé!"))<BR> )<BR> (prin1)<BR>)<BR>(princ "\nARC2LINE.LSP chargé. Tapez ARC2LINE pour convertir un ARC en segment de LIGNE.")<BR>(prin1)<BR>

Bonjour FormaBois, En regardant dans l'aide d'Autocad je n'ai riens trouver d'explicite. Des recherche sur le net me donne ceci pour des fonctions trigonométriques : Sinus : SIN cosinus : COS Tangente : TAN Arctangente : ATAN Arcsinus : ASIN Arccosinus : ACOS Je suis donc à la recherche d'une liste des fonctions mathématiques...

Bonjour, Je fais un bloc dynamique où des contraintes dimensionnelles sont fonction d'autre contraintes utilisateur. je suis à la recherche de la liste des fonctions mathématiques que l'on peut rentré dans les formules de contraintes. Par exemple TAN pour tangente. Je vous remercie par avance. Cordialement.

Je te remercie Fraid, :) Cordialement.

Bonjour, J'ai créer une macro en lisp dans la ligne de commande pour insérer des blocs : (Defun C:ImpRegVis () ("MESURER" pause "_Block" "REgVis" "80")) peut-on faire en sorte de réaficher le code de la fonction ImpRegVis dans la ligne de commande pour modifier le nom du bloc et la distance? Peut-on accéder au code de la fonction dans l'éditeur de Lisp? Si oui comment? Je vous remercie par avance de votre aide. cordialement.

J'affiche les rubans au besoin. Sinon, un petit nettoyage d'écran (CLENSCREENon) Eh! Hop j'ai toute la place. Je place les palette Propriètès, Xref, Gestionnaire de calques sur le 2nd écran. Je travail quasiment qu'avec des raccourcis clavier (J'ai appris utiliser autocad avec un ancien...) Voili, voilou....

Je vous remercie, celà fonctionne à merveille. J'ai pousser un peut plus loin : Voici le resultat un lisp qui qui permet de copier des éléments des xref dans le calque actif avec la couleur par défaut:, la commande NCOPY est une commande expres tools : (Defun C:CopXref () (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")) "") ) 'End if (princ) ) 'end while ) 'End func Merci à tous de m'avoir mis sur les rails. Bonne fin de journée. Cordialement.

Je vous remercie, c'est bien la variable rechercher. Maintenant comment passer la valeur de cette variable à la commande -couleur par exemple? !CECOLOR me retourne nil.

Bonjour, Dans le cadre du dévelopement d'une macro j'aimerais récupérer la valeur de la variable couleur par défaut. Quan je lance la commande: -Couleur j'obtient : Entrez la couleur par défaut de l'objet [coUleursvraie.Carnet de couleurs <255> : La couleur par défaut est enregistrée. Le but est de faire une macro du type : ^^C_chprop D Co xxx, où xxx permet de récuperer la valeurs de la couleur par défaut dans cet exemple 255. Je vous remercie par avance. Cordialement.

Je vous remercie pour vos pistes Ayant Illustrator au sein du groupe ouvrir les PDF avec illustrator et les exporter en DWG fonctionne bien pour mes besoins.

Bonjour, On a eu le même problème avec les ordres de tracé. Il suffit de retrouver les fichiers acad2013doc.lsp et ai-utils.lsp, et d'ajouter le chemin d'accés dans options, fichier, chemin de recherche de fichier support.

Bonjour, Voila je dois une fois de plus faire des métrés de voirie. Je n'ai pas moyen de récuperer les fichier autocad je ne dispose que de fichiers PDF (vectoriel). Actuellement j'attache les fichiers PDF que je recale et je redessine les contours. Aurriez vous une astuce (Une commande, une routines, un logiciel...) pour convertir les fichiers PDF en DWG, afin que je puisse récuperer les contours. Je vous remercie par avance. Cordialement. P.S. : Je travail avec Autocad Civil 3D 2011

Je vous remercie, Je vais étudié ça de plus prés... Cordialement.

Bonjour, Si la valeurs du type de ligne du calque 0 est "Type1", et qu'un objet du calque 0 a comme valeurs de type de ligne "DuCalque", la valeurs exporté est "DuCalque". Je suis à le recherche d'une routine qui remplace la valeur du type de ligne de l'objet ("DuCalque"), par la valeur du type de ligne du calque ("Type1"). Le but est de ne plus avoir de valeur "DuCalque" pour le type de ligne lors de l'extraction de données. Voici comment je compte exploité cette routine : 1) Séléction des objets qui ont pour type de ligne DuCalque 2) Exécution de la routine 3) extraction des données Je vous remercie par avance de votre aide. Cordialement.

Bonjour, Un petit souci. Je crée un bloc PtsProj avec un attribut Alt. Par défaut l'attribut Alt est le Z insertion. Je créer un dessin AltVoie ou j'insére les blocs PtsProj. Jusque là pas de problème, les valeur de l'attribut Alt sont correctes. Ensuite je crée un dessin d'edition EditionProjet dans lequel j'insére la Xref AltVoie en 0,0,0, et là, tous mes attributs Alt ont la valeurs 0 dans le dessin EditionProjet. Comment faire pour que la valeurs des attributs Alt soient celle de AltVoie... Pour mieux Comprendre : -> pour dans Champ(Z insertion) -> Bloc(PtsProj)->Dessin(AltVoie)->Dessin(EditionProjet)

bonjour, en ce qui me concerne, quand j'utilise l'extraction de données, j'exporte au format csv. Sous excel j'importe un fichier texte, je selectionne mon fichier csv, avec comme séparateur de colonne "," et séparateur décimal "." et le tour est joué. Cordialement

Je te remercie Laurent pour cette vidéo, elle va me permettre de gagner du temps. cordialement.

Dans ton cas : Ttu va generer les plateformes avec ton profil type sans le fossé en remblais, tu va générer une polyligne 3D correspondant au points d'intersection entre le TN et le talus de remblaisde ta chaussée.(1er ligne 3D) Avec un profil type fossé, et l'axe du fossé tu génére la plateforme fossé, un point codé te permet d'avoir La génération du fossé en remblais va permetre de tester la profondeur et de caler l'axe en fonction de tes contraintes. Une fois l'axe calé tu regenere la plateforme fossé, pour récupérer la ligne 3D du bord de fossé. Enfin dans ton P. Type de chaussé tu code un point bord de fossé pour le fossé en remblais, et tu attache ce point à la ligne 3D du fossé. Tu relance la génération de l'axe de la voirie et tu obtiens le tout. C'est un peut laborieux, mais sous mensura je ne connais pas de méthode pour fixer des condition à l'axe...

Bonjour, Moi dans ce cas : Je génére la chaussée avec un PType, ce qui me donne les entrées en terre (Ligne 3D) Je génére le fossé avec un PType, j'ajuste l'axe en plan du fossé en fonction des contraintes, une foi la tache accomplie je récupére mon axe en 3D Je crée des points type sur le profil type de la chaussée + fossé. J'attache les 2 lignes 3D générées dans les 2 premières étapes, et hop c'est parti.... Il existe peut être une meilleur méthode... Cordialement.

Bonjour, Dans fichier-> Publier->Option de publication->OptionPDF/DWF, le type est bien sur fichier à 1 feuille?

Merci Maxence pour tes infos.

Avec excel sans programmation. Tu tries tes données par exemple selon le nom de calque, et selon les épaissseurs de lignes. Tu utilise l'outils Grouper dans données. Là tu obtiens les sous totaux qui est la somme des longueur par exemple des polyligne de même épaisseur selon les calques.

Bonjour, De ci de là on nous annonce la fin du VBA sous autocad.:( Des questions me trottes dans la tête. Sous excel, les routines sont écrite en VBA, et j'utilse des routines pour l'extraction de données à partir d'autocad et leurs mise en forme. Serra-t-il toujours possible d'utiliser ces routines? Je commence à regarder autour... Le .net serrais le nouvel horizon pour programmer des routines sous autocad. Est-il aussi possible de créer des macro sous excel en .net et de les lancer simplement? L'utilisation du .net n'obligera-t-il pas à mettre à jour le code à chaque nouvelle mise à jour, les .net framwork sont-il compatible entre eux? A part le .net et vlisp existe-t-il d'autre altérnative? Ayant l'habitude de programmer en VBA sous Excel, vau-il mieux utiliser le vb.net , ou tous remettre à plas et apprendre la syntaxe du C et C# pour utiliser C#.net? Voilà de nombreuse question avant de se lancer dans l'apprentissage d'un nouveau langage, qui peut être fastidieu pour un amateur. Je vous remercie par avance de vos réponse et de vos conseils. Cordialement.

Bonjour, Je travail en BE en tant que projeteur. J'ai appris à me servir de Civil 3D avec de nombreux tutoriels qui ne valent pas une bonne formation. Des amis travaillant à la concurence sont passé sous civil 3D, après une semmaine de formation ils étaient capable de monter un projet. Au début ils étaient rétissant, mais aprés adaptation ils sont ravi et gagne du temps. Je travail sous Mensura, et j'avoue, bien que la direction nous interdise d'utiliser civil 3D, pour rendre des AVP rapidement j'utilise civil 3D qui me permet de gerer les multis axes. Je dirais qu'avec civil 3D on fais ce que l'on veut. Attention tous de même, quand on commence un projet avec civil 3D, l'organisation est de rigueure. La mise en place d'un bon modéle s'impose. Il faut bien structurer sons fichier si l'on ne veut pas obtenir une usine à gaz rapidement. Une bonne chartre graphique et une bonne gestion des fichiers s'impose. Pour ma part le gros plus de Civil 3D par rapport à menssura c'est que l'on peut diviser les taches. Une équipe peut travailler sur la topo, une autre sur le foncier, une sur la voirie, unel'hydrolique, l'assainnissement etc... avec une mise à jours automatique du projet final (Principe des xref sous Autocad). Maintennant avec le Sub assembly composeur, créer des profils type deviens "un jeux d'enfants". La version 2013 propose des paramètres pour la construction de voies férrées (Partie que je ne connais pas du tout), et des paramétre pour la mise en place de réseaux AEP. Si vous avez l'occasion de vous rapprocher de sociètées ayant migrè vers Civil 3D, elles pourrons peut être vous éclairer.... Cordialement.

Dans une macro faite par l'enregistrment d'action, je ne pense pas que cela soit possible. Essait de faire une macro classique avec la comande _close pour fermer le fichier. Cordialement.