DenisHen

Salutations... Sans problème... Voici un petit exemple de mon fichier MNS pour mes types de lignes [->Clôture] [Clôture Piquet béton]^C^C(c:PhCreaCalq "Clôture (piquet béton)" "1" "Cloture-beton-C" "Norm");_pline; [Clôture Piquet bois]^C^C(c:PhCreaCalq "Clôture (piquet bois)" "1" "Cloture-bois-C" "Norm");_pline; [Clôture Piquet fer]^C^C(c:PhCreaCalq "Clôture (piquet fer)" "1" "Cloture-fer" "Norm");_pline; [Clôture barbelé]^C^C(c:PhCreaCalq "Clôture (barbelé)" "1" "Cloture-barbele" "Norm");_pline; [Glissière]^C^C(c:PhCreaCalq "Clôture (glissière)" "7" "continu" "Norm");_pline; [<-Palissade]^C^C(c:PhCreaCalq "Clôture (palissade)" "7" "Palissade" "Norm");_pline; Et le lisp "PhCreaCalq": ; création de calques par critères ; nomcalq = nom du calque ; coul = couleur du calque (numéro de la couleur ou "Rnd" pour une couleur aléatoire non incrémentée ; nomlign = nom du type de ligne ; precalq = type de projet de l'activité crourant : ; (defun c:phcreacalq (nomcalq coul nomlign precalq / prj) (setvar "CMDECHO" 0) (setq prj (vlax-ldata-get "Phalene" "Projet")) (cond ((= precalq "Prj") (progn (if (= (substr prj 1 1) "L") (setq nomcalq (strcat "Loti " (substr prj 2 (- (strlen prj) 1)) " - lot " (vlax-ldata-get "Phalene" "Lot") " - (" nomcalq ......................... ......................... ......................... Bon, je te fais un lien vers un zip qui comporte tous mes fichiers de personnalisation... Tu auras du boulo pour cette semaine... http://www.phalenecad.fr/CadXP/Pour_pierrevigneux.zip Par contre, je ne sais plus tellement les utiliser, je les ai créées il y à plus de 5 ans... Voilà, c'est tout ce que je peux faire ce soir... Mais si tu as besoin, n’hésite pas... Denis...

Re Merci Lili2006, je tente le truc... Voici donc ma jolie image... http://www.phalenecad.fr/CadXP/Isolant.jpg Tada ! !C'est une coupe ( mais en plan, c'est la même symbolique d'un mur et de son doublade De gauche à droite : 2cm de crépis, 20cm de parpaing, une couche de colle, 10cm d'isolant et le BA13... Voilà qui est fait... Le mieux est d'en faire un type de ligne pour pouvoir en faire une multiligne ( car l'isolant peut faire plusieurs épaisseurs 10, 12, 16, 18... Et il peut aussi être coupé pas la menuiserie...) Et maintenant, je sais poster des images ! ! Et bon dimanche... Sous vos applaudissements... Denis...

Bonjour à tous... Je ne voudrais pas pinailler mais l'isolant se dessine plus souvent, et c'est plus "joli" comme une sorte de petit "serpentin", une sorte su "S" contigus... J'ai une image exemple mais je n'arriva pas à la poster... Et c'est infiniment plus complexe à dessiner... Denis...

Bonjour à tous... En tant qu'ancien géomètre, je m'étais fais un petit paquet de lignes... ; Clôture piquet béton *Cloture-beton-G,Clôture béton gauche A,2,["o",Cloture1,x=0.25,y=.00,s=.2],0.0001 *Cloture-beton-C,Clôture bois centrée A,2,["o",Cloture1,x=-.02,y=-0.095,s=.2],-0.2 *Cloture-beton-D,Clôture bois droite A,2,["o",Cloture1,x=0.25,y=-.2,s=.2],0.0001 ; Clôture piquet fer *Cloture-fer-G,Clôture fer gauche A,2,["T",Cloture3,r=180,x=-0.25,y=.2,s=.2],0.0001 *Cloture-fer-D,Clôture fer droite A,2,["T",Cloture3,x=0.25,y=-.2,s=.2],0.0001 ; Clôture piquet bois *Cloture-bois-G,Clôture bois gauche A,2,["e",Cloture1,y=.037,s=.15],0.0001 *Cloture-bois-C,Clôture bois centrée A,2,["e",Cloture1,y=-0.075,s=.15],-0.25 *Cloture-bois-D,Clôture bois droite A,2,["e",Cloture1,y=-.19,s=.15],0.0001 ; Clôtures + Lignes diverses *Cloture-barbele,Clôture barbelé A,3,["X",Cloture2,x=-.02,y=-0.10,s=.2],0.5,["X",Cloture2,x=-.04,y=-0.20,s=.4],0.5,["X",Cloture2,x=-.02,y=-0.10,s=.2],0.0001 *Palissade,Palissade A,1,["-",Cloture3,x=0.25,y=-.2,s=.2],1,["-",Cloture3,x=0.25,s=.2],0.0001 Et ces lignes à coller dans un LiSP... ;créer des types de ligne en les chargeant depuis le fichier "Phalène.lin" (defun c:phtyplign (nomlign / varcherche) (setvar "CMDECHO" 0) ; inactive l'écriture des actions dans la fenêtre texte d'AutoCAD (c:styltxt "Nihon" "WINGDNG2.TTF" "0" "1") (c:styltxt "Cloture1" "Phalène-Ligne.shx" "0" "1"); le seul fichier "piqué" à AutoCAD, je pense que c'est le gdt.shp avant compilation (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") ;Les lignes qui suivent ne sont pas de moi... (if (> (strlen nomlign) 3) (setq varcherche (strcat (substr nomlign 1 (- (strlen nomlign) 1)) "*") ) ;_ Fin:setq (setq varcherche (strcat nomlign "*")) ) ;_ Fin:if (vl-catch-all-apply 'vla-load (list (vla-get-linetypes (vla-get-activedocument (vlax-get-acad-object)) ) ;_ Fin:vla-get-linetypes varcherche (findfile "Phalène.lin") ;Nom du fichier contenant les styles de lignes ) ;_ Fin:list ) ;_ Fin:vl-catch-all-apply ) ;_ Fin:defun ;//////////////////////////////////////////////////////////////// ;créer des styles de texte ; nomtxt = nom du style ; police = nom de la police (.shx, .ttf...) ; comp = compression du stylr ; inclin = inclinaison du style (defun c:styltxt (nomtxt police comp inclin /) (setvar "CMDECHO" 0) ; Complètement INUTILE si aucun appel à command ;Les lignes qui suivent ne sont pas de moi... (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)) '(50 . 0.0) '(71 . 0) '(42 . 0) (cons 3 police) '(4 . "") ) ;_ Fin:list ) ;_ Fin:entmake ) ;_ Fin:if ) ;_ Fin:defun J'espère t'avoir aidé... Denis...

Bonjour à tous... Je me faisais avoir aussi à mes début... Et en plus, avec l'accrochage objet, çà cliquait n'importe où et çà s'accrochait à perpette ! ! !... Que de souvenir... Denis...

Bonjour à tous... J'ai peut-être un petit LiSP pour çà... (defun c:phrot (/p1 rot) ;Rotation du SCU pour qu'une ligne de base soit // à l'écran sans changer les coordonnées du dessin (setq p1 (getpoint "\nPoint 1 : ") ; saisie à la souris du point de base rot (getorient p1 "\nOrientation : ") ; saisie à laa souris de la direction rot (* (/ rot 200.0) pi) ; traduction des grades en radians ) ;_ Fin:setq (if (= 1 (getvar "ANGDIR")) ; inversion si sens horaire (setq rot (- rot)) ) ;_ Fin:if (setq rot (+ (getvar "ANGBASE") rot)) ; prise en compte de ANGBASE ) Observation : je travail en grade, Le "NORD" est en haud et je tourne dans le sens horaire... Ligne de commande : phrot... J'espère t'avoir aidé... Denis...

Bonjours à tous... Frais m'a aidé pour un tout autre problème (l'échange de variables entre LiSP et VBA) et sa réponse m'a soufflée... Utiliser la Base de registre... Je partage donc une alternative possible pour mon problème posé ici : citation extraite du message original: (defun PUT-var (RegVar RegVal) (vl-registry-write "HKEY_CURRENT_USER\\Software\\Fraid\\ActivProject" RegVar RegVal ) (princ) ) (defun GET-var (RegVar) (setq ExtVal (vl-registry-read "HKEY_CURRENT_USER\\Software\\Fraid\\ActivProject" RegVar ) ) ExtVal ) Voilà, si cela peut être utile à quelqu'un... Reste à "DIELISER" tous çà... Bonne journée à tous, Denis...

Bonjours à tous... Alors là, Fraid, ça me scie les pattes ! ! ! J'utilise la base de registre pour tous mes autre programmes (VBA Excel, Word, Acces, VB6...) Et JAMAIS je n'avais eu cette lumineuse idée ! ! ! Un super grand merci ! ! ! Denis...

Bonjour à tous, Merci (gile) , je pensais pourvoir lancer un lisp depuis VBA, et le LiSP retournerait une variable à VBA... Mais bon... Je connaissais déjà les USERs mais ils sont limités, mais je ne connaissais pas les xrecords... J'espère juste qu'il fonctionnent comme les "vlax-ldata*"... Je vais me renseigner... Merci encore... Denis...

Bonjour à tous... J'ai un petit problème du même ordre... J'ai dans mes LiSP des phrases du genre (setq prj (vlax-ldata-get "Phalene" "Projet")) Comment faire pour les récupérer dans VBA ? Merci et bonsoir à tous... Denis...

Bonjours à tous... Un grand merci Bryce, je vais voire ce que c'est que ces "palettes"... Denis...

Bonjour à tous... Bon, et bien merci à vous deux... es palettes ? Je ne connais pas... Je fonce me renseigner... Encore merci... Denis...

Bonjour à tous, Je pense être dans le bon forum... Dans mes Options d'AutoCAD, j'ai ajouté dans "Chemin de recherche de fichiers de support" : S:\Config\Phalène Et mes blocs sont rangés dans : S:\Config\Phalène\Bloc\Assainissement S:\Config\Phalène\Bloc\Mobilier urbain S:\Config\Phalène\Bloc\Symboles S:\Config\Phalène\Bloc\...... Dans mon fichier ".mns" j'ai : [CG 89]^C^C-calque;e;"Titre";;^C^C-inserer "s:/Config/Phalène/Bloc/Titre/Titre_Logo_CG-89";\.7;0; Ma question est : Si je partage mes menus et mes blocs avec quelqu'un qui n'a pas ces répertoires, puis-je lui donner mon fichier ".mns" avec ce type de code [CG 89]^C^C-calque;e;"Titre";;^C^C-inserer "/Titre/Titre_Logo_CG-89";\.7;0; et lui dire de mettre [i]Lecteur:répertoire[/i] \Phalène dans le "Chemin de recherche de fichiers de support" Je ne sais pas si j'ai été assez concis pour être compris Merci d'avance et bonne soirée,... Denis...

Bonjour à tous, Je pense être dans le bon forum... Dans mes Options d'AutoCAD, j'ai ajouté dans "Chemin de recherche de fichiers de support" : S:\Config\Phalène Et mes blocs sont rangés dans : S:\Config\Phalène\Bloc\Assainissement S:\Config\Phalène\Bloc\Mobilier urbain S:\Config\Phalène\Bloc\Symboles S:\Config\Phalène\Bloc\...... Dans mon fichier ".mns" j'ai : [CG 89]^C^C-calque;e;"Titre";;^C^C-inserer "s:/Config/Phalène/Bloc/Titre/Titre_Logo_CG-89";\.7;0; Ma question est : Si je partage mes menus et mes blocs avec quelqu'un qui n'a pas ces répertoires, puis-je lui donner mon fichier ".mns" avec ce type de code [CG 89]^C^C-calque;e;"Titre";;^C^C-inserer "/Titre/Titre_Logo_CG-89";\.7;0; et lui dire de mettre [i]Lecteur:répertoire[/i] \Phalène dans le "Chemin de recherche de fichiers de support" Je ne sais pas si j'ai été assez concis pour être compris Merci d'avance et bonne soirée,... Denis...

Salut à tous... Personnellement, je protège toujours les codes que je "partage". Mais je donne avec les sources... Dans mon cas, la protection est surtout pour assurer que des erreurs ne soient commises par Inadvertance (ou par un autre)... Denis...

Bonjour à tous... Ce sujet tombe à pic... J'ai développé des dizaines de petites macros en LiSP dans plusieurs ".lsp"... qui sont associées à des menus AutoCAD... Je m'y replonge depuis quelques semaines et je m’aperçois que je n'ai rien partagé, ce qui n'est pas bien car sans partage, je n'y serais jamais parvenu... Mon premier souci, c'est de commenter un maximum pour éventuellement en faire un petit "tuto". Ce que je suis sur le point de faire (en fait, cette semaine). Mon deuxième souci, comment poster le tout, ".lsp", ".mnu"/".mns", ".cui", ".dwg"... Ainsi que la structure des répertoires... /Support /Menu /Block /... pour qu'un novice puisse l'installer et en profiter sans y perdre tous ses cheveux... Mais je vais sérieusement me pencher sur cette question... Merci encore pour toutes vos aides... Denis...

Salut à tous... Génial ce code, il m'enlève une bûche du pied... Mais comment faire pour fouiller aussi les attribut de certains blocs ? Je fait un quantitatif de maisons individuelles et ma menuiserie, comme d'autre corps d'états, sont des blocs avec des attributs (matière, taille, prix...) Merci encore... Et bon partage à tous... DenisH...

Salut, Je rencontre actuellement le même type de problème... Exporter le "quantitatif" (longueurs, superficie, volume / lignes, polylignes, blocs) du contenu de certains calques... Mais je galère sévèrement ! ! Je tente et en LiSP et en VBA ! ! ! Courage... Denis...

J'avais oublié... :exclam: Besoin qu'aucun euro... J'ai déjà tous à portée de main, ordi, AutoCAD, site... Plus tard peut-être, mais ce sera avec le chiffre d'affaire... Re-merci à tous... Re-Denis... ;)

Salutations et... Merci à tous pour vos aides... Je pensais aussi en faire un "gratuiciel" (GNU ou autre) avec une donation par les utilisateurs éventuels... Mais je ne pense pas que la gratuité entraîne une donation de "conscience"... Et merci encore pour tout... Denis...

Juste for untilities... cadxp@phalenecad.fr Merci...

Fraid, tu n'es CARRÉMENT pas hors sujet... C'est bien ce dont je parle ! ! ! Mais je n'y connais RIEN aux démarches administratives à suivre... Si tu veux rester discret... cadxp@phalenecad.fr... Je suis curieux... Mais j'aimerais en faire profiter CadXP, qui m'a SUPER AIDÉ ! ! ! DenisH...

Salutations... Voilà, je développe en ce moment, un logiciel en VB6 pour les entreprises de "Construction de Maisons Individuelles". Je suis sur le point de terminer l'interface pour le service commercial (gestion de contacts, d'avants-projets, de projets, de catalogues...). Tous pour que le commercial n'ai qu'à "rabattre" la clientelle... Toute sa gestion est gérer avec mon logiciel... Et je ne vais pas tarder à m'attaquer à l'exploitation d'AutoCAD pour faire un métré/quantitatif avec base de données (métré/quantitatif) et une interface pour un gestion des sous-traitants, les coûts.. Tout pour gérer les taris selon plusieurs critères (géographiques, tarifaires...)... Je sais que cela intéresse plusieurs personnes... Mais je dois, sans aide, me replonger dans le LiSP... Maintenant que je me suis exprimé, Je n'ai qu'une seule(s) question(s)... Comment créer son "entreprise individuelle" pour vendre un "partagiciel" (License au mois, à l'année, à la licence par poste... ) Et surtout, comment me faire payer... PayPal... CB ? ? ? Je n'y connais rien, mais rien du tout ! ! ! Surtout que j'aimerais mettre une partie de mon logiciel gratuitement... Comme pour des SuperPetitesStructures... Et éventuellement, elles me ( ou nous ) feront un don... Mais je sais que dans ce domaine, il y a une grosse demande... Voilà, Bien à vous, Denis...

Salutations, Le silence est bien trop lourd sur le salaire... Car (sauf Mensura) je répond à toutes ces conditions... Denis...

Salutations... Mais si le salaire est sous-estimé ? Comment fait-on ? A+, Denis...