kalos

ma question est simple: compter les blocs (par le nom ou pas) selon un contour polyligne que je pourrai selectionner (et non tracé au fur et à mesure). est ce qu'il y a une commande autocad existante? un script, un lisp? vu que je dois le faire assez souvent, ca pourrait prendre 2sec au lieu de 5min.

Bonjour, j'ai une erreure: attout.lsp correctement chargé(s) Commande: ; erreur: no function definition: ACET-AUTOLOAD2 Bien à vous,

bon c'est pas grave mais la bidouille a bien fonctionné et j'avai juste besoin de mettre le poitn d'insertion XY en liste c'est à dire pntXY (defun c:attrot () (setq sset (ssget "X" '((0 . "INSERT") (8 . "moncalqueabloc")))) (if sset (progn (setq i 0 l (sslength sset) ) (while (< i l) (setq name (ssname sset i) loop T) (while loop (setq name (entnext name) entDef (entget name) ) (if (and (= (cdr (assoc 0 entDef)) "ATTRIB") (= (cdr (assoc 2 entDef)) "ROTATION")) (setq rot_att (atof (cdr (assoc 1 entDef))) loop nil) ) (if (= (cdr (assoc 0 entDef)) "SEQEND") (setq loop nil)) ) (setq pnt (cdr (assoc 10 entDef))) (setq pntX (atof (vl-princ-to-string (rtos (car pnt) 2 4)))) (setq pntX (+ pntX 0.8704)) ;bidouille decalage X (setq pntY (atof (vl-princ-to-string (rtos (cadr pnt) 2 4)))) (setq pntY (+ pntY 7.444)) ;bidouille decalage Y (setq pntXY (list pntX pntY)) ;création point d'insertion (command "_.ROTATE" name "" pntXY rot_att) (setq i (1+ i)) ) (prompt "\nRotation des blocs terminés.") ) ) (princ) )

à chaque fois que je dois faire une recherche c fastidieux puisque je dois le faire en sens inverse, je voulai trouver une autre maniere s'il y a.

ca me donne la meme chose. mais bon j'arrive à bidouiller pour retrouver le bon résultat. J'ai mon pntX et pntY, sous quelle forme je dois intégrer ces coordonnées dans pnt? c'est à dire pntX,pntY dans mon exemple. comment concatener des réels (pntX pntY) avec un caractere (",") ca me serait bien utile pour d'autres choses d'ailleurs quand on me demande une position X,Y (ici pas besoin de Z) (command "_.ROTATE" name "" pnt rot_att) merci d'avance, si ce point ci est enfin résolu, ca me sauverait la vie!

bon, je me suis pas pris la tete, j'ai pris la différence du X et Y et je m'en sers comme point d'insertion par la suite pour effectuer mes rotations. (setq pntX (atof (vl-princ-to-string (rtos (car pnt) 2 4)))) (setq pntX (+ pntX 0.8704)) (setq pntY (atof (vl-princ-to-string (rtos (cadr pnt) 2 4)))) (setq pntY (+ pntY 7.444)) (prompt (strcat "point d'insertion_" (rtos i) " : " (rtos pntX) "," (rtos pntY) ",0\n"))

Merci pour ta réponse. du coup avec: (prompt (strcat "point d'insertion_" (rtos i) " : " (vl-princ-to-string (rtos (car pnt) 2 4)) "," (vl-princ-to-string (rtos (cadr pnt) 2 4)) ",0\n")) j'obtiens: point d'insertion_0 : 305394.3731,2253291.992,0 on est loin des 305495.2435 2253299.4364 0.0 dans l'éditeur de bloc j'ai bien mon objet à 0,0,0 assoc 10 récupere bien les positions X,Y de géométrie du bloc? dans mon cas pas du tout. je dois redéfinir le point d'insertion de mon bloc! comment dois je faire sans perdre les données de mon bloc et sa position?

j'ai besoin pour un programme de récupérer le point d'insertion du bloc (setq pnt (cdr (assoc 10 entDef))) cela me renvoit pour pnt: (305494.0 2.25329e+006 0.0) alors que la coordonnée du bloc est: (305495.2435 2253299.4364 0.0) cela ne correspond pas! ou à peu de choses prés, je ne comprends pas...

la commande ATTECRAN et ATTMODE me permet en effet d'activer la visibilité de ceux-ci, je connaissai ces commandes mais elles ne permettent pas de faire une recherche et de zoomer sur le bloc en question.

comment chercher un attribut qui est en mode invisible? la fonction _find ne permettant pas de zoomer sur les attributs invisible trouvés, une astuce? à moins de faire un lisp me permettant de rendre visible/invisible ces attributs, je ne vois pas comment chercher ces attributs simplement. Merci à vous et Bon week-end à tous!

GRIPS et GRIPOBJLIMIT ne changent rien. J'ai enfin trouvé ce qui n'allait pas, au lieu de (ssget ":E"), j'ai utilisé (ssget "_I"), le cumul marche bien et me redonne la selection correctement. I Implied selection (objects selected while PICKFIRST is in effect). plus besoin de (sssetfirst nil sset)

oui ça je l'avais compris, je sais que "sset" est une variable local et que en dehors de la fonction, c'est inutile. que j'utilise: (sssetfirst nil (ssget "_P")) ou (sssetfirst nil sset) dans ma fonction cela revient au même, je n'ai pas les poignées. en tous cas elles ne sont pas visibles, que dois je faire pour que le gripset J'ai constaté que le regen me les ressuscites mais c'est un peu lourd comme manipulation. pourquoi mes grip handles sont off ? mon pickset (sset) est défini.

oui ca fonctionne apparemment! Toutefois les poignées ne sont visibles qu'aprés avoir retirer/ajouter un bloc de la selection.

j'ai du mal à comprendre la subtilité du lisp encore...je sais que mon jeu de selection se trouve dans SSET, ce que je ne comprends pas c'est pourquoi ma routine lisp ne me redonne pas la main sur le jeu de selection. Je ne comprends pas ce que tu veux dire par refaire une boucle, pourquoi faire?

Ca me renvoie cela en ligne de commande mais ne fait rien, je voudrai un trucs du genre (command select "p") mais ca ne me donne pas la main. ou peux on m'expliquer autrement.