Morgul

Bonjour, Suite à la création d'une routine pour créer des pdf automatiquement, je voudrais pouvoir ranger ceux-ci sur le réseau dans un répertoir "Plans_en_PDF". Est-ce que l'on peut créer ce répertoir en lisp ? Merci.

Bonjour à tous, Je suis d'accord avec Winfield, bon la 2007 est assez révolutionnaire, mais combien de sociétées sont encore en [surligneur]v2000 ![/surligneur]

Bonjour, Mon problème de situ au niveau de l'arrondi, lorsque que je tappe : Commande: extmax Résultat : EXTMAX = 0.000000,297.000000,0.000000 (lecture seule) Lorsque je tappe : (getvar "extmax") J'ai le résultat : (5.68434e-015 297.0 0.0) ce qui est difficile à exploiter. Comment faire pour obtenir (0.0 297.0 0.0) avec (getvar "extmax") ? En effet, je souhaite déterminer la taille d'un cartouche pour l'impression automatique de mes présentations à l'aide de cette commande. Merci. A+.

Bonjour Patrick_35, Je n'ai pas encore mis en ligne mes modif., car après utilisation cela ne semble pas super bien marcher. Il y a des petits bug, je me demande si cela ne provient pas du sens de sélection des présentations dans la boite de dialogue. Je suis dessus. A+.

Bonsoir Patrick_35, Je te remercie de ton aide, j'ai donc modifié ton [surligneur] super lisp[/surligneur], pour pouvoir inverser les impressions. Effet, je pense que cela peut-être utile suivant l'imprimante que tu utilises, moi j'utilise deux imprimantes avec des différence sur les bacs de sortie. J'ai donc rajouté un toggle dans ta dcl et modifié ta séquence résultat 9. Je n'ai pas réussit à lire de droite à gauche, je ne sais pas comment faire. J'ai donc rajouté des lignes. Est-ce que je peux oser te donner mes modifs. ? Merci encore.

Ok Patrick_35 effectivement, c'est bien ça. Tu sais, lorque j'imprime, je voudrais que cela imprime dans l'ordre inverse de la sélection. En rajoutant éventuellement un "cocher" dans la boite de dialogue. Comment est-ce que je pourrais faire mon "reverselist" sur quelle variable ? Sur "choix" peut-être ? Merci. A +.

Bonjour Patrick_35, Dans ton lisp "Ong.lsp" tu parles de "Ong.ini", c'est quoi ? Je n'ai pas ce fichier moi. Merci encore.

Bonjour Patrick_35, Moi il ne marche plus du tout. Lorsque je tappe "ong" il me répond "Erreur : type d'argument incorrect: stringp nil". Et avant, lorsque j'utilisais la V2 tout fonctionnait, et lorsque je cliquais "OK" j'avais aussi le message : "Erreur : type d'argument incorrect: stringp nil". En regardant avec le notepad, tu parles d'un "ong.ini", mais je n'en ai pas moi de ong.ini. C'est peut ètre ça. En tout cas, Merci, ils sont super bien tes Lisps. Merci.

Bonjour et Merci à tous, C'est super cool de me répondre ! Je vais mixer tout cela et je devrais m'en sortir. Merci encore.

Bonjour à tous, Il faut que je récupère les données de type gestionnaire de calques afin que je puisse faire un tableau contenant le nom des calques, leurs couleurs ainsi que leurs type de lignes. Je ne sais pas comment faire, avez vous une piste ? Merci.

Salut, Je pense que tu souhaites protéger tes lisps pour qu'ils ne puissent s'éxecuter que sur ta machine. Plutôt, que de rechercher un numéro de série déja existant, tu peux toujours en créer un dans un fichier txt que tu caches ensuite dans l'aborescense de ton pc. Puis dans ton lisp tu demandes d'aller chercher ce fichier et de lire cequ'il y a dedans. Mais, a mon sens, le but du lisp n'est pas fait pour cette manière de pensées... C'est pour cela que ce forum existe, et que nos camarades partage leurs oeuvres.

Merci Gile, Les 2 méthodes fonctionnent très bien, Je pense garder la première, même si je ne la comprend pas trop, mais elle a l'avantage d'être plus courte en nombre de ligne. Merci encore.

Bonjour à tous, Je vais sou poser une question un peu bizarre ! Peut-on lancer un lisp ce trouvant sur un site internet vers AutoCAD ? (un peu comme i-drop pour les blocs.) Ce n'est pas si bizarre que cela, on pourait ainsi utiliser ce lisp sur n'importe quel pc équipé d'autocad et d'internet, permettant ainsi de faciliter l'installation ainsi que l'utilisation des lisps, et de les avoirs toujours disponibles n'importe où. Merci à tous.

Bonjour à tous, Comment peut-on récupérer la liste des présentations dans l'ordre dans lequel elles sont classées ? Layoutlist récupére la liste des présentations, mais elles sont dans l'ordre alphabétique, si on fait un reverslist nous l'avons dans le sens inverse. Comment faire, y-a-t-il une autre commande que je ne connaisse pas ? Merci d'avance de votre aide.

Merci à vous tous pour les conseils que vous m'avez donnés. C'est super de pouvoir compter sur vous. En fait j'ai utiliser : (type (read "az")) --> SYM (type (read "1")) --> INT (type (read "1.5")) --> REAL C'est simple, efficace et surtout, ceci ce prète bien à ce que je souhaite faire. Merci encore. ;)

Bonjour, Je souhaiterais faire un vérificateur d'attribut qui me dirait si la valeure est du texte ou des chiffres. Voici un début de prog : (if (= NumPlan TEXTE) (princ "\n...Nok c'est du texte") (princ "\n...Ok c'est un chiffre") ) Comment faire pour vérifier la valeur NumPlan ? Merci de votre aide.

Merci à vous deux pour vos réponses, c'est super cool ! Mais je pense, qu'il y a trop de lignes dans le code, elles ce sont surement glissées par inadvertance. A la fin du code, il y a : (setq att (subst (cons 1 NEWVAL2) (assoc 1 att) att)) ; pour changer la valeur de l'attribut (entmod att) (entupd (cdr (assoc -1 att))) Si j'ai bien compris le code, je pense qu'elles ne servent pas. Je vous remerci encore, pour votre rapidité ainsi que votre disponiblité. A+.

Merci pour ton aide. Voici mon code : (defun c:TEST (/ NEWVAL1 NEWVAL2 NEWVAL3 NEWVAL4 BlocSelec att ) (setq NEWVAL1 (getstring t "\nEntrez la valeur de l'attribut 1 : ")) (setq NEWVAL2 (getstring t "\nEntrez la valeur de l'attribut 2 : ")) (setq NEWVAL3 (getstring t "\nEntrez la valeur de l'attribut 3 : ")) (setq NEWVAL4 (getstring t "\nEntrez la valeur de l'attribut 4 : ")) (setq BlocSelec (car (entsel))) ; pour sélectionner un bloc contenant des attributs (setq att (entget (entnext BlocSelec))) ; pour trouver le premier attribut (setq att (subst (cons 1 NEWVAL1) (assoc 1 att) att)) ; pour changer la valeur de l'attribut (entmod att) (entupd (cdr (assoc -1 att))) (setq att (entnext (cdr (assoc -1 att)))) ) (c:TEST) Il fonctionne, mais je n'arrive pas à changer toutes les nouvelles valeures d'attribut que je souhaite, il change qu'une valeure.

Bonjour à tous, J'ai des blocs avec plusieurs attributs, que je n'arrive pas à renseigner via un lisp. Hiers, j'ai eu de l'aide sur ce forum et, je suis vraiment nul, car je n'arrive pas à exploiter ce que l'on m'a donné. En effet les lignes suivantes marchent pour renseigner un attribut, mais je n'arrive pas à faire correctement ma boucle pour attaquer les autres attributs. (setq BlocAnt (car (entsel))) ; pour sélectionner un bloc contenant des attributs (setq att (entget (entnext BlocAnt))) ; pour trouver le premier attribut (setq att (subst (cons 1 "TYPE ANT") (assoc 1 att) att)) ; pour changer la valeur de l'attribut (entmod att) (entupd (cdr (assoc -1 att))) (setq att (entnext (cdr (assoc -1 att)))) Merci de pour votre aide.

Patrick_35 Je pense qu'il y avait une petite coquille dans : (entupd (cdr -assoc -1 att)) Je pense que c'est plutôt : (entupd (cdr (assoc -1 att))) Si j'ai bien compris le truc, après je fais (setq att (entnext (cdr (assoc -1 att)))) Pour atteindre l'attribut suivant, suivi d'une boucle pour retourner sur : (setq att (subst (cons 1 "Mon Texte") (assoc 1 att) att)) (entmod att) (entupd (cdr (assoc -1 att))) En tout cas, merci encore c'est super tu as répondu à mon attente.

Merci Patrick_35 Cela semble correspondre à ce que j'attendais, je pense exploiter dès demain tes renseignement, même si la fin de ton post ne me parle pas trop ... Merci beaucoup, c'est super sympa. Vous êtes vraiment super cool !

Merci de cette réponse, mais non cela ne me convient pas. En effet, j'ai un premier lisp qui fonctionne qui me demande un angle de rotation pour un bloc que je sélectionne. Et c'est cette valeure que je souhaite entrer dans l'attribut.

Bonjour, Je débute en lisp et comme je n'en fait pas beucoup, je sèche un peu. Pouvez-vous m'aider ? Je voudrais renseigner la valeure d'un attribut d'un bloc après selection à la souris de ce dernier, car je pourrais avoir 2 blocs insérés avec des valeures d'attribut différentes. Du type : 1 - Qu'elle est la valeure que vous souhaitez ? 2 - Sélectionnez le bloc. 3 - Mise à jour effectuée. Merci de votre aide.

Merci (gile) & Patrick_35, Désormais cela fonctionne ! C'est cool! Est-ce que je peux abusé en vous demandant si vous vous rappelez comment je bascule la fenêtre de texte AutoCAD en premier plan en commande lisp, moi je le savais, mais j'ai oublier.

Bonjour, Non, c'est ça le pire LSTAC1 & EchI ne sont pas nil ! (setq EchI (cdr (assoc 41 Lstac1))) Fonctionne, et j'obtient bien une valeure, mais après je n'arrive pas à l'exploiter. Merci.