Tramber

Je précise alors, pour ceux qui veulent se lancer dans l'art brut du SCRIPT qu'on peut aussi, n'en déplaise à Eric et avec tout mon respect,"traverser" des bibliothèques entières sans SAS. SCRIPT accepte les OUVRIR FERMER,... bref, on peut manipuler des fichiers nativement en SCRIPT.

STOP ! Ne confondons pas tout. "_move;_all;;0,0;10,20;" n'est pas un SCRIPT mais un "script de bouton" ou une macro de bouton ou encore un autre terme. ---> Lancer SCRIPT charge un fichier texte (avec l'extension .scr obligatoire) et attend des ESPACES --> Utiliser un bouton avec sa macro attend, lui, des ESPACES ou des point-virgules Il y a donc des distinctions entre les différents usage de la langue script. SAS sert 1 script dans plusieurs dessins, pour dire les choses simplement.

VUEDYN est pas mal... Inconvénient, faut taper VU et écraser le nom s'il elle à remplacer. Contraignant je suis d'accord.

C'est nazemrap qui va êt' content ! :D

C'est une vieille boite. On s'en servait déjà en V2000 pour les déliminations avant et arrière. A mon avis ça n'a pas été adapté pour ton idée, très logique et attendue au demeurant.

J'ai bien vu. T'inquiètes. Je ne comprenais pas cette construction de la part d'un débutant, c'est tout. Mais je comprends mieux maintenant. Pour le livre "Programmer AutoCAD", je l'ai vu en librairie, c'est juste une initiation....

Dernière minute : Je viens de tomber sur ce message ! Dois-je louer la bonne volonté d'enfin bien publier dans le bon forum ? ou m'indigner de voir les sujets se multiplier pour la même chose ? :casstet:

Sois plus précis parce que là, je ne comprends pas vraiment la différence. Se pose quand même la question du NOM à chaque solide. Alors que pourrait-il y avoir de + ? Je te propose le code modifié pour ta première demande toutefois : (je trouve ton code un peu cavalier avec la gestion d'erreur pour arrêter, mais bon,....je ne voudrais pas non plus te freiner dans tes progrès). (defun c:dimsection (/ *error* file ent minpt maxpt dims dim i nom) (vl-load-com) (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (if file (close file) ) (princ) ) (initget "Oui Non") (if (= (getkword "\nEnregistrer dans un fichier ? [Oui/Non] : ") "Oui") (progn (setq file (open (getfiled "Créez ou sélectionnez un fichier" "" "csv" 1) "w" ) ) ) ) (while T (if (and (setq ent (car (entsel "\nSélectionnez un solide (Echap pour terminer): "))) (setq nom (getstring "\nNommer l'objet sélectionné :")) (setq ent (vlax-ename->vla-object ent)) (= (vla-get-ObjectName ent) "AcDb3dSolid") (not (vla-GetBoundingBox ent 'minpt 'maxpt)) (setq dims (append (vl-sort (mapcar '- (vlax-safearray->list maxpt) (vlax-safearray->list minpt) ) '> ) (list nom)) );setq dims ) (progn (setq i (length dims)) (foreach dim dims (if file (progn (princ dim file) (if (= i 1) (princ "\n" file) (princ ";" file) ) (setq i (1- i)) ) ) (princ (strcat " " (VL-PRINC-TO-STRING dim))))))) (*error* nil) )

Oui, oui, la blanche colombe,.... Extrait de l'intro : [surligneur] Postez ici vos routines LISP. Une routine est du code court destiné à être réutilisé. Par exemple, un programme mettant à jour la valeur d'un attribut de bloc est une routine. Ne postez pas d'applications ici! [/surligneur] Je renvoyais simplement aux principes. Auxquels j'ajoute que je n'ai rien pigé à ta demande ni n'ai identifié (de haut puisqu'en altitude) la marre humide d'où tu as pu tirer une autre routine ici ou une variable new ou p2 là... J'avais mis un petit smile en bas du message mais il est difficile narquois. Toutes mes excuses.

Tu pourrais nettoyer un peu (le P2 qui n'existe pas, la parenthèse à la fin) getnumber c'est quoi ? (command "_rotate" "d" "" p5 180 ) serait mieux ! (command "_rotate" (entlast) "" p5 180 ) encore mieux car "d" est en Francais ("_l" pour la traduction) ****************************************** (command "_move" p5 (/ new)"") Franchement, commencer une selection avec le point p5 et en plus caler l'expression (/ new), qui est bien étrange, tout cela pour publier dans le forum Routines LISP supposé être un espace de partage !!! De qui se moque-t-on ? :cool:

Ok, En attendant, packagg est toujours dans le grand bain !

(vla-get-Name(vla-get-activedocument (vlax-get-acad-object))) Tout simplement

A la bonne heure :cool: Bref. Tiens Tekla ? Ils ne font pas un soft sur base AutoCAD ? J'espère que tu dis vrai RUNGIS, je lisais (et écrivais même) des articles sur IFC déjà en 2002 ! Pour moi, ca reste une arlésienne. Mais plutôt à cause de nous-même. Seule la volonté politique compte et la volonté politique (disons publique) ... et technique pourrait tout changer. Les scandinaves ont probablement des ministères qui modernisent vite et bien les marchés publics. Le privé suit. Je me trompe ? Le jour où on me demandera ou m'offira un tel format, je paie l'apéro à tout ceux qui sont là !

Des utilisateurs d'ArchiCAD ne savent même pas qu'il suffit de se mettre en vue 3D pour exporter le modèle en DWG 3D... C'est une anecdote que je donne souvent, mais elle a longtemps été vraie et l'est peut-être encore. Ton problème est complexe au vu de tes fournisseurs de plans. Dresse d'abord un bilan. Ca serait mon premier conseil. Dans le deuxième tableau, il faudrait presque mesurer la compétence des interlocuteurs...(voir plus haut). Car importer dans AutoCAD ne suffit pas, il faut aussi parfois savoir ou pouvoir exporter vers Acad ! [Edité le 8/6/2011 par Tramber]

:cool: L'apanacée, c'est le système IFC, il parait. Mais ca n'est qu'un vague concept qui traîne depuis des années... Je crois sérieusement qu'il faudrait que tu dresses une cartographie plus précise des logiciels utilisés par tes partenaires avant d'aller plus loin... dans une direction, car je sens que tu seras bien obligé. Et je parie le contenu de mes poches que tu vas choisir un nième logiciel un jour ou l'autre. Béton, bois ou acier ? Je suppose qu'il y a beaucoup de maisons et ouvrages moyens ?

Un code un peu brutal : (defun foo (lst) (if lst (cons (list (car lst) (cadr lst)) (foo (cddr lst))) ) ) (setq p1(vlax-ename->vla-object(car(entsel))) p2(vlax-ename->vla-object(car(entsel)))) (setq cp1(foo (vlax-safearray->list (vlax-variant-value (vla-get-Coordinates p1)))) cp2(foo (vlax-safearray->list (vlax-variant-value (vla-get-Coordinates p2))))) (setq listedesdistances(apply 'append (mapcar '(lambda(y)(mapcar '(lambda(x) (distance x y))cp2)) cp1))) (eval (append (list 'MIN)listedesdistances)) Bcp de choses à expliquer : Selectionner 2 polylignes cp1 et cp2 sont les extractions des points sous forme de listes pour chacune des polys. (le traitement de foo est 2D, il n'y a pas de Z dans une polyligne) Le double MAPCAR permet de créer une liste de liste de distances, soit les distances de points à points. Le APPLY ne fait que condenser le tout dans une seule liste de distances. (eval (append permet d'utiliser l'expression MIN en construisant la liste contenant l'instruction, MIN est une fonction à n arguments. Ce qui est spécial. En Autolisp traditionnel, il faut, en effet, créer une double boucle. Je n'ai pris le temps de lire ton code, désolé. En même temps, le traitement avec MAPCAR n'est pas si difficile.... [Edité le 6/6/2011 par Tramber]

Ok, ok. Bien compris. Alors, et ce code corrigé ? :cool:

En somme tu réinventes l'eau chaude ! Moi je tourne au gaz : je selectionne mes objets, je chauffe une poignée (ca suffit) et je rentre dans le cycle par un ENTREE pour être en mode ** DEPLACER **. Je tape C et valide pour être en mode ** DEPLACER (multiple) ** et c'est le même résultat. ... mais je peux aussi comprendre le bouton, un poil plus rapide si tu n'utilises qu'une seule main !

Tu veux faire quoi ? C'est une routine d'avant 2006 ? Pour moi, le premier @ ne vaut rien d'intéressant (il amène un mystère et une confusion, comment juger du dernier point...) . A la lecture du début donc, je ne comprends pas le but.

(vlax-vla-object->ename ent) Aurait été valable dans un COMMAND. Malheureusement, je crois aussi qu'il n'est pas possible (en tous cas conseillé) de traiter un COMMAND dans une boucle VLAX-for. Tu vas devoir passer par "ACAD_SORTENTS" et des méthodes moins conventionnelles. Voir une discussion.

Ok ok, donc voilà : des radars, des panneaux, pas de panneaux,... et quoi d'autre ? C'est cela qui m'insupporte. On ferait mieux de faire d' autres choses aussi. Quid des centaines de milliers qui roulent sans permis, des vieux et des dangereux, des psychotropes, de l'aménagement, du vélo, des formes de calandres des 4x4, de l'alcool, des CT, etc,..... J'ai 12 points donc je peux y aller : on va faire comme pour le nucléaire et continuer comme cela ? Le contraire de nos voisins ? Choisir un axe unique comme les radars et les cacher est débilisant. Je déteste.

... et moi je passe sur la vente des autoroutes au début du dernier quinquenat. Un peu comme l'augmentation de salaire du président, ca m'est resté en travers.... Je maintiens le mot arnaque. La vitesse est un facteur. J'en conviens bien. Mais je ne supporte pas cette façon d'agir sur ce curseur sans un mot ou un geste pour tout le reste. En + du permis à points (égalitaire seulement entre 2 personnes à revenus différents qui feraient le même nombre de kms) je suis pour une indexation des amendes sur le revenu. Je rappelle qu'en ville, un millionnaire paiera le même prix qu'un RMIste pour s'être garé comme un cochon. D'ailleurs qui sont ceux qui se garent le plus comme des cochons ? Si l'on revient aux radars, en quoi cela est-il utile d'avoir eu tant de radars en 2 ans si le chiffre des tués a augmenté ? Ca marchera mieux sans les panneaux ? Arrêtons un peu le blabla journalistique et commentons les chiffres de ces quelques années de radars... [Edité le 30/5/2011 par Tramber]

Mouais, Je ne vais pas me ranger du côté des bien-pensants en rappelant que : Si la courbe des tuées diminue depuis 30 ans, c'est grâce aux équipements et aux progrés dans l'automobile. Un point c'est tout. La vitesse sur autoroute n'est que le xième problème. (Attention, j'ai un autre point de vue pour la vitesse en ville et préfère des solutions d'amnéagement, pas les radars débiles.) En Belgique et en Hollande, dans les boites de nuit, le coca est servi en bouteille moins cher que la moindre boisson alcoolisée. Nous avons une mission : changer tous nos députés qui se déculottent devant les distributeurs de boisson. Interdire conscienscieusement la représentation alcoolière dans les fêtes étudiantes et boites de nuit et autres... Je ne conçois toujours pas que les prix des boissons dans ces lieux ne soient pas encadrés pour les sans-alcools. Ca serait du grand bon-sens. Ca devrait même être 2X moins cher. 3 morts, 1 quasi paraplégique pour 3kms de la boite des 4 cantons (les lillois connaissent) vers Lesquin. La survivante est la soeur d'un ami, que j'apprécie, ils avaient 18 ans, fêtaient le bac. Chacun connait une histoire du genre. Que fait-on en la matière ? pour les jeunes. En Belgique toujours, les contrôles de vitesse sont donnés à la radio, au km près. Les gens sont patients, respectent les priorités et roulent à droite. Tout ça ensemble, c'est du civisme. Je detèste ces débats. Les radars à la Française sont une arnaque. Chacun son camp.

!Hola ! ?Que tal ? Voici 2 façons de faire : (setq lepoint(getpoint '(0 0) "\nPoint de Base :")) (setq lepoint(getpoint "\nPoint de Base: ")) Outre une erreur de paranthèse on voit un getstring dans un getpoint, ca n'est pas valable.

On te fait confiance. Tiens-nous bien informé ! :cool: