stephan35

Bonjour à tous ! Je cherche une solution pour forcer l'affichage du screenMenu dans mon s::startup, (Malgré l'activation dans le fichier de configuration ,celui-ci se désactive à chaque nouvelle cession) Encore Merci ! [Edité le 18/4/2007 par stephan35]

Bonjour à tous ! Je reviens sur un élément non résolu dans d'autre forum: Le menu écran. Depuis la version 2000 il est passé en Dockable, et ,un coup je te vois, un coup je te perd !!! Ma demande est simple : Après avoir cocher la case "Afficher le menu ecran" dans le panneau de configuration (Option)(Affichage), Comment mémorise-t-on cette option !!!!! Car à chaque changement de cession, il faut retourner cliquer la chtite case, et, franchement, ça devient pénible !!!! Merci de votre compréhension... ;) Ps: Reste-t-il encore actif sur la 2008 ???? A+

Bonjour à tous ! Avec la commande de personnalisation _.cui la boitboite s'affiche (Normal !) Mais : Autocad explose lors de la tentative d'édition de mon toolbar suivant : MenuMacro UID="MMU_0029"> Macro type="Any"> Revision MajorVersion="16" MinorVersion="2" UserVersion="1" /> Name xlate="true" UID="XLS_0048">Création du nuage Command>^c^c(setcfg "AppData/BHZ/nuages_révision_VERSION" "V1")(load (strcat drive "NUAGES/Nuag_creation.LSP")) SmallImage Name="Nuage_creation.bmp" /> LargeImage Name="Nuage_creation.bmp" /> /Macro> /MenuMacro> MenuMacro UID="MMU_0031"> Macro type="Any"> Revision MajorVersion="16" MinorVersion="2" UserVersion="1" /> Name xlate="true" UID="XLS_0050">Création du nuage Command>^c^c(setcfg "AppData/BHZ/nuages_révision_VERSION" "V2")(load (strcat drive "NUAGES/Nuag_creation.LSP")) SmallImage Name="Nuage_creation_V2.bmp" /> LargeImage Name="Nuage_creation_V2.bmp" /> /Macro> /MenuMacro> :casstet: Quelqu'un à une idée ???? Existe-t-il un éditeur extérieur ??? Merci ! [Edité le 29/3/2007 par stephan35]

Ben non ! ça me retourne 24 quel que soit mes choix !

Oui bien sur, mais je ne vois pas le rapport ! je parle de problème de commande en ligne ... ;) L'underscore devant une commande, correspond à l'appel d'une primitive autocad ...

Salut Tout simplement, tout programme propre doit être propre jusqu'au bout .... On mémorise la variable, on la modifie, puis on la remet comme elle était !!! Simple ! De plus , rajoute : (defun c:mh (/ [surligneur] var_HPASSOC[/surligneur] cmdecho ss i ss1 ot rep) (setq cmdecho (getvar "CMDECHO")) (... A+

Bonjour à tous, Est-ce normal ???? Je fais un sauver sous (_saveas) au format dxf , J'ouvre un autre fichier (DWG), en cours de mise à jour je souhaite effectuer une sauvegarde rapide (_qsave) et Pourquoi me propose-t-il d'effectuer ma sauvegarde au format DXF ???? :casstet: Je retouvre des options DXF/2004/etc. ouf! je suis sauvé ! Mais ... Lorsque je souhaite resauvegarder mon fichier, plus d'options !!!! :casstet: Cela me pose un problème de plantage au niveau de mes scripts, Donc, comment forcer autocad à sauvegarder un fichier au format DWG ??? Merci !

Salut ! Perso, je n'ai pas de réponse allant dans ton sens ! Je suis le sujet, car la réponse m'interesse aussi ..... ;) J'ai bien peur qu'il faille faire sans ! Sinon tu as le (ssget "X") qui, par défaut te selectionne toutes tes entités suivant une liste de critères ... (Mais plus de question !) puis tu peux refaire un filtre après selection en scrutant ton jeu de selection ? A+ [Edité le 19/3/2007 par stephan35]

ESSAYE : (command "_qtext" "_on") (command "_regen") les pavés blancs correspondes à des textes avec que des espaces ! ou Tu a des attributs ou des éléments insérés dans ces calques, mais le symboles à été inséré dans un autre calque :casstet: donc, comme tu gèles les autres calques, tu ne vois rien ! (facile à reproduire ) A+ ;)

La politique, De grandes phrases électorales, des promesses électorales, des débats électoraux .... pour qui ? Pour leurs carrières personnelles, (à par peut-être un ou deux ?) Sincèrement, tous ces débàts médiatisés me gavent !, j'évite depuis deux mois déjà les JT et autres emissions colporteuses d'idéo politique ....... et je m'en porte que mieux ! Je fais partis d'un pourcentage apolitique (et je l'assume) qui votera très certainement par dépis :mad: Il faudrait un élu virtuel, un net.président, ou toutes les stratégies diplomatiques et les choix politiques serait systématiquement issus du choix des net.electeurs. les loies votées par les net.français , chaque français équipé de sa net.carte-électorale validera de chez lui ses idées ............................... Bref, J'arrête ici car je pense que ce site n'est pas fait pour s'exprimer sur ce sujet, mais la perche était tendue .......... :casstet:

A bon ! Force le chemin d'accès à ton dcl lors de l'ouverture de celui-ci ! Peut-être ? A+

On est tous passé par là ! Faire bien ? plaire à qui ? Le principale, comme me l'avait écrit un membre de ce site, c'est d'y arriver, la façon et les moyens importe peu ! Lisp Vlisp ? Idem ! Il faut pouvoir se relire ! Ton programme est simple ! mais fonctionnel ! Rajoute les noms de variable interne dans la définition de fontion (place mémoire) (defun cporte ( / som pt1 pt2 pt11 pt12 langle anglA anglB angl1 l ptf angle20 angle 50 som1) ; RELEVE DES PTS ET TRANSFORMATION 2D (setq som (getpoint "\n1ere angle de la porte: ")) (setq pt1 (getpoint som "\n2eme angle de la porte: ")) (setq oldosmode (getvar "osmode")) (setvar "osmode" 0) (setq pt2 (getpoint som "\ncoté d'ouverture de la porte: ")) (setq som1 (car som) som2 (cadr som)) (setq som (list som1 som2 0)) (setq pt11 (car pt1) pt12 (cadr pt1)) (setq pt1 (list pt11 pt12 0)) ; calcul de l'angle entre pt1 et pt2 (if (not (member "geomcal.arx" (arx))) (arxload "geomcal") ) (setq langle (cal "ang(som,pt1,pt2)")) ; si la position de pt2 donne un angle > à 180 etc... (if (< langle 180) (setq anglA 0.877) (setq anglB -0.435) ) (if (> langle 180) (setq anglA -0.877) (setq anglB 0.435) ) ; (setq angl1 (angle som pt1)) (setq l (distance som pt1)) (setq ptf (polar som (angle pt1 pt2)l)) (setq angle50 (polar som (+ angl1 anglA)l)) (setq angle20 (polar som (+ angl1 anglB)l)) ; dessine le trait et l'arc (command "_line" som angle50"") (command "_arc" pt1 angle20 angle50) (setvar "osmode" oldosmode) (princ) ) Rajout peu-être un ou deux commentaires si tu ressens le besoin (pour plus tard !) rien à redire ! A+

Salut ! effectivement cela fonctionne aussi comme tu l'as écrit, sache cependant qu'il y avait une solution sans utiliser les commandes d'édition autocad, en jouant avec la base de donnée des entités autocad ! Mon exemple fournis pour modifier un texte (fallait bien regarder ...) ;) (setq x4(nentsel)) (if (/= x4 nil) (progn (setq x40 (entget (car x4))) (setq #type0 (cdr(assoc 0(entget(car x4))))) (if (or (= #type0 "TEXT")(= #type0 "ATTRIB")) (progn (prompt "\nOk pour entitée selectionnée") ;Recopie du contenu dans la destination (princ (strcat " " (cdr (assoc 1 x40)) "->" X3)) (redraw (car x4) 2) (setq x40 (subst (cons '1 X3) (assoc 1 X40) x40)) (entmod x40) (entupd (car x4)) (redraw (car x4) 1) ) (progn (prompt "\nNégatif pour ce type d'entitée") ) ) ) (setq fffff "ok") ) [surligneur] Avec juste une toute petite adaptation :[/surligneur] (defun c:taille (/) (setq taille (atoi (getstring "Donner la nouvelle taille :"))) (setq x4(nentsel)) (if (/= x4 nil) (progn (setq x40 (entget (car x4))) (setq #type0 (cdr(assoc 0(entget(car x4))))) (if (or (= #type0 "TEXT")(= #type0 "MTEXT")(= #type0 "ATTRIB")) (progn (prompt "\nOk pour entitée selectionnée") ;Recopie du contenu dans la destination (redraw (car x4) 2) ;(setq x40 (subst (cons '1 "Mon texte") (assoc 1 X40) x40)) (setq x40 (subst (cons '40 taille) (assoc 40 X40) x40)) (entmod x40) (entupd (car x4)) (redraw (car x4) 1) ) (progn (prompt "\nNégatif pour ce type d'entitée") (print x40) ) ) ) (setq fffff "ok") ) ) [surligneur] Et ça marche aussi .....[/surligneur] A+ ;)

Si j'ai bien compris, tu cherches à mettre un maximum de tracé provenant de fichiers différents sur la même surface de tracé ??????

tu trouveras la réponse ici : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=14031 ne prêtes pas attention aux écarts de sujets .... a+

Encore et encore Merci pour tes explications ! A+

Ok ! Effectivement c'est le SSGET, Pour tes autres réponses, cherche bien dans le forum, il y a ta réponse toute faite pour doubler la taille de tes textes !!! (déjà vu !) A+

De rien ! Cependant, lorsqu"un problème est résolu, n'oublie pas de cliquer sur l'ampoule ! "Sujet résolu" Merci et à +

Merci ! Pour le début j'ai tout compris, par contre : L'utilite de ces 2 lignes : ???? (ça ne fonctionne pas sans !) et moi pas comprendre ! (vlax-invoke fic 'write (vl-list->string (list 80 75 5 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))) (vlax-invoke fic 'close) d'autant plus que le programme ci-dessous ne se sert pas de la variable fic ! (setq fso (vlax-create-object "scripting.filesystemobject") sh (vlax-create-object "shell.application") ) (if (setq dest (strcat (getenv "UserProfile") "\\My Documents\\" $aff2 $tranche2 "-Cl.ZIP")) (if (vl-catch-all-error-p (setq fic (vl-catch-all-apply 'vlax-invoke (list fso 'createtextfile dest)))) (princ (strcat "\nImpossible de créer le fichier " dest)) (progn (vlax-invoke fic 'write (vl-list->string (list 80 75 5 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0))) (vlax-invoke fic 'close) (setq nom (vlax-invoke (vlax-invoke sh 'namespace $rep) 'items) zip (vlax-invoke sh 'namespace dest) ) (vlax-invoke zip 'copyhere (vla-item nom (Odcl_Control_GetText Boites_Open_EFIC))) (princ (strcat "\nFichier " dest " créé.")) ) ) ) (vlax-release-object fso) (vlax-release-object sh) Etonnant non ? Merci !

Malgré la solution de patrick_35 qui fonctionne ... Je continue dans mon explication Tant que je donne cliq point j'inserer le bloc ! boucle du getpoint (while (setq point (getpoint "Donner le point")) (print point) ) boucle d'insertion (while (setq IPT(getpoint "Donner le point")) (command "INSERT" BLK IPT XSF YSF RTA "") (command "_explode" "_l") ) Ce qui donne : (defun c:INSERTM () (setvar "cmdecho" 0) (if (= XSF nil) (setq XSF 1.0)) (if (= YSF nil) (setq YSF 1.0)) (if (= RTA nil) (setq RTA 0.0)) (if BLK (progn (setq TYP (strcat "\nBlock to Insert: <" BLK "> ")) (setq BLK (if (= (setq CTP (getstring TYP)) "") BLK CTP)) ) (setq BLK (getstring "\nBlock to Insert: ")) ) (setq XS (rtos XSF 2 2)) (setq XSS (strcat "\nX Scale Factor: <" XS "> ")) (setq SFX (atof (getstring XSS))) (if (/= SFX 0.0) (setq XSF SFX)) (setq YS (rtos YSF 2 2)) (setq YSS (strcat "\nY Scale Factor: <" YS "> ")) (setq SFY (atof (getstring YSS))) (if (/= SFY 0.0) (setq YSF SFY)) (setq RA (rtos RTA 2 2)) (setq RAS (strcat "\nRotation Angle: <" RA "> ")) (setq ATR (atof (getstring RAS))) (if (/= ATR 0.0) (setq RTA ATR)) (while (setq IPT(getpoint "Donner le point :")) (command "INSERT" BLK IPT XSF YSF RTA "") (command "_explode" "_l") ) ) Que je trouve beaucoup plus propre ! ;) A+

Oops Je veux aller top vite ! (command "COPY" "L" "" "M" IPT) Ne fonctionnera plus àprès l'insertion ! Mais pourquoi le copier ????? :casstet: Tu fais une routine qui demande le point d'insertion, et pour chaque point, tu réinsère ton bloc en le décomposant ! et si ton point est nil tu ne fait rien ! Voilà ! :D

Aussi! (command "_explode" "_l" ) ;)

Salut ! Tu rajoutes * devant le nom du bloc pour le décomposer à l'insertion ! (command "INSERT" (strcat "*" BLK) IPT XSF YSF RTA "") oops ! tu devras supprimer un des facteurs d'échelle dans la commande .... à toi de trouver lequel ;) A+

Salut à tous ! Je cherche une soluce pour obtenir le chemin d'accès %UserProfile% de windows ... :casstet: Merci à vous ! a+

Si tu n'as pas peur, lance toi dans l'openDCL !!!!!!! qui permet de faire ce que tu demandes (je viens de faire un essai !) C'est un éditeur de boite de dialogue (en cours de développement) très convivial et très fonctionnel !!!! [surligneur] L'essayer c'est l'adopter ![/surligneur] A + [Edité le 14/3/2007 par stephan35]