capde06

essai en mettant un Astérix * devant le nom du bloc si mes souvenirs sont bons , le block arrive decomposé

tu as tout a fait raison mais que de "mot laid" pour "gens bête"

j'utilise toujours ca tres pratique parcequ'il nomme la vue avec la date et heure du jour en bref il faut ceer un bouton et coller ce code ^C^Cscu ob \scu sa (strcat (rtos (getvar "cdate") 2 0) (substr (rtos (getvar "cdate") 2 8) 10 8)) repere ;zoom t zoom .9x

et bientôt a fukushima un humain en forme de pylône (

regard la variable DIMASSOC la mettre a 2

merci patrick étrangement ce prog marche sur un dwg mais pas avec un dwt. alors que celui que tu avais fait pour importer les calques marche tres bien avec un dwt ca marche aussi sur toutes les tables, cotation, line, styles de texte, blocs mais les reperes multiples, y veut pas

au cas ou je met la fonction pour test (defun opendbx(dwg / dbx) ; par Patrick_35 (if (< (atoi (substr (getvar "ACADVER") 1 2)) 16) (setq dbx (vlax-create-object "ObjectDBX.AxDbDocument")) (setq dbx (vlax-create-object (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2)))) ) (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-open (list dbx dwg))) nil dbx ) )

j'y arrive pas.....??

j'ai ca il n'y a pas de filtre sur les calques .. mais bon (defun c:cumul () (setq cumul 0 sel nil cpx 0) (prompt "\nSelection des poly lignes :") (setq sel (ssget '((0 . "LWPOLYLINE")))) (setq cpx 0) (repeat (sslength sel) (setq ent (ssname sel cpx)) (setq obj (vlax-ename->vla-object ent)) (setq cumul (+ cumul (vla-get-length obj))) (setq cpx (+ cpx 1)) ) (princ (strcat "\nLongueur :" (rtos cumul 2 2))) (princ) )

Bonjour a tous voici une moulinette qui permet d'importer les style de cote depuis le prototype (defun c:importstylecot ( / template f cotlist ) (setq template "monproto.dwt") (vl-load-com) (if (setq f (opendbx (strcat (getenv "TemplatePath") "\\" template))) (progn (vlax-for l (vla-get-dimstyles f) (or (wcmatch (vla-get-Name l) "*|*") (setq cotlist (cons l cotlist)) ) ) (vlax-invoke f 'CopyObjects cotlist (vla-get-dimstyles (vla-get-ActiveDocument (vlax-get-acad-object)))) (vlax-release-object f) ) ) (princ) ) mais je galère a faire la même pour les styles de "lignes repère multiples" si vous avez une idée ......

Les délateurs sont le fléau commun à tous les régimes tyranniques. ce n'est pas de moi , (wikipedia) mais ceci dit. ca n'excuse pas le piratage

j'ai il y a longtemps j'ai fait un prog pour ca a utiliser sur les coupes les variables echx echz sont a utiliser sur des profils a échelles doubles (defun c:lp100 (/ f pt1 ech_prof pt2 l) (if (not echx) (setq echx 1.0)) (if (not echz) (setq echz 1.0)) (setq p100 (* (/ (getreal "\npourcentage de pente :") 100) (/ echz echx))) (setq pt1 (getpoint "\nPoint de base")) (setq l (* (getdist "\nLongueur du segment :" pt1) echx)) (setvar "osmode" 0) (command "ligne" pt1 (polar pt1 (atan p100) (/ l (cos (atan p100)))) "") ) ;_ Fin de defun

Salut patrick il y a quelque temps on a eu un post sur ce sujet ca a donné ce prog ca renomme les onglets 1er "cartouche 2 eme "page 01 sur xx etc.... il suffit ensuite de mettre un champ "ctab" dans les presentations je l'utilise pour faire des carnets de coupes (defun c:ren-onglet (/ doc express lay lst n i txt) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object)) n -1 i 1 prefix "0" txt nil long (itoa (- (length (layoutlist)) 1)) ) ;_ Fin de setq (vla-startundomark doc) (if (eval 'acet-ui-progress-done) (progn (acet-ui-progress-init "" (1- (vla-get-count (vla-get-layouts doc))) ) ;_ Fin de acet-ui-progress-init (setq express T) ) ;_ Fin de progn (progn (princ "\nTravail en cours...") (princ) ) ;_ Fin de progn ) ;_ Fin de if (vlax-for lay (vla-get-layouts doc) (setq lst (cons (list (vla-get-taborder lay) lay) lst)) ) ;_ Fin de vlax-for (while (setq lay (assoc i lst)) (cond ((eq n -1) (setq txt "Cartouche") ) ((>= n 0) (setq txt1 (itoa (+ n 1))) (if (< (strlen txt1) 2) (setq txt1 (strcat "0" txt1)) ) (if (< (strlen long) 2) (setq long (strcat "0" long)) ) (setq txt (strcat "Page " txt1 " sur " long) ) ;_ Fin de setq ) ) ;_ Fin de cond ;_ Fin de while (if (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-name (list (cadr lay) txt)) ) ;_ Fin de vl-catch-all-error-p (progn (vla-put-name (vla-item (vla-get-layouts doc) txt) (strcat "c" txt) ;(strcat txt) ) ;_ Fin de vla-put-name (vla-put-name (cadr lay) txt) ) ;_ Fin de progn ) ;_ Fin de if (and express (acet-ui-progress-safe i)) (setq n (1+ n) i (1+ i) ) ;_ Fin de setq ) ;_ Fin de if (and express (acet-ui-progress-done)) (princ (strcat "\nRenumérotation de " (itoa (1+ n)) " présentation(s)." ) ;_ Fin de strcat ) ;_ Fin de princ (vla-endundomark doc) (princ) )

Salut Superbe le prog et rapide en plus je ne sais pas si c'est possible, transformer un mnt face3d en solide ce serai top. encore bravo

ca fais depuis 2009 que je l'utilise il m'a beaucoup aidé utile quand il n'y a pas les nuages de révision.

fait une recherche sur PDF3d

peut etre "XLOADCTL"

bonjour c'est exactement ce que je voulais faire calculer la surface d'une face3D, chose que ne fait pas autocad voila le prog (defun c:surf3d () (setq sel (ssget '((0 . "3DFACE")))) (setq cpt 0 listface nil surf3d nil cumulsurf3d 0 surf2d nil cumulsurf2d 0 ) (repeat (sslength sel) (setq ent (entget (ssname sel cpt)) listface nil listface (cons (cdr (assoc 10 ent)) listface) listface (cons (cdr (assoc 11 ent)) listface) listface (cons (cdr (assoc 12 ent)) listface) listface (cons (cdr (assoc 13 ent)) listface) ) (setq listface (remove_doubles listface)) (if (= (length listface) 3) (progn (setq surf3d (/ (* (distance (nth 0 listface) (nth 1 listface)) (distper3d (nth 2 listface) (nth 0 listface) (nth 1 listface) ) ) 2 ) ) (setq surf2d (/ (* (distance (list (car(nth 0 listface))(cadr(nth 0 listface))) (list (car(nth 1 listface))(cadr(nth 1 listface))) ) (distper3d (list (car(nth 2 listface))(cadr(nth 2 listface))0.0) (list (car(nth 0 listface))(cadr(nth 0 listface))0.0) (list (car(nth 1 listface))(cadr(nth 1 listface))0.0) ) ) 2 ) ) ) (alert "FACE3D a 4 sommets Calcul impossible") ) (setq cumulsurf3d (+ cumulsurf3d surf3d)) (setq cumulsurf2d (+ cumulsurf2d surf2d)) (setq cpt (+ cpt 1)) ) ;; Retourne le vecteur de p1 à p2 (defun vect (p1 p2) (mapcar '- p2 p1) ) ;; Retourne la norme (longueur) du vecteur v (defun vlen (v) (distance '(0. 0. 0.) v) ) ;; Retourne le produit vectoriel de v1 et v2 (defun v^v (v1 v2) (list (- (* (cadr v1) (caddr v2)) (* (caddr v1) (cadr v2))) (- (* (caddr v1) (car v2)) (* (car v1) (caddr v2))) (- (* (car v1) (cadr v2)) (* (cadr v1) (car v2))) ) ) ;; Retourne la distance de pt à la droite p1 p2 (defun distper3d (pt p1 p2 / v) (/ (vlen (v^v (vect p1 pt) (vect p1 p2))) (distance p1 p2) ) ) (defun remove-i (ind lst) (if (or (zerop ind) (null lst)) (cdr lst) (cons (car lst) (remove-i (1- ind) (cdr lst))) ) ) (defun remove_doubles (lst) (if lst (cons (car lst) (remove_doubles (vl-remove (car lst) lst))) ) ) )

Merci a vous j'ai testé les deux fonctions. elles marchent bien! mon prog marche bien. merci pour la leçon merci a monsieur al-kashi et vectorielle .....

merci gile j'avais bidouillé quelque truc avec tes fonction vectorielle mais les les matrices.... ca me depasse

hello j'ai une fonction qui calcul la distance perpendiculaire d'un point par rapport a 2 autre points (defun distperp2d (point1 point2 point3 / distperp x1 x2 y1 y2 x3 y3) ;;calcule la distance du point 3 par rapport a la droite 1 2 ;;(point1 point2 point3 / x1 x2 x3 y1 y2 y3) (setq x1 (car point1) y1 (cadr point1) x2 (car point2) y2 (cadr point2) x3 (car point3) y3 (cadr point3) ) ;_ Fin de setq (setq distperp (/ (abs (- (* (- x3 x1) (- y2 y1)) (* (- y3 y1) (- x2 x1)))) (sqrt (+ (expt (- x2 x1) 2) (expt (- y2 y1) 2)) ) ;_ Fin de sqrt ) ;_ Fin de / ) ;_ Fin de setq distperp ) ;_ Fin de defun cette fonction ne marche qu'en 2d mais je n'arrive pas a faire la même en 3d avec z1 z2 z3 bon courage, parce que moi je galéré.

merci thry0 c'est pil poil ce que je chechais a faire

Bonjours a tous comment peux t'on savoir quelle polygone est lié a quelle champ explication j'ai beaucoup de polygones avec des champs associés mais il y a des champs que je ne connais pas l’entité e associé. y a t'il moyen de savoir ca j'ai essayé en vlisp, mais je patouge merci

nicotopo le topo qu'il vous faut

ben se doit pas être facile de boire un coup avec ca