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.