azop

petite erreur dans les lignes suivantes : (setq pntBG (vlax-Safearray->list mx)) (setq pntHD (vlax-Safearray->list mi)) (command "rectang" mx mi) mais j'ai toujours le même probleme avec ce code la _$ (vla-GetBoundingBox (vlax-ename->vla-object (car (entsel))) 'mx 'mi) (setq mx (vlax-Safearray->list mx)) (setq mi (vlax-Safearray->list mi)) (command "rectang" mx mi) ; erreur: Erreur Automation Entrée incorrecte

bonjour, je recontre un problème en utilisant la méthode GetBoundingBox uniquement sur UN bloc. Est ce que quelqu'un aurait une idée ? _$ (vla-GetBoundingBox (vlax-ename->vla-object (car (entsel))) 'mx 'mi) mx ; erreur: Erreur Automation Entrée incorrecte

c'est bon j'ai trouvez il fallait que je filtre la valeur de la propriété "vla-get-UCSIconAtOrigin" sur "true" si j'ai bien compri, si ça vaut true, c'est une fenetre flotant sinon c'est "la vue général"

je voudrais modifier le point de vue de toute les fenetres de toute présentations

j'utilise taborder pour commencer à partir du 3eme onglet et je pensais que "vla-put-ActivePviewport" permettrait de passer à la prochaine fenetre, en effet, sans cette commande, il n'y à plus d'erreur, mais uniquement une des fenetre par présentation s'active

Bonjour, j'ai une erreur qui se produit lors de l'execution du bout de code ci-dessous auriez vous une idée d'où ça puisse venir ? (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for lay (vla-get-layouts doc) (setq tabOrder (vla-get-TabOrder lay)) (if (> tabOrder 3) (PROGN (vla-put-ActiveLayout doc lay) (vlax-for ent (vla-get-block lay) (if (= (vla-get-objectname ent) "AcDbViewport") (vla-put-mspace doc :vlax-true) (vla-put-ActivePviewport doc ent);;;; erreur: Erreur Automation Erreur lors de la configuration de la fenêtre courante (command "-pan" ptA ptB) (vla-put-mspace doc :vlax-false) ) ) ) ) )

bonsoir, je vous ais mis un partie du programme que j'essais de terminer, la partie qui ne marche pas, c'est uniquement lors de l'utilisation de 'Target, si vous avez une idée de mon erreur ? (vl-load-com) ;;; Début Defun c:Présentation (defun c:présentation (/ sel lsel i ent att listatt lst gabarit fichier ltab htab lay liste_bloc bloc_name n0 n lesfenetres ii dir) (alert "Selectionner uniquement les bloc sig") (setq ltab (getreal "Largeur tablette [mm] :") htab (getreal "Hauteur tablette [mm] :") ) (if (= "local_sig " (substr (cdr (assoc 2 (setq n0 (tblnext "block" T)))) 1 10)) (setq liste_bloc (list (cons (cdr (assoc 2 n0)) (cdr (assoc -2 n0))))) ) ;;; debut while (while (setq n (tblnext "block" nil)) ;;;debut if (if (= "local_sig " (substr (cdr (assoc 2 n)) 1 10)) (setq liste_bloc (cons (cons (cdr (assoc 2 n)) (cdr (assoc -2 n))) liste_bloc)) )) ;;; fin while (setq sel (ssget) lsel (sslength sel) i 0 ) ;;;début while (while (< i lsel) (setq ent (ssname sel i) att (GetAttribs ent)) (setq bloc_name (cdr (assoc 2 (entget ent)))) (setq ente (cdr (assoc bloc_name liste_bloc))) ; Effacer les présentations (vlax-for lay (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) (or (eq (vla-get-name lay) "Model") (vla-delete lay))) (command "presentation" "n" (cdr (assoc "NOM" att))) (command "presentation" "e" (cdr (assoc "NOM" att))) ;;;debut suppression des fenetres (setq lesfenetres (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object)))) (vla-delete (vla-item lesfenetres "0")) ;;;fin suppression des fenetres (command "-fenetres" '(0.0 0.0 0.0) (list ltab htab 0.0)) (setq entf (entlast)) (command "_.MSPACE") (setq centre-fenetre (getvar "VIEWCTR")) (command "_.PSPACE") (setq entfe (vlax-ename->vla-object entf)) ;;; Gis : routine renvoyant l'angle, le point cible.. (setq regl_fen (Gis ltab htab ente) Target (vlax-get entfe 'Target)) (vlax-put entfe 'TwistAngle (nth 0 regl_fen)) (setq centrebloc (mapcar '+ (nth 1 regl_fen) (cdr (assoc 10 (entget ent))))) (setq centrebloc (cons (car centrebloc) (cons (car (cdr centrebloc)) '(0.0))) ) (vlax-put entfe 'Target centrebloc) (vlax-put entfe 'CustomScale (* 1 (/ ltab (nth 3 regl_fen)))) (command "presentation" "ef" "présentation1") (setq fichier (strcat (getvar "DWGPREFIX") (cdr (assoc "NOM" att)) ".dwg")) (command "_SAVEAS" "2010" fichier) ;;;fin while (setq lst (cons listatt lst) i (1+ i)) ) ) ;;; Fin Defun c:psig

merci beaucoup, encore un petit soucis dans le même genre : je veux change mon scu (tourner de 90° dans le sens trigo) j'utilise donc 'TwistAngle jusque là tout va bien, mais si le je mets dans une boucle (while...) pour modifier plusieurs fenetre, une fois que le repère se tourne de 90°, pour la 1ere fenetre il ne se met plus à 0° pour les autres, est-ce le bon 'paramètre' a modifier ?

Bonjour, existe t il une fonction équivalente à "rechercher" en autolisp ou vlisp ? (je veux rechercher une chaine de caractère sur mon plan)

Regarde la propriété Target de l'objet PViewport (COM/ActiveX). merci pour la rapidité de ta réponse, mais en utilisant vlax-dump-object, on peut voir que le "code dxf 12" n'est pas égal à "Target" il n'y a d'ailleur aucune propriété qui donne une valeur égal au code dxf 12 sauriez vous ou trouvez cette valeur pour la modifier ?

Bonjour, je souhaiterai modifier le point de vue d'une fenetre d'une présentation si j'ai bien compris c'est le N°12 à modifier, en utilisant le code suivant, la liste se modifie mais aucune modification n'est appliquer à la fenetre ? sauriez vous d'où provient mon erreur ? _$ (setq fenet (car (entsel))) (setq ent (entget fenet)) (setq anclist (assoc 12 ent)) (setq conlist (cons (car anclist) '(0.0 0.0 0.0))) (setq nouvlist (subst conlist anclist ent)) (entmod nouvlist) <Nom d'entité: 7ffffb09aa0> ((-1 . <Nom d'entité: 7ffffb09aa0>) (0 . "VIEWPORT") (5 . "222") (102 . "{ACAD_XDICTIONARY") (360 . <Nom d'entité: 7ffffb09ab0>) (102 . "}") (330 . <Nom d'entité: 7ffffb06da0>) (100 . "AcDbEntity") (67 . 1) (410 . "Présentation1") (8 . "0") (100 . "AcDbViewport") (10 443.444 97.5 0.0) (40 . 205.6) (41 . 156.0) (68 . 3) (69 . 3) (12 3750.08 1505.04 0.0) (13 0.0 0.0 0.0) (14 10.0 10.0 0.0) (15 10.0 10.0 0.0) (16 0.0 0.0 1.0) (17 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0) (45 . 512.321) (50 . 0.0) (51 . 0.0) (72 . 1000) (90 . 557152) (281 . 0) (71 . 1) (74 . 0) (110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (79 . 0) (146 . 0.0) (170 . 0) (61 . 5) (348 . <Nom d'entité: 7ffffb06f50>) (292 . 1) (282 . 1) (141 . 0.0) (142 . 0.0) (63 . 250) (421 . 3355443)) (12 3750.08 1505.04 0.0) (12 0.0 0.0 0.0) ((-1 . <Nom d'entité: 7ffffb09aa0>) (0 . "VIEWPORT") (5 . "222") (102 . "{ACAD_XDICTIONARY") (360 . <Nom d'entité: 7ffffb09ab0>) (102 . "}") (330 . <Nom d'entité: 7ffffb06da0>) (100 . "AcDbEntity") (67 . 1) (410 . "Présentation1") (8 . "0") (100 . "AcDbViewport") (10 443.444 97.5 0.0) (40 . 205.6) (41 . 156.0) (68 . 3) (69 . 3) (12 0.0 0.0 0.0) (13 0.0 0.0 0.0) (14 10.0 10.0 0.0) (15 10.0 10.0 0.0) (16 0.0 0.0 1.0) (17 0.0 0.0 0.0) (42 . 50.0) (43 . 0.0) (44 . 0.0) (45 . 512.321) (50 . 0.0) (51 . 0.0) (72 . 1000) (90 . 557152) (281 . 0) (71 . 1) (74 . 0) (110 0.0 0.0 0.0) (111 1.0 0.0 0.0) (112 0.0 1.0 0.0) (79 . 0) (146 . 0.0) (170 . 0) (61 . 5) (348 . <Nom d'entité: 7ffffb06f50>) (292 . 1) (282 . 1) (141 . 0.0) (142 . 0.0) (63 . 250) (421 . 3355443)) nil _$

c'est exactement ce que je cherchait le GEF mai si il prenait en charge les couleur des fenetre sa serait tip-top

Bonjour, j'ai plusieurs fenetre dans une présentation (espace papier) et je souhaiterai appliquer à ces fenetres un état de calque, y aurait il un autre moyen de selectionner toute les fenetre et de leur appliquer l'état de calque souhaité ? pour l'instant je modifie les fenetres les unes aprés l'autres

Bonsoir, j'ai un bloc dans lequel je mets un attribut qui à pour valeur le champs "calque". jusqu'à là tout fonctionne correctement. là où sa se complique c'est que mon calque ce nomme "EXE_PH-RDC_J01" et que je souhaiterai avoir comme valeur d'attribut uniquement les 3 derniers caractères : "J01" et non "EXE_PH-RDC_J01" dans champs/ExpressionDiesiel, je pensait qu'on pourait utiliser "$(substr, ...", ce qui fonctionne pour un variable mais pas pour un nom de calque... bref auriez vous une solution ???

merci sa marche trop bien !!