DenisHen

Bon, j'ai commencé... Le premier truc, les menus... La saisie, propre et net, comme peut le comprendre le programme qui va suivre... Je vais donc faire des menus pour que la saisie se fasse correctement... Exemple : le niveau de saisie du bâtiment {(vlax-ldata) =>Merci Maître (gile)} L'assistance de toutes saisie...(Type, épaisseur, nature...) Uniquement pour que tout soit propre et bien rangé... Sinon, on ne pourra rien faire... Bon, je me lance, je fais les menus... Et je les distribuerais... Mais ce n'est qu'un début... Bon, je me lance dans l'interface de saisie... PFFF, je dois faire les icônes aussi... PPPFFFfff ! ! ! Bon, je reviendrais... Mais je ne lâche pas ! ! ! Denis...

ReSalut à tous... Il vous faudrait d'autres explications ? ? C'est l'impression que je sens... Non ? J'ai visité AutoSpeed... (Extraordinaire, (mais je n'ai pas les sources, car MPC... La classe)), les MégaSuperMacroLiSP de Sir (gile)..., combien de fois il m'a "sauvé" la vie ! !Mais je cherche... Je ne vous demande pas de faire le boulo à ma place... (pour une fois) Je réclamerai, entre CADXPiens, des liens, des VBA, des LiSP... Je ne vous demande que de m'indiquer le chemin... Balancez-moi le tous en vrac... Je ferais le tri... Et je vous donnerais mon résultat, qui est... Dessiner une maison sur AutoCAD et envoyer le tout sur Excel (par exemple) pour en faire un devis... Voilà... Bien à vous tous, et merci encore, DenisH...

Bonjour à tous... Ouais, je sais que ça date (j'ai lu plusieurs sujet à ce propos), mais je vais me lancer dans la même démarche... Faire un quantitatif, donc un métrer, pour faire le devis, voire plus, d'une maison individuelle... Faire le métrer d'un dessin, avec des menus pour minimiser et simplifier la saisie dans AutoCAD 2011, mais j'aimerai que ce soit AUSSI pour LT... (n'oublions pas nos amis LTsiens...) Pour finir par sortir un quantitatif utilisant une bibliothèque existante d'un autre logiciel... MIAO de http://www.allsystems.fr/ Notre BD actuelle est d'environ 23000 lignes qui comportes tous nos prix... Le tous expliqué dans une feuille Excel (ou Word, c'est juste pour une impression, un PDF peut aussi faire l'affaire) qui donnera un quantitatif et un devis... J'ai des exemples (de quantitatifs type MIAO) extrêmement détaillés...si ce-là intéresse quelqu'un... Je tourne maintenant sur AutoCAD 2011 et je mélangerai certainement du LiSP et du VBA... Pour certaines fonction, des CADXPiens m'ont déjà fournit une aide incroyable... ((gile), Patrick_35, Rebcao, winfield, Tramber,bonuscad, et j'en oubli...) Voilà, j'ai hésiter à créer un nouveau sujet, mais je me suis finalement lancé car le dernier date de 2005... Bien à vous cher CADXPiens, DenisH...

Je viens de trouver... Pb de chemin entre 2005 sur XP et 2008 sur Vista... DenisH...

Salut à tous... Content de vous revoir ! ! ! Mais voilà, je passe vite fait car j'ai un "petit" SAV à faire sur des LiSP que j'avais fais pour AutoCAD 2005. Maintenant, je dois les mettre à jour pour AutoCAD 2008... Mais je bug... Voici le code : (defun c:PhBatiProlong () (if (= (setq Ech (vlax-ldata-get "Phalene" "Ech1")) nil) ;_ Fin de = (c:PhEch)) ;_ Fin de if (c:PhTypLign "BatProlong") (setq p1 (getpoint "\nCoint du batiment : ")) (setq p2 (getpoint p1 "\nFin du bâtiment (coté à prolongé): ") ;_ Fin de getpoint ) ;_ Fin de setq (princ "Prolongement de 5 mètre") (setq p3 (polar p2 (angle p1 p2) 5)) (command "-calque" "e" "Bâtiments (non levé)" "co" 2 "" "tl" "BatProlong" "" "") ;_ Fin de command (command "_.pline" "_non" p2 "_non" p3 "") ) ;_ Fin de defun J'ai donc écris : (vl-load-com) (defun c:PhBatiProlong () .... Maître (gile), quelqu'un d'autre, aurait-il une réponse ? Merci à vous... DenisH

Salut, je ne sais pas si je vais pouvoir t'aider, mais on ne sait jamais : comme le dit fhughes Il serait judicieux de faire de même avec AutoCAD 2008... Est-ce qu'AutoCAD 2008 est vraiment indispensable ? 2004 ou 2005 ne seraient pas "suffisant", surtout pour un portable, qui reste, pour l'instant, un matériel d'appoint ? Pour les portables, bien vérifier si la mémoire graphique (ou vidéo, c'est idem pour les portables) est oui ou non partagée, à savoir, si c'est (en gros) de la RAM partagé entre windows (différents processus du système) et le graphisme (vidéo, divX, jeux, 3D) exemple : 512 Mo (ou 4 Go) partagés peut se retrouver à 90% pour windows (qui se les réserve de force, même s'il utilise 5%) et laisser 10% pour la vidéo (qui se voit refuser les 50% qu'elle réclame, à juste titre, à Windows)... Donc, choisir mémoire NON partagée, mais ce n'est pas le même prix, raison pour laquelle c'est rarement décrit explicitement. Pour ce qui est de l'environnement pré-installé, je ne sais pas ce qu'à créé le gouvernement (constitué de vieux qui dorment sur leurs manuscrits) au sujet de la "concurence déloyale", il y a quelques temps, on pouvait choisir entre Bill Gates (texto : "Porte de l'addition") et le libre comme "Linux". En choisissant le deuxième, on peut "réinstaller" un windows dont on est propriétaire. la loi autorise (ou tolère) l'installation d'un logiciel sur un portable et sur un fixe SI et uniquement SI le propriétaire des deux micros est le même. Voilà, c'est tout ce que je trouve à dire en cet instant... Mais n'hésite pas... je cherche moi aussi la même chose... J'espère t'avoir aidé... Bon courage, et économise, car de toutes façons, ça coute la peau des c.... enfin, ce n'est pas donné... Denis...

Merci (gile), c'est génial ! ! Mais..... Oui, il y a toujours un mais, j'ai l'impression que le "code DXF" 50 est pour l'inclinaison. Mais faut-il le rentrer en radian ? Et si oui, ai-je bon : Menu : [blaBla]^C^C(c:StylTxt "Cadastre" "ARIAL.TTF" "1" "20");_.mtext....... Lisp : (defun c:StylTxt (NomTxt Police Comp Inclin /) (setvar "CMDECHO" 0) (if (not (tblsearch "STYLE" NomTxt)) (entmake (list '(0 . "STYLE") '(5 . "40") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord") (cons 2 NomTxt) '(70 . 0) '(40 . 0.0) (cons 41 (atof Comp)) (cons 50 . (* (/ Inclin 200) pi)) '(71 . 0) '(42 . 0) (cons 3 Police) '(4 . "") ) ;_ Fin de list ) ;_ Fin de entmake ) ;_ Fin de if (setvar "TEXTSTYLE" NomTxt) ) Si j'ai bon, c'est grace à vous tous, si j'ai faut, c'est uniquement de ma faute ;) ! ! Merci encore, Denis...

Waow, je n'ai pas encore testé, mais ça, ça vaut de passer "Premier Dan" sans problème ! ! Merci Bred ! ! Denis...

Je voyais plus un truc comme ça : (while (/= (left a) "0123456789" (setq a ( right a (- (len a) 1) ) ) Désolé, mais c'est du gros mélange de VB et Lisp ! ! ! C'est juste pour en donné l'idée, car mes string peuvent aussi être du type : "Radier = 125.20" ou "Hauteur = 52.1" Merci encore, Denis...

Bonjour à tous, Voilà, j'ai une routine qui ne tourne qu'à moitier et qui doit faire une vintaine de lignes pour faire ça : string - texte = chiffre je m'explique : "T=125.32" -"T=" = 125.32 Car, j'ai des opération à faire sur 125.32, mais dans le dessin, il est sous forme "T=125.32". Mais il peut aussi être écrit comme ça : "R=125.32" ou F & R =125.32"..... Mais de toutes les façons, le chiffre sera TOUJOURS à la fin. Ma routine cherchait à évaluer si le premier caractère de la chaine "T=125.32" était un caractère si oui, elle l'enlevait et il ne restait plus que "=125.32" Mais je voulais utiliser "while" mais je me suis perdu en chemin... Tout le monde a saisi ? Bon, bien merci d'avance, Denis...

Merci encore, ça fonctionne AU POIL ! ! Mais maintenant, je cherche à rendre ce style courant de la même façon, c.a.d. sans "command" ou grace à un code DXF ? Merci encore, Denis...

Merci ! ! Pour unr fois, j'ai trouvé seul. Enfin, seul....... C'est vite dit, mais j'ai réussi ! ! Merci encore à vous et VIVA CadXP ! ! Denis... ( tout content )

Merci encore, grace à vous, je finalise ma routine. Mais j'ai encore une petite question : Comment faire pour ne pas créer le premier texte dans la routine de bonuscad mais sortir malgrés ça des coordonnées pour les dx et dy ? ..... ..... (command "_.text" pt1 0.17 Ang str_txt) ;_ Fin de command (setq lst_pt (textbox (entget (entlast))) ;_ Fin de textbox dx (- (caadr lst_pt) (caar lst_pt)) ;_ Fin de - dy (- (cadadr lst_pt) (cadar lst_pt)) ;_ Fin de - ) ;_ Fin de setq ...... ...... Merci encore, Denis...

Un TRÈS GRAND MERCI à VOUS ! ! Vous êtes tous d'une aide précieuse et ce site m'est devenu indispensable ! ! Grace à vos posts, je devrai mieux comprendre le lisp et le travail de ses angles... J'ai maintenant du boulo sur la table... Merci encore mille fois, Denis... ( super content ce matin )

Merci messieurs, en effet, je n'avais pas vu le problème de cette façon. Mais comment comparer un angle en sens trigo avec un autre en sens horaire ? Car ma variable ANGDIR est dès l'ouverture du dessin à 1. Mais l'origine n'est pas la même non plus, AutoCAD la prend à l'EST et moi au NORD ! ! Pfffffff, j'ai pô fini ! ! Bon, j'y retourne ! ! Bon aller, juste pour bonuscad : Confisius a dit en revenant de derrière un arbre, un soir de grand vent, "Merde, je me suis encore pissé sur les sandalles ! !

Merci (gile), mais c'était juste pour savoir s'il y avait une option dans "grread"... Mais ne t'énerve pas ;) je vais encore voir chez Mme ANGDIR, avec laquelle je m'étais déjà faché sévèrement... Je pense qu'avec un bouquet de fleurs.... Non ? Merci encore, Denis...

Salutations... Voilà, j'utilise "grread" (que je viens à peine de connaitre) mais j'aimerai en savoir plus. J'ai déjà lu l'aide (en anglais) et aussi quelques sites (aidacad.com ....) mais je n'en ai pas tiré ce qui m'intéressait. Dans ma routine, j'ai çà (piqué à bonuscad ;) ) : ..... ..... ..... (while (and (setq key (grread T 5 0)) (/= (car key) 3)) ;_ Fin de and (cond ((eq (car key) 5) (redraw) (setq pt (cadr key)) (setq alpha (angle pt1 pt)) ..... ..... ..... Mais j'aimerai que "alpha" soit en grade et dans le sens horaire, car je dois le comparer à un autre angle qui lui, est en grade et en sens horaire... N'y-a t'il pas de fonction ou de commande spéciale pour ce type de routine ? Merci, Denis...

Ne t'inquiète pas Bred, j'apprend (enfin j'essai), même si c'est avec des trucs faux. Exemple pour "entmake" avec lequel je n'avais bossé que trop raremen, et grace à toi, j'ai lu les aides et consulter "aidacad.com"... Donc, merci à tous d'avoir pris le temps de m'aider... Denis...

Merci à vous, :) Ca fonctionne au poil ! ! Denis... ;)

Salutations (gile) et merci, Je regarde tout de suite ton post, Et j'utilise aussi StylTxt depuis AutoCAD via des Menus [style Cadastre]^C^C(c:StylTxt "Cadastre" "simplex.shx" "0" "1.2"); Mais tu as raison, je n'y pense pas toujours... Merci encore, Denis...

Désolé Bred, mais on peut dire qu'AutoCAD te cherche aussi maintenant, il me dit de te passer ça : Merci de te casser la tête pour moi, Denis...

Salut Bred et merci, Si ton orthographe est correcte (car j'ai copier/coller), AutoCAD me cherche avec :

Bonjour à tous, Voilà, j'ai dans un Lisp ceci : (defun c:phTypLign (NomLign / VarCherche) (c:StylTxt "Nihon" "WINGDNG2.TTF" "0" "1") (c:StylTxt "Cloture1" "Phalène-Ligne.shx" "0" "1") (c:StylTxt "Cloture2" "simplex.shx" "0" "1") (c:StylTxt "Cloture3" "Romand.shx" "0" "1") (c:StylTxt "Reseau" "simplex.shx" "0" "1") (c:StylTxt "TypLign1" "simplex.shx" "0" "1") (if (> (strlen NomLign) 3) (setq VarCherche (strcat (substr NomLign 1 (- (strlen NomLign) 1)) "*")) (setq VarCherche (strcat NomLign "*")) ) ;(princ (strcat "Nom de recherche = " VarCherche)) (vl-catch-all-apply 'vla-load (list (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object)) ) VarCherche (findfile "Phalène.lin") ) ) ) ;_ Fin de defun Et celà plus loin : (defun c:StylTxt (NomTxt Police Comp Inclin /) (setvar "CMDECHO" 0) (if (not (tblsearch "STYLE" NomTxt)) (entmake '((0 . "STYLE") (5 . "40") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . NomTxt) (70 . 0) (40 . 0.0) (41 . (atof Comp)) (50 . 0.0) (71 . 0) (42 . 0) (3 . Police) (4 . "") ) ) ) ) ;_ Fin de defun Mon problème est qu'AutoCAD me répond : et je ne sais absolument pas quoi faire avec ça ! ! Merci pour l'effort de lecture pour lire mon code :cool: Denis...

Merci à toi bonuscad... Je bidouille ton lisp depuis 1 h ! ! Et je m'éclate ! ! Je l'ai modifier pour arriver à ça, en parti : (while (equal pt2 pt1) (setq pt2 ((lambda (/ key pt p1 p2 p3 p4 alpha) (princ "\nPosition de l'annotation: ") (while (and (setq key (grread T 4 0)) (/= (car key) 3)) (cond ((eq (car key) 5) (redraw) (setq pt (cadr key)) (setq alpha (angle pt1 pt)) (cond ((and (>= alpha 0.0) (< alpha (/ pi 2))) (setq p1 pt p2 (list (+ (car pt) dx) (cadr pt)) p3 (list (+ (car pt) dx) (+ (cadr pt) dy)) p4 (list (car pt) (+ (cadr pt) dy)) pt_w p1 [surligneur]Just "BG"[/surligneur] ) ) ((and (>= alpha (/ pi 2)) (< alpha pi)) (setq p1 pt p2 (list (car pt) (+ (cadr pt) dy)) p3 (list (- (car pt) dx) (+ (cadr pt) dy)) p4 (list (- (car pt) dx) (cadr pt)) pt_w p4 [surligneur]Just "BD" [/surligneur] ) ) ((and (>= alpha pi) (< alpha (/ (* 3 pi) 2))) (setq p1 pt p2 (list (- (car pt) dx) (cadr pt)) p3 (list (- (car pt) dx) (- (cadr pt) dy)) p4 (list (car pt) (- (cadr pt) dy)) pt_w p3 [surligneur] Just "HD"[/surligneur] ) ) (T (setq p1 pt p2 (list (car pt) (- (cadr pt) dy)) p3 (list (+ (car pt) dx) (- (cadr pt) dy)) p4 (list (+ (car pt) dx) (cadr pt)) pt_w p2 [surligneur] Just "HG"[/surligneur] ) ) ) (grdraw pt1 p1 1) (grdraw p1 p2 7) (grdraw p2 p3 7) (grdraw p3 p4 7) (grdraw p4 p1 7) ) ) ) [surligneur](command "_.text" "J" Just pt 0.17 Ang str_txt) [/surligneur] (redraw) (cadr key) ) ) ) (if (equal pt2 pt1) (princ "\nLa position est confondue avec l'extrèmité!") ) ) pour changer les justification du text... Donc, c'est au point dans le SCU général sans rotation "écran" (rotation à l'aide de "resol") et là, je plante... Même avec "Trans" ! ! Un autre truc que je ne saisi pas très bien : dx (- (caadr lst_pt) (caar lst_pt)) dy (- (cadadr lst_pt) (cadar lst_pt)) Je comprends que tu sors les delta X et Y, mais dans mes textes, je n'ai qu'une paire de coordonnées ? ? Le boundtrucbox, je ne connaissais pas du tout, comme grread, c'est excellent ! ! Mon problème, comme celui de beaucoup de débutants je pense, c'est qu'on ne se rend réellement compte d'une commande, d'une fonction ou autre vraiment mieux en pratique plutôt qu'en théorie ! ! En tout cas, un super merci ! !

Effectivement, la super routine de bonuscad fonctionne en SCU général. Il faut donc suivre Patrick_35 et utiliser "Trans"... Merci encore à vous ! ! C'est génial ! ! Denis...