Red

J'ai réglé mon problème via 2 pages si jamais ça peut aider :D Pour les variables http://joch04.free.fr/achtml/variables.htm Pour les échelles http://cadxp.com/topic/33326-autocad-2012-pour-mac/

Bonjour, j'aimerai savoir quelle seraient les VARIABLES système à vérifier sur les plans autocad. A savoir que je travaille sur des plans d'archi, d'autre cabinets etc et je me retrouve avec des config de VARIABLES qui sont souvent catastrophique. En particulier les variables de type de ligne et les échelles d'insertions que je règle comme ci desous ECHLTP : réglée à 0.4 PSLTSCALE : réglée à 1 MSLTSCALE : réglée à 1 MEASUREMENT : réglée à 1 Je pense donc me créer dans un futur plus que proche un Gabarit car la pour mon impression les types de lignes sont catastrophique, les tirets forment une ligne et les clôtures idem ... Donc si vous auriez une solution pour les types de ligne et un "liste" rapide de variables à vérifier :(rires forts):

Ouah GENIAL :o merci beaucoup !! Et sinon sans passer par cette manipulation il n'y à pas possibilité de lancer AutoCAD normal via un launcher ? Par ce que je cherchai un peu dans les fichiers et je pensais trouver un dossier contenant les différent raccourcis de lancement des différents "mode" de AutoCAD. Sinon MERCI pour cette astuce :(rires forts):

Bien le bonjour, cela fait un petit moment que je n'étais pas revenu sur le forum car j'étais sans emploi .. Et aujourd'hui, premier jour dans une boite d'étude technique en bâtiment, on me file un poste de travail avec Autocad 2015 et la ... le drame :(rires forts): Autocad est dans sa version ARCHITECTURE, les barres de commandes sont introuvables, seul le RUBAN est disponible ... du coup me viens une question, Est il possible de retrouver ou d'introduire les barres de commande ? Et quelles sont les variables à activer / et / ou vérifier avant d'attaquer sur mon nouveau poste ? Car au début l'interface n'avait même pas le ruban, ni les onglets Fichiers fenetre etc, pas d'onglet présentation objet etc ni de barre de commande .. il à fallu rentrer toutes les option et CTRL + quelque chose. Petit pavé mais grande question :D merci à ceux qui me répondront.

Super merci pour vos réponses :)

Bonjour, Tout simplement je vais finir mon alternance en dessinateur projeteur CAO DAO en bâtiment et travaux publics. Jeune de 23 ans habitant sur Avignon, J'ai 1 ans d'expérience dans une boite de TP et côté logiciels avec les cours je suis à : 6 Ans d'Autocad 5 Ans de Covadis ( en grande partie exploit de pts topo et mnt ) et des formations sur: Microstation v8 Revit Adfer Sketchup Scia Maintenant ma question principale car il en faut bien une .. Ou puis-je poster mon CV pour qu'il ai une bonne visibilité ? Agences d'interim ? Sites d'interim ( Monster, Indeed etc ?), sur le site des boites directement ? Et sous quel nom vendre mon profil sachant que je sort d'un BTS géomètre et Licence pro Dessinateur projeteur, je me vend comme dessinateur ? Dessinateur projeteur ? Je cherche des BE ? Des cabinet d'Archi ? Voila voila au final pleins de question existentielles pour un futur lancement dans la vraie vie active :blink: MERCI a ceux qui m'aiguillerons :D

Ah d'accord merci, je ne savais pas que l'on pouvais l'appeler "en dehors" de la routine.

Merci je vais essayer ça :) Quand tu parle de début du code c'est ici ? (defun c:conduite ( / AcDoc Space msg_f msg_n n old_cutmnu old_plw old_osm pt_f lst_pt lst_tmp pt_n nw_pl key htx nw_style nw_obj pt rtx dxf_ent tmp deriv) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)(vl-load-com)) Space (if (eq (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) )

Bonjour bonjour, petit déterrage de post :P Je viens aujourd'hui de faire mon lisp avec toutes mes commandes, mis en place une palette d'outil et tout et tout, tout marche bien mais la ... le drame, je passe exactement les même fichiers sur le poste de mon chef et la une variable (vlax-get-acad-object) n'est pas connue donc la commande s'arrête .. Je pense avoir identifié le problème mais ne sait pas comment le résoudre, je travaille moi sur AUTOCAD et mon chef sur AUTOCAD MAP, il y en aurait un d'entre vous qui connaîtrai comment passer un lisp autocad en map ?

(defun c:cadxp ( / REP DC) (setvar "OSMODE" 6) (if (not (tblsearch "LAYER" "Ligne1")) (command "_.layer" "_new" "Ligne1" "") ) (if (not (tblsearch "LAYER" "Ligne2")) (command "_.layer" "_new" "Ligne2" "") ) (prin1 "\nCliquer le parcour de votre Polyligne <Taper (Return) pour FIN>") (command "_.pline" pause "_width" 0.02 0.02) ;LARGEUR DE POLYLIGNE (while (not (zerop (getvar "CMDACTIVE"))) (command pause) ) (command "_.chprop" (entlast) "" "_layer" "Ligne1" "") (setq DC 0.25) ; DISTANCE DE DECALAGE (command "_.offset" DC (entlast) pause "") (command "_.chprop" (entlast) "" "_layer" "Ligne2" "") (prin1) (setvar "PLINEWID" 0) ) Essaye sa

Salut, quand tu parle de soulignement c'est d'en créer une d'un côté ou de lautre ? La laisser maitre ?

Sans faire de lisp, je pense que la réponse de DaWeeD_Gab est la plus simple ..

Dans l'attente d'une réponse plus approfondie, je me permet de te rediriger vers un post de DenisHEN ou une question similaire à la tienne à été traitée. http://cadxp.com/topic/43793-couleur-des-calques/page__p__251451__hl__calque__fromsearch__1#entry251451

Normalement le design center c'est ctrl+2 ( 2 situé au dessus des lettres pas le pavé numérique ) Ou sinon tu peut le trouver dans l'onglet outil

Et avec clic droit selection similaires sur autocad ?

Un GRAND MERCI pour ton aide Bonuscad !!

Malheureusement il y à des gens qui n'ont pas cette conscience professionnelle ...

A la fin de l'année il part a la retraite et il nous a fait comprendre qu'il n'allait pas se prendre la tête avec nous alors qu'il lui reste 3 mois avant de partir ????

Je vais essayer ça MERCI. Oui je trouve ça totalement abérant que le simple fait d'initialiser les variable lui soit inconnu et qu'il n'en voie pas l'utilité .. je suis un peu déçu des réponses de mon prof <_< je ne remettrai pas son expérience en cause mais bon quand je vois ce que vous faites sur le forum en comparaison de lui et ben il n'y à pas photo <_<

A défaut de réussir à le rentrer en valeur 250 j'ai changé pour l'écrire sous forme 0.25 mais ma polyligne se trace en arrondissant (ep=0.3) j'ai mis mes questions directement dans le code par ce que la je suis perdu .. Merci à ceux qui participeront encore une fois .. A savoir que j'ai montré ça à mon prof pour qu'il m'explique plus et sa réponse est "Mais il y à pleins de truc qui sert à rien la c'est nul" SUPER l’éducation nationale .. et il ne comprend pas l'utilité d'initialiser les valeur à coté de (defun c:conduite ( / blabla)) SUPER non ? <_< (defun c:conduite ( / AcDoc Space msg_f msg_n n old_cutmnu old_plw old_osm pt_f lst_pt lst_tmp pt_n nw_pl key htx nw_style nw_obj pt rtx dxf_ent tmp deriv) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (eq (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) msg_f "\nSpécifiez l'extrémité de la ligne ou [annUler]: " msg_n "\nSpécifiez l'extrémité de la ligne ou [Clore/annUler]: " n 0 old_cutmnu (getvar "SHORTCUTMENU") old_plw (getvar "PLINEWID") old_osm (getvar "OSMODE") ) (setvar "OSMODE" 5) (while (null (setq pt_f (getpoint "\nSpécifiez le point de départ de la polyligne: "))) (princ "\nPoint incorrect.") ) (setq pt_f (trans pt_f 1 0) lst_pt (list pt_f) lst_tmp lst_pt) (setvar "LASTPOINT" (car lst_pt)) (initget "U ANNUler _Undo UNDO") (while (and (setq pt_n (getpoint (trans pt_f 0 1) (if (< n 2) msg_f msg_n))) (/= pt_n "Close")) (if (listp pt_n) (progn (setq pt_n (trans pt_n 1 0) lst_pt (cons pt_n lst_pt) lst_tmp lst_pt) (setvar "LASTPOINT" (car lst_pt)) (setq n (1+ n) pt_f pt_n) ) (if (zerop n) (princ "\nTous les segments sont déjà annulés.") (progn (setq lst_pt (cdr lst_pt) lst_tmp lst_pt) (setvar "LASTPOINT" (car lst_pt)) (setq n (1- n) pt_f (getvar "lastpoint")) ) ) ) (if (< n 1) (initget "U ANNUler _Undo UNDO") (initget "U ANNUler Clore _Undo UNDO Close") ) (redraw) (while (cdr lst_tmp) (grdraw (trans (car lst_tmp) 0 1) (trans (cadr lst_tmp) 0 1) 7) (setq lst_tmp (cdr lst_tmp))) ) (redraw) (setq nw_pl (vlax-invoke Space 'AddLightWeightPolyline (apply 'append (mapcar 'list (mapcar 'car lst_pt) (mapcar 'cadr lst_pt))))) (if (eq pt_n "Close") (vlax-put nw_pl 'Closed 1) ) (setvar "SHORTCUTMENU" 11) (setvar "PLINEWID" 0.0) (if (not (eq (substr (getvar "USERS1") 1 3) "plw")) (setvar "USERS1" "plw0") ) (initget 4) (setq key (getreal (strcat "\nDiamètre souhaité (Epaisseur de la polyligne canalisation en Metre) <" (itoa (fix (* 100 (atof (substr (getvar "USERS1") 4 3))))) ">?: "))) (if key (setvar "USERS1" (strcat "plw" (rtos Key 2 1)))) ; Initialise le diamètre à key DIAMETRE A RENTRER EN METRE PROBLEME DE RETRANSCRIPTION SI DIAMETRE 250 ALORS IL M'AFFICHERA EN TEXTE 300 (vlax-put nw_pl 'ConstantWidth (atof (substr (getvar "USERS1") 4 3))) ; LA CANALISATION SE MET DONC EN 0.3 AU LIEU DE 0.25 (initget "PVC BETON PEHD") (setq key (getkword "\nType de conduite [PVC/BETON/PEHD]?: ")); Initialise le type de conduite à KEY (cond ((null (tblsearch "LAYER" (strcat "Conduite-" key))) ; (vla-add (vla-get-layers AcDoc) (strcat "Conduite-" key)) ; ) ; Il faudrait pouvoir le mettre directement dans un calque prédéfini " CANALISATION" ) ; (vlax-put nw_pl 'Layer (strcat "Conduite-" key)) ; (cond ; ((null (tblsearch "STYLE" "CONDUITE")) ; (setq nw_style (vla-add (vla-get-textstyles AcDoc) "CONDUITE")) ; (mapcar '(lambda (pr val) (vlax-put nw_style pr val) ) (list 'FontFile 'Height 'ObliqueAngle 'Width 'TextGenerationFlag) (list (strcat (getenv "windir") "\\fonts\\arial.ttf") 0.0 0.0 1.0 0.0) ) ) );;;;;;;;;;;;;;;;;;;;;;; (initget 6) (setq htx (getdist (getvar "VIEWCTR") (strcat "\nSpécifiez la hauteur du texte <" (rtos (getvar "TEXTSIZE")) ">: "))) ; Donner la hauteur du texte (if htx (setvar "TEXTSIZE" htx)) (setq nw_obj (vla-addMtext Space (vlax-3d-point (setq pt (polar '(0.0 0.0 0.0) (* pi 0.5) (getvar "TEXTSIZE")))) (setq rtx 0.0) (strcat key ; Utilise key le type de conduite pour écrire le texte " -Tuyau- " ; ou tout autres textes ou supprimer la ligne pour aucun texte " %%C:" "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID nw_pl)) ">%).ConstantWidth \\f \"%lu2%pr0%ct8[1000]\">%" ; facteur de 1000 pour retrouver le diamètre original " L = " "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID nw_pl)) ">%).Length \\f \"%lu2%pr1\">%" "m" ) ) ) (mapcar '(lambda (pr val) (vlax-put nw_obj pr val) ) (list 'AttachmentPoint 'Height 'DrawingDirection 'InsertionPoint 'StyleName 'Layer 'Rotation) ; IL ME FAUDRAIT METTRE LE TEXTE DANS LE CALQUE QUI LUI EST PROPRE (list 5 (getvar "TEXTSIZE") 5 pt "CONDUITE" (strcat "Conduite-" key) rtx) ; IMPOSSIBLE DE TROUVER COMMENT DECALER PLUS LE TEXTE PAR RAPPORT A LA POLYLIGNE (setq dxf_ent (entget (entlast))) ; ARRIVE A UNE CERTAINE VALEUR, LE TEXTE EST ILLISIBLE, MORDU PAR LA POLYLIGNE (while (or (= 5 (car (setq tmp (grread t 5 1)))) (/= (car tmp) 25) (= (car tmp) 3)) (cond ((= 5 (car tmp)) (setq pt (vlax-curve-getClosestPointTo nw_pl (trans (cadr tmp) 1 0)) deriv (vlax-curve-getFirstDeriv nw_pl (vlax-curve-GetParamAtPoint nw_pl pt)) rtx (- (atan (cadr deriv) (car deriv)) (angle '(0 0 0) (getvar "UCSXDIR"))) ) (if (or (> rtx (* pi 0.5)) (< rtx (- (* pi 0.5)))) (setq rtx (+ rtx pi))) (entmod (subst (cons 50 rtx) (assoc 50 dxf_ent) (subst (cons 10 (polar pt (+ rtx (* pi 0.5)) (getvar "TEXTSIZE"))) (assoc 10 dxf_ent) dxf_ent) ) ) (entupd (cdar dxf_ent)) ) ((= 3 (car tmp)) (setq nw_obj (vla-addMtext Space (vlax-3d-point (setq pt (polar '(0.0 0.0 0.0) (* pi 0.5) (getvar "TEXTSIZE")))) (setq rtx 0.0) (strcat "Conduite-" key " %%C:" "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID nw_pl)) ">%).ConstantWidth \\f \"%lu2%pr1\">%" " L = " "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID nw_pl)) ">%).Length \\f \"%lu2%pr1\">%" "m" ) ) ) (mapcar '(lambda (pr val) (vlax-put nw_obj pr val) ) (list 'AttachmentPoint 'Height 'DrawingDirection 'InsertionPoint 'StyleName 'Layer 'Rotation) ; ?????? (list 5 (getvar "TEXTSIZE") 5 pt "CONDUITE" (strcat "Conduite-" key) rtx) ; ) (setq dxf_ent (entget (entlast))) ) (T (princ "\nArrêt anormal de la commande ")) ) ) (entdel (entlast)) (setvar "PLINEWID" old_plw) (setvar "SHORTCUTMENU" old_cutmnu) (setvar "OSMODE" old_osm) (princ) )

Du coup j'aurai vu un truc dans ce style .. (setq key (getint "\nDiamètre de la canalisation :")) (setq key (/ key 1000)) et à la suite une commande permettant d'affecter le key / 1000 comme largeur de polyligne

En remplaçant l'intégralité du code que j'ai cité par ce que tu me donne j'ai erreur stringp "chiffre tapé" je pense qu'en mettant (strcat "plw" key) le key est dans un format différent et ne s'applique pas comme nombre valeur à "plw"

Par ce que la, mon objectif est de remplacer le initget par une sélection manuelle (initget "0 2.5 5 7.5 10") (setq key (getkword (strcat "\nDiamètre souhaité [0/2.5/5/7.5/10] <" (substr (getvar "USERS1") 4 3) ">?: "))) (cond ((eq key "0") (setvar "USERS1" "plw0")) ((eq key "2.5") (setvar "USERS1" "plw2.5")) ((eq key "5") (setvar "USERS1" "plw5")) ((eq key "7.5") (setvar "USERS1" "plw7.5")) ((eq key "10") (setvar "USERS1" "plw10")) ) (vlax-put nw_pl 'ConstantWidth (atof (substr (getvar "USERS1") 4 3))) Et en résultat quand j'invite à taper le diamètre ex:200 et bien le plw se mettrai à 0.2 (division par 1000) ou alors jessaie de passer par "la" pour la largeur de polyligne.

Salut je viens d'essayer avec ta commande et l'erreur "numberp" apparait ..

Je vais essayer de vous preciser comment je voyai la chose a mon niveau Creer manuellement la polyligne avec des accrochage predefini avec "osmode" Y affecter une epaisseur globale avec "la" et un "getreal" ou "getdist" Mettre une ligne de code predefinie avec valeur predefinie setq (Ep Eu ou autre) Setq (largeur du diametre a ecrire dans le texte ici on pourra mettre 200 directement) Avec un initget faire un choix multiple entre beton pvc etc Lancer une commande texte qui aurait la meme flexibilité que la tienne et j'y mettrai a la suite les differents "variables" données dans les setq precedents Le predefini, le choisi avec initget, le diametre ou je mettrai le cc% du diametre puis la valeur donnee manuellement et jabandonnerai la longueur En soi je trouve ça facile sur papier mais sur code rien ne marche comme je veut ???? (Désolé si je me suis trompé en citant les commande je suis sur mon téléphone sans notes a coté)