Dubloc

Bonjour le déterrage, mais à toutes fins utiles sachez que la mise à jour SP2 introduit une "nouvelle" commande : ARRAYCLASSIC L'ancienne commande "Réseau" avec sa bonne vieille boite de dialogue.

YES ! il y avait effectivement une instruction "findfile" qui partait à la recherche d'un fichier MNS que j'avais supprimé (puisque converti en CUI je le pensait inutile). Tu devrais jouer à EuroMillion toi, avec un pif pareil ! ;) Bravo et merci ! [Edité le 7/2/2007 par Dubloc]

Merci Bonuscad de t'intéreser à mon problème ! Alors comment expliquer que sur le poste d'un collègue ca marche bien ? J'ai pensé comme toi qu'une erreur dans le code de mon fichier MNL était la cause, mais même après avoir copié-collé celui du collègue à la place du mien j'ai toujours ce même message d'erreur ! :mad:

Je m'arrache toujours les cheuveux avec mon fichier MNL ! Voici le message qu'autocad m'affiche au démarrage : Utilitaires de menu AutoCAD chargés.; erreur: type d'argument incorrect: stringp nil

Hello Je ne l'avais pas précisé mais oui MNL et CUI ont le même nom, sont rangés au même endroit et leur chemin est spécifié dans les options... De plus, sur la bécane d'un collègue (Même OS même AutoCAD, même CUI et même MNL) ca marche parfaitement ! F7 permet d'afficher ou non la grille, mais ma question concerne la "grille adaptive", qui peut elle être activée dans la fenêtre OUTILS - AIDE AU DESSIN sur l'onglet "Accrochage/Grille" (variable GRIDDISPLAY). Ce qui m'embête c'est qu'elle est active par défaut et ce paramètre est sauvegardé dans chaque dessin, donc tous les fichiers antérieurs s'ouvrent avec ce paramètre actif. Pour tous les nouveaux dessins je n'ai qu'a désactiver celà dans mes gabarits DWT et le tour est joué.

Bonjour Le fichier MNL associé à mon menu partiel CUI ne se charge pas au démarrage. J'ai fouillé dans l'aide en ligne mais elle est vraiment très pauvre à ce sujet.... J'ai déchargé et rechargé le CUI sans succès, je ne sais plus ou chercher... Autre petit souci (mineur) : les images de mes barres d'outils perso sont floues, bien que leur taille soit toujours de 16x15 pixels comme sur Acad2002... et je trouve ça pas beau ! Et aussi, y a t'il une solution pour désactiver définitivement et automatiquement la "grille adaptive" ? Merci ! [Edité le 7/2/2007 par Dubloc]

Waouw !!! Exactement ce que je suis venu chercher aujourd'hui, presque un an jour pour jour après la création de ce post ! Comme quoi il faut toujours chercher avant de poster... ... et aussi donner des titres explicites ! C'est trop fort CADxp ! :)

Bonjour à tous... Je viens de recevoir de notre correspondante informatique (une peronne non-informaticienne qui sert d'interface entre le service informatique - basé au siège de la boite dans une autre ville - et les utilisateurs) un beau CD Autocad 2006 + la mise à jour 2007. Cool ! A moi de l'installer en lieu et place de la V2002 actuelle... Vais-je avoir des mauvaises surprises ??? :casstet: ... ou des bonnes ? :) Puis-je dans un premier temps faire cohabiter les deux sur mon système avant de supprimer l'ancienne ? Tous mes petits bricol-lisps vont-ils continuer de fonctionner ? Et mes menus personalisés ? ... et tout ce que j'oublie là tout de suite, impatient que je suis de découvrir les nouveautés ? Je ne suis pas d'un naturel pessimiste, ni inquiété par la nouveauté, ni un gros nul en infomatique, mais je me suis souvent déjà pris le chou dans ce genre de situation, et c'est là la raison de ce message ! Si quelqu'un à des suggestions à me faire, des conseils à me donner avant que j'enfourne la galette dans mon lecteur CD et que je clique sur 'Install'... tout commentaire sera le bienvenu !!! Quelques indices : - WinXP Pro SP2 sur Pentium IV 2,66GHz avec 512Mo RAM. - Les 'exigences système' requises sont toutes OK à priori pour accueillir le petit nouveau.

salut maintenant que j'ai obtenu ma liste d'onglets avec (layoutlist) j'aimerais bien aussi la liste des onglets selectionnés...

Salut MarcoPoto, Pourquoi faire un script qui dessine toujours la même chose dans un dessin vierge ? Autant intégrer ton dessin dans un gabarit, ca ira plus vite !!! Joyeuses Pâques !

Pourquoi pas, si tu as déja fait les scripts tu n'as qu'à les inscrire ici Hmmm... à vrai dire j'éspérait que tu réponde un truc comme "Ouais pas de problème" !!! Ca serait serait vraiment bien d'avoir un script tout fait qui sache imprimer tous les fichiers voulus, dans tous les cas et sans merdouiller. Je me suis bien pris la tête avec ce problème le jour ou je suis passé de la V14 à 2002, et je crois pas qu'on puisse faire un script d'impression standard finalement. Voici les obstacles que j'ai rencontrés : 1) Le nom de l'imprimante Il sera différent selon l'utilisateur, donc pas de valeur par défaut possible pour SAS. 2) Le format de papier J'ai 3 imprimantes sur mon réseau : - laser DELL : format "A4 210 x 297 mm" - copieur réseau RICOH : formats "A4 (210 x 297 mm)" et "A3 (297 x 420 mm)" - laser HP : format "A4" le problème : à la question "Format de papier" posé par "-TRACEUR" la réponse sera variable d'une imprimante à l'autre, donc pas de valeur par défaut possible. 3) Modes CTB et STB On tombe parfois sur un dessin en STB au beau milieu d'une collection de CTB (ou vice versa) et autocad exige l'éxtension de fichier pour le style de tracé, donc un script finira tôt ou tard par se casser le nez la dessus. 4) OBJET ou PRESENTATION Selon le cas, le nombre de questions posées par "-TRACEUR" est différent, donc là encore un script type se fera avoir bêtement. 5) Version d' Acad ces conditions sont vraies pour AutoCAD 2002, j'ignore comment se comportent 2004, 2006, et autres MAP et je n'sais quoi, et cela diffère des V14, LT98... (si si, il subsiste un petit village d'irréductibles quelque part...) De mon coté j'ai contourné tous ces petits désagréments avec une petite routine que voilà : (c'est brut de fonderie, j'ai juste ajouté quelques commentaires çà et là, ce peut être amélioré, mais bon, au bureau j'ai pas d'heures allouées pour développer, je dois juste toujours tout faire pour hier...) (defun c:imprime () (setq plotxt (strcat home "Imprime.txt") ; home = chemin d'accès vers un dossier df-plot (open plotxt "r") ; le fichier "Imprime.txt" doit exister et comporter deux noms de fichiers sans leurs éxtensions ; en premier le PC3 et en second le CTB/STB plodef (read-line df-plot) ; dernière imprimante utilisée cstbdef (read-line df-plot) ; dernière config CTB ou STB utilisée imp-error nil) (close df-plot) (prompt (strcat "\n\tConfiguration PC3 <" plodef "> : ")) (if (= (setq ploget (strcase (getstring))) "") (setq ploget plodef)) (prompt (strcat "\n\tFichier CTB ou STB <" cstbdef "> : ")) (if (= (setq cstbget (getstring)) "") (setq cstbget cstbdef)) (cond ((= "DELL_BE" ploget) (setq imp-form "A4 210 x 297 mm")) ((= "RICOH_A4" ploget) (setq imp-form "A4 (210 x 297 mm)")) ((= "RICOH_A3" ploget) (setq imp-form "A3 (297 x 420 mm)")) ((= "HP_4050" ploget) (setq imp-form "A4")) ((= "PDF" ploget) (setq imp-form "A4")) (t (setq imp-error "\nNom d'imprimante innatendu. Impression annulée.\n")) ) (if (not imp-error) (imp_go) (princ imp-error)) (setq plotxt nil df-plot nil plodef nil cstbdef nil ploget nil cstbget nil imp-error nil imp-form nil ctbstb nil) (princ)) ;;;; fin ;;;; (defun imp_go () (setq df-plot (open plotxt "w")) (write-line (strcat ploget "\n" cstbget) df-plot) (close df-plot) (if (= "ParCouleur" (getvar "CPLOTSTYLE")) ; vérification si CTB ou STB (setq ctbstb (strcat cstbget ".ctb")) (setq ctbstb (strcat cstbget ".stb"))) (if (= 1 (getvar "tilemode")) ; vérification si OBJET ou PAPIER (imp_obj) (imp_pre)) );;;; (defun imp_obj () (command "-traceur" "o" (getvar "ctab") ploget imp-form "M" "A" "N" "E" "Plein format" "0,0" "o" ctbstb "o" "n" "n" "n" "o") (princ) ); (defun imp_pre () (command "espacep") ; pour sortir de la fenêtre éventuellement (command "-traceur" "o" (getvar "ctab") ploget imp-form "M" "A" "N" "E" "Plein format" "0,0" "o" ctbstb "o" "n" "n" "n" "n" "n" "o") (princ) ); En fait, SAS me convient comme il est, puisqu'il suffit que je crée mon script perso comme suit : "imprime imprimante style", mais c'est surtout pour mes collègues de BE qui travaillent avec des AutoCAD LT (six sur huit) que SAS m'intéressait, afin qu'ils puissent eux-même faire leur script sans venir nous embêter mon AutoCAD full et moi !!! A+

Je viens de découvrir et tester SAS : c'est cool, depuis le temps que j'espérait trouver un scripteur simple et efficace ! Pour commencer donc BRAVO et merci Eric de mettre ça à notre disposition, ensuite voici mes remarques ! Suggestion de scripts-types : - Imprimer (en étendu, ajusté au format, monochrome.ctb, sur l'imprimante par défaut du système) - Enregistrer sous V2000 / V14 / DXF ....... (dans un sous-répertoire pour pas écraser ?) Je verrai bien la zone de saisie du script perso plus grande (bien plus !!! ) Le bouton parcourir amène d'office sur "C:\" , mais qui aujourd'hui travaille encore sur son C local ??? A l'ère des réseaux et des chemins d'accès aux fichiers longs et compliqués à souhait, il serait intéressant de pouvoir faire pointer la fonction parcourir directement sur le dossier de son choix, par le biai de l'option "Démarrer dans" des propriétés du raccourci vers S.A.S. (j'ai testé ca marche pas en l'état actuel des choses (avec la V0.6.2)) S.A.S ajoute automatiquement un "_qsave" en fin de traitement, ce qui est tout à fait recommandable dans la plupart des cas. Mais, j'ai eu des cas (rares, je le reconnait) ou je devais imprimer une série de plans avec une mention genre "Provisoire" ou "Non valable pour exécution", bref, un texte bien gras, bien tape à l'oeil, mais que je ne souhaitais pas sauvegarder.... tout ca pour proposer l'ajout d'une case à cocher intitulée "Ne pas sauvegarder les modifications effectuées" (ou une autre phrase, je laisse toute latitude au programmeur !), case qui serait par ailleurs automatiquement décochée par défaut, notament en cas de changement de script... Bon, ca c'est pas important en fait, j'ai qu'a ajouter dans mon script perso une annulation totale, c'est plutot rare que ca arrive de toutes façons !! Sinon, il fonctionne bien, j'ai observé au début quelques comportements innattendus en mode SDI, mais tout disfonctionnement à disparu après 2 ou trois scripts ! ... le temps qu'ils fassent connaissance sans doutes... Tourne avec Win XP pro et AutoCAD 2002

hé, comment vous faites pour avoir du "papier-peint" sous vos lignes de code ???

no problémo, le voilà ! profitez en pour me faire part de vos commentaires, car il est probable que ce soit simplifiable... pour la barre à boutons associée elle est incluse dans les lignes du LISP y a qu'a copier-coller dans un menu, par contre pour les BMP correspondants faudra vous amuser un peu à les dessiner ! ; V3D.lsp ; ; _________________________________________ ; VOLTIGEUR 3D - Fred SUTTER © avril 2006 ; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ; S'utilise avec la barre à boutons ci dessous, flottante et sur 2 lignes : ; ; **TB_VOLTIGEUR_3D ; [_Toolbar("Voltigeur 3D", _Floating, _Show, 1089, 812, 2)] ; [_Button("Monte", "V3D_DH.bmp", "ICON_24_BLANK")]^C^CV3D DH ; [_Button("Gauche", "V3D_DG.bmp", "ICON_24_BLANK")]^C^CV3D DG ; [_Button("Avance", "V3D_DA.bmp", "ICON_24_BLANK")]^C^CV3D DA ; [_Button("Droite", "V3D_DD.bmp", "ICON_24_BLANK")]^C^CV3D DD ; [_Button("Tourne Haut", "V3D_RH.bmp", "ICON_16_BLANK")]^C^CV3D RH ; [_Button("V3D Config", "V3D_.bmp", "ICON_24_BLANK")]^C^C^P(load "V3D") V3D;; ; [_Button("Descend", "V3D_DB.bmp", "ICON_24_BLANK")]^C^CV3D DB ; [_Button("Tourne Gauche", "V3D_RG.bmp", "ICON_24_BLANK")]^C^CV3D RG ; [_Button("Recule", "V3D_DR.bmp", "ICON_24_BLANK")]^C^CV3D DR ; [_Button("Tourne Droite", "V3D_RD.bmp", "ICON_24_BLANK")]^C^CV3D RD ; [_Button("Tourne Bas", "V3D_RB.bmp", "ICON_16_BLANK")]^C^CV3D RB ; ; Description des variables ; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ; commande = commande utilisateur transmise par un bouton ; cam = position actuelle camera ; Ncam = nouvelle position ; cib = position actuelle cible ; Ncib = nouvelle position ; dsar/dsgd/dshb = distances pour les déplacements ; ang = direction de visée (angle dans le plan XY) ; rotdeg/rot = angle de rotation en ° / en Radians ; zhb = delta Z équivalent à l'angle pour les rotation haut/bas ; visee = coordonnée Z pour la cible ; zoom = distance focale ; entree = entrée utilisateur ; ; (defun c:V3D () (princ "\n === VOLTIGEUR 3D = © Fred SUTTER avril 2006 ===") (setvar "osmode" 0) (initget "DA DR DH DB DG DD RH RB RG RD") (princ "\nCommande (DA DR DH DB DG DD RH RB RG RD ou Entrée pour configurer) ? : ") (if (null (setq commande (getkword))) (V3D_INI)) (if (null cam) (V3D_INI)) (cond ( (= "DA" commande) (setq Ncam (polar cam ang dsar)) ) ( (= "DR" commande) (setq Ncam (polar cam ang (* -1 dsar))) ) ( (= "DH" commande) (setq Ncam (list (nth 0 cam) (nth 1 cam) (+ (nth 2 cam) dshb))) ) ( (= "DB" commande) (setq Ncam (list (nth 0 cam) (nth 1 cam) (- (nth 2 cam) dshb))) ) ( (= "DG" commande) (setq Ncam (polar cam (+ ang (/ pi 2)) dsgd)) ) ( (= "DD" commande) (setq Ncam (polar cam (- ang (/ pi 2)) dsgd)) ) (t (setq Ncam cam)) ) (cond ( (= "RG" commande) (setq ang (+ ang rot)) ) ( (= "RD" commande) (setq ang (- ang rot)) ) ( (= "RH" commande) (setq visee (+ visee zhb)) ) ( (= "RB" commande) (setq visee (- visee zhb))) ) (setq Ncib (polar (list (nth 0 Ncam) (nth 1 Ncam) (+ (nth 2 Ncam) visee)) ang dsar)) (V3D_VOIR) (setq commande nil Ncam nil Ncib nil) (princ) ) ; fin ; ; ; ; ; init (defun V3D_INI () ; création des valeurs par défaut si non définies (if (null cam) (setq cam (list 0 0 1500) dsar 500 dshb 200 dsgd 300 rotdeg 30 zoom 35 visee 0 ang 0) ) ; entrées utilisateur (princ "\n === CONFIG DU VOLTIGEUR ===") (prompt (strcat "\n\tPoint de base caméra <" (rtos (nth 0 cam)) "," (rtos (nth 1 cam)) "," (rtos (nth 2 cam)) "> : ")) (if (setq entree (getpoint)) (setq cam entree)) (prompt (strcat "\n\tDéplacement Avant/Arrière <" (rtos dsar) "> : ")) (if (setq entree (getreal)) (setq dsar entree)) (prompt (strcat "\n\tDéplacement Gauche/Droite <" (rtos dsgd) "> : ")) (if (setq entree (getreal)) (setq dsgd entree)) (prompt (strcat "\n\tDéplacement Haut/Bas <" (rtos dshb) "> : ")) (if (setq entree (getreal)) (setq dshb entree)) (prompt (strcat "\n\tRotation en degrés <" (rtos rotdeg) "> : ")) (if (setq entree (getreal)) (setq rotdeg entree)) (prompt (strcat "\n\tDistance focale <" (rtos zoom) "> : ")) (if (setq entree (getreal)) (setq zoom entree)) ; calcul des variables dépendantes (setq cib (polar cam ang dsar) rot (/ (* rotdeg pi) 180) zhb (* dsar (sin rot)) commande nil) (princ "\n") (V3D_VOIR) (princ) ) ; fin init ; ; ; ; affichage (defun V3D_VOIR () ;(if (/= cam Ncam) (command "ligne" cam Ncam "")) ; traceur d'itinéraire (if Ncib (setq cib Ncib)) (if Ncam (setq cam Ncam)) (command "vuedyn" "tout" "" "po" cib cam "di" "" "z" zoom "") (princ) );;; Ah ouais, c'est cool ! :) [Edité le 15/4/2006 par Dubloc]

Dans le même ésprit je me suis amusé à mettre au point un "voltigeur 3D", pilotable avec une barre de boutons (10 boutons pour tous les mouvements de déplacement et de rotation). On donne des valeurs pour les déplacements et l'angle de rotation et le zoom, puis chaque clic sur un bouton déplace la vue caméra... j'ai fait ca pour "visiter virtuellement" mon appart que je viens d'acheter et que je suis entrain de rénover, mais après avoir chargé toutes les Xrefs 3D texturés de mobilier et autres mon vieux PC pédale dans la semoule, il lui faut des dizaines de secondes pour recalculer la vue, du coup ca me sert pas beaucoup.... mais c'est rigolo :)

Génial, merci les gars !! :) Même si j'avais déjà trouvé la réponse en parcourant le forum, dans un post daté de juin 2003... hé oui, j'ai passé l'aprème à fouiner dans "Aller plus loin en LISP", ce qui m'a permis de découvrir plusieurs autres petites choses très intéresantes, je suis comblé, vraiment ! Allez, joyeuses Pâques à tous !

Hello je cherche un moyen d'éxtraire d'un dessin une liste des onglets "Présentation" existants à l'aide d'une procédure LISP. But du jeu : pouvoir lancer un SCRIPT sur chacun des onglets successivement avec un LISP. Pour l'instant ca marche en semi-manuel, en fait je dois activer le 1er onglet, lancer mon script, activer le 2e, lancer mon script, le 3e, le 4e, etc etc... et comme j'ai fréquement à traiter des dessins avec 30 à 50 onglets je vous raconte pas !!! PS: j'utilise Autocad 2002