lovecraft

Bonjour, voila je recherche à donner le chemin d'acces a une variable via explorateur. exemple Sub TEST() Dim repchm As String repchm = Application.???????????? ' valeur de repchm "c:\autocad\exemple\" End Sub Merci de votre aide @plus

Salut, je vais adapter le lisp a tes besoins Peux tu me dire qu'elle est la version d'autocad que tu utilises. de plus peux tu m'indiquer l'echelle de sortie. Merci Autrement envoi moi ton fichier afin que je l'adapte reellement a ton projet. @plus barrlaurent@gmail.com

Salut, ci-joint un bloc avec ce que tu recherches en fait il faut le gerer avec les champs bonne utilisation. @plus http:// http://download.yousendit.com/9B91414728148CB6

pour repondre z bonuscad, comment dire c'etais juste un oubli d'un débutant en lisp ;) (defun c:test () (setq savexpert (getvar "expert")) [surligneur] (setvar "expert" 4)[/surligneur](command "scu" "s" "temp") (setq savscu "temp") (command "scu" "g") (command "scu" "r" savscu) (setvar "expert" savexpert) );fin du defun @plus veuillez m'excusee pour cette erreur ;)

Bonjour, il me semble que t'as la commande MAINLEV pour effectuer cette tâche à moins que je n'ai pas compris le sujet. @plus

Je ne connaissais cette variable Merci Ci-dessous la méthode a bonuscad (defun c:test () (setq savexpert (getvar "expert")) (command "scu" "s" "temp") (setq savscu "temp") (command "scu" "g") (command "scu" "r" savscu) (setvar "expert" savexpert) );fin du defun @plus

voila j'ai peut etre resolu le probleme (defun c:test () [surligneur] (if (= (tblsearch "UCS" "temp") nil) (command "scu" "s" "temp") );fin du if[/surligneur] (setq savscu "temp") (command "scu" "g") (command "scu" "r" savscu) );fin du defun dis si ca fonctionne maintenant PS: on est ici pour apprendre ;) @plus

bonjour, J'ai essayé ça chez moi: (defun c:test () ;enregistrement du scu au debut (command "scu" "s" "temp") (setq savscu "temp") ;passage en scu generale (command "scu" "g") ;restauration du scu avant le lancement du lisp (command "scu" "r" savscu) );fin du defun ca fonctionne très bien, j'espère que ca sera le cas chez toi @plus

bonjour, Chez moi cela ne fonctionne pas ? Pourquoi Commande: (command "_open" "c:\\test.dwg") Commande inconnue "C:\TEST.DWG". Appuyez sur F1 pour obtenir de l'aide. nil @plus

Bonjour, oui c'est possible tu fais pedit puis M pour modifier puis I pour inserer un nouveau sommet. @plus

Bonjour, oui c'est possible, Tu vas dans calque puis fusioner avec le calque inférieur ou tu rends visible les calques que tu veux fusionner et tu vas dans calque fusionner les calques visibles @plus

Bonjour, Je connais un gratuiciel qui permet de vectoriser des plan scannés, C'est WINTOPO Je te laisse faire une recherche chez ton ami Google ;) @plus

bonjour, Il me semble qu'il puisse réaliser cette opération avec le commande: _hatchedit cela permet de recréer le contour des hachures avec n polyligne associative. Voila pour ma part @plus

Bonjour, désolé du retard.... Mais comme promis vous trouverez ci-dessous un lilen pour télécharger le tuto. http:// http://dl.free.fr/bIWLgWd90/TUTO.zip Merci de vos commentaire @plsu

lili2006, je viens de refaire toute le manip pour creer un menu mosaique donc je suis en train de faire un tuto que je vais joindre les prochaines heure @plus

pas du tout, je fais sous autocad: commande: mcliche => pour creer un cliché commande: affclich =>pour afficher le cliché @plus

re, as tu bien indiqué le chemin de recherche de tes clichés dans autocad. options fichiers chemin de recherche de fichiers support

lili2006? p'tit question comment, on fait pour mettre des images sous le forum comme tu fais? Car je pourrais te mettre le etapes afin que tu puisses reussir. @plus

lili2006, j'ai lu vaguement le sujet, mais je te conseille d'investir dans un livre " programmer avec autocad (edition Eyrolles)" que l'on m 'a conseillé sur ce forum, il est vraiment bien de plus il y a une section pour mieux gérer les menus et leur conception. @plus

bonjour, Je viens d'envoyer ma topho à patrick.... Donc vous pourrez méditer dessus durant mon absence...... et voui j'suis en vacances.... @plus PS:Pour ceux qui veulent modifier leur photo et qui n'ont pas de logiciel de retouche voici un lien en ligne pour effectuer cette tâche......vous n'avez plus d'excuses.... ;) http:// http://www.fixpicture.org/ @plus

bonjour, Je pense avoir une solution, pour ma part, j'ai rencontré ce problème il y a peu de temps. effectivement c'est dû , comme l'indique didier a la version 2007 même avec un enregistrement en version 2004. J'ai reussi a resoudre le problème , en faisant enregistrer le dessin de mes collaborateurs en version 2000 dxf : et la avec le même dessin ou il y avait des problèmes de copier coller, plus de soucis. @plus PS: Si vous avez une autre méthode je suis preneur..... ;)

Bonjour, Tout depend le nombre d'heure spécifié sur ton contrat en CDI. Si t'es a mi-temp tu peux cumuler un mi-temp en cdi et l'autre en CDD. Dans tous les cas, il ne faut pas que l'ensemble de tes emplois cumulés ne depassent 44.50 heures. (A confirmer) @plus

Bonjour, Voici un p'tit lisp: (defun c:impa3() (setq pl(cdr (assoc 8 (entget (car (entsel "\nChoix du cadre imprime ?")))))) (setq sel (ssget "x" (list(cons 0 "LWPOLYLINE")(cons 8 pl)( [surligneur] cons 70 1[/surligneur])))) (setq i 0) (repeat (sslength sel) (setq ent (ssname sel i)) (setq ent(entget ent)) (setq j 0) (setq l_cadre (list )) (setq nb_sommets 0) (repeat (length ent) (setq entit (nth j ent)) (setq code_entit (car entit)) (if (= code_entit 10) (progn (setq l_cadre (cons (list (car (cdr entit))(cadr (cdr entit))) l_cadre)) (setq nb_sommets(+ nb_sommets 1)) );fin du progn );fin du if (setq j (+ j 1)) ) (if (= nb_sommets 4) (progn (setq p1 (car l_cadre)) (setq p2 (caddr l_cadre)) (setq fichier (strcat "c:/" (rtos i 2 0) ".pdf")) (command "-traceur" "o" "" "DWG TO PDF.pc3" "I [surligneur] SO EXPAND A3 (420.00 x 297.00 mm)" [/surligneur]"M" "A" "N" "F" p1 p2 "1=1" "C" "N" "acad.ctb" "N" "F" fichier "n" "o") ;(command "polylign" p1 p2 "") ;(alert fichier) )) (setq i (+ i 1)) ) ) (defun c:ok() (princ "ok") (princ ) ) Quand c'est surligné (cons 70 1) pour les rectangles (cons 70 128) pour les polylignes Voilà (fonctionne à partir de la version d'autocad 2007) @plus

Bonjour, Dans mon domaine (BTP "infrastructure routier, Assainissement"), la facturation d'un projeteur s'élève a environ 380 à 450 Euros / jours. @plus

Bonjour, c'est de la signa provisoire dans quel domaine Urbain ou extra urbain? @plus