capde06

Merci Gile c'est en lispant qu'on devient forgeron c'est en me voyant dans une impasse avec (command "calque") bien lent que j'ai complètement changer mon code en utilisant les fonctions VLA-*** je connaissais pas trop c'est rapide ca écrase sans poser de question c'est orienté objet vla-get-color vla-get-description vla-put-description tres pratique je vais approfondir merci pour ta methode j'ai cherché dans les codes DXF mais ca fallait le trouver ! Bravo

résolu en utilisant les fonctions vla-put-xxx tout va bien.

avec l'option "etablir" le probleme reste le meme Remplacer les descriptions existantes? [Oui/Non et ca bloque

je fait une routine pour mettre a jour la couleur et la description des calques j'ai une liste (nomcalque couleur description) dans un bouche repeat je fait (command "calque" "co" (atoi (cadr a)) nomcalque "s" (caddr a) nomcalque "o" "")) quand la description est existante tout va bien mais quand il ny a pas de description le prog bloque sur "o" comment puis je faire ?? ..merci

COMPLÈTEMENT D ACCORD

commande _dataextraction ou EXTRACTDONNEES

regarde dans menu Outils > extraction de données avec ca tu peux tout faire

comment je peux faire pour faire une pause d'un nombre de seconde voulue au seins d'une boucle d'avance merci

merci de vous êtes intéresse a mon problème je pense aussi que l'attribut a du être effacé. mais pas de problème si on refait l'attribut.. a partir du moment ou il a le même nom

j'ai un bloc avec attribut. et dans l'éditeur de bloc on ne le voit pas mystere voir le lien http://file.ahst.fr/get.php?id=4c9b0e2621ea4

je ne connais pas sketchup mais c'est peut être un paramétrage windows qu'il te faut. regarde dans le panneau de configuration de windows Région et langue la tu peux changer le séparateur décimal

pas si simple cherche sur google MANNING STRICKLER c'est le plus utilisé

je ne sais pas si j'ai bien compris mais bon exemple : dans une routine lisp (defun c:routine() (setq sset (ssget)) ) a la fin de la routine, la selection"sset" est toujours en mémoire... donc on peut l'utiliser avec une commande ex . effacer_!sset_ le point d'exclamation rappelle la variable a partir du moment ou il n'y a pas eu un nil dessus et quelle ne soit pas la declarer la (defun c:attsum (/sum i l name entDef) j'espère que je ne suis pas hors sujet[Edité le 22/7/2010 par capde06] [Edité le 22/7/2010 par capde06]

change a valeur de ATTECRAN pour voir !!!!

salut patrick j'utilise ton prog jav rien a dire tout va bien mais peux tu m'expliquer ce que s'est un zombies blocs et zombies dico merci

fech est fait pour unités= 1 mètre mais pour ton cas tu multiplies par 10 au lieu de 1000

merci Patrick jai remis a jour le code optimisé plus haut

merci patrick donc maintenant voila le résultat pour ceux que ca intéresse (defun c:fech () ;;vérifie l'echelle d'une fenetre dans lespace papier (vl-load-com) (setq ent (car (entsel))) (if (/= (cdr (assoc 0 (entget ent))) "VIEWPORT") (setq ent (entnext ent)) ) (alert (strcat "Echelle : 1/" (rtos (* (expt (vla-get-customscale (vlax-ename->vla-object ent)) -1) 1000) 2 0))) ) [Edité le 21/6/2010 par capde06]

pour tester le facteur d'échelle d'une fenêtre il y a ca (vla-get-customscale (vlax-ename->vla-object (car (entsel)))) ca marche bien le code 0 est : (0 . "VIEWPORT") jusqu"a la tout va bien.. maintenant comment faire sur une fenêtre polygonale code dxf (0 . "LWPOLYLINE")..... (102 . "{ACAD_REACTORS") avec un reactors en plus et si on change un cercle en fenetrecode dxf (0 . "CIRCLE")..... (102 . "{ACAD_REACTORS") ma question est : comment recuperer la valeur echelle ?

essai de taper les commandes au clavier bhach (avec boite de dialogue) -bhach (sans boite de dialogue) idem reseau -reseau pour la commande copier voir la variable COPYMODE 0

le verbe avoir non plus

effectivement je me suis obstiné avec solprof merci gile

bonjour j'ai des elements en 3D je voudrais transformer la vue 3d caché en 2d projeté sur le scu courant avant solview le faisait mais pas sur 2010 il fait juste une fenêtre en vue caché j'ai essayé flattern mais le hidden line ne marche pas vous feriez quoi...

faire une application topo, c'est bien... rien que sur ce site il y a de quoi faire... mais il faut que ca reste gratuit. le but de ce site est de s'améliorer et de partager mon application topo est gratuite et disponible la La http:// http://sites.google.com/site/captopo/Home

jai fais ca dans Captopo ;;projection d'une ligne sur maillage 3D MNT ;;capde06 (defun c:projectline2dto3d ( / js_line dxf_line p1 p2 all_pt js n lst_px dxf_ent lst_pt px new_lst l el pt_all nouv n_pr echll a_ curv ent lst_som ent_po pc high_z pt_ins pt_coi dxf_210) (setq oldos (getvar "osmode") js_line nil pt_all nil lst_pt nil lst_px nil) (setvar "osmode" 0) (prompt "\nSelection de la ligne a projeter :") (setq js_line (ssget "_+.:E:S" '((0 . "LINE")))) (cond (js_line (setvar "cmdecho" 1) (setq dxf_line (entget (ssname js_line 0)) p1 (list (cadr (assoc 10 dxf_line)) (caddr (assoc 10 dxf_line)) ) p2 (list (cadr (assoc 11 dxf_line)) (caddr (assoc 11 dxf_line)) ) all_pt nil ) (setq js (ssget "_F" (list p1 p2) '((0 . "3DFACE"))) n -1 lst_px nil ) (cond (js (repeat (sslength js) (setq dxf_ent (entget (ssname js (setq n (1+ n)))) lst_pt (list (cdr (assoc 10 dxf_ent)) (cdr (assoc 11 dxf_ent)) (cdr (assoc 12 dxf_ent)) (cdr (assoc 13 dxf_ent)) ) ) (if (equal (caddr lst_pt) (cadddr lst_pt)) (setq lst_pt (list (car lst_pt) (cadr lst_pt) (caddr lst_pt) (car lst_pt) ) ) (setq lst_pt (append lst_pt (list (car lst_pt)))) ) (while (cdr lst_pt) (setq px (inters p1 p2 (car lst_pt) (cadr lst_pt) T)) (if px (progn (setq px (inters (list (car px) (cadr px) 0.0) (list (car px) (cadr px) 100.0) (car lst_pt) (cadr lst_pt) nil ) ) (if (and px (not (member px lst_px))) (setq lst_px (cons px lst_px)) ) ) ) (setq lst_pt (cdr lst_pt)) ) ) (if lst_px (progn (setq new_lst nil) (while lst_px (setq l (mapcar '(lambda (x) (distance x p1)) lst_px)) (setq el (nth (- (length lst_px) (length (member (apply 'min l) l)) ) lst_px ) ) (setq lst_px (vl-remove el lst_px) new_lst (cons el new_lst) ) ) (setq pt_all (append (list (cadr all_pt)) new_lst pt_all)) ) (setq pt_all (append (list (cadr all_pt)) pt_all)) ) ) ) ) ) (setq pt_all (reverse(cdr pt_all)) x 0) (command "_.3dpoly") (foreach el pt_all (command (trans el 0 1)) ) (command "") (setvar "osmode" oldos) )