Aller au contenu

zebulon_

Membres
  • Compteur de contenus

    1 489
  • Inscription

  • Dernière visite

  • Jours gagnés

    19

Tout ce qui a été posté par zebulon_

  1. Un solide ou une hachure solide de couleur 255 placés dans l'espace papier peuvent donner le même effet ?
  2. (defun c:excalque () (setq SFILE (getfiled "Exporter Noms de Calques" "" "txt" 1)) (if SFILE (progn (setq F (open SFILE "w")) (setq C (tblnext "layer" T)) ; pointer sur le début du tableau des calques (While C (setq NOM (cdr (assoc 2 C))) ; extraire le nom (write-line NOM F) ; ecrire le nom dans le fichier (setq C (tblnext "layer")) ; pointer sur le suivant ) (close F) ) ) (princ) )
  3. J'utilisais jusqu'à présent 'cal mee; mee renvoyant le milieu entre 2 extrémités. Le fait d'utiliser 'cal;(cur+cur)/2; apporte une souplesse plus grande car les deux points n'ont pas forcément besoin d'être des extrémités comme pour mee.
  4. zebulon_

    lisp z=0

    ; Super-simple little routine to force ; all z-coordinants in a drawing to zero ; (with thanks to Randy Richardson and ; the Autodesk NG's). ; ; From Tee Square Graphics - 01/28/2000 (defun C:SMASH ( ) (command "_.move" "_all" "" '(0 0 1e99) "" "_.move" "_p" "" '(0 0 -1e99) "") (princ) )
  5. zebulon_

    Le favier vous? suite...

    Un autre truc pratique : on trace une ligne en donnant ses deux points. On lance une commande arc et au lieu de spécifier un premier point, j'appuie simplement sur ENTREE, du coup autocad me fait un arc tangent au bout de la ligne. Dans l'autre sens ça marche aussi : je trace un arc par 3 points. Je lance la commande LIGNE en tapant ENTREE à l'invite du premier point. La ligne sera tangente à l'extrémité de l'arc.
  6. Va voir à l'adresse http://www.cad-organizer.com/plt%20plotter.htm ou http://www.output.tmfweb.nl/ Sinon on peut utiliser la commande DOS COPY c:\monrep\monfichier.plt lpt1: (imprimante locale) COPY c:\monrep\monfichier.plt \\nomserveur\nomimprimante (imprimante réseau)
  7. zebulon_

    Le faviez vous?

    Un peu comme si on tape @10<30 qui trace une ligne de 10 avec un angle de 30. Ce qui peut être pratique aussi c'est de taper simplement @, ce qui fait commencer la ligne (ou autre chose) à partir du dernier point cliqué à l'écran.
  8. Pour la ligne de commande ^C^C-inserer;nom_fic;\;;0;$M=$(edtime, 0,DD"/"MO"/"YY); l'utilisation du lisp ne s'impose pas. Avec LT ça nous arrange. Afin d'utiliser la commande ci dessus simplement et rapidement, il serait peut être intéressant de créer un menu personnalisé, avec icône et de lui associer la commande. Cependant, j'éspère que la personnalisation des menus est autorisée avec la LT ???
  9. (defun c:renblock () (setq PRE (getstring "PREFIXE : ")) ; le nouveau préfixe (setq B (tblnext "block" T)) ; pointer sur le début du tableau des blocs (While B (setq NOM (cdr (assoc 2 B))) ; extraire le nom (if (= (strcase (substr NOM 1 6)) "$BLOCK") ; uniquement ceux qui doivent être renommés (command "_-RENAME" "_BL" NOM (strcat PRE (substr NOM 7 (strlen NOM)))) ; renommer ) (setq B (tblnext "block")) ; pointer sur le suivant ) ) C'est presque pareil ... Attention, je n'ai toujours pas vérifié les éventuels doublons.
  10. C'est d'autant plus un casse tête que je ne comprend pas le sujet. Il s'agit de renommer des blocs, je suppose. Le plus simple est d'insérer une commande _-RENAME dans une boucle WHILE. (defun c:renblock () (setq PRE (getstring "PREFIXE : ")) ; le nouveau préfixe (setq B (tblnext "block" T)) ; pointer sur le début du tableau des blocs (While B (setq NOM (cdr (assoc 2 B))) ; extraire le nom (if (/= (substr NOM 1 1) "*") ; pas les blocs sans nom (command "_-RENAME" "BL" NOM (strcat PRE NOM)) ; renommer ) (setq B (tblnext "block")) ; pointer sur le suivant ) ) Voilà, j'espère que ça convient. Un point que je n'ai pas vérifié : avant de faire le rename il faudrait vérifier si le nom de bloc n'existe pas déjà. [Edité le 27/10/2003 par zebulon_]
  11. zebulon_

    Talus

    Pas mal, l'outil pour faire des talus. Par contre, 30€ c'est trop cher par rapport à ma fréquence d'utlisation. Par contre, je n'ai pas trouvé BONUSCAD ? J'ai dû chercher au mauvais endroit, merci de me guider.
  12. Bonjour, je cherche un outil qui permet de dessiner des poils de talus entre deux polylignes. S'il y a un père noël qui a ça dans sa hotte, je suis preneur... Je jure que j'ai été sage toute l'année... OK, c'est pas encore le 24 décembre, mais on peut faire des cadeaux par anticipation.
  13. Je pense que la commande ATTREDEF devrait faire l'affaire, pas besoin d'inventer une usine à gaz. Il suffit d'insérer le bloc dans un coin du fichier à l'échelle 1, le décomposer, ajouter tous les attributs dont on a besoin et redéfinir le bloc en veillant à utiliser le même nom et le même point d'insertion. Attention, si l'ordre des attributs a une importance, il faut sélectionner les attributs individuellement en fonction de l'ordre voulu au moment du choix des objets. Que dit l'aide : Redéfinit un bloc et met à jour les attributs associés. Ligne de commande : attredef Entrez le nom du bloc que vous voulez redéfinir: Choix des objets pour le nouveau bloc: Sélectionner les objets: Point de base d'insertion du nouveau bloc: Spécifiez un point. Les nouveaux attributs affectés à des références de blocs existantes utilisent les valeurs par défaut. Les anciens attributs de la nouvelle définition de bloc conservent leurs valeurs. AutoCAD supprime tous les anciens attributs qui ne font pas partie de la définition du nouveau bloc.
  14. il suffit d'ouvrir un nouveau fichier, mettre la variable ICONESCU à la valeur INACTIF et enregistrer sous en choisissant un type de fichier gabarit et en écrasant le fichier gabrit par défaut. On peut déterminer le fichier gabarit par défaut en regardant dans les propiétés du raccourci d'autocad au niveau de la rubrique cible (le nom de fichier précédé par /t). (/t comme template.)
  15. Dans LT, il n'y a guère que le langage DIESEL qui fonctionne. Et avec ça, on ne va pas très loin, faut pas rêver... Sinon pour LTtoolkit, il faut aller à l'adresse http://www.drcauto.com/upfront/ LTtoolkit est à $315
  16. C'est vrai que le lisp, ça a du mal a marcher avec autocad LT, sauf si on investit dans un plugin comme LTtoolkit
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; ;;; youri.lsp ;;; ;;; parcourir la liste des calques en fonction de leur ordre de création à partir du calque courant ;;; en n'activant que le calque courant ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun c:youri () (command "_-LAYER" "_ON" "*" "") ; j'allume tout (command "_-LAYER" "_THAW" "*" "") ; je dégèle tout (setq CLAYER (getvar "CLAYER")) ; je récupère le nom du calque courant (tblsearch "LAYER" CLAYER T) ; je pointe sur le calque courant et j'ajuste le compteur d'entrée sur l'entrée suivante (if (setq CLAYER (cdr (assoc 2 (tblnext "LAYER")))) ; je récupère le nom du calque suivant (progn ; s'il existe (setvar "CLAYER" CLAYER) ; je le rend courant (command "_-LAYER" "_OFF" "*" "_Y") ; j'éteint tout (command "_on" CLAYER "") ; j'allume le calque courant ) ; sinon (alert "C'est le dernier calque de la liste") ; j'affiche un message ) ) [Edité le 15/10/2003 par zebulon_]
  18. Si rien ne marche plus, il reste toujours les bonnes vieilles commandes DOS pour se sauver. Pour imprimer un fichier vers une imprimante locale ou même réseau, il suffit d'utiliser la commande COPY Démarrer -> Programmes -> accessoires -> invite de commande DOS COPY nom_du_fichier nom_de_l'imprimante par exemple une imprimante HP650 sur un serveur qui s'appelle MYSERVER COPY toto.plt \\myserver\hp650 ou par exemple une imprimante branchée directement sur le poste COPY toto.plt lpt1: [Edité le 13/10/2003 par zebulon_]
  19. C'était fourni sur le CD de la version 14 d'autocad. Depuis, je n'ai pas vérifié si on pouvait encore le trouver sur le CD d'installation. De toute façon, je préfère télécharger chez McNeel, comme ça je suis sûr d'avoir une version récente. A noter que DOSlib est fourni avec un fichier PDF qui explique comment installer et qui donne la liste des fonctions disponibles et leurs paramètres. C'est un outil indispensable pour qui veut aller un peu plus loin dans la programmation LISP. @+
  20. Lisp est relativement mal fourni en matière de fonction de gestion des fichiers, notamment. C'est sans doute pour ça que Robert McNeel & Associates met à la disposition des developpeurs toute une gamme de fonctions à implémenter au lisp. Il faut pour cela télécharger le DOSlib à l'adress www.mcneel.com, c'est gratuit. Il y a entre autre une foncion, qui s'appelle dos_getfilem et qui permet de faire une sélection multiple. La fonction renvoie la liste des noms des fichiers sélectionnés. Voilà ce que dit McNeel au sujet de DOSLib... DOSLib™ is a library of LISP-callable functions that provide Windows operating system and DOS command-line functionality in AutoCAD 2000-2004. DOSLib extends LISP programming languages by providing the following functionality: Drive handling functions to change between drives and check disk space. Path handling functions to manipulate path specifiers. Directory handling functions to create, rename, remove and change directories. File handling functions to copy, delete, move, and rename files. Functions for getting directory listings, searching and finding multiple instances of files, and changing attributes are provided. Print handling functions to get and set default printers, and spool files. Initialization file handling functions to manipulate Windows-style initialization (INI) files, and Windows Registry access functions. Process handling functions to run internal DOS commands or other programs. System inquiry functions, like memory and disk statistics. Miscellaneous functions, like changing the system date and time, and displaying Windows message boxes. [Edité le 6/10/2003 par zebulon_]
  21. ça me rappelle une pub pour la SNCF.. c'est possible, d'accord, mais comment ?
  22. Depuis peu, nous avons la possibilité d'indiquer un chemin relatif pour les Xrefs. C'est très bien. La question est de savoir pourquoi ça n'est pas possible quand on insère une image puisque sur le principe c'est la même chose qu'une Xref ???
  23. zebulon_

    DWG et JPG

    Personnellement, j'ai installé une imprimante adobe postscript qui imprime dans un fichier. Après, j'ouvre le postscipt avec photoshop et c'est à ce niveau que je défini le nombre de pixel par pouce. C'est un peu compliqué, mais ça donne des bons résultats, qui dépendent du nombre de pixel par pouce choisi pour pixeliser le fichier postscript.
  24. Bel outil qui permet d'exporter du 2004 vers du 2000, voire du R14 (pour la version US). Tout ça en traitement par lot. Malheureusement, les objets AEC se perdent au passage. Génant pour des utilisateurs d'Autodesk Architectural Desktop...
  25. J'ai appliqué une hachure dégradée à une polyligne contenant des angles rentrants. A l'affichage, c'est impec. La préview impec aussi. A l'impression, il me manque un bout de la hachure :( J'ai essayé sur une imprimante postscript et une HPGL, c'est toujours pareil... J'en conclue que les hachures dégradées, ça ne marche bien que sur des rectangles...
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité