Big666

certes c'est ainsi que je procède Les choses que je crée , son inspire de programme qui existe et on une utilité discutable. je dit a mes collège j’ai crée un lisp qui fait ça! Jusque ici il me redonde " je ne voie pas a quoi cela va servir " il ce moque mes je les aurais un jour je les aurais.

merci pour vos aides je vais essayer tous ça ,j’ai bricolé lisp et dcl j’apprends des choses part le test, mais c'est frustrant de patauge dans la semoule comme moi. je fouille dans mon guide programmer Autocad , mais bon .... donc je me tourne vers vous pour savoir comment avez vous appris lisp dcl et autre . moi je pense a un stage mais quelle son les pré-requis bac+!!!Un cui extra qui fait craque boum hu votre expérience m’intéresse merci

merci de ta réponse j'ai bien essaimer ça mais cela ne change rien .

bonjour je repose ma question ici car je pense que c'est le bon forum (defun getname (titre / lst what_next dcl_id nom) (if (not (vlax-ldata-get "Pline_block" "Name")) (vlax-ldata-put "Pline_block" "Name" '("Bain" "Cuisine" "Entrée" "Séjour" "WC" )) je voudrait changer c'est mot et en écrire plus de 5 ,j'ai essayer tout et n’importe quoi ,rien ne fonctionne merci de votre aide . au secoure help pitié

J'ai travailler chez texacad ce bureaux d’étude est éditeur de ce logiciel. bien que je n’était pas expert en cvc et fluide ?j'ai réussi a l'utilisé asser rapidement. il propose des stages que je te conseille, car les possibilité de ce logicielle sont grande , calcul ,métrée ,dessin. je rajout qu'il y avait en 2009 une version essaie.

Bonjour Je voudrais changer c’est mot par d’autre Bain" "Cuisine" "Entrée" "Séjour" "WC, j’ai déjà essayer mais quant je lance le lisp Pline_block la boite DCL qui apparait reste avec les mots d’origine ! Pourquoi ? Merci de votre aide ;;; GetName (gile) ;;; Retourne le nom spécifié ou choisi dans la liste. ;;; Les noms entrés sont ajoutés à la liste. ;;; La liste est conservée dans le dessin. (defun getname (titre / lst what_next dcl_id nom) (if (not (vlax-ldata-get "Pline_block" "Name")) (vlax-ldata-put "Pline_block" "Name" '("Bain" "Cuisine" "Entrée" "Séjour" "WC")) ) (setq lst (vlax-ldata-get "Pline_block" "Name")) (setq dcl_id (load_dialog "GetName.dcl")) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getname" dcl_id)) (exit) ) (start_list "pop") (mapcar 'add_list lst) (end_list) (if titre (set_tile "box" titre) ) (action_tile "pop" (strcat "(if (or (= $reason 1) (= $reason 4))" "(set_tile \"tp\" (nth (atoi $value) lst)))" "(mode_tile \"accept\" 2)" ) ) (action_tile "add" (strcat "(if (not (member (get_tile \"tp\") lst))" "(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))" "(done_dialog 2)" ) ) (action_tile "del" (strcat "(setq lst (vl-remove (get_tile \"tp\") lst))" "(done_dialog 2)" ) ) (action_tile "accept" (strcat "(if (not (read (get_tile \"tp\")))" "(progn (alert \"Spécifiez un nom, svp.\")" "(done_dialog 2))" "(progn (setq nom (get_tile \"tp\"))" "(if (and (not (member nom lst)) (/= nom ""))" "(setq lst (acad_strlsort (cons (get_tile \"tp\") lst))))" "(vlax-ldata-put \"Pline_block\" \"Name\" lst)" "(done_dialog 1)))" ) ) (setq what_next (start_dialog)) (if (= what_next 0) (setq nom nil) ) ) (unload_dialog dcl_id) nom )

merci

bonjour peut on positionner un bâtiment modélise avec sketchup sur ses coordonner Lambert . merci

pour les serpents et araignée celait "du pour rire" ce que je connait de ta région et ce que je peut voire dans la boite a perdre sont temps "télévision" croie moi si je ne m’était pas engager dans ce poste , je t'aurais proposée ma candidature . mais voila ... j'ai froid , les personnes sont généralement agressif tous ce que je gagne par dans tous ce que je doit . non a ceux qui non pas d'attache et qui aime l'aventure qu'il sotte sur locas avant quelle disparaisse. bonne chance dans t'est recherche

je te remercie encore tu n'a pas idée du service que tu ma rendu .

J’ai peur des serpent et des araignées . j'ai connue des personne ayant travailler dans ton pays de rêve , au bout d'un certain temps ils ce lassent pourquoi. enfin si j’étais vieux ... et merci pour ton offre

bonjour il doit exister en fr regarde ici http://www.primus-dcf.com/Products/PriMusDCF/tabid/216/Default.aspx#lightbox/1/ et la http://www.primus-dcf.com/FAQ/tabid/218/Default.aspx

merci et bravo je n'y aurais jamais pense car pour la version 2012 il n'y a qu'un chemin. bon ça marche

mea culpa Je ne comprend pas pour quoi cela ne marche pas ,lisp pline_block ;getname ;getname dcl ,sont au même endroit que tous les autres lisp qui eu fonctionne . merci de toute aide .

bonjour je revient a la charge avec plin_block je rappelle que ce lisp fonctionne très bien sur v2012 et pas sur mon poste en v2009 . certes j'ai changer des choses ,mais c'est les mes changement sur 2012. je ne comprend pas voici le code et je remercie encor une fois gille chanteau l'auteur .* ce lisp et devenue indispensable pour mon collège et pour mois qui l'est découvert nada . ;;; sf -Gilles Chanteau- 13/04/07 ;;; Insère le bloc "sf" après sélection d'une polyligne ;;; Attribut 1 : Nom de la pièce ;;; Attribut 2 : Longueur de la polyligne ;;; Attribut 3 : Aire de la polyligne (defun c:sf (/ AcDoc Space bloc nom ent obj ins op reg ech id long aire ref) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= (getvar "CVPORT") 1) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (if (or (tblsearch "BLOCK" (setq bloc "sf")) (findfile (setq bloc "sf.dwg")) ) (progn ;; attribut "nom de la pièce" (if (not (setq nom (getname "Nom de la pièce"))) (setq nom "") ) (while (not (setq ent (car (entsel))))) (setq obj (vlax-ename->vla-object ent)) (if (= "AcDbPolyline" (vla-get-ObjectName obj)) (progn (if (not (setq ins (getpoint "\nSpécifiez le point d'insertion ou < Centre >: " ) ) ) (progn (if (= (vla-get-closed obj) :vlax-false) (progn (vla-put-closed obj :vlax-true) (setq op T) ) ) (setq reg (vlax-invoke space 'addRegion (list obj)) ins (vlax-get (car reg) 'Centroid) ) (if op (vla-put-closed obj :vlax-false) ) (vla-delete (car reg)) ) ) (if (not (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" 1) ) (if (not (setq ech (getreal (strcat "\nEntrez le facteur d'échelle <" (rtos (vlax-ldata-get "sf" "ech")) ">: " ) ) ) ) (setq ech (vlax-ldata-get "sf" "ech")) (vlax-ldata-put "sf" "ech" ech) ) (setq id (vla-get-ObjectID obj) ;; Attribut périmètre (mm -> m) long (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Length \\f \"%lu2%pr2%ct8[1.00]\">%" ) ;; Attribut surface (mm² -> m²) aire (strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa id) ">%).Area \\f \"%lu2%pr2%ct8[1e-0]\">%" ) ) (setq ref (vla-InsertBlock Space (vlax-3d-point (trans ins 1 0)) bloc ech ech 1 (angle '(0 0 0) (trans (getvar 'ucsxdir) 0 (trans '(0 0 1) 1 0 T))) ) ) ;; attribution de leur valeur aux attributs (mapcar '(lambda (x y) (vla-put-TextString x y)) (vlax-invoke ref 'GetAttributes) (list nom long aire) ) (vla-regen AcDoc acActiveViewport) ) (alert "L'objet sélectionné n'est pas une polyligne.") ) ) (alert "Le bloc \"sf\" est introuvable.") ) (princ) )

merci j'ai copie et collé ,"Pline_block.lsp ,GetName.lsp ,GetName.DCL ". dans l'emplacement de mes autre lisp et chargé comme a l'habitude . certe je ne suis pas "lispeur"

help

bonjour vous connaissez le lisp pline_block ,un bijoux, je remercie le créateur . mais voila, bien qu'il fonction sur le poste d'un colège (v2012) il ne veux pas marcher sur mon poste (v2009) et voila le message : Commande: pline_block ; erreur: une erreur est survenue dans la fonction *erreur*type d'argument incorrect: stringp nil ci quelquun a une idée merci

jé trouvè mé métree

ca marche

merci c'est la méthode que j'emploie ,mais par défaut si je veux faire un masque d’arrière plan sur un autre texte ,la couleur et rouge. comment faire en sorte ,qu'elle soit blanche (par exemple) par défaut?

bonjour Par défaut le masque d’arrière plan des textes est rouge ,bien sur il est possible de changer la couleur. mais comment faire pour que la couleur soit blanche par défaut. merci

bonjour je ne te rèpondrait pas sur ton sujet. (bien que je soit dans une même galer et que je ne posséde que autocad 2009) mais mercie pour ton site ou blog qui me renseigne sur un tas de chose ,de plus les choses y sont dite avec simplicite merci

bonjour le dessin que tu a ouvert, a probablement était fait avec autocad architecture. cela ne doit pas te posée de problement pour travailler.

merci limité dans le temps ou dans c'est fonction?