bonuscad

Essayes avec: (getenv "MaxHatch") pour obtenir la valeur actuelle et (setenv "MaxHatch" "5000000") pour assigner une nouvelle valeur Drôle de méthode ! Pourquoi ne pas partir du acadiso.dwt ? Mélanger le système impérial et métrique, je ne te dis pas lors d'insertion de bloc ou d'échelle de type de ligne, à y perdre son latin... :( [Edité le 19/1/2011 par bonuscad]

J'ai réussi à reproduire ce cas de figure. Cela peut se présenter dans le cas où par exemple la polyligne de contour fait un aller-retour sur 2 sommets. J'arrive bien à hachurer cette zone, mais dans propriété je n'ai pas la surface, que l'élévation ! Je ne sais pas si c'est ton cas, mais tu peut le vérifier en utilisant "pedit" "modif-sommet" et en parcourant les sommets...

Si par exemple "M'avertir quand un nouveau pilote d'affichage est disponible" n'est pas coché, alors Autocad considèrera ta carte comme non-certifié (en gros il n'y a pas eu de mise à jour de ton pilote alors qu'il est disponible). Cela n'empêche pas ta carte de fonctionner correctement avec l'ancien pilote certifié ;) Tu perds juste les corrections ou améliorations du nouveau pilote. Si, on peut procéder à l'ajustement, d'ailleurs c'est la meilleure option que l'on peut prendre avec une carte non-certifié pour avoir un fonctionnement correct ou possible si l'on rencontre des problèmes. Il faudrait que philou2 édite son message n°12 il doit y avoir une balise htlm incorrecte dans son message.

Lorsque tu utilise la commande 3DCONFIG, outre d'afficher le journal comme t'as pu le faire, tu peux aussi faire un "ajustement manuel" Avec cette option tu peux choisir celui qui te convient le mieux (offrant le plus de symbole vert possible, jaune étant une fonction mal assumé et rouge carrément indisponible.) Ceci est une commande facilement accessible, soit par le menu affichage, soit au clavier STYLVISCOURANT. Avec cette commande tu peux choisir de travailler en filaire2D en filaire3D en mode caché et si tu as une très bonne carte en mode rendu et encore d'autre modes. Tant que tu ne change pas de mode, tu reste dans ce type d'affichage. (l'icone du SCU/SCG présente un affichage différent suivant le mode)

Si vous avez tous le même matériel... La raison qui me viendrait à l'esprit et celle que j'ai énoncé: Peut être des collègues plus curieux ont utilisé 3DCONFIG et choisi DirectX au lieu d'OpenGL, ou effectué d'autres réglages qui se révèlent plus propices. Ou encore ils travaillent toujours en style visuel 2D, alors que d'autres ont choisi le style 3D pour leur convenance. (mode déconseillé si la carte ne convient pas vraiment) C'est les deux principales causes que je verrais. Après il faudrait voir aussi comment le multi-tâche est sollicité suivant les utilisateurs, qui pourrait "bouffer" de la ram qui n'est plus affecté alors à la décharge de la carte graphique. Mais avec une ATI Radeon, je n'y crois pas trop, ce serait plus le cas pour une carte intégrée.

Je crois que tout est dit. Lorsque notre service info à décidé de changer notre matériel pour accueillir Map 2009 et covadis, ils n'ont pas du tout tenu compte de la carte graphique (carte graphique intégrée), une catastrophe.... Même en filaire 2D avec des hachures solide en 2D, les temps de sélections étaient anormalement long avec des effets étranges. Ils n'ont pu que constater et changer le matos. Avec des cartes graphiques appropriés et certifiées, ben les problèmes ont été résolus. Comme quoi ! Les "zozos" existent bel est bien (voir autre sujet du forum) ;)

Dans Autocad, la commande "3DCONFIG" puis le bouton"Afficher le journal d'ajustement" te donnera toute les infos. Dans cette boite, tu peux aussi faire certain réglages...

Comme tu parles de cercles, je suggère de passer la variable WHIPARC à 1 (valeur par défaut 0), voir ci cela change quelque chose. Notes que mis à cette valeur les temps de réponses de l'affichage peuvent être dégradés... c'est un choix !

Bonsoir, Avec une itération de 1m sur le rayon ( j'aurais pus faire plus précis !) Voici mon calcul itératif. ((lambda ( / ) (setq rad 424.995 lg_clo 0.0) (setq alpha (- pi (- (angle '(581.263 719.211) '(1151.543 479.569)) (angle '(581.263 719.211) '(126.712 136.140)) ) ) ) (setq lg_arc (* rad alpha)) (while (and (not (equal lg_clo (/ lg_arc 10.0) 0.0005)) (<= rad 1300.0)) (setq rad (+ 0.005 rad)) (setq a_clo (sqrt (* 6.0 (expt rad 0.4) rad))) (setq lg_clo (/ (* a_clo a_clo) rad)) (setq tau (/ (* lg_clo lg_clo) (* 2 a_clo a_clo))) (setq lg_arc (* rad (- alpha (* 2.0 tau)))) ) (print "Rayon ") (princ rad) (print "Paramètre clothoide ") (princ a_clo) (print "Longueur clothoide ") (princ lg_clo) (print "Longueur arc de cercle ") (princ lg_arc) (prin1) )) J'ai bon ? Je peut rentrer à l'École Supérieure des Géomètres Topographe ! Je ne suis que technicien topographe de formation (BTS) [Edité le 20/1/2011 par bonuscad]

Alors Cadmin risque d'être hors jeu :P P'être qu'il nous fera un poisson d'Avril, ou un "easter egg" sur le site pour Pâques.... Sur ce, bonne santé à tous et à vos proches.

En effet avec le DWF c'est encore mieux et certainement plus fluide car ça reste du vectoriel. Je pense que trjNRV tiens sa solution. La démarche? Par exemple dans ton dessin ou un nouveau dessin, arrange toi pour n'avoir que tes XRefs de chargés et tu fais une sortie sur le périphérique DWF (si pas disponible rajoute le par le gestionnaire de tracé). Cela va te créer un DWF contenant tout tes XRefs Dans ton dessin origine tu Détache ou Décharge tout tes XRefs et à la place du attache ton DWF. krunch à raison les objets dans le DWF restent "snapables" (accroche objet) contrairement à une image (qui aurait pixélisée suivant le zoom), l'idéal quoi ! ;)

Ou alors, si tu veux simplement avoir ton fond en visuel, change l'ensemble de tes Xrefs en une seule image (sortie traceur au format image de tous les XRef), comme ça, hormis le cadre, rien ne sera sélectionnable... Rien ne t'empêche de rattacher tes Xrefs par la suite à la place de l'image.

Un formatage ne détruit pas une licence. Elle est inscrite sur le MBR (Master Boot Record) du disque. Pour la détruire, c'est comme certain virus, il faut utiliser un utilitaire de partitionnement qui est capable d'écrire dans cette zone (très très réservée...). Anciennement on avait FDISK /MBR pour les FAT32 qui faisait ça, depuis XP avec NTFS c'est plutôt FIXMBR avec l'utilitaire DISKPART (en système console uniquement et en mode récupération) NB: Quand je dis formatage, je parle du formatage standard proposé par Windows, pas du formatage usine (utilitaire fourni pas le fabricant du disque, dont je ne recommande pas l'utilisation si le disque est sain et fonctionnel) [Edité le 17/1/2011 par bonuscad]

Tentes une réinitialisation de ton profil. (dans les options, dernier onglet) De cette manière, tu reprendra un profil remis avec des paramètres par défaut. Les fichiers (*.ARG) sont liés à ces profils. Souvent ils résolvent les problèmes, d'ailleurs ton message d'erreur fait bien référence au profil...

Et si tu ne connais pas la direction exacte, tu peux passer par la commande DECALER (_OFFSET) Ta longueur imposée étant la valeur de décalage. Tu efface la source, si tu voulais faire un déplacement. Ta question ne dis pas si ce déplacement doit se faire par rapport aux axes XY ou à l'objet...

Effectivement suivant l'état de ANGDIR et ANGBASE on obtient pas forcément l'angle intérieur des tangentes (mais l'angle n'est pas vraiment faux, c'est une valeur complémentaire) Donc en tenant compte de ta remarque et de tes désirs, une version dédiée ;) (vl-load-com) (defun c:ARTDB ( / js n AcDoc Space ename obj pr nb typ_obj oldim oldlay a_base a_dir pt_start pt_end pt_cen rad alpha pt_vtx dist_start dist_end seg_len seg_bulge) (defun grdraw-id_arc ( / oldcolor) (setq oldcolor (getvar "CECOLOR")) (setvar "CECOLOR" "3") (command "_.line" "_none" (trans pt_start 0 1) "_none" (trans pt_vtx 0 1) "") (command "_.line" "_none" (trans pt_vtx 0 1) "_none" (trans pt_end 0 1) "") (setvar "CECOLOR" "5") (command "_.line" "_none" (trans pt_start 0 1) "_none" (trans pt_cen 0 1) "") (command "_.line" "_none" (trans pt_cen 0 1) "_none" (trans pt_end 0 1) "") (setvar "CECOLOR" "2") (command "_.line" "_none" (trans (polar pt_cen (angle pt_cen pt_vtx) (abs rad)) 0 1) "_none" (trans pt_vtx 0 1) "") (setvar "CECOLOR" oldcolor) ) (defun add_mt_arc ( / ins_txt h_t) (initget 9) (setq ins_txt (getpoint (trans pt_cen 0 1) "\nPoint d'insertion des informations de l'arc?: ")) (initget 6) (setq h_t (getdist ins_txt (strcat "\nTaille du texte <" (rtos (getvar "textsize")) ">: "))) (if (null h_t) (setq h_t (getvar "textsize")) (setvar "textsize" h_t)) (vla-addMtext Space (vlax-3d-point (trans ins_txt 1 0)) 0.0 (strcat "{\\fArial Narrow|b0|i0|c0|p34;" "A = " (angtos (- pi (* 2 alpha)) (getvar "LUNITS") 4) "\\PR = " (rtos rad 2 3) "\\PT = " (rtos (distance pt_start pt_vtx) 2 3) "\\PD = " (rtos seg_len 2 3) "\\PB = " (rtos (- (distance pt_cen pt_vtx) (abs rad)) 2 3) "}" ) ) (entmod (append (vl-remove-if (function (lambda (x) (or (member (car x) '(90 63 421 45)) (< 419 (car x) 440) ) ) ) (entget (entlast)) ) (list '(90 . 1) '(63 . 41) '(421 . 16770196) '(45 . 1.5) ) ) ) (entupd (entlast)) ) (princ "\nSélectionner des Arcs/PolyArcs .") (setq js (ssget '((-4 . " (-4 . " (0 . "POLYLINE") (-4 . " (-4 . "&") (70 . 126) (-4 . "NOT>") (-4 . "AND>") (0 . "LWPOLYLINE,ARC") (-4 . "OR>")) ) n -1 ) (cond (js (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) nb 0 ) (cond ((null (tblsearch "LAYER" "Info ARTDB des Arcs")) (vlax-put (vla-add (vla-get-layers AcDoc) "Info ARTDB des Arcs") 'Color "5") ) ) (setq oldim (getvar "dimzin") oldlay (getvar "clayer") a_base (getvar "ANGBASE") a_dir (getvar "ANGDIR") ) (setvar "dimzin" 0) (setvar "clayer" "Info ARTDB des Arcs") (setvar "ANGBASE" 0) (setvar "ANGDIR" 0) (repeat (sslength js) (setq ename (ssname js (setq n (1+ n))) obj (vlax-ename->vla-object ename) pr -1 nb 0 ) (setq typ_obj (vla-get-ObjectName obj)) (if (eq typ_obj "AcDbArc") (progn (setq pt_start (vlax-get obj 'StartPoint) pt_end (vlax-get obj 'EndPoint) pt_cen (vlax-get obj 'Center) rad (vlax-get obj 'Radius) alpha (* (vlax-get obj 'TotalAngle) 0.5) seg_len (vlax-get obj 'ArcLength) pt_vtx (polar pt_cen (+ (vlax-get obj 'StartAngle) alpha) (+ rad (* rad (1- (/ 1 (cos alpha)))))) nb (1+ nb) ) (grdraw-id_arc) (add_mt_arc) ) (repeat (fix (vlax-curve-getEndParam obj)) (setq dist_start (vlax-curve-GetDistAtParam obj (setq pr (1+ pr))) dist_end (vlax-curve-GetDistAtParam obj (1+ pr)) pt_start (vlax-curve-GetPointAtParam obj pr) pt_end (vlax-curve-GetPointAtParam obj (1+ pr)) seg_len (- dist_end dist_start) seg_bulge (vla-GetBulge obj pr) ) (if (not (zerop seg_bulge)) (progn (setq rad (/ seg_len (* 4.0 (atan seg_bulge))) alpha (+ (angle pt_start pt_end) (- (* pi 0.5) (* 2.0 (atan seg_bulge)))) pt_cen (polar pt_start alpha rad) pt_vtx (polar pt_start (- alpha (* pi 0.5)) (* rad (/ (sin (* 2.0 (atan seg_bulge))) (cos (* 2.0 (atan seg_bulge)))))) alpha (if (< (* 2.0 (atan seg_bulge)) 0) (- pi (* 2.0 (atan seg_bulge))) (* 2.0 (atan seg_bulge))) nb (1+ nb) ) (grdraw-id_arc) (add_mt_arc) ) ) ) ) ) (setvar "dimzin" oldim) (setvar "clayer" oldlay) (setvar "ANGBASE" a_base) (setvar "ANGDIR" a_dir) ) ) (prin1) )

Si le principe te convient essayes cette version ! (defun c:linear_nto1 ( / js nb ent dxf_ent typ_ent up_def pt_lst n new_lst) (while (not (setq js (ssget '((0 . "LWPOLYLINE")))))) (initget 7) (setq n (getint "\nNombre de sommet à éliminer? : ")) (repeat (setq nb (sslength js)) (setq ent (ssname js (setq nb (1- nb)))) (setq typ_ent (cdr (assoc 0 (setq dxf_ent (entget ent)))) new_lst '()) (setq up_def (vl-remove-if '(lambda (x) (or (= (car x) 10) (= (car x) 40) (= (car x) 41) (= (car x) 42))) dxf_ent)) (setq pt_lst (vl-remove-if-not '(lambda (x) (or (= (car x) 10) (= (car x) 40) (= (car x) 41) (= (car x) 42))) dxf_ent)) (while pt_lst (setq new_lst (append (mapcar '(lambda (x) (nth x pt_lst)) '(0 1 2 3)) new_lst)) (setq pt_lst (cddddr pt_lst)) (repeat n (if (cdr pt_lst) (setq pt_lst (cddddr pt_lst))) ) ) (setq up_def (subst (cons 90 (/ (length new_lst) 4)) (assoc 90 up_def) up_def)) (entmod (append (subst (cons 90 (/ (length new_lst) 4)) (assoc 90 up_def) up_def) new_lst)) ) (princ) )

Bonjour, La meilleure façon (à mon avis) et de sortir un fichier EPS (PostScript Encapsulé) depuis Autocad (Rajouter ce périphérique d'impression pas le gestionnaire de traçage d'AutoDesk) L'avantage est qu'il produit un fichier léger (.eps facile à transmettre) Ce n'est que lors de l'import sur un logiciel d'image (photoshop, gimp ....) que tu choisis de le pixéliser à la résolution que tu désires. Donc tu peux obtenir un fichier de très bonne résolution ou en basse résolution, le poids du fichier obtenu sera en conséquence de la résolution fixé lors de l'import. Tu peux produire aussi directement des images d'Autocad en installant les périphériques adéquates (toujours par le gestionnaire de traçage) mais je trouve les réglages moins évidents pour obtenir la résolution souhaitée.

Bonjour, Comme TEXTFILL a une incidence sur les polices TTF pour le rendu et/ou l'impression, cela me fait dire que cela vient plutôt du Style visuel. (commande STYLVISCOURANT, _VSCURRENT) Avec le style Masqué3D, les polices TTF deviennent effectivement évidées quelque soit la valeur de TEXTFILL. [Edité le 13/1/2011 par bonuscad]

Effectivement le (cons) ne fonctionne pas pour une LWPOLYLINE (je n'avais même pas fais gaffe) :P Avec (append) ca à l'air d'aller ! ((lambda ( / dxf_ent) (setq dxf_ent (entget (car (entsel "\nChoisir un objet: ")))) (if (assoc 62 dxf_ent) (entmod (subst '(62 . 4) (assoc 62 dxf_ent) dxf_ent)) (entmod (append dxf_ent '((62 . 4)))) ) ))

Non ! Mais tu peux poster le retour (liste DXF complète) de (entget (car (entsel))) fait sur la polyligne qui te pose problème, ça aidera à y voir plus clair.

Et si tu ne t'en sort pas avec le lien donné par lili2006. (Triangle.exe est un très bon calculateur de MNT triangulé.) Il reste la possibilité d'utiliser la routine en pure AutoLisp de notre ami ElpanovEvgeniy . C'est d'ailleurs le meilleur code en lisp sur le net qui fonctionne que j'ai pu tester pour faire ce genre de chose. C'est sur que triangle.exe est mieux, on peut obliger les faces a s'appuyer sur des lignes de ruptures. Mais le code d'Evgeniy est très honorable est peut suffire.

Bonsoir, En lisp il te faut donner l'ObjId de l'entité que tu veux mesure que tu vas concaténer au reste de l'expression. Le plus simple est de travailler ton code avec les fonctions (vla-...). Il y a de nombreux codes sur le forum construit comme cela sur le forum. Je te conseille de passer par Rechercher dans les forums en mettant un mot UNIQUE (c'est le défaut de ce module), dans ton cas ObjId Cette recherche sera plus efficace que le gros pavé de module de Recherche général utilisant google. Je pense que dans le retour tu trouvera des codes dont tu pourra t'inspirer...

La commande _EXTRIM peut ajuster automatiquement à ta polyligne servant de cadre. Après tu achève avec la commande EFFACER (_ERASE) ce qui n'a pas été fait.

Ah ! On n'avait pas remarqué que t'avais changé ton fusil d'épaule dans le développement. ;) En tout cas ta version lisp fonctionne aussi sous Briscad sous Linux, je l'ai testé. C'était pas une suggestion! C'était juste pour dire qu'il est toujours possible de vouloir encore plus de fonctionnalités. Pour moi tout va bien, l'outil de base répond à mon besoin. En même temps pouvoir modifier simplement des Xdata n'est peut être pas une bonne chose pour celui qui les a mis en place, car généralement il y a aussi un développement derrière celles-ci. Si on lui truicide sa base, ben y vas pas être content. :P