Bred

Salut, J'ai l'oportunité de chager de Carte graphique. J'ai une MATROX Parthélia 128, mais elle n'et pas certifié et conseillé par Autodesk (là) et il est vrais que j'ai des bugs d'affichage bizarres... Donc je voudrais la meilleur carte (rapport qualité/prix) qui soit... en AGP ! Et quand l'on voit les prix des (soit disant) Pro à comparer au "grand publics", j'ai un doute Exemple : Carte Graphique Radeon X1600 PRO - 512 Mo DDR2 - 128 bits : 140 € TTC votre avis ?

Salut, Pourquoi faire une polyligne ? utilise la'outil rectangle ! Pour hachurer une forme, au lieu de calculer un point dans ctte forme, tu donner comme base la forme elle-même ! (command "-fhach" "s" rectangl "" "") Tu peux suprimer des (setq) ! (plus le code est court, mieux c'est !)

AAAAhhhh ! ça fait (presque) plaisir de ne pas se sentir seul sur ce coup ! Et quel est ta carte graphique ?

Pfff... je suis désolé Worms69, ton post c'est transformé en une leçon pour moi (... encore !!! ;) ) ... Merci (gile), j'ai mis tes exemples en application. Tu m'avais déjà fait touché aux vlax-invoke ici. et j'avais l'intuition que l'on pouvait passer par là... mais je trouve que la manière "entmake" est plus simple, quand même !.... non ? Voici le code, donc, avec ajout des couleurs: (defun c:drapj3 () (vl-load-com) (setq Plan_Actif (vla-get-ModelSpace (vla-get-ActiveDocument(vlax-get-acad-object))) long (getdist "\nLongueur du drapeau :") h (/ long 1.6) pt1 (getpoint "\ Point d'insert :") pt_lst1 (list (list (car pt1)(cadr pt1)) (list (+ (car pt1) long)(cadr pt1))) pt_lst2 (list (list (- (+ (car pt1)(/ long 2))(* h 0.2)) (cadr pt1)) (list (+ (+ (car pt1)(/ long 2))(* h 0.2)) (cadr pt1))) norm (trans '(0 0 1) 1 0 T) elv (caddr (trans (car pt_lst) 1 norm)) pline1 (vlax-invoke Plan_Actif 'addLightWeightPolyline (apply 'append (mapcar '(lambda (pt) (setq pt (trans pt 1 norm)) (list (car pt) (cadr pt))) pt_lst1))) pline2 (vlax-invoke Plan_Actif 'addLightWeightPolyline (apply 'append (mapcar '(lambda (pt) (setq pt (trans pt 1 norm)) (list (car pt) (cadr pt))) pt_lst2))) ) (vla-put-ConstantWidth pline1 (/ long 1.6)) (vlax-put-property pline1 'Color 255) (vla-put-Elevation pline1 elv) (vla-put-Normal pline1 (vlax-3d-point norm)) (vla-put-Elevation pline2 elv) (vla-put-Normal pline2 (vlax-3d-point norm)) (vla-put-ConstantWidth pline2 (* h 0.4)) (vla-setBulge pline2 0 1.0) (vla-setBulge pline2 1 1.0) (vla-put-Closed pline2 :vlax-true) (vlax-put-property pline2 'Color 1) )

Tout à fait, ce qui est important c'est que ces variables soit en format texte (ou "string") : Exemples (détaillé - possibilité de le raccourcir): (setq indice 1) (setq niv 3.253) (setq texte "Niveau : ") (setq Texte_Assemble ([b]strcat[/b] ([b]itoa[/b] indice) " - " texte ([b]rtos[/b] niv))) (setq fichier (open "c:\\test.txt" "w")) (write-line Texte_Assemble fichier) (close fichier) Dans l'aide, je te conseil d'aller voir "Conversion Functions". (la fonction "angtof" devrait t'interresser aussi ! ;) ) [Edité le 21/12/2006 par Bred]

Pour la récupération des valeurs d'une boite dcl, je te laisse voir l'exemple de (gile)... Personnellement, pour les boites de dialogues, je les faits en vba, et je transmet les valeurs dans un code lisp (houuu! j'entends déjà certains crier au sacrilège !!!) Par contre, j'ai l'impression que tu butes un peu sur l'écriture d'un fichier txt. C'est assez simple : tu peux aller dans l'aide du visual Lisp "file", et tu trouveras ton bonheur !!! Exemples : (setq fichier (open "c:\\test.txt" "w")) ;récup données.... (write-line "1 - Test1" fichier) ;récup données.... (write-line "2 - Test2" fichier) (close fichier) Mais ne saurait tu pas plus intérresser par une écriture directement dans Excel ?

Bon... ben là je laisse tomber.... Création d'une Polyligne en vl : En vl, j'ai commencer à chercher dans l'aide.... pas clair. Puis je suis retouné sur cadXP et j'ai fait une recherche... et là, je suis tombé sur cet exemple proposé par (gile) ... qui m'a fait reculer.... Donc, pour ça, je laisse le (entmake) comme code ultime (je pense), mais je reviendrais à la charge si un post se présente pour vous démontrer que suite à l'aide des personnes de ce forum, j'ai un peu assimiler le principe du vl...

... on me met au défi de mieux que ça ??? on me sous estime on dirait :casstet: ;) pfff...! trop petit pour moi !!! allez, pour mes maitres de ce forum, le même en (entmake) : (nota : ça m'a fait découvrir qu'un anneau était une polyligne.... c'est bête est logique, mais je ne voyais pas ça comme ça !) (defun c:drapj2 () (setq long (getdist "\nLongueur du drapeau :") h (/ long 1.6) pt1 (getpoint "\ Point d'insert :")) (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 62 255) (cons 43 h) (cons 90 2) (cons 10 (list (car pt1) (cadr pt1))) (cons 10 (list (+ (car pt1) long) (cadr pt1)))) ) (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 62 1) (cons 43 (* h 0.4)) (cons 90 2) (cons 70 1) (cons 10 (list (- (+ (car pt1)(/ long 2))(* h 0.2)) (cadr pt1))) (cons 42 1.0) (cons 10 (list (+ (+ (car pt1)(/ long 2))(* h 0.2)) (cadr pt1))) (cons 42 1.0)) ) (princ "\nQu'il est beau mon Drapeau !!!!") (princ) ) Allez.... c'était un bon exo.... .... si tu me lance le défi en vl je...... verrais..... :exclam: [Edité le 16/12/2006 par Bred]

Bon, allez, tout(trop) simple est bien expliqué... à toi de le modifier : on peut bien sûr faire mieux, mais je pense que pour apprendre c'est bien comme ça. (defun c:drapj (/ long h pt1 pt2 fond diam mil-fond) (setq long (getdist "\nLongueur du drapeau :")) ; donner longueur au clavier ou choisir 2 points (setq h (/ long 1.6)) ; hauteur drapeau (/ 1.6 ???) (setq pt1 (getpoint "\ Point d'insert :")) (setq pt1x (car pt1) ; récup coordonnées x,y et z de pt1 pt1y (cadr pt1) pt1z (cadr pt1)) (setq pt2 (list (+ pt1x long) pt1y pt1z)) ; construction pt2 (command "_pline" pt1 "la" h h pt2 "") ; polyligne (setq fond (entlast)) ; récup polyligne dans "fond" (command "_change" fond "" "p" "co" 255 "") ; change couleur de fond en blanc (255) (setq diam (* h 0.8)) ; diamètre disque (???) (setq mil-fond (list (+ pt1x (/ long 2)) pt1y pt1z)) ; Point centre polyligne (command "_donut" 0 diam mil-fond "") ; anneau (command "_change" (entlast) "" "p" "co" 1 "") ; couleur anneau en rouge (1) (princ "\nQu'il est beau mon Drapeau !!!!") ; commentaire sur ligne de commande (princ) ) ... je te laisse chercher pour le transformer en bloc ou en groupe.... [Edité le 15/12/2006 par Bred]

Re, j'ai vraiment du mal à comprendre quel est ton problème. - Si tu veux aligner un texte déjà écris à une polyligne ou autre, il y a ce Lisp qui est déjà proposé. (pas de multiligne, mais si tu demandes gentiment je suis persuadé que l'auteur se fera un plaisir de l'adapter... ) ;) - si tu veux diriger ton scu par rapport à un objet, tu as la commande autocad "SCU selon OBJET" en lisp : (command "_ucs" "_ob" pause) :casstet:

Wow !!! moi qui suis d'un fond indulgent, j'ai trouvé ma limite !!! c'est regrétable, mais personnelement je ne répondrais pas à cette personne semble manquer totalement de savoir vivre... Par contre si c'est dû à un handicap mental, je demande que l'on m'excuse, il est difficile de discerner les personnes handicapés via des messages écris (même si le language écris SMS porte à le croire). Donc, sangracosan, si tu souhaite toujours une réponse et que nous n'avions pas compris que tu es dans le cas de personne que je viens de décrire, signale le nous !...

aussi... POur cibler juste, faudrait me dire ce que tu veux en faire avant : impression Noir et Blanc? Couleur? juste vision à l'écran? Impression avec vue en 3D perspective possible ? etc....

Pour récupérer en lisp une entité venant juste d'être créer, c'est : (setq ent (entlast)) ... et tu as l'objet dans ent... Par contre : La gaine est une ligne, une polyligne ? parcequ'on peut directement l'aligner sur l'objet.... sans rotation manuel.... [Edité le 15/12/2006 par Bred]

Hé hé hé... y'a du code 60 dans l'air !!! malin !.... mais j'ai un outils qui l'annule... par contre, pour la transmission au client c'est exactement ce que jalna voulait ! chapeau bas ! (comprend quand même pas le but...) (mais est-ce vraiment utile les réacteurs dans ce cas ? juste une activation/désactivation du code 60 aurait suffit, non ?... évitant ainsi le message d'erreur si on n'a pas le prog....) [Edité le 21/12/2006 par Bred]

Alors : _.fill est une variable correspondant à "Remplir" en français : (voir dans l'aide) L'un de lisp que tu me cites (drapeau suisse) utilise la commance "_solid" qui crée un "solide 2D à maillage"... c'est une solution... Je serais d'avis de le faire en polilygne personnellement (longueur + largeur = rectangle), et tu changes la couleur comme définis plus haut.... POur le disque solaire, je pense au hachurage. Ou tu hachures tout (ce qui te permettras d'éviter le risque de superposition du rond plein sur le rectangle..) Pour récupérer l'objet cercle : (command "cercle" centre (/ lar 3)) (setq c1 (entlast)) si tu veux je peux te faire quelque chose.... mais c'est moins rigolo !!! ;)

Tu veux l'hachurer en solid ? [Edité le 15/12/2006 par Bred]

(c'est ma journée concernant la compréhension des messages, décidement...) puis Je n'en vois vraiment pas la raison mais bon... (je ne vois pas la contrainte que c'est de suprimer son cartouche et faire une copie du plan avant transmission) D'où, Patrick_35 te fait un lisp bloquant l'accés à un onglet, mais (et c'est logique): Donc, au lieu de suprimer ton cartouche et de transmettre ton plan, tu vas envoyer ton plan + un prog que le client devra charger pour bloquer l'accés à ton cartouche ??? :casstet: :casstet: ... d'où mon septissisme concernant la compréhension général de ton sujet...

Je pense qu'il y a confusion (gile) : il ne veut pas modifier l'echelle de sa fenêtre (d'après ce que moi je comprend) : il a une sorte de "bug" : Si je comprends bien, lorsque bekibo est dans une fenêtre courante, et qu'il veut zoomer, il repasse en espace papier !.... :casstet: (l'emploie du mot "echelle" est pûtot à comprendre comme facteur de zoom je pense !) [Edité le 15/12/2006 par Bred]

Je ne sais pas ce qui ce passe aujourd'hui, mais j'ai du mal à comprendre les messages :P Colorier = Hachurer ou changer la couleur du rectangle ? ... pour changer la couleur (en couleur 4 = turquoise: (setq sel (entsel "\Choix de l'objet")) (command "_change" sel "" "p" "co" [b] 4 [/b]"") ou en passant par les codes dxf : (if (assoc 62 (entget (car sel))) (entmod (subst (cons 62 [b] 4[/b]) (assoc 62 (entget (car sel))) (entget (car sel)))) (entmake (append (list (cons 62 [b] 4[/b])) (entget (car sel)))) ) [Edité le 15/12/2006 par Bred] [Edité le 15/12/2006 par Bred]

Salut, L'outil de rotation ne te convient pas ? (mais je n'ai pas dû comprendre.)

Ah..... merci ! ;) J'avoue ne pas bien comprendre ce que tu cherches à faire avec ton lisp, ne pourrais-tu pas afficher une image du plan finis stp ?

j'avoue ne pas connaitre ce language.... (tt? ss? ... ????) :casstet: :P Tu édites ton message en français, nous ne sommes pas tous ingénieur ! :cool:

Salut, j'avoue ne pas connaitre les wipeout (jamais utilisé). Vite fait (pense pas pouvoir faire plus court) : (defun c:eraseW (/ sel) (setq sel (ssget "_X" '((0 . "WIPEOUT" )))) (command "_erase" sel "") (princ) ) [Edité le 15/12/2006 par Bred]

Salut, Une installe "neuve" rapide : supprime la partie correspondant à Autocad 2007 dans la base de rebistre (sauvegarde le avant).

RE, Je crois que tu peux cherger les .dcl de la même manière dont tu charges les lisp comme je te l'explique dans mon message liés précédent ou. Tu mets les fichiers .dcl dans un des répertoire support déclarés (options/fichiers).