Raph_38

Personne ?

Bonjour à tous, n'ayant pas le temps et surtout les compétences nécessaires afin de réaliser le lisp dont je décris la fonction plus bas, je me permet de demander si un pro du lisp pourrais me coder ce dont j'ai besoin ;) Situation : Je réalise actuellement un plan de réseaux d'évacuations d'eau usée enterrés sur un gros bâtiment. Pour info, le réseau est réalisé en polyligne. - J'utilise un lisp "zfe" (et j'en profite au passage pour remercier son auteur "joch04" d'avoir partagé le fruit de son travail) qui calcule les fils d'eau du réseau à chaque sommet de la polyligne (après avoir renseigné le fil d'eau de départ, et la pente du réseau) - Ce lisp ajoute (sur un calque "ZFE" qu'il crée ) un texte (pas un Mtext) contenant le fil d'eau calculé. Le point d'insertion "Bas Gauche" de ce texte est situé sur le sommet calculé de la polyligne. Ma demande : - Serait-il possible d'avoir un lisp qui, quand on cliquerait sur un de ces textes, transformerait ce dernier en ligne de repère (en utilisant le style de ligne de repère "courant" du plan) - La pointe de la flèche étant positionnée au point d'insertion du texte sélectionné. - le petit plus (mais pas forcément nécessaire) serait que le lisp demande où positionner le texte de la ligne de repère en cliquant sur un point du dessin Voilà, j'espère que quelqu'un aura la gentillesse, le temps et la motivation pour réaliser ce lisp qui me soulagerait d'une tâche relativement fastidieuse. Merci ;)

oh merde ... ça y est, j'ai mal a la tête

il y a aussi le lisp CBL de giles et/ou patrick35 dont je me sert très, très souvent il faut copier le bloc et ensuite avec cette commande on le renomme sans changer les blocs d'origine (defun c:cbl(/ act blo doc ent lst rep inputbox MsgBox nombl) ;------------------------------------------------------------------------- ; Saisir une valeur via une boite de dialogue ;------------------------------------------------------------------------- ;; InputBox (gile) ;; Ouvre une boite de dialogue pour récupérer une valeur ;; sous forme de chaine de caractère ;; ;; Arguments ;; tous les arguments sont de chaines de caractère (ou "") ;; box : titre de la boite de dialogue ;; msg : message d'invite ;; val : valeur par défaut ;; ;; Retour ;; une chaine ("" si annulation) ;; ;; Modifié par Patrick_35 pour inclure le caractère \n ;; comme retour chariot (defun InputBox (box msg val / subr temp file dcl_id ret) ;; Retour chariot automatique à 50 caractères (defun subr (str / pos) (cond ((setq pos (vl-string-search "\n" str)) (strcat ":text_part{label=\"" (substr str 1 pos) "\";}" (subr (substr str (+ 2 pos))) ) ) ((and (< 80 (strlen str)) (setq pos (vl-string-position 32 (substr str 1 80) nil T)) ) (strcat ":text_part{label=\"" (substr str 1 pos) "\";}" (subr (substr str (+ 2 pos))) ) ) (T (strcat ":text_part{label=\"" str "\";}") ) ) ) ;; Créer un fichier DCL temporaire (setq temp (vl-filename-mktemp "Tmp.dcl") file (open temp "w") ret "" ) ;; Ecrire le fichier (write-line (strcat "InputBox:dialog{key=\"box\";initial_focus=\"val\";spacer;:paragraph{" (subr msg) "}spacer;:edit_box{key=\"val\";edit_width=54;allow_accept=true;} spacer;ok_cancel;}" ) file ) (close file) ;; Ouvrir la boite de dialogue (setq dcl_id (load_dialog temp)) (if (not (new_dialog "InputBox" dcl_id)) (exit) ) (set_tile "box" box) (set_tile "val" val) (action_tile "accept" "(setq ret (get_tile \"val\")) (done_dialog)" ) (start_dialog) (unload_dialog dcl_id) ;;Supprimer le fichier (vl-file-delete temp) ret ) (defun MsgBox (Titre Bouttons Message / Reponse WshShell) (acad-push-dbmod) (setq WshShell (vlax-create-object "WScript.Shell")) (setq Reponse (vlax-invoke WshShell 'Popup Message 0 Titre (itoa Bouttons))) (vlax-release-object WshShell) (acad-pop-dbmod) Reponse ) (defun nombl(bl) (if (vlax-property-available-p bl 'effectivename) (vla-get-effectivename bl) (vla-get-name bl) ) ) (setq doc (vla-get-activedocument (vlax-get-acad-object)) act "1.00" ) (vla-startundomark doc) (and (setq blo (entsel)) (setq blo (vlax-ename->vla-object (car blo))) (eq (vla-get-objectname blo) "AcDbBlockReference") (/= (setq rep (inputbox (strcat "CBL " act) "Indiquez le nouveau nom" (nombl blo))) "") (progn (if (tblsearch "block" rep) (msgbox (strcat "CBL " act) 16 (strcat "Le bloc " rep " existe déjà.")) (progn (vlax-for ent (vla-item (vla-get-blocks doc) (nombl blo)) (setq lst (cons ent lst)) ) (vla-copyobjects doc (vlax-safearray-fill (vlax-make-safearray vlax-vbObject (cons 0 (1- (length lst)))) lst ) (vla-add (vla-get-blocks doc) (vlax-3d-point '(0.0 0.0 0.0)) rep) ) (vla-put-name blo rep) ) ) ) ) (vla-endundomark doc) (princ) )

Merci

Pour avoir passé le cap sur windows 10, je le regrette amèrement d'autant que je n'ai pas eu l'occasion de faire une image disque et dépassé le cap des 30 jours. Du coup, je vais être obligé de (et dans un sens je préfère) formater mon disque dur pour réinstaller Win 7 pro sur une base vierge et saine. j'arrive toujours pas à comprendre comment Redmond continue à sortir des versions de Windows aussi merdique (95, 98, 8, et 10 pour ne citer que les versions les plus déplorables ) et le pompon ... limiter à 30 jours la possibilité de faire machine arrière Pour avoir 1 Mac et 1 PC à la maison, j'avoue que quand une nouvelle version d'IOS sort (en règle générale) cela fonctionne. Par contre, pour Windows c'est bien la dernière fois que l'on m'y prendra à faire une mise à jour même gratuite !

Salut, Edit Bloc fonctionne sur ma version ;)

Merci (gile), problème résolu ;)

Allé, j'y vais de ma réclamation LAYLOCKSEL, ne s'installe plus sur mon PC, j'ai un message lors de l'installation (Autocad 2017) : Error 1001. La référence d'objet n'est pas définie à une instance d'un objet

Félicitations patrick, c'est une bonne nouvelle

http://www.lee-mac.com/autoblockbreak.html

Tiens j'avais trouvé il y a quelque temps ce qu'il te faut : http://www.lee-mac.com/autoblockbreak.html

Super Christian

Salut a tous, Sans avoir demandé quoique ce soit, je viens de recevoir aujourd'hui par courrier le CD d'Autocad 2017 (Il est installé sur mon poste depuis sa sortie sur la console souscription) Y en a d'autres à qui c'est arrivé ? Parce que pour moi c'est bien la première fois que je reçois un support physique depuis que j'ai l'abonnement souscription

Tiens puisque l'on parle de ton logiciel, j'ai une petite question : Quel est le tarif ? Parce que sur le site j'ai trouvé 3 tarifs différents : - sur la vidéo youtube : 20€ - en cliquant sur le caddie : 60€ (notice au format PDF) - en cliquant sur l'image au dessous du caddie : 80€ (notice papier) soit 20€ la notice papier ... autant l'imprimer depuis le PDF, non ?

Merci Eric ;)

je viens d'installer la version pleine via ma souscription ;)

Salut, avec une recherche de 10 secondes sur google ;) http://www.bibliocad.com/library/mac-family_31195

http://www.bibliocad.com/library/dump-truck_30261 tu en trouveras pas mal sur ce site mais faut chercher un peu ;)

Pas con ça !! à méditer ton idée Christian

J'aurais au moins appris un truc aujourd'hui

Normal que tu ne trouve pas, on ne fait jamais de coudes transformés sur la hauteur ;)

Question : quelle utilité de réaliser un coude de gaine de cette forme là ? (pour info, je bosse dans le CVC) En plus de 25 ans, je n'ai jamais eu à réaliser un coude de gaine transformé de la sorte car si le gaineur peut "éventuellement" la fabriquer, c'est au détriment du prix ! c'est une pièce qui coûte très très cher à réaliser. un coude transformé ça peut se faire ... mais pas jamais sur la hauteur Généralement, dans ce type de cas, on réaliser un coude puis après on met une pièce de transformation

J'utilise AutoCad 360 également ;)