DenisHen

Salut à la communauté. Il y a aussi BabaCAD, compatible, selon le site officiel, avec Lisp, C#, VB, .NET. Mais il n'y a pas de version française, me semble t'il. Bonne journée...

Bonjour Luna. Merci pour ces précisions, elles me servirons certainement... ;) Amicalement. Denis.

En fait, il faut introduire un (lambda dans la formule... Ce qui donne : (setq ListBlk (mapcar '(lambda (ListFich) (substr ListFich 1 (- (strlen ListFich) 4))) ListFich)) Bonne journée à tous...

Bonjour à toutes et à tous. Aujourd'hui, je me lance avec un mapcar pour traiter tout les éléments d'une liste. Cette liste contient des nom de fichier, évidement, ces éléments ont leur nom complet, avec l’extension. J'aimerais supprimer cette extension. Pour ce faire, j'ai écris ça, qui ne fonctionne pas. (setq ListBlk (mapcar (substr ListFich 1 (- (strlen ListFich) 4)) ListFich)) C'est la deuxième fois que j'essai d'utiliser mapcar, mais cette fonction reste très complexe pour moi. Si quelqu'un a une astuce, un conseil, je suis preneur...

Salut. Je n'ai pas besoin de "MTEXT" en fait, je ne sélectionne que des "TEXT". Mais je ne vois pas la question qu'attend Maître didier... ;)

Salut didier. Oui, j'ai continué de chercher après avoir poster. Merci pour ta suggestion. Bonne journée. Denis...

j'ai trouvé, c'est le (= (cdr (assoc 0 (entget tex))) "TEXT,MTEXT") je l'ai remplacé par (= (cdr (assoc 0 (entget tex))) "TEXT")

Bonjour à tous. J'ai fais "évoluer" le programme ainsi, mais ça boucle sur la sélection de l'altitude. (defun c:Alti2Blk (/ blo tex) (princ "\nDéveloppé par Denis H. (vers:1.1)") (while (not (and (setq tex (car (entsel "\nSélectionnez l'altitude :"))) (= (cdr (assoc 0 (entget tex))) "TEXT,MTEXT") ) ;_ Fin de and ) ;_ Fin de not ) ;_ Fin de while (while (not (and (setq blo (car (entsel "\nSélectionnez le bloc : "))) (= (cdr (assoc 0 (entget blo))) "INSERT") ) ;_ Fin de and ) ;_ Fin de not ) ;_ Fin de while (entmod (subst (cons 10 (list (car (cdr (assoc 10 (entget blo)))) (cadr (cdr (assoc 10 (entget blo)))) (atof (cdr (assoc 1 (entget tex)))) ) ;_ Fin de list ) ;_ Fin de cons (assoc 10 (entget blo)) (entget blo) ) ;_ Fin de subst ) ;_ Fin de entmod )

Coucou. Mille mercis didier... ;) Denis...

Salut à tous. Oui, ça faisait un bail, mais j'ai changé de boulo et je travaille maintenant à 95% du temps sur Mensura... Merci Olivier pour le "atof", effectivement, je m'étais trompé... Merci didier, ça fonctionne parfaitement... Encore merci à vous... Denis...

Bonjour au forum. Je cherche aujourd'hui à changer l'altitude d'un bloc en sélectionnant un TEXT. J'ai écrit ça, mais si je suis ici, c'est que ça ne fonctionne pas... ;;; ******************************************************* ;;; Reporte le Z d'un bloc selon un texte sélectionné ;;; ******************************************************* (defun c:ZBloc-Texte (/) (princ "\nDéveloppé par Denis H. (vers:1.0)") (setq Txt_Select (car (entsel "\nSélectionnez le texte :"))) (setq Alti (cdr (assoc 1 (entget Txt_Select)))) (setq Bloc_Select (car (entsel "\nSélectionnez le bloc :"))) (setq Bloc_Select (entget Bloc_Select))) (setq Coord (cdr (assoc 10 (entget Bloc_Select)))) (princ "\nCoord=") (print Coord) (setq Pos_X (car Coord)) (setq Pos_Y (cadr Coord)) (setq Pos_Z (rtos Coord 2 2)) (setq Coord_Blk '(Pos_X Pos_Y (atoi Alti))) (princ "\nCoord_blk=") (print Coord_blk) (setq Bloc_Select (subst (cons 10 Coord_Blk) (assoc 10 Bloc_Select) Bloc_Select)) (entmod Bloc_Select) ) ;_ Fin de defun Je suis sur deux projets en même temps et l'apprentissage de MENSURA me prend pas mal de temps...

Salut L56. Je ne pense pas qu'on puisse ouvrir un .CUI comme on peut le faire avec un .MNU. Ayant déjà fais ces recherches il y a quelques années, je n'ai rien trouvé, mais il faudrait peut-être reprendre ces recherches... Denis...

Salut à tous... Et il fait quoi au juste ton programme ? Car j'en ai fais un avec deux échelles "courantes"... Une pour un plan de situation et un pour un plan de détails... Et toutes les autres routines que j'ai développées s'y réfèrent...

Japonais(e) ?

Salut. Polylignes 3D ou avec élévation ?

Salut DemiXav. Oops, je n'ai plus Covadis là où je suis...

Bonjour à tous. Voilà, je travaille actuellement un projet de route avec un tas de panneaux de signalisation (travaux et finaux) mais je n'ai pas beaucoup de blocs de ces panneaux. Quelqu'un aurait-il ça sous le coude ? J'ai cherché sur le web mais je n'ai trouvé que des collections minimalistes ou des bibliothèques payantes... Bonne journée à tous...

Salut MNT... Mille mercis pour ce document, le le lis tout de suite... Denis...

Bonjour à tous. Merci pour vos réponses. Je vais déjà potasser YouTube et voir à quoi ça ressemble. Bonne journée à tous. Denis...

Salut narss. je te propose un fichier .lin contenant le descriptif d'un style de ligne avec "?" : *Réseau incertain,_?_______?_______?_______?________ A,0.05,-0.05,["?",Simplex,x=-.02,y=-0.05,s=.1],-0.075,0.6 Je l'utilise lorsque mes collègues détecteurs sont "indécis"... Bien à vous... Denis...

Bonjour à la communauté... Je vais changer d'emploi et je vais devoir passer sous Mensura... Je travaille depuis 1992 sur AutoCAD MAP. Quels seraient vos conseils pour "facilité" ce changement ? Sachant que je vais certainement suivre une formation Mensura... Bien à vous... Denis...

Salut. didier avait raison, mais l'aspirine est pour moi... ;)

Bonjour Patrick et merci pour ces informations. Je suis aussi présent sur le forum d'AutoDesk (où tu es très actif) et ai vu les 97 (si je me rappelle bien) suggestions de Christian. je ne voulais pas t’offenser dans mon message, juste préciser que depuis des années, une tonne de remarques abonde tous les jours sur les messageries des développeurs d'AutoDesk et les derniers changement ont été la couleur des icônes (et la suppression des licences perpétuelles). Nous avons le sentiment qu'AutoDesk cherche à ressembler à Micro$oft, des mises à jours fréquentes, mais pas réellement de nouveautés... Une version par année, je trouve que ça fait beaucoup... En tous cas, je te remercie, et je ne devrais pas être le seul, pour tous les efforts que tu déploie et de ton implication pour nous faire avancer vers un monde AutoDeskien plus efficace... Amicalement. Denis...

Salut, et merci du retour... J'irais peut-être ce week-end... Denis...

Bonjour Maitre "Grand Gourour" de CadXP.com... Je n'ai juste qu'une question à poser... AutoDesk a-t-il réellement une oreille à toutes nos remarques ? Je ne parlerais (en oubliant les miennes et celles de plein d'autre) que des justes revendications de Monsieur Christian REB (que nous soutenons, en tous cas par moi) et qui sont restées sans réponses. Car Christian est, et ce n'est pas volé, un Grand Maître des questions subtiles et essentielles posées depuis longtemps à AutoDesk... Sans réponse... Donc, ma question, comme celle de tant d'autre : sommes-nous bien entendu ? Nous fournir de beaux icônes à chaque nouvelle version... Est-ce vraiment une évolution désirée des utilisateurs ? Cordialement, Ô grand gourou... ;) Denis...