DenisHen

Salut, as-tu un exemple ? J'ai eu la même chose, corrigée avec Ctrl+Clic sur le lien... Denis...

J'ai oublié : \ : pause pour une saisie à la souris ou au clavier, généralement des coordonnées. ReDenis...

Salutations, Exemple avec un block situé dans les "chemins de recherche" AutoCAD : *^c_.insert;bouche;\50;80;0; * : répète la commande à l'infini ^c : stop toutes commandes en cours _.insert : commande inserer bouche : nom du block à inserer 50 : échelle en X 80 : échelle en Y 0 : rotation Denis...

Bonjour, Merci bryce, ça marche nikel. ;) Denis...

Bonjour, Merci pour ces remarques, je sais que je vais parfoit trop vite, mais là, c'est "CADXP" qui me disait qu'il fallait que je recommence à poster dans 3 secondes. Et c'est là que j'ai compris les "post multiple" d'autres membres... Bonne journée à tous... Denis. ;)

J'ai fais çà, mais je ne sais pas trop quoi en faire, mais on ne sait jamais... (defun c:CreeTypeLign (NomType Police /) (entmakex (list (cons 0 "STYLE") (cons 5 "40") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbLinetypeTableRecord") (cons 2 NomType) (cons 70 0) (cons 3 "AEP") ; Texte descriptif du type de ligne (cons 72 65) ; Code d'alignement ; la valeur est toujours 65, le code ASCII pour A (cons 73 ??) ; Nombre d'éléments du type de ligne (cons 40 ??) ; Longueur totale du motif (cons 49 ??) ; Longueur du tiret, du point ou de l'espace (une entrée par élément) (cons 74 ??) ; Type d'élément d'un type de ligne complexe (un par élément) : La valeur par défaut est 0 (pas de forme/texte imbriqué) (cons 75 ??) ; Numéro de forme (un par élément) si le code 74 indique une forme imbriquée (cons 340 ??) ; Pointeur de l'objet STYLE (un par élément si le code 74 > 0) (cons 46 ??) ; S = Valeur d'échelle (facultatif) ; les entrées multiples sont admises. (cons 50 ??) ;Valeur de rotation R = (relative) ou A = (absolue) en radians de la forme ou du texte incorporé ; une par élément si le code 74 spécifie une forme ou une chaîne de texte incorporée (cons 44 ??) ;X = Valeur de décalage de X (facultatif) ; les entrées multiples sont admises (cons 45 ??) ;Y = Valeur de décalage de Y (facultatif) ; les entrées multiples sont admises (cons 9 ??) ;Chaîne de texte (une par élément si code 74 = 2) ) ;_ Fin:list ) ;_ Fin:entmake )

Bonjour à toutes et à tous, Je cherche à créer un style de texte sans command "-style" ...J'ai fais çà : (defun c:CreeStyle (Style Police /) (entmakex (list (cons 0 "STYLE") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbTextStyleTableRecord") (cons 2 Style) (cons 70 1) (cons 40 1) ; Hauteur de texte fixe ; 0 si non fixée (cons 41 1) ; Facteur d'extension (cons 50 0) ; Angle d'inclinaison (cons 3 Police) ; Nom du fichier de polices primaires ;(cons 4 Police) ; Nom de fichier de grandes polices ; chaîne vide si aucun ) ;_ Fin:list ) ;_ Fin:entmakex )mais çà ne fait rien, à part un "nil"... merci d'avance, Denis...

A toutes fins utiles, j'ai ajouter çà à la fin de la routine... (setvar "clayer" Calque) Qui rend le calque créé courant, je peux donc lancer la commande _pline à la suite de la macro, qui est maintenant ; ^C^C(c:CreeCalque "CalqueNouveau" "cachex2" "0.20" "5");^C_pline; Denis...

Je viens de trouver ça dans une routine d'Azerty : ;;; ============================================= ;;; CreeCalque ;;; Création d'un Calque avec ses attributs ;;; Usage : (CreeCalque "NomDuCalque" "Style de ligne" "Epaisseur" "Couleur" "Tracer") ;;; Tracer = 1 , Ne pas tracer = 0 ;;; Epaisseur : 20 pour 0.20 , -1 pour DuCalque , -1 pour Par_Défaut ... ;;; ============================================= (defun CreeCalque (Calque LT Ep Col Plot) (entmakex (list (cons 0 "LAYER") (cons 100 "AcDbSymbolTableRecord") (cons 100 "AcDbLayerTableRecord") (cons 70 0) (cons 2 Calque) (cons 62 (atoi Col)) (cons 6 LT) (cons 370 (atoi Ep)) (cons 290 (atoi Plot)) ) ;_ Fin:list ) ;_ Fin:entmakex ) ;_ Fin:defun Mais celà ne me rend pas le calque créé courant...

Bonjour à tous J'aimerais créer en LiSP un calque comme le fait cette macro : ^c-calque;e;Nom du Calque;co;50;;ep;0.3;;tl;cache;;; J'ai cherché partout mais tout le monde passe par (commande "-calque" "e" ... J'ai cherché dans d'autres LiSP (comme InsTopo) mais je n'ai pas trouvé... D'avance, merci. Denis...

Bonjour à tous, J'aimerais créer un type de ligne via le LiSP sans pour celà passer par un fichier.lin et sans passer par (command... Voici le type de ligne *AEP,AEP ----AEP----AEP----AEP----AEP----AEP----AEP-- A,20,-1.3,["AEP",TypeLign,S=1.3,R=0.0,X=-0.65,Y=-0.65],-3 Où TypeLign serait un style de texte basé sur Simplex.shx réservé au textes dans les lignes... D'avance, merci à tous. Denis...

Salutations... Et pourquoi ne pas faire des boutons "insert" pour tes dwg ? Avant je copiais/collais aussi, mais je gagne un temps fou maintenant que je le fais grace aux blocks... Denis...

Bonjour à tous Voilà, j'ai un petit souci avec modemacro, j'ai çà dans un LiSP au démarage d'AutoCAD : (setq valeur "D=$(rtos,$(getvar,distance))" ) ;_ Fin:setq ... (setvar "modemacro" valeur) Mais il ne m'indique pas les résultats de la commande "_MEASUREGEOM" mais que celle de "Dist" Quelqu'un a une idée ? Denis...

Salut à tous, Travaillant souvant avec des plans de corps de rues dans tous les sens (avec des carroyages partout). Je me sers souvent de ce petit LiSP pour orienter mes vues sans toucher au système de coordonnées générales; Ce qui me permet de travailler avec des Xrefs en Lambert sans aucune manipulation... (defun c:BlexOrientSCU () ; Rotation de vue (command "_ucs" "_w") ; passage en SCU général (setvar "angbase" (/ pi 2)) ;origine au nord (setvar "angdir" 1) ; sens horaire (setvar "aunits" 2) ; grade (setq p1 (getpoint "\nPoint de départ : ")) (setq vortho (getvar "orthomode")) (setq p2 (getpoint p1 (strcat "\nDirection des X (0 pour scu gébéral):") ) ;_ Fin:getpoint ) ;_ Fin:setq (setvar "orthomode" vortho) (setvar "snapang" (angle p1 p2)) (setq angscu (- 500 (* 200 (/ (angle p1 p2) pi)))) (if (<= angscu 400) (- angscu 400) ) ;_ Fin:if (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000)) (command "_ucs" "_z" p1 p3) (command "_plan" "courant") (command "_ucs" "_w") (command "resol" "r" p1 p2) ) ;_ Fin:defun Bonne vacances... Denis.

Salut à tous, Travaillant souvant avec des plans de corps de rues dans tous les sens (avec des carroyages partout). Je me sers souvent de cepetit LiSP pour orienté mes vues sans toucher au système de coordonnées générales; Ce qui me permet de travailler avec des Xrefs en Lambert sans aucune manipulation... (defun c:BlexOrientSCU () ; Rotation de vue (command "_ucs" "_w") ; passage en SCU général (setvar "angbase" (/ pi 2)) ;origine au nord (setvar "angdir" 1) ; sens horaire (setvar "aunits" 2) ; grade (setq p1 (getpoint "\nPoint de départ : ")) (setq vortho (getvar "orthomode")) (setvar "orthomode" 0) (setq p2 (getpoint p1 (strcat "\nDirection des X (0 pour scu gébéral):") ) ;_ Fin:getpoint ) ;_ Fin:setq (setvar "orthomode" vortho) (setvar "snapang" (angle p1 p2)) (setq angscu (- 500 (* 200 (/ (angle p1 p2) pi)))) (if (<= angscu 400) (- angscu 400) ) ;_ Fin:if (setq p3 (polar p1 (+ (angle p1 p2) (/ pi 2)) 1000)) (command "_ucs" "_z" p1 p3) (command "_plan" "courant") (command "_ucs" "_w") (command "resol" "r" p1 p2) ) ;_ Fin:defun Bonne vacances aux absents... Denis.

Salut, Essai 'cal, au cas ou ça te convient... Denis.

Salut, Merci Patrick_35 pour cette routine qui fonctionne impécablement, mais elle n'utilise pas le style de texte courant... Denis...

Bonjours à tous, Je poste ce LiSP car je ne l'ai pas trouvé et je sais qu'il serait utile à quelques uns... Il écrit les XY des sommets d'une polyligne aux sommets de cette polyligne... (vl-load-com) (defun c:BlexXYpoly (/) (setvar "CMDECHO" 0) (setq ename (car (entsel "\nSelectionnez la polyligne: "))) (getvertices ename) (while (not (equal (car return) nil)) (setq texte (strcat "X=" (rtos (caar return) 2 2) "\nY=" (rtos (cadar return) 2 2) ) ;_ Fin:strcat ) ;_ Fin:setq (princ texte) (command "_-mtext" "_none" (car return) "j" "bg" "_r" rot "_w" "0.00" texte "" ) ;_ Fin:command (setq return (cdr return)) ) ;_ Fin:while ) ;_ Fin:defun ;//////////////////////////////////////////////////////////////// trouvé sur CADXP (defun getvertices (ename / plineget vertex vertexget) (setq return nil) (cond ((or (/= (type ename) 'ename) (not (setq plineget (entget ename))) ) ;_ Fin:or (setq return nil) ) ((= "POLYLINE" (cdr (assoc 0 plineget))) (setq vertex (entnext ename)) (while (= "VERTEX" (cdr (assoc 0 (setq vertexget (entget vertex)))) ) ;_ Fin:= (setq return (cons (cdr (assoc 10 vertexget)) return)) (setq vertex (entnext vertex)) ) ;_ Fin:while (setq return (reverse return)) ) ((= "LWPOLYLINE" (cdr (assoc 0 plineget))) (setq return (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) plineget) ) ;_ Fin:mapcar ) ;_ Fin:setq ) (t (setq return nil)) ) ;_ Fin de cond ) ;_ Fin de defun Cordialement...

Bonjour Fait un controle de ton dessin, il te comptera le nombre d'entité de ton dessin... Je pense que des entités sont à un point de ton dessin et d'autre à un autre point, quand AutoCAD de "montre" tous, on ne les distingue plus à l'écran... Sauvegarde une "vue" avant le Copier/Coller puis, rapelle-là après... Cordialement,

Bonjour, Moi, j'ai çà dans mes menus : ^c_.insert;bouche;\1;;0; Avec : ^c_.insert;Nom du block;\Echelle en X;Echelle en Y;Rotation; Cordialement, Denis

Bonjour, Grand merci à tyrese69_... J'y cours... Denis...

De rien, pirerrevignieux, on est tous là pour s'entraider... Et merci bryce... Bonne journée à tous

Salut, Il est dans la réponse n°8... Denis...

Désolé, le lien bloc est mauvais http://phalenecad.fr/CadXP/Block_pour_pierrevigneux.zip Denis...

Bonjour, J'ai oublié un détail important, dans menu POP2 "PhOutils" il y a "Convention topo". Mes routine ne fonctionne que si tu paramètre selon ce menu... Sens horaire, grade, direction des X vers le Nord, SCU général actif... Il créé aussi 4 calques qui étaient indispensables pour l'insertion de fichier "point de levé topo" dont tu n'aura peut être pas besoin... [Conven&tion topo]^C^C-unites;2;2;3;2;0,0;@0,1;O;pdmode;32;pdsize;.1;PLINEGEN;1;-couleur;ducalque;^C^Cfiledia;1;attdia;1;-typeligne;a;ducalque;;ecrangra;-calque;e;"Titre Cache";co;6;;t;a;;e;Points;e;Matri;co;1;;e;Alti;co;4;;e;Station;co;1;;ch;0;;_ucs;_w;^C Mes routine fonctionnent avec au moins UNE échelle, mais tu peux travailler simultanément avec 2. Très pratique pour un lotissement par exemple, 1/1000 ou 1/1500 pour le plan de composition et 1/200 ou 1/250 pour les plans de détails des lots... Pour faire encore plus, et mieux... Voici mes icones (128Ko)et mes blocks (47Mo) http://www.phalenecad.fr/CadXP/Pour_pierrevigneux.zip http:// www.phalenecad.fr/CadXP/Block pour pierrevigneux.rar Voilà, bon courage à toi... Denis