DenisHen

Merci (gile), mais je n'ai pas besoin d'une grande précision pour mon code, c'est pour faire un "foliotage" des géocartes. Ceci me suffit : (setq screen (getvar "screensize") ratio (/ (car screen) (cadr screen)) cen (getvar "viewctr") cen (trans cen 1 0) angle_rad (getvar "viewtwist") angle_rad (- (* 2 pi) angle_rad) h (getvar "viewsize") w (* h ratio) BasGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) BasDroite (polar (polar cen angle_rad (/ w 2)) (- angle_rad (/ pi 2)) (/ h 2)) HautDroite (polar (polar cen angle_rad (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) HautGauche (polar (polar cen (+ angle_rad pi) (/ w 2)) (+ angle_rad (/ pi 2)) (/ h 2)) ) ;_ Fin de setq

Salut (gile). Merci pour ton aide, j'ai trouvé ce que je cherchais dans ton lien... Encore merci à vous deux... Denis...

Bonjour Bonuscad. C'est exactement ça. Mille mercis... ;)

Salut... Super intéressant ton truc... Oui, on le télécharge où ? J'en ai trouvé un dans Object DCL, c'est celui-là ?

Bonjour à tous. Pour les besoins d'une routine que j'écris, j'ai besoin des coordonnées des points des extrémités de l'écran de l'espace objet. Je pensais utiliser EXTNIM et EXTMAX, mais j'ai découvert que ce n'est pas ce que je cherche. Si quelqu'un a un conseil, une astuce... je suis preneur...

Salut La Lozère. Je suis dans le même cas que toi, je n'ai jamais trouvé où augmenter la résolution de ces images. Du coup, j'en fais plusieurs petites (plus précises) au lieu d'une grande (définition "pourrie")... Ce serait intéressant de faire un Lisp qui automatiserait ça...

Salut. Je te propose ça : ;;; ******************** ;;; Prog pour Golum69 ;;; ******************** (defun c:ZoneStockage ( / p ) (setq p (getpoint)) (command "_pline" p (while p (command (setq p (getpoint "\nPoint suivant (Return pour FIN) : " p))))) (command "pedit" (entlast) "c" "") (princ) ) ;_ Fin de defun

Golum, utilise-tu l'éditeur de Lisp (IDE) d'AutoCAD ? Je vois que tu as des caractères curieux...

Sauf si on entre un mot de passe... Un mot de passe pour le lecture/écriture et un pour la lecture seule. Si on fait Échappe, rien ne s'ouvre...

A l'instar d'AutoCAD (qu'on n'utilise jamais à 100%), Covadis n'est pas utiliser à 100%. Donc, 30% de Covadis à 30% du prix, ça peut en intéresser plus d'un... Enfin je pense (PERSO).

il n'y a plus qu'à espérer, ou à prier... En tous cas, cet IDE à vraiment l'air génial...

Salut (gile). Une paille qui est tellement loin de ma portée que je ne tendrais même pas le bras pour l'atteindre... ;) Ce code est, pour moi, encore de la science fiction... A part les lignes "command"... :huh:

Salut. Je me souviens d'un truc très récent trouvé ici. Avec une petite modification, ça devrait faire ce que tu veux : ;; ********************************************************************************** ;;; Sauve et Quitte tous les dessins ouverts (d'après CAD Studio - www.cadforum.cz) ;;; ********************************************************************************* (defun C:SaveQuitAll (/ dwg) (vlax-for dwg (vla-get-Documents (vlax-get-acad-object)) (if (= (vla-get-active dwg) :vlax-false) (vla-close dwg :vlax-false) ) ;_ Fin de if ) ;_ Fin de vlax-for (command "._qsave") (command "._close") ) ;_ Fin de defun

Salut. Peut-être avec "CLOSEALL" ?

Je vais essayer de t'expliquer ce que j'ai compris... Voici un exemple de type de ligne (une cloture barbelée avec des petites croix : *Cloture_B,---xXx---xXx---xXx A,3,["X",Simplex,x=-.02,y=-0.10,s=.2],0.5,["X",Simplex,x=-.08,y=-0.20,s=.4],0.5,["X",Simplex,x=-.02,y=-0.10,s=.2],0.01 * : il instaure le NomDuTypeDeLigne,Description A : Définition de la ligne , : séparateur d'élément 3 : dessine un trait d'une longueur de 3 ["X",Simplex,x=-.02,y=-0.10,s=.2] : dessine le caractère "X" dans le style de texte "Simplex", décalage en x de -0.02, en y de -0.10, et une taille (s pour size) de 0.2 "Simplex" peux être un fichier SHX, dans ce cas, tu mets son extension ex :["X",Simplex.shx,x=-.02,y=-0.10,s=.2][/b] Dans mon cas, j'utilise le style de texte "Simplex", il me semble que, s'il n'y a pas d'extention, AutoCAD utilise le style de texte. , : séparateur d'élément 0.5 : dessine un trait d'une longueur de 0.5 , : séparateur d'élément ... ... Si tu veux dessiner un espace (entre deux traits par exemple) la longueur devra être négative. J'espère m'être bien exprimé... Personnellement, j'utilise à 99% le style de texte "Simplex" (à la place d'un SHX) défini avec la police "Simplex.shx" qui, à mes yeux, contient 99% des formes que je souhaite utiliser dans mes dessins. EDIT : bien sûr, le style de texte doit être déjà défini dans ton dessin avant l'importation du type de ligne...

Les fichiers .SHP (contenant des formes) et .SHX (compression du SHP) ne comportent pas de type de ligne (comme dans un fichier .LIN).

Salut. Avec LinOut (de CadStudio) j'obtiens :

Dixit Gaston... ;)

Salut. En même temps, je ne suis pas sûr, pour ma part, je vois deux solutions : Dessiner la polyligne tronçon par tronçon pour pouvoir insérer ton bloc à chaque sommet, puis, à la fin, joindre ces polylignes. Dessiner la polyligne en une seule fois, puis, insérer tous les blocs à chaque sommet en cherchant les sommets de cette polyligne. Mais je suis sûr qu'il va y avoir d'autres solutions...

Salut. Je pense que ce post pourrait t’intéresser.

Salut, et bienvenue...

Je n'avais jamais fais attention aux paramétrages de cette commande :mellow: , et j'ai l'impression de ne pas être le seul... ;) Merci pour cette précision...

Et comme je n'ai pas le droit de toucher aux références, donc, à leurs blocs, j'ai fais cette routine...

Ben chez moi, elle ne fonctionne pas toujours... Ça arrive, par exemple, lorsque tu sélectionnes un bloc qui est défini dans autre calque. Insert ce fichier en XRef et dis-moi, s'il te plaît, si CALQUEINAC fonctionne...

Bonjour à tous. Ayant découvert avec stupeur que la commande CALQUEINAC ne fonctionnait pas toujours pour inactiver un calque dans une XRef, j'ai écris ce petit code, que je partage : ;;; ****************************************************** ;;; Inactive un calque d'une XRef en cliquant une entité ;;; ****************************************************** (defun c:InactivCalqXRef (/ Select SelectDxf SelectCalq) (princ "\nDéveloppé par DenisH - CadXP.com (v1.0)") (setvar "clayer" "0") (setq Select (car (nentsel "Sélectionner l'entité dans la XRef à inactiver :"))) (setq SelectDxf (entget Select)) (setq SelectCalq (cdr (assoc 8 SelectDxf))) (command "-calque" "in" SelectCalq "") (princ (strcat "\nCalque '" SelectCalq "' inactivé")) (princ) ) ;_ Fin de defun