sechanbask

un script ne peut pas lancer une application extérieure qui a accès à autocad ? un script qui ouvrirait une application VB par exemple...L'application VB serait lancer par Windows mais travaillerait sur Autocad

Si ça devient très utilisé, je plains les jeunes couples car ça ne va pas durer longtemps pour découvrir le corps de la fille. Pour moi, le charme y perd. Je dis ça car je suis un vieux con de 23 ans.

Moi j'ai besoin uniquement de ce qui est déjà réalisé voire : -ARC, SPLINE , ELLIPSE , TRACE , CERCLE de longueur 0 Mais les fonctionnalités que tu souhaites viendront surcharger le lisp et gonflerons les utilisateurs de mon BE. Mais rien ne t'empêche de poursuivre l'extension. Alors bonne programmation et merci encore à tous.[Edité le 2/6/2007 par sechanbask] Je cherche toujours comment compter les entités supprimées pour l'afficher dans la ligne de commande. et faire le compte de entités -ARC, SPLINE , ELLIPSE , TRACE , CERCLE qui ne correspondent pas au critaère pour faire le pourcentage d'entités supprimables/totales...Merci d'avance... [Edité le 30/6/2007 par sechanbask]

J'y pense que maintenant mais y'a t-il moyen de compter les objets supprimés? ça serait pour donner l'indication dans la ligne de commande ou vers une boite de message que les amoureux du lisp et objet dcl m'en voudront d'appeler un msgbox... Désolé j'ai oublié mon livre sur l'autolisp au boulot alors je parle avec les termes que je connais...

Merci encore (gile) j'avais mal chargé le lisp alors j'ai cherché, cherché et ça devenait de plus en plus compliqué...

Merci beaucoup (gile) et aux autres. Voilà le code en entier de l'expression qui supprime : -point -ligne et polylignes de longueur 0 -textes et Mtextes vides (defun c:supp (/ ss n obj) (vl-load-com) (if (setq ss (ssget "_X" '((0 . "LINE,LWPOLYLINE,POINT")))) (repeat (setq n (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n))))) (if (or (= (vla-get-ObjectName obj) "AcDbPoint") (= 0 (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) ) ) (vla-delete obj) ) ) ) (if (setq ss (ssget "_X" '((0 . "*TEXT") (1 . " ,")))) (mapcar '(lambda (x) (entdel (cadr x))) (ssnamex ss)) ) (vla-PurgeAll (vla-get-ActiveDocument (vlax-get-acad-object))) (princ) )

As tu essayé userformX.repaint ? Je n'ai pas essayé mais ça devrait s'appliquer à ton cas. P.S. Si tu mets ton code entre le texte que tu fait apparaître en cliquant sur le # (juste au dessus du message que tu tapes)... ça rend mieux et c'est plus lisible. [Edité le 1/6/2007 par sechanbask]

Bonsoir, Quelle est la syntaxe pour lancer une commande Lisp ou VBA. Pour le VBA, je ne suis pas sûr que vous connaissez mais pour le lisp.... La defun : SUPPON et mon fichier lisp est dans le C: dans le fichier AutoCAD.pgp j'ai écrit R, START C:\suppoint.lsp,,SUPPON pourquoi ça ne marche pas et comment faire... merci d'avance Une fois que j'arriverai à utiliser ça sur lisp le VBA suivra je pense...

Donc le résultat de tout ça ça devrait faire ça mais ça ne marche pas car je n'ai pas inclus les textes et mtextes à la selection... mais je ne sais pas faire alors... merci d'avance (defun c:supp (/ ss n obj) (vl-load-com) (if (setq ss (ssget "_X" '((0 . "*TEXT") (1 . " ,")))) (mapcar '(lambda (x) (entdel (cadr x))) (ssnamex ss)) ) ) (vla-delete obj) (if (setq ss (ssget "_X" '((0 . "LINE,LWPOLYLINE,POINT")))) (repeat (setq n (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n))))) (if (or (= (vla-get-ObjectName obj) "AcDbPoint") (= 0 (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) ) ) (vla-delete obj) ) ) ) (vla-PurgeAll (vla-get-ActiveDocument (vlax-get-acad-object))) (princ) )

je ne sais pas si tu le trouveras facilement sur le Cd d'installation mais je l'ai trouvé sur le net en le cherchant en français...

maintenant je cherche également à selectionner les textes vides et à les supprmier... vous avez une idée?

Ce n'est pas le lieu (vu que ça ne fait pas avancer le sujet que j'ai lancé) mais je te file ce que j'ai fait pour le fichier INIT.LSP, comme ça plus de zoom tout, plus de limite de dessin, plus de calque chiant. (command "cmdecho" 1) (command "_AutoSnap" 47) (command "_pickbox" 4) (setvar "PSLTSCALE" 0) (Command "_.FileDia" 1 ) (setvar "BLIPMODE" 0) ;(command "_.limits" "0,0" "5000,5000" ) ;(command "_.Zoom" "_All" ) (setq diadn 100) (setq cdiadn "100") (setq pos_tn "0") (Setq pos_cu "0") (Setq pos_font "0") (Setq pos_pvc "0") (Setq pos_peh "0") (Setq pos_gaine "0") (setq No_Fig 1) (setq nTaille_Rep 1) (setq nNum_Rep (fix 1)) ;(setq Echelle 1) ;================== ; sauve environement-----------------------------------------init (setq OSMODE_OLD_0 (getvar "OSMODE")) (setq CMDECHO_OLD_0 (getvar "CMDECHO")) (setq PICKBOX_OLD_0 (getvar "PICKBOX")) (setq ORTHOMODE_OLD_0 (getvar "orthomode")) (If (= "15" (substr (GetVar "AcadVer") 1 2)) (progn (setq ShortCutMenu_Old_0 (GetVar "SHORTCUTMENU")) (SetVar "SHORTCUTMENU" 10) ) ) ;------------------------------------------ (Defun Unit_mm() (setq Coef_Unit 1) ;(command "_.limits" "0,0" "5000,5000" ) ;(command "_.Zoom" "_All" ) (command "_regen") (PrinC "\n") (PrinC (strcat "\n" cVersion " - Initialisation en [millimètre] OK")) (PrinC) ) ;---------------------------------- (Defun Unit_Cm() (setq Coef_Unit 0.1) ;(command "_.limits" "0,0" "500,500" ) ;(command "_.Zoom" "_All" ) (command "_regen") (PrinC "\n") (PrinC (strcat "\n" cVersion " - Initialisation en [centimètre] OK")) (PrinC) ) ;---------------------------------- (Defun Unit_m() (setq Coef_Unit 0.001) ;(command "_.limits" "0,0" "5,5" ) ;(command "_.Zoom" "_All" ) (command "_regen") (PrinC "\n") (PrinC (strcat "\n" cVersion " - Initialisation en [mètre] OK"))(PrinC) ) ;====================================================== (if (not C:gainec) (load "fisacad")) ;(INITCOTE) ;(INITCALQUE) ;(Command "_.style" "FisaText" "" ht_txt "" "" "" "" "") ;=================================================================== (menucmd "p10=+FISA_CAD.BIBLIO") ;(command "_.TextScr") (PrinC "\n") (PrinC "\n") (command "_.GraphScr") (if (= unites "MM") (Unit_mm) ) (if (= unites "CM") (Unit_cm) ) (if (= unites "M") (Unit_m) ) (If (or (= "16" (substr (GetVar "AcadVer") 1 2)) (= "17" (substr (GetVar "AcadVer") 1 2))) (PrinC) (progn (Alert "Désolé Fisa-CAD7 ne fonctionne pas avec une version inférieure à AutoCAD 2006") (command "_.QUIT" "O") ) ) (princ)

fait Outils-Options, l'onglet Fichiers: Si tu n'as pas dans chemin de recherche de fichiers supports, un lien vers le dossiers où sont installés les express (par défaut C:\PROGRAM FILES\AUTOCAD 2006\EXPRESS) fait Ajouter-Parcourir et va chercher le dossier des express... Une fois que tu as essayé ça, dit nous si ça marche... Y'a une autre procédure pour les charger si ce n'est pas le cas.

Merci à tous pour vos efforts. Mais comme je suis très chiant: -le code de Bread : (defun c:rectxt etc... ne marche pas sur des Mtextes penchés (rotation différentes de 0) et pas sur des textes -le code de zebulon_: (defun c:mytcircle etc... ne donne l'erreur suivante : "Creating Rectangles...; erreur: type d'argument incorrect: lselsetp nil" (gile) je suis assez tordu comme garçon... En espérant ne pas vous froisser après tous vos efforts. Merci d'avance. P.S. Maximilien tu as changer des fonction sur fisacad 7.0 pour le rendre utilisable ???

avec http://imageshack.us/ il me semble %5Burl=http%3A//img469.imageshack.us/my.php?image=logodrdb0.jpg%5D%5Bimg%5Dhttp://img469.imageshack.us/img469/7526 tiens ça marche pas... [Edité le 31/5/2007 par sechanbask]

Salut je ne comprends pas ta methode pour récupérer la valeur des textbox car pour moi le plus simple c'est: 'là tu dois commencer ta boucle pour les différents textbox et le nombre de valeurs Dim valeur As Single valeur = TextBox1.Text Dim valeur As Single 'là tu dois finir ta boucle pour les différents textbox MsgBox valeur

j'ai pas répondu à ta deuxième question car je ne l'ai pas bien comprise. En plus je ne connais pas catia alors...

Dans le menu express, les commandes trim to nested objects ou extend to nested objects peuvent te rendre services. Mais c'est pas l'idéal...

Bon j'ai pas tout compris mais j'ai trouvé la solution pour ça : Je ne sais pas comment on peut supprimer les contrôles 1 à 1 mais on peut en déchargement le programme localement (on ne le décharge pas de catia...) il faut faire : Private Sub CommandButton3_Click() creation2 = "non" Unload definicion_mano 'déchargement des modifications apportées à la userform definicion_mano.Hide ' n'est pas indispensable End Sub pareil pour les autres boutons si tu veux réinitialiser la userform... je suis utilisateur d'autocad alors je ne pense pas que je puisse d'aider plus sauf si tu me donnes plus de détails sur les commandes... Bien à toi. Un programmeur qui apprends sans aider apprend pas grand chose...

merci beaucoup c'est possible pour les mtext???

Bonjour, Je cherche un lisp du genre "enclose text with objet" des express tools mais j'aimerais qu'il m'entoure le texte avec un objet du calque de l'objet(et non du calque courant). Et en plus j'aimerais qu'il soit sur l'objet rectangle par défaut (et non sur cercle)...

Y'a-t-il VBA dans les version LT? il n'y pas moyen de faire une interprétation d'un lisp en lançant une commande VBA. Comme ça, c'est VB qui interprète le lisp et pas autocad...

j'ai testé le logiciel et j'ai pas réussi à modifier la bibliothèque des blocs. Je pense que le plus simple est de se mettre à faire la programmation soit même. Car tu apprendras beaucoup donc tu pourras faire plein d'autres choses pour perdre moins de temps au boulot... demande de l'aide aux programmateurs lisp ou VBA... Ils seront ravis de t'aider...

Demande aux lispeurs, je pense qu'ils pourront t'aider.

On ne peut pas créer de blocs dynamiques. On ne peut pas éditer de blocs classiques avec AutoCAD 2005