DenisHen

Effectivement ! ! ! Cette routine me fait gagner des heures ! ! !

Pfff.... Au temps pour moi... Un collègue avait attaché une XRef à ce fichier pendant que le programmais... Désolé... :(

Bonjour à la communauté. Voilà, j'ai écris un petit code qui insert un bloc puis le décompose... Le voici : (defun c:Axians_FDP (/) (setq old_osmd (getvar "osmode") old_abase (getvar "angbase") old_adir (getvar "angdir") old_aunits (getvar "aunits") old_cmdecho (getvar "cmdecho") old_AttDia (getvar "attdia") old_AttReq (getvar "attreq") old_layer (getvar "clayer") old_Insunits (getvar "insunits") ) ;_ Fin de setq (setvar "osmode" 1) (setvar "angbase" 0) (setvar "angdir" 0) (setvar "cmdecho" 0) (setvar "aunits" 2) (setvar "ATTDIA" 0) (setvar "ATTREQ" 0) (setvar "angbase" (/ pi 2)) (setvar "angdir" 1) (setvar "clayer" "0") (setvar "insunits" 4) (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O") (command "pdmode" "32") (command "pdsize" ".1") (command "PLINEGEN" "1") (command "-couleur" "ducalque") (command "filedia" "0") ;;;Insertion du DWG (setq app (vlax-get-acad-object) cdoc (vla-get-activedocument app) ) ;_ Fin de setq (vla-purgeall cdoc) (setq fichier (getfiled "Sélection du plan DWG issu de MicroStation" (strcat (vl-filename-directory (vla-get-fullname cdoc)) "/") "dwg" 4 ) ;_ Fin de getfiled ) ;_ Fin de setq (command "-inserer" fichier "0,0" "1" "1" "") (command "_explode" (entlast)) ) Mon problème est que l'insertion se fait bien, la décomposition aussi, mais ce même fichier se retrouve également en référence externe...? Si quelqu'un a une astuce ou une idée, je suis preneur... Denis...

Bonjour Bonuscad... Effectivement, si je ne le fais pas correctement... Merci beaucoup...

Bonjour à la communauté. Voilà, j'essai de charger différents type de ligne depuis un petit bout de code, mais ça ne fonctionne pas, le voici : (defun c:AxiansTest () (setq LstTypLign '("LD_PALPLAN" "LD_AXE" "LD_PERRE" "EtPaTaTi" "EtPaTaTa") ) ) ;_ Fin de setq (foreach PosLst LstTypLign (if (not (tblsearch "LTYPE" PosLst)) (vl-cmdf "_-LINETYPE" "LOAD" PosLst "Axians.lin" "") ) ;_ Fin de if ) ;_ Fin de foreach ) ;_ Fin de defun AutoCAD me répond : Autant de fois que j'ai de type de ligne à télécharger... Sachant que mon fichier Axians.lin est dans un répertoire de recherche d'AutoCAD. Si quelqu'un a une astuce ou un conseil, je suis preneur... Denis...

Curieux... Même après un redémarrage ? Dans le doute, reboot... Si non, je ne vois pas... Désolé...

Bonjour, Je viens de télécharger Stealv1.8.lsp et l'ai chargé... "Steal" fonctionne bien et me propose de choisir un fichier... A la ligne de commande, en tapant STEA AutoCAD te propose-t-il la commande complète ? Denis...

Bonjour Olivier. Et mille mercis... Ça fonctionne nickel. Denis...

Bonjour à tous. (gile), je ne comprend pas trop, j'ai testé le premier code (celui qui m'intéresse le plus, mais lorsque je choisi mes polylignes et AutoCAD me répond (J'ai renommé la commande, c'est maintenant CotLongPoly) : Je joins à ce poste un exemple de fichier. Merci encore pour votre aide. Denis...

Salut (gile) Et merci pour tous ces codes ! ! ! C'est vraiment top... Denis...

Bonjour Tramber, et merci de me répondre. Mon problème est que j'ai, juste pour ce dessin, une suite de 162 polylignes. Je me vois mal positionner les 162 champs à la main... J'étais sûr qu'une routine existait. Et je ne vois pas comment programmer ça. Peut-être qu'en m'inspirant de "TotalPerim" de (gile) pour me coller un gros texte au milieu des polylignes En tous cas, merci...

Bonjour à la communauté. Voilà, je pense l'avoir déjà croisé, mais je ne la retrouve plus. Il s'agit d'une routine qui cote les polylignes et écrit sa longueur le long de celle-ci ou au centre. J'ai plusieurs polylignes qui se suivent sur 11km, j'aimerais écrire leurs différentes longueurs au milieu... Si quelqu'un l'a ou sait où elle se trouve, ça m'aiderait beaucoup... Denis...

Effectivement, je peux aller jusque là. Mais j'utilise "Automatique" une fois sur deux, alors que les deux autres, c'est tantôt l'une, tantôt l'autre. Et j'ai ajouté d'autres options : (setq def "Automatiquement") (initget "Automatiquement Manuellement Gauche Droit Non") (or (setq OptionIns (getkword (strcat "Placement des textes [Automatiquement/Manuellement/Gauche/Droit/Non] <" def "> : " ) ;_ Fin de strcat ) ;_ Fin de getkword ) ;_ Fin de setq (setq OptionIns def) ) ;_ Fin de or Mais je le saurais pour la prochaine fois. Et merci encore...

Bonjour Christian, Merci pour cette réponse, Mais peut-on enregistrer la rotation du réticule (SnapAng) avec le SCU ?

Salut, Et merci pour l'info...

Salut Patrick_35. C'est génial, ça fonctionne parfaitement ! ! Denis...

Bonjour à la communauté. Voilà, j'ai fais un code de 250 lignes, raison pour laquelle je ne le poste pas, mais dans celui-ci, j'ai une question posée à l'utilisateur : (initget 1 "A M N") (setq OptionIns (getkword "Placement des textes Automatiquement Manuellement Non [A/M/N] :")) Tout fonctionne parfaitement, mais j'aimerais ajouter une réponse par défaut si l'utilisateur ne répond rien, juste un [ENTRER] au clavier ou à la souris qui serait "Automatiquement", que ça donne ceci à peu près : Si quelqu'un a un conseil ou une astuce, je suis preneur... Denis...

Pourtant, sur le site de Géomédia, Est-ce que leur site est à jour ?

Bonjour à la communauté. Voilà, pour faciliter la navigation d'un dessin avec des carroyages dans tous les sens, j'ai créé des vue pour chacun d'entre eux. Le problème est que les différentes rotations du curseur (variable SNAPANG) n'est jamais enregistrée avec ces vues. Si quelqu'un a la solution, une astuce ou un conseil, je suis preneur. Denis...

Zut... J'ai raté cette étape... Merci encore à tous... Ça fonctionne nickel ! !

bonjour à tous... LeCrabe : ben oui, et je ne suis pas le seul, La Lozère a le même problème... Olivier : "3.Extrudes ton cercle le long de ta poly3D : Cov3D / Volet Paysager / Extrusion le long d'un chemin." Je sélectionne le cercle et Covadis me dit "Choix des objets: 0 trouvé(s), 0 au total"... Tramber : Oui, c'est curieux... En tous cas, merci à vous tous pour votre aide... EDIT : J'ai réussi à faire mes "tunnels" avec la commande "Balayage", mais je n'arrive pas à les "teindre"...

GRRR ! ! ! Grosse galère ce truc... Bon, j'ai réussi à faire mon tunnel... Mais commentle "remplir" pour le laisser apparaitre que les section de l'autre polyligne 3D qui sortiront du tunnel ? Comme-ça, avec une vue 3D dynamique, je pourrais m'en sortir... En tous cas, merci pour votre aide...

Merci La Lozère pour cette astuce. J'ai donc créé un onglet "AutoCAD-3D" avec tout ce qu'il y avait de 3D dans les rubans... Mais je n'arrive même pas à dessiner un cercle axé à mon axe de tunnel... GRRRR ! ! ! !

Merci x_all pour cette réponse, Dans mon AutoCAD 2014 MAP 3D, je n'ai pas l'espace de travail modélisation 3d, je ne trouve que : - Map Classique, - Planification et analyse, - Maintenance - Dessin 2D. Je poste le fichier pour vous montrer ce que j'ai... La polyligne rouge est l'axe du tunnel... C'est une demande ponctuelle et unique... Mais je n'y arrive pas... Merci, Denis...

Bonjours à tous, Voilà, j'ai un petit souci, Mon collègue me donne un fichier avec deux polylignes 3D. Avec la première, je dois faire un "tunnel" de 50cm de rayon afin de "voir" si la deuxième polyligne sort du "tunnel" ou reste à l'intérieur. Mon problème est que je suis très "light" en 3D et qu'en plus, je ne trouve aucun menu en 3D. Si quelqu'un a une astuce ou un conseil, je suis preneur. Denis...