Tramber

Salut, Je pense vraiment qu'il te faut une version non LT pour aller chercher des valeurs telles. Sauf si tu les retrouves dans les CHAMP (sans S) catégorie objet et cliquer sur le bloc. Si la caractéristique ne se trouve pas dans les champs, il n'y a plus d'espoir avec LT. C'est mon avis si j'ai compris le sujet.

Je me suis amusé un peu et j'ai joué avec l'accrochage forcé EXTEnsion. Celui-là fonctionne et c'est bien 3D. On peut spécifier une longueur et créer facilement une corde dans la 3D. En utilisant cet accorchage, j'ai choisi ici d'implanter une corde à X du bout des arcs, et ce en 3D dans le SCG avec un arc bien défini dans un autre SCU.

ah ouais ? :( Entre nous de toutes façons, on sait se construire des macros. Il ne reste qu'un mystère : pourquoi en effet il manque des accrochages (perpendiculaire, perpendiculaires différé, proche, etc,...) uniquement sur les arcs et cercles.... ? faut demander à Autodesk...

Les amis ! Je maintiens : (defun c:didier (/ *error* osm pt) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat ("\Erreur: " msg))) ) (command "_.ucs" "_world") (setvar 'osmode osm) (princ) ) (setq osm (getvar 'osmode)) (setvar 'osmode 512) (command "_.ucs" "_object" pause) (while (setq pt (getpoint)) (princ (strcat "\n"(VL-PRINC-TO-STRING (trans pt 1 0)))) ) (*error* nil)) Fonctionne très bien. Y a pas de raison !

Il manque juste un (VL-PRINC-TO-STRING (trans pt 1 0)) au lieu de (trans pt 1 0) et ca marche bien ! Tu regardais les renseignements de la barre d'état. Si c'est là que tu cherches à les avoir, il faut glisser un MODEMACRO.... dans une boucle GRREAD. genre (setvar "modemacro" (VL-PRINC-TO-STRING (trans pt 1 0)) )

parce que les cercles aussi :) Ma vision intime est que ces entités ne sont définies que par des rayons et qu'il leur manquerait une sorte d'existence géométrique. A tester par curiosité sur une polyligne "oldstyle" Philosophie d'1 heure du mat' !

(gc) Extrait de l'aide. Libère la mémoire. Si elle n'était pas partie de ton install. Elle n'existerait pas sans defun ! D'ailleurs elle est bien en bleu dans ton éditeur, n'est-ce pas ?

Patrick_35 pour ce genre de problème. Comme par hasard B)

Prends ZWCAD à la maison. Tu apprendras tranquillement le lisp et changera d'employeur. Moi je ne signe pas pour une version LT :P D'ailleurs j'ai ma propre licence ;)

Et en entrant dans l'édition des Espaces de travail du CUI, trouves-tu des coches à activer pour tes menus ?

Ben oui Vincent. On a bien les dicos. Mais ma méthode est un peu plus pratique pour le dessin avec les CHAMPS... sechanbask ! Chez moi ca marche très bien ! Sinon bascule sur l'option des dicos. Vincent a rappelé les fonctions primaires.

Autant pour moi : (if (eq key k) et non (if (eq "fsdf" k) [c'était un test chez moi] Je modifie mon message.

trouvé ici Auteur __assume (defun getCustomDwgProp (key / app counter counter2 counter3 doc dwgprops k v) (vl-load-com) (setq App (vlax-Get-Acad-Object) Doc (vla-Get-ActiveDocument App) DwgProps (vla-Get-SummaryInfo Doc) counter 0 counter2 (vla-NumCustomInfo DwgProps) ) (while (< counter counter2) (vla-GetCustomByIndex DwgProps counter 'k 'v) (if (eq key k) (setq counter3 counter) ) (setq counter (+ 1 counter)) ) (setq k nil v nil ) (if counter3 (vla-GetCustomByIndex DwgProps counter3 'k 'v) ) (if v v nil ) )Marche bien. KEY est le titre de ta propriété.

Pourquoi ? Es-tu inscrit sur theswamp ? Il y a cela, par exemple, par ronjonp : (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-getcustombykey (list suminfo "Job No." "123") ) ) (vla-addcustominfo suminfo "Job No." "123") (vla-setcustombykey suminfo "Job No." "123") ) C'est pour écrire les DWGPROP custom, dont je parle. Il faut chercher plus loin pour les lire ! Je regarde 5 minutes.

En effet, on ne voit que les dictionnaires, sortes d'extensions du dessin. Ce fil va te donner des pistes. Mais il y a la commande PROPDESS, dernier onglet. On peut extraire ces données avec un CHAMP figurez-vous ! Et certainement aussi par programmation. Ne serait-ce pas plus simple que les dicos, solution parfaite au demeurant ?

A Fessenheim, les radiers des 2 réacteurs ont une épaisseur de 1,5m contre une dizaine au Japon... C'est moins la vetusté (qui se conteste tant on aurait fait d'efforts pour rénover cette installation) que le dimensionnement aux risques qui me chiffonne. J'ai conçu de la dalle béton pendant 1 an ici et, croyez-moi, le tableau des zones sismiques indiquait bien qu'il y a avait des précautions à prendre dans la vallée du Rhin. Un bon tremblement de terre centenal et quelques incidents de ci de là et c'est toute la vallée du Rhin qui sera contaminée. Vous connaissez la nappe phréatique dont je parle, si si, ici, vous creusez 2 mètres et vous touchez la plus importante d'Europe. d'Europe. Ah la joie de partager un peu avec les Allemands... une si belle quantité de risques. 1,5 m, c'est pas sérieux. Elle a juste été calculée pour le poids. brrrr

Non non, tu vaux plus que ça B)

Salut Wolfgang ! Dommage que je ne sois pas modérateur, j'aurais mis ton programme entre balises code. Et j'aurais aussi choisi l'éditeur complet et les options afin de désactiver les emoticones (écrire en lisp avec ces parenthèses crée des smiles dans ton message. C'est un problème de CADxp). (defun C:SA (/ *error* ) (defun *error*(msg) (princ "\nErreur de ton programme") (setvar "OSMODE" *OSMODE*) ) (setq *OSMODE*(getvar "OSMODE")) (setvar "OSMODE" 0) (setq a (getpoint "\npremier point: ")) (setq b (getpoint "\n2ème point: ")) (setq x1 (car a)); "\ncoordonnée x 1er point" NE SERT à RIEN !, j'ai mis en remarque (setq x2 (car b)); "\ncoordonnée x 2ème point" (setq y1 (cadr a)); "\ncoordonné y 1er point" (setq y2 (cadr b)); "\ncoordonnée y 2ème point" (setq xdis (/(+ x2 x1)2)) (setq ydis (/(+ y2 y1)2)) (command "insérer" "lumi"(list xdis ydis) 1 1 0) (command "insérer" "inter"(list xdis ydis) 1 1 0) (command "arc" pause pause pause ) (setvar "OSMODE" *OSMODE*) (princ) ) Voici ce que j'ai fait : d'abord j'ai pris le contrôle de la variable OSMODE (tes réglages d'accrobj) afin de passer toutes ces étapes sans ces derniers. En cas de fin d'execution normale ou d'erreur, le SETVAR réinjecte cette valeur et les accrochages réglés reviennent. C'était une question d'usage, important de toujours reproduire ce schéma dans une routine de ce type. Ensuite, je comprends que tu veux insérer des blocs au milieu de 2 points. J'ai écrit la bonne syntaxe. Ensuite tu veux faire un arc manuellement. Je te propose une syntaxe toute bête. On aurait pu écrire : (command "arc" (getpoint) (getpoint) (getpoint) ) mais avec le mot "pause", c'est une astuce, on voit la commande ARC à l'écran ce qui n'est pas le cas avec GETPOINT. A toi de créer un COMMAND qui utilise CHPROP sur le dernier élément. Je te propose le début : (command "chprop" "d" "" ....) D est pour dernier suivi d'un "" pour valider les objets. A toi de compléter ce commande et de le glisser dans ton programme. Tu vas apprendre plein de trucs si tu te mets au lisp. Va doucement, ca va t'amener des outils géniaux... Et on est nombreux à pouvoir t'aider n'hésite pas. Ces premiers pas sont tout de même pas mal encourageants. Hoppla

Beaucoup de soleil. Madame me demande une ballade ! On verra ce soir ou demain. Ou mieux encore : je te propose de poster un nouveau message dans le forum "débuter en lisp". N'aies pas peur Il te suffit d'y publier ta macro (que j'ai vu en MP et que tu aurais pu publier sans problème ici. Là tu seras obligé). On t'espliquera comment calculer un point milieu. Par exemple il faut créer (list xdis ydis)pour faire un point et compléter au mieux la syntaxe du COMMAND. Tu n'y es pas mais tu apprendras très vite. Le lisp de base est très facile à ceux qui macrotent déjà ! a tout'

Normal. Tes polylignes sont surchargées et passent plusieurs fois sur les mêmes points. Si tu les redessines proprement et dans le même sens, tout ira bien B)

Tiens ! Le Yannick ! C'est amusant. Et ca rappelle de bons souvenirs ce grand chantier... Sache que je suis un peu en activité de conception, c'est encore en 3 lettres : BNU. Je fais la conception d'une pièce exceptionnelle,... en métal, bois et verre ! Que je suis en joie de te voir lisper par ailleurs B) Certes, c'est radical mais, pourquoi ne charges-tu pas un lisp au démarrage (facile à configurer et on peut t'aider) qui s'écrirait ainsi : (defun c:r () routines ) ? R est défini comme raccourci clavier de REDESS mais, en tant qu'un des derniers chargements, R sera connu pour lancer ton programme. Maintenant, hormis l'astuce qui consiste à mettre un * en début de macro pour répéter indéfiniment, il n'existe pas vraiment de moyen d'arriver à tes fins avec la personnalisation de l'IUP. Reste à comprendre ce que tu veux faire car le code est encore à corriger. COMMAND (et non commande) est presque bon. Manque le point. Est-ce (command "insérer" "tonbloc" a xdis ydis 0) ? MAis te rends-tu compte que xdis et ydis deviennent de drôles d'échelles ? Que veux-tu faire ? :D

Hello, Je ne sais pas mais vers PDF oui. Tous les logiciels libres type Scribus, Gimp, probablement Inkscape donnent un espoir pour ouvrir des EPS. Même Word le fait ! (d'ailleurs tu importe l'EPS dans Word, tu copies et ensuite tu fais un collage spécial dans AutoCAD, vers "entités AutoCAD", comme d'hab' et ca doit marcher).

Moi je dirais plutôt que c'est UCSVP qui est à 0 au lieu de 1 ! Mais j'ai peut-être mal compris :huh:

(defun code(n)(last n)); (code '("1" "748.508" "749.573" "31.362" "740")) (defun subcode(n)(substr(code n) 1 (1- (strlen(code n))))) ; ( subcode '("1" "748.508" "749.573" "31.362" "740")) (defun subind(n)(atoi(substr(code n)(strlen(code n)) 1)));( subind '("1" "748.508" "749.573" "31.362" "740")) (setq liste_tetes(vl-remove-if-not '(lambda(x)(zerop(subind x))) l_entree)); liste avec tous les 740, 780, 4010, etc (setq resultat(mapcar '(lambda(p) (vl-remove-if-not '(lambda(x)(=(subcode p)(subcode x))) (vl-remove-if '(lambda(x)(member x(vl-member-if'(lambda (x) (= (last x)(strcat(subcode p)"0"))) (cdr(member p l_entree))))) (member p l_entree) ) )) liste_tetes)) Mon précédent code était sympa mais j'avais oublié la possibilité qu'il y ait 3 groupe commençant, par exemple 3 groupes 740. Mon principe est meilleur ici, il y a comme un "double member" qui borne le traitement. Traitement qui consiste, à chaque fois, à écarter ce qui n'a pas le même subcode (vl-remove-if-not). On dirait que ca marche ici. Merci de nous dire B)

_