Aller au contenu
Problème de lien d'inscription (résolu ?) ×

Contour avec texte surface

Hydro8

Par Hydro8
dans Débuter en LISP

 Partager

Messages recommandés

  • Réponses 206
  • Créé
  • Dernière réponse

Meilleurs contributeurs dans ce sujet

Jours populaires

Meilleurs contributeurs dans ce sujet

Jours populaires

Images postées

DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Content d'avoir pu aider quelqu'un...

 

Perso, j'ai toujours Introduction à AutoLISP de Maître (gile)... qui est d'une aide incroyable sur CadXP...

 

perso, s'il n'avait pas été là (avec d'autres bien-sur) je n'aurais jamais pu faire ton lisp... ;)

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
Hydro8 Apprentice

Hydro8

Posté(e)
  • Auteur
Posté(e)

Oui merci pour le lien j'ai commencé à le lire :)

 

Pour le moment j'ai seulement fait des lisp basiques pour tracer des lignes de tel type dans tel calque etc...

 

La suite sera des lignes d'attaches pour les textes qu'on vient de créer (si c'est possible) et le draworder de certains calques mais j'ai cru lire que ce n'était pas possible. Il me reste de la lecture :)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Si tu veux, j'ai fais un lisp qui insère un texte au bout d'une flèche de rattachement...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Presque tout est possible, c'est juste une question de compétences...

 

Je vais essayer de te faire ça... Donne-moi un peut de temps...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Bon, j'ai réussi un truc, je ne sais pas si ça te conviendra... Mais je pense être arrivé à mes limites...

 

Voici la totalité des codes (attention à replacer ce que tu as écris que je n'ai pas) :

;;; ***********************************************************
;;; Dessine un contour, puis place un texte incrémenté et la   
;;; surface dans un multitexte et dans des Xdata               
;;; Pour Hydro8 de CadXP.com                                   
;;; ***********************************************************
(defun c:Hydro8_Poly (/ old_osmd PrefixIncrement ValIncrement Option1 Option2 MText EcritText)
 (princ "\nDéveloppé par Denis H. (v:1.7)")
 (defun EcritText (/ xSurf xMatri Pt_Deb_Fle)
   ;;
   (setq xMatri (strcat PrefixIncrement (itoa ValIncrement)))
   (SetXdataForApplication (entlast) "Matri" (list (cons 1000 xMatri)))
   (setq xSurf (rtos (getpropertyvalue (entlast) "Area") 2 1))
   (SetXdataForApplication (entlast) "Surf" (list (cons 1000 xSurf)))
   ;;
   ;;(setq Pt_Deb_Fle (getpoint "\nCliquer l'emplacement du texte :")) ;_ Fin de setq
   (setq Pt_Deb_Fle (getpoint "\nPointe de la flèche : "))
   (setvar "osmode" 0)
   (setq Pt_Fin_Fle (getpoint Pt_Deb_Fle "\nPied de la flèche : "))
   ;;
   ;;
   ;;
   ;;
   ;;
   (initget "Altitudes sansProfondeur sansHauteur sansLimite")
   (setq Option3 (getkword
                   (strcat "\nChoix des textes [Altitudes/sansProfondeur/sansHauteur/sansLimite] <Altitudes> : ") ;_ Fin de strcat
                 ) ;_ Fin de getkword
   ) ;_ Fin de setq
   (cond ((= Option3 "Altitudes") (setq Opt3 "Altitudes"))
         ((= Option3 "sansProfondeur") (setq Opt3 "sans profondeur"))
         ((= Option3 "sansHauteur") (setq Opt3 "sans hauteur"))
         ((= Option3 "sansLimite") (setq Opt3 "sans limite"))
         (T (setq Opt3 "Altitudes"))
   ) ;_ Fin de cond
   (setq MText (strcat "\\H1.2\\L" PrefixIncrement (itoa ValIncrement) "\\l\\P\\H1S=" xSurf "m²\\P" Opt3))
   (command "_.-MTEXT" Pt_Fin_Fle "J" OptionIns "H" 1.0 Pt_Fin_Fle MText "")
   ;;
   ;;
;;;Défini les quatre coins du MText de (gile)
   (princ "\nDéfini les quatre coins du MText de (gile)")
   (setq MTxt (entlast))
   (setq elst (entget (entlast)))
   (if (= "MTEXT" (cdr (assoc 0 (entget (entlast)))))
     (setq nor  (cdr (assoc 210 elst))
           ref  (trans (cdr (assoc 10 elst)) 0 nor)
           rot  (angle '(0 0 0) (trans (cdr (assoc 11 elst)) 0 nor))
           wid  (cdr (assoc 42 elst))
           hgt  (cdr (assoc 43 elst))
           jus  (cdr (assoc 71 elst))
           org  (list (cond ((member jus '(2 5 8)) (/ wid -2))
                            ((member jus '(3 6 9)) (- wid))
                            (T 0.0)
                      ) ;_ Fin de cond
                      (cond ((member jus '(1 2 3)) (- hgt))
                            ((member jus '(4 5 6)) (/ hgt -2))
                            (T 0.0)
                      ) ;_ Fin de cond
                ) ;_ Fin de list
           plst (mapcar (function (lambda (p) (mapcar '+ org p)))
                        (list (list (- 0.1) (- 0.1))
                              (list (+ wid 0.1) (- 0.1))
                              (list (+ wid 0.1) (+ hgt 0.1))
                              (list (- 0.1) (+ hgt 0.1))
                        ) ;_ Fin de list
                ) ;_ Fin de mapcar
     ) ;_ Fin de setq
     (setq box  (textbox elst)
           ref  (cdr (assoc 10 elst))
           rot  (cdr (assoc 50 elst))
           plst (list (list (- (caar box) 0.1) (- (cadar box) 0.1))
                      (list (+ (caadr box) 0.1) (- (cadar box) 0.1))
                      (list (+ (caadr box) 0.1) (+ (cadadr box) 0.1))
                      (list (- (caar box) 0.1) (+ (cadadr box) 0.1))
                ) ;_ Fin de list
     ) ;_ Fin de setq
   ) ;_ Fin de if
   (setq mat  (list (list (cos rot) (- (sin rot)) 0) (list (sin rot) (cos rot) 0) '(0 0 1)) ;_ Fin de list
         plst (mapcar (function (lambda (p) (mapcar '+ (mxv mat p) (list (car ref) (cadr ref)))) ;_ Fin de lambda
                      ) ;_ Fin de function
                      plst
              ) ;_ Fin de mapcar
   ) ;_ Fin de setq
   (setq Pt1 (list (car (nth 0 plst)) (cadr (nth 0 plst))))
   (setq Pt2 (list (car (nth 1 plst)) (cadr (nth 1 plst))))
   (setq Pt3 (list (car (nth 2 plst)) (cadr (nth 2 plst))))
   (setq Pt4 (list (car (nth 3 plst)) (cadr (nth 3 plst))))
   (setvar "osmode" 0)
   ;;
   ;;
;;;Calcul du gisement de la flèche selon son sens
   (princ "\nGisGrd")
   (setq GisGrd (gisement Pt_Deb_Fle Pt_Fin_Fle))
   ;;(setq Angl_Txt pi )
   (setq GisGrdSnapAng GisGrd)
   ;;(+ Angl_Txt GisGrd))
   (if (>= GisGrdSnapAng 400)
     (setq GisGrdSnapAng
            (- GisGrdSnapAng 400) ;_ Fin de -
     ) ;_ Fin de setq
   ) ;_ Fin de if
   (cond ((and (>= GisGrdSnapAng 0) (< GisGrdSnapAng 100)) (setq OptionIns "BG"))
         ((and (>= GisGrdSnapAng 100) (< GisGrdSnapAng 200)) (setq OptionIns "HG"))
         ((and (>= GisGrdSnapAng 200) (< GisGrdSnapAng 300)) (setq OptionIns "HD"))
         ((and (>= GisGrdSnapAng 300) (<= GisGrdSnapAng 400)) (setq OptionIns "BD"))
   ) ;_ Fin de cond
   ;;
   ;;
   (princ "\nDébut Long/Larg")
   (setq Long 2) ;largeur de la tête de la flèche
   (setq Larg 1) ;largeur du pied de la flèche
   ;;
   (princ "\nOptionIns")
   (cond ((= OptionIns "BG")
          (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt1) Long))
          (setq PtA1 (polar Pt4 (angle Pt4 Pt1) (/ (distance Pt4 Pt1) 2))) ;_ Fin de setq
          (setq PtB1 Pt1)
          (setq PtC1 (polar Pt1 (angle Pt1 Pt2) (/ (distance Pt1 Pt2) 2))) ;_ Fin de setq
          ;;
          (setq PtA2 (polar Pt3 (angle Pt3 Pt2) (/ (distance Pt2 Pt3) 2))) ;_ Fin de setq
          (setq PtB2 Pt3)
          (setq PtC2 (polar Pt3 (angle Pt3 Pt4) (/ (distance Pt3 Pt4) 2))) ;_ Fin de setq
         )
         ((= OptionIns "HG")
          (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt4) Long))
          (setq PtA1 (polar Pt4 (angle Pt4 Pt1) (/ (distance Pt4 Pt1) 2))) ;_ Fin de setq
          (setq PtB1 Pt4)
          (setq PtC1 (polar Pt4 (angle Pt4 Pt3) (/ (distance Pt4 Pt3) 2))) ;_ Fin de setq
          ;;
          (setq PtA2 (polar Pt2 (angle Pt2 Pt1) (/ (distance Pt2 Pt1) 2))) ;_ Fin de setq
          (setq PtB2 Pt2)
          (setq PtC2 (polar Pt2 (angle Pt2 Pt3) (/ (distance Pt2 Pt3) 2))) ;_ Fin de setq
         )
         ((= OptionIns "HD")
          (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt3) Long))
          (setq PtA1 (polar Pt3 (angle Pt3 Pt4) (/ (distance Pt3 Pt4) 2))) ;_ Fin de setq
          (setq PtB1 Pt3)
          (setq PtC1 (polar Pt3 (angle Pt3 Pt2) (/ (distance Pt3 Pt2) 2))) ;_ Fin de setq
          ;;
          (setq PtA2 (polar Pt1 (angle Pt1 Pt2) (/ (distance Pt2 Pt1) 2))) ;_ Fin de setq
          (setq PtB2 Pt1)
          (setq PtC2 (polar Pt1 (angle Pt1 Pt4) (/ (distance Pt1 Pt4) 2))) ;_ Fin de setq
         )
         ((= OptionIns "BD")
          (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt2) Long))
          (setq PtA1 (polar Pt2 (angle Pt2 Pt1) (/ (distance Pt1 Pt2) 2))) ;_ Fin de setq
          (setq PtB1 Pt2)
          (setq PtC1 (polar Pt2 (angle Pt2 Pt3) (/ (distance Pt2 Pt3) 2))) ;_ Fin de setq
          ;;
          (setq PtA2 (polar Pt4 (angle Pt4 Pt1) (/ (distance Pt4 Pt1) 2))) ;_ Fin de setq
          (setq PtB2 Pt4)
          (setq PtC2 (polar Pt4 (angle Pt4 Pt3) (/ (distance Pt4 Pt3) 2))) ;_ Fin de setq
         )
   ) ;_ Fin de cond
   ;;
   ;;
   ;;
   (princ "\nDébut calcul flèche")
   (setq p3 (polar Pt_Deb_Fle (angle Pt_Deb_Fle Pt1) Long))
   (princ "\nDébut Flèche")
   (command "_.pline" Pt_Deb_Fle "_w" 0 Larg p3 "_w" 0 0 Pt_Fin_Fle "")
   (princ "\nDébut Cadre")
   (command "_.pline" PtA1 PtB1 PtC1 "" "_.pline" PtA2 PtB2 PtC2 "") ;_ Fin de command
   (vlax-ldata-put "DenisH" "ValIncrement" (+ ValIncrement 1))
   (setq ValIncrement (vlax-ldata-get "DenisH" "ValIncrement"))
 ) ;_ Fin de defun
;;; Active le début de l'undo
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark doc)
 (setq old_cmdecho (getvar "cmdecho")
       old_osmode  (getvar "osmode")
 ) ;_ Fin de setq
 (command "-calque" "e" "MARTY-SURFACES_FRACTIONS" "co" "u" "255,0,255" "MARTY-SURFACES_FRACTIONS" "") ;_ Fin de command
;_ Fin de command
;_ Fin de command
;_ Fin de command
 (setq PrefixIncrement (vlax-ldata-get "DenisH" "PrefixIncrement" "VarB"))
 (if (= PrefixIncrement nil)
   (vlax-ldata-put "DenisH" "PrefixIncrement" "VarB")
 ) ;_ Fin de if
 (setq ValIncrement (vlax-ldata-get "DenisH" "ValIncrement" 0))
 (if (or (= ValIncrement "") (= ValIncrement nil))
   (progn (vlax-ldata-put "DenisH" "ValIncrement" 0)
          (setq ValIncrement (vlax-ldata-get "DenisH" "ValIncrement"))
   ) ;_ Fin de progn
 ) ;_ Fin de if
 (if (not (tblsearch "style" "Surface"))
   (command "-style" "Surface" "arial.ttf" "" "" "" "" "" "")
 ) ;_ Fin de if
 (command "textstyle" "Surface")
 (while (/= (type Option1) 'LIST)
   (initget "Préfix Nombre Suivant")
   (setq Option1 (getkword
                   (strcat "\nOptions des textes [Préfix/Nombre/Suivant] <" PrefixIncrement (itoa ValIncrement) "> : ") ;_ Fin de strcat
                 ) ;_ Fin de getkword
   ) ;_ Fin de setq
   (cond ((= Option1 "Préfix")
          (setq PrefixIncrement
                 (getstring (strcat "\nSaisir le préfix de l'incrémentation <" PrefixIncrement "> : ")) ;_ Fin de getstring
          ) ;_ Fin de setq
          (vlax-ldata-put "DenisH" "PrefixIncrement" PrefixIncrement)
         )
         ((= Option1 "Nombre")
          (setq ValIncrement (getint "\nSaisir le prochain numéro de l'incrémentation : ")) ;_ Fin de getstring
          (if (or (= ValIncrement "") (= ValIncrement nil))
            (vlax-ldata-put "DenisH" "ValIncrement" 0)
            (vlax-ldata-put "DenisH" "ValIncrement" ValIncrement)
          ) ;_ Fin de if
         )
         ((= Option1 "Suivant")
          (initget "Contour Polyligne")
          (setq Option2 (getkword "\nOptions des textes [Contour/Polyligne] <Contour> : ") ;_ Fin de strcat
          ) ;_ Fin de getkword
          (cond ((or (= Option2 "Contour") (= Option2 nil)) ;_ Fin de or
                 (while (princ "\nChoisir le contour :") (command "-contour" "O" "O" "P" "" pause "") (EcritText))
                )
                ((= Option2 "Polyligne")
                 (while (princ "\nSaisisser le contour :")
                   (command "_.pline"
                            (while (not (zerop (getvar "cmdactive"))) (command pause)) ;_ Fin de while
                   ) ;_ Fin de command
                   (EcritText)
                 ) ;_ Fin de while
                )
          ) ;_ Fin de cond
         )
   ) ;_ Fin de cond
 ) ;_ Fin de while
 (setvar "osmode" old_osmode)
 (setvar "cmdecho" old_cmdecho)
 (setvar "plinewid" 0)
;;; Fin de l'undo
 (vla-endundomark doc)
 (princ)
) ;_ Fin de defun
;;; ***********************************************************
;;; Exporte les Xdata (Matri et Surf) des entités d'un dessin  
;;; vers un fichier texte            Pour Hydro8 de CadXP.com  
;;; ***********************************************************
(defun c:Hydro8_List (/)
 (princ "\nDéveloppé par Denis H. (v:1.0)")
 (setq Fichier (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)))
 (setq Fichier (strcat (getvar "dwgprefix") Fichier ".Surf"))
 (setq FichierEcrit (open Fichier "a"))
 (if (setq ss (ssget "_X" '((0 . "LWPOLYLINE") (8 . "MARTY-SURFACES_FRACTIONS"))))
   (progn (setq i 0)
          (while (setq ssObj (ssname ss i))
            (setq i (1+ i))
            (setq xMatri (cdr (assoc 1000 (GetXdataForApplication ssObj "Matri"))))
            (setq xSurf (cdr (assoc 1000 (GetXdataForApplication ssObj "Surf"))))
            (if (and (/= xMatri "") (/= xMatri nil))
              (write-line (strcat xMatri " = " xSurf) FichierEcrit)
            ) ;_ Fin de if
          ) ;_ Fin de while
   ) ;_ Fin de progn
 ) ;_ Fin de if
 (close FichierEcrit)
 (princ)
) ;_ Fin de defun
;;;**************************************
;;; Calcul du gisement entre deux points 
;;;**************************************
(defun gisment (p1 p2 / xp1 xp2 yp1 yp2 DeltaX DeltaY)
;;;fait par didier de CaxXP.com
;;;de didier de CadXP
 (setq xp1    (car p1)
       yp1    (cadr p1)
       xp2    (car p2)
       yp2    (cadr p2)
       DeltaX (- xp2 xp1)
       DeltaY (- yp2 yp1)
 ) ;_ Fin de setq
 (cond ((and (> DeltaX 0) (> DeltaY 0)) (setq quadrant 1))
       ((and (> DeltaX 0) (< DeltaY 0)) (setq quadrant 2))
       ((and (< DeltaX 0) (< DeltaY 0)) (setq quadrant 3))
       ((and (< DeltaX 0) (> DeltaY 0)) (setq quadrant 4))
       ((and (= DeltaX 0) (> DeltaY 0)) (setq quadrant 0))
       ((and (> DeltaX 0) (= DeltaY 0)) (setq quadrant 100))
       ((and (= DeltaX 0) (< DeltaY 0)) (setq quadrant 200))
       ((and (< DeltaX 0) (= DeltaY 0)) (setq quadrant 300))
 ) ;_ Fin de cond
 (if (= DeltaY 0)
   (setq gis_tempo 0)
 ) ;_ Fin de if
 (if (= DeltaX 0)
   (setq gis_tempo 0)
 ) ;_ Fin de if
 (if (and (/= 0 DeltaX) (/= 0 DeltaY))
   (setq gis_tempo (/ (* (atan (/ DeltaX DeltaY)) 200) pi))
 ) ;_ Fin de if
 (if (= quadrant 1)
   (setq gis gis_tempo)
 ) ;_ Fin de if
 (if (= quadrant 2)
   (setq gis (+ 200 gis_tempo))
 ) ;_ Fin de if
 (if (= quadrant 3)
   (setq gis (+ 200 gis_tempo))
 ) ;_ Fin de if
 (if (= quadrant 4)
   (setq gis (+ 400 gis_tempo))
 ) ;_ Fin de if
 (if (= quadrant 0)
   (setq gis (+ 0 gis_tempo))
 ) ;_ Fin de if
 (if (= quadrant 100)
   (setq gis (+ 100 gis_tempo))
 ) ;_ Fin de if
 (if (= quadrant 200)
   (setq gis (+ 200 gis_tempo))
 ) ;_ Fin de if
 (if (= quadrant 300)
   (setq gis (+ 300 gis_tempo))
 ) ;_ Fin de if
 gis
) ;_ Fin de defun
;;
;;
;|«Visual LISP© Format Options»
(199 2 2 2 T "Fin de " 100 9 0 0 0 nil nil nil T)
;*** NE PAS AJOUTER de texte au-dessous du commentaire! ***|;

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Alors pour le numéro il me met VarB0 par exemple

Que te propose t'il en ligne de commande ?

 

et après avoir choisi le type d'altitude j'ai "commande inconnue H"

Quelle style de texte est le courant ?

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

C'était standard, j'ai essayé avec Arial mais même erreur.

Je pense que c'est le style de texte qui ne doit pas avoir de hauteur dans les paramètre de la commande "style".

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Ok.

 

je ne comprend pas cette erreur "clayer"... ? ? ?

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Je pense que tu n'utilise pas l'éditeur de Lisp intégré à AutoCAD...

 

Tape 'VLIDE en ligne de commande (avec l'apostrophe).

 

Si non, il faudra régler le code de caractères qu'utilise l'utilisateur dont tu te sert (ce qui n'est pas conseillé).

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
Hydro8 Apprentice

Hydro8

Posté(e)
  • Auteur
Posté(e)

Voila le résultat :

 

Commande: HYDRO8_POLY

Développé par Denis H. (v:1.7)Commande inconnue "HYDRO8_POLY". Appuyez sur F1 pour obtenir de l'aide.

Options des textes [Préfix/Nombre/Suivant] <VarB0> : s

Options des textes [Contour/Polyligne] <Contour> :

Choisir le contour :

Pointe de la flèche :

Pied de la flèche :

Choix des textes [Altitudes/sansProfondeur/sansHauteur/sansLimite] <Altitudes> :

Style de texte courant: "Surface" Hauteur de texte: 0.2000 Annotatif: Non

Commande inconnue "H". Appuyez sur F1 pour obtenir de l'aide.

1

Lien vers le commentaire
Partager sur d’autres sites
Hydro8 Apprentice

Hydro8

Posté(e)
  • Auteur
Posté(e)

Et sans la partie pour la hauteur du texte :

 

Commande: HYDRO8_POLY

Développé par Denis H. (v:1.7)

Options des textes [Préfix/Nombre/Suivant] <VarB0> : s

Options des textes [Contour/Polyligne] <Contour> :

Choisir le contour :

Pointe de la flèche :

Pied de la flèche :

Choix des textes [Altitudes/sansProfondeur/sansHauteur/sansLimite] <Altitudes> :

Style de texte courant: "Surface" Hauteur de texte: 0.2000 Annotatif: Non

Commande inconnue "2\LVARB0\L\P\H1S=197.3M²\PALTITUDES". Appuyez sur F1 pour obtenir de l'aide.

Commande inconnue "HYDRO8_POLY". Appuyez sur F1 pour obtenir de l'aide.

Défini les quatre coins du MText de (gile)paramètre de la variable AutoCAD rejeté: "clayer" nil

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Commande inconnue "H". Appuyez sur F1 pour obtenir de l'aide.

 

Je croyais que tu avais enlevé le "H" 1.0 dans 

(command "_.-MTEXT" Pt_Fin_Fle "J" OptionIns "H" 1.0 Pt_Fin_Fle MText "")

Ce qui donnerait :

(command "_.-MTEXT" Pt_Fin_Fle "J" OptionIns Pt_Fin_Fle MText "")

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Es-tu dans l'éditeur de Lisp d'AutoCAD ?

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

As-tu retouché mon code ? Je vois des "\" qui manquent...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites
DenisHen Proficient

DenisHen

Posté(e)
Posté(e)

Normalement, ton texte devrait être en style "Surface"...

Windows 11 / AutoCAD 2024

Sur terre, il y a 10 types de personnes, celles qui comptent en binaire et les autres (developpez.net).
Davantage d'avantages, avantagent davantage (Bobby Lapointe).
La connaissance s'accroît quand on la partage (Socrate).
Tant va la cruche à l'eau que l'habit n'amasse pas mousse avant de l'avoir tué. (Moi)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
 Partager
Aller sur la liste des sujets


×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité