hardyorock

Merci Patrick_35, vous avez raison, j'ai dû faire une erreur, il faudra modifier le nombre de caractère de STRCASE a 16 : (setq avantdossier (substr (strcase (getvar "dwgprefix")) 1 16)) merci encore

Bonjour les amis, je voudrai savoir pourquoi ce lisp ne fonctionne plus sur AUTOCAD 2010? merci les amis pour vos réponses. (defun c:VP_prepa () (setq avantdossier (substr (strcase (getvar "dwgprefix")) 1 30)) (setq dossiersil (strcat avantdossier "2_Silhouette\\" (getvar "dwgname")) ) (setq dossierdet (strcat avantdossier "3_Détail\\" (getvar "dwgname")) ) (command "_saveas" "" dossiersil) (command "_saveas" "" dossierdet) )

moi aussi

Bonjour les professionnels. J’ai eu une idée et je ne sais pas si c’est possible de la traduire en lisp mais je suis toujours surpris par les idées proposées par les pros de ce forum Je voudrais à partir d’une section (une région ou une polyligne) recherché des sections qui ressemble plus au mois aux sections stocké dans une bibliothèque. Pour tous vous dire il s’agit de section de profilé d’aluminium et elles sont assai complexes. Est-ce que vous avez des idées ? merci les amis pour vos reponce

Merci les pros, vraiment je suis toujours impressionné par la qualité et la rapidité de vos réponses.

Bonjour les amis Est ce que c'est possible d'extraire le moment d'inertie d'une section, puis le mettre dans un variable ? Merci les amis pour vos réponses.

Non Tramber , je dois envoyer un dessin en format IGS a un fournisseur, tous ce que je sais c'est qu'il n'utilise pas AUTOCAD. d'autre part est ce que je vous pouvez me donner plus d'information sur cette Format?

bonjour les amis est ce que c'est possible de convertir des fichier DWG ou DXf en fichier de format IGS ? merci les amis pour vos reponces

a oui je viens de trouver la commande "modiftableau" merci comme même les amis bonne journée.

bonjour les amis est ce que c'est possile de remplire une celule d'un tableau par le contenu d'un variable ? merci les amis pour vos reponce.

le probleme Patrick_35 c'est que ca marche pas en 2008 autocad me retourne le message suivant: "Commande: ; erreur: no function definition: VLAX-GET-ACAD-OBJECT"

Merci Patrick_35 pour ta réponse, En effet le variable a est déjà défini Ci dessous tout mon lisp : Mon lisp travail comme ça : A partir d'un fichier j'extrait un contour qui est ensuite hachuré est bloqué pour l'inserai dans un autre fichier que je n'ouvre pas. *********************************************************************** (defun c:blocpro () (setq ss (ssget)) ;ajouts des hachures au variable ss (command "hachures" "solid" ss "") (setq a (entlast)) (ssadd a ss) ;creation layer (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (if (not (tblobjname "LAYER" "profile_bloqué")) (vla-add (vla-get-Layers AcDoc) "profile_bloqué")) (vla-put-Color (vlax-ename->vla-object (tblobjname "LAYER" "profile_bloqué")) 144) (repeat (setq x (sslength ss)) (setq vla-ob (vlax-ename->vla-object (ssname ss (setq x (1- x))))) (vla-put-layer vla-ob "profile_bloqué") ) ;fonction pour definir les limites du profile (defun BoundsGet () (vl-load-com) (setq EntNam a) (vla-getboundingbox (vlax-ename->vla-object EntNam) 'LowLft 'UppRgt) (setq BoxList (mapcar 'vlax-safearray->list (list LowLft UppRgt))) );defun BoundsGet (boundsget) (setq poinIns (car boxlist)) (setq lung (strlen (getvar "dwgname"))) (setq nome (substr (getvar "dwgname") 1 (- lung 4)));name file (command "_-block" nome poinIns ss "") (defun Ouvrir_dessin_dbx(dwg / dbx) (if (< (atoi (substr (getvar "ACADVER") 1 2)) 16) (setq dbx (vlax-create-object "ObjectDBX.AxDbDocument")) (setq dbx (vlax-create-object (strcat "ObjectDBX.AxDbDocument." (substr (getvar "ACADVER") 1 2)))) ) (vla-open dbx dwg) dbx ) :transphere au fichier cyble (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) bl (vla-item (vla-get-Blocks AcDoc) nome) Dbx (ouvrir_dessin_dbx "C:/3-PLAN_VERSION_2007/BLOC_PROFILE/PROFILE_3100.dwg") ) ;; importation de la définition dans le dessin cible (vlax-invoke acDoc 'CopyObjects (list bl) (vla-get-blocks Dbx) ) ;; insertion du bloc en 0,0,0 (vla-InsertBlock (vla-get-ModelSpace Dbx) (vlax-3d-point '(0 0 0)) nome 1 1 1 0 ) ;; enregitrement (vla-saveas Dbx "C:/3-PLAN_VERSION_2007/BLOC_PROFILE/PROFILE_3100.dwg") ;; suppression du pointeur vers le dessin cible (vlax-release-object Dbx) ) ***********************************************************************************

salut les amis le lisp ci dessous que chopé d'un site ne marche plus en 2008 (defun BoundsGet () (vl-load-com) (setq EntNam a) (vla-getboundingbox (vlax-ename->vla-object EntNam) 'LowLft 'UppRgt) (setq BoxList (mapcar 'vlax-safearray->list (list LowLft UppRgt))) );defun BoundsGet (boundsget) d'aprés vous c'est quoi le probleme?

salut les amis la routine ci dessous ne marche plus sur AUTOCAD 2008 : ;********* affecter tous les element au calque "0" ********** (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) lst nil) (setq pm (ssget "_x")) (repeat (setq x (sslength pm)) (setq ui (vlax-ename->vla-object (ssname pm (setq x (1- x))))) (vla-put-layer ui "0") ) sur la ligne de commande ,j'obtiens le message suivant : "; erreur: no function definition: VLAX-ENAME->VLA-OBJECT" y a t'il possibilité de regler ce probléme par avance merci pour vos reponces.

bonjour les amis est ce que c'est possible avec autocad 2008 d'exporter à partor d'un DWG des fichier XAML? merci pour vos reponce.

salut les amis en lisp ,commant on peut metre dans un variable le superieure entre 2 autre variabe si la variabe "A" contient le nembre 1 et la variabe "B" contient le nembre 2 comment on peut metre automatiquement le 2 dans un autre variabel "C" merci pour vos reponce

Salut les amis Est ce que c possible de transformé le non d'une entité dans un dessin à un jeu de sélection ? Merci pour vos réponse les amis.

je croix que je dois revisé un peu mon anglais . merci Patrick_35

Merci patrick_35 ça marche très bien Je ne savais pas que ça peut être aussi simple que ça, mais bon. Juste une dernier faveurs, y a t'il une possibilité de trouver une liste qui regroupe toutes les fonction VL-... qui explique le syntaxe et le rôle de chaque une d'elle mais en français, parce j'ai fais des recherche sur le web mais je ne trouve rien. Merci encore

salut, je suis très débutant,mais c'est avec vous que j'essai d'amélioré mon niveau. ce que je veut c'est exécuté une routine lorsque le dessin courant porte un indicateur dans sans nom ainsi qu'il se situ dans un répertoire bien définie Pour être plus claire : la routine sera charger pour tous les dessin mais s'exécute seulement pour des fichier bien défini (des fichier dans le non est "*****RS.dwg" et se situe dans le répertoire "c:\****\****\cadRS") merci les amis

Oui (gile) merci encore pour ta générosité ainsi que ton sens de partage Ces réacteur sont vraiment intéressent, je me demandé si on peut changer l'événement de déclenchement de routine, si c'est oui , est ce qu'il y a des règles, veut tu me donner plus d'explication ? Merci encore.

salut les amis y a t il une possibilité de lancer une routine lisp sans utilisé la ligne de commande pour etre un peut plus claire : est ce qu'on peut programer une routine a s'exécuté chaque fois que l'utilisateur fais un truc defini par exemple selectionné un element? merci pour vos reponce les amis.

http://img249.imageshack.us/img249/7490/collinesls8.th.jpg wé ca marche merci encord gile

la photo ne s'affiche pas d'abors comment insérer un photo a ce forum? merci

Salut les amis Souvent on me demande de réalisé des dessin d'emballage de profile ,le travail consiste a entouré le profile avec un ruban en plastique ,c vraiment très fatiguant vus la quantités de profile ,bref le dessin résume ce que je vous faire y a il une possibilité de faire ça en lisp , j'ai bien pensé a ça mais je bloc je trouve pas de solution pour détecté le point qui relit le polyligne qui représente le plastique et surtout dans la parti entouré par cercle vert sur le dessin ,quelqu'un a t'il une idée. [/C:\Documents and Settings\o.debbagh\Mes documents\1.jpg] merci pour vos reponces