Hachures "ISOLATION" pour le batiment

[Anonymous]

Bonjour,

Je recherche sans résultat un type de hachures pour représenter l'solation dans un batiment, donc du style un U minuscule dans un sens , un N minuscule dans l'autre...etc... comme un serpentin (~~~~~~~) (enfin, le type classic je pense pour représenter l'isolation).

Quelqu'un aurait-il ça dans ces archives?

Merci!

[Anonymous]

bonjour,

Tu as bien regardé dans tes types de ligne car il y en a un spécifique pour
ce que tu recherche

(Format/type de ligne/charger/Isolation)

Michel

[Anonymous]

Si, j'y ai bien pensé au type de lignes, mais c'est trop le bazar à régler pour que ça rentre pile poil dans ma largeur de rectangle; et vu qu'en plus j'ai déja mes échelles de type de ligne réglée, j'ai pas trop envie d'y toucher; d'ou l'idée des hachurse, qui seraient quand même plus facile à gérer.

[Anonymous]

gejoun a écrit :
> Bonjour,
>
> Je recherche sans résultat un type de hachures pour représenter l'solation dans un batiment, donc du style un U minuscule dans un sens , un N minuscule dans l'autre...etc... comme un serpentin (~~~~~~~) (enfin, le type classic je pense pour représenter l'isolation).
>
> Quelqu'un aurait-il ça dans ces archives?
>
> Merci!

Pour répondre a ta question moi qui est du batiment n'utilise pas le
type de ligne isol d'autocad si tu veux pas t'aracher les cheveux avec
tes échelles surtout si tu travail sur l'espace présentation..
Pour moi la meilleur solution est de créer un blocisol avec une portion
de ton isol et utilise réseau c 100 fois mieux
salut....

[Anonymous]

Voici une petite ligne de code modifiée qui provient du fichier
acadiso.lin...
Si tu appliques une règle de trois sur les différentes variables, tu
obtiendras l'épaisseur que tu veux. Tu peux insi créer une série de type de
lignes isolations standard.
Comme en général les épaisseurs d'isolant ne sont pas infinies sur le
marché, tu devrais avoir rapidement fait le tour...

*ISOLATION_4cm,Isolation_4cm SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
A,.00050,-0.50,[BAT,ltypeshp.shx,x=-0.50,s=0.50],-1.00,[BAT,ltypeshp.shx,r=1
80,x=0.50,s=0.50],-0.50

*ISOLATION_6cm,Isolation_6cm SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
A,.00075,-0.75,[Bat,ltypeshp.shx,x=-0.75,s=0.75],-1.50,[Bat,ltypeshp.shx,r=1
80,x=0.75,s=0.75],-0.75

Bonne chance

Gilles


a écrit dans le message de news:4855532@discussion.autodesk.com...
Si, j'y ai bien pensé au type de lignes, mais c'est trop le bazar à régler
pour que ça rentre pile poil dans ma largeur de rectangle; et vu qu'en plus
j'ai déja mes échelles de type de ligne réglée, j'ai pas trop envie d'y
toucher; d'ou l'idée des hachurse, qui seraient quand même plus facile à
gérer.

[Anonymous]

Bien que je m'en serve jamais (je suis pas dans le batiment), j'avais trouv� suir le net 2 routines en lisp
Essaye peut �tre que ce sera plus simple � g�rer.

Je fais un autre post pour joindre le 2eme, il se ressemble!

[Anonymous]

2eme post

[Anonymous]

gejoun wrote:
> Bonjour,
>
> Je recherche sans résultat un type de hachures pour représenter l'solation dans un batiment, donc du style un U minuscule dans un sens , un N minuscule dans l'autre...etc... comme un serpentin (~~~~~~~) (enfin, le type classic je pense pour représenter l'isolation).
>
> Quelqu'un aurait-il ça dans ces archives?
>
> Merci!


un lisp qui crée une polyline:
principe:
(command "pline")
(setq x 0)
(while (< x (/ ucs-lg =ISOL=))
(command
(list (+ x 0.000) 0.000)
"arc" "ce" (list (+ x 0.000) 0.180) (list (+ x 0.175) 0.225)
"line" (list (+ x 0.027) 0.775)
"arc" (list (+ x 0.200) 1.000) (list (+ x 0.375) 0.775)
"line" (list (+ x 0.225) 0.225)
"arc" "ce" (list (+ x 0.400) 0.180) (list (+ x 0.400) 0.000))
(setq x (+ x 0.4)))
(command "")
(command "scale" (entlast) "" '(0 0) =ISOL=)

avec =ISOL= l'epaisser et ucs-lg la longueur.
il faut que l'ucs soit placé *sur* ton mur à isoler

mais bon, une pline comme cela peut ralentir l'inpression

[Anonymous]

Merci pour vos réponses, mais peux-tu me poster en pièce jointe dans un fichier .txt la modif à apporter, parce que passant par l'interface web, c'est complétement illisible!

A ce propos, ils attendent quoi Autodesk pour se bouger le ... pour la remettre correctement en service cette foutu interface, parce que vu comment ça modifie les messages, elle ne sert plus à grand chose! 😕

Fabien, tu peux pas le "resecouer" un peu notre interlocateur là? Ca commence vraiment à faire long, j'ai comme l'impression qu'ils ont oublié ceux qui postent à partir du web!

[Anonymous]

Bonjour Géjoun

Ci dessous la définition remaniée du type de ligne isolation Autocad
Celle ci est remise a échelle 1
Son utilisation est la suivante :
- tu dessine une ligne représentant ton isolant a l'axe de celui ci
- tu affecte a la ligne une échelle de type de ligne correspondant a ton
épaisseur d'isolant
Exemple :
épaisseur isolant 7 cm --- échelle de type de ligne : 0.07
épaisseur isolant 5 cm --- échelle de type de ligne : 0.05
épaisseur isolant 10 cm --- échelle de type de ligne : 0.10

;;LIGNES POUR L'ARCHITECTURE

*CL-ARCH-ISOL,Isolation SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS

A,.00254,-.125,[BAT,ltypeshp.shx,x=-.125,s=.125],-.25,[BAT,ltypeshp.shx,r=180,x=.125,s=.125],-.125


Bon courage

Christian



a écrit dans le message de news: 4855492@discussion.autodesk.com...
Bonjour,

Je recherche sans résultat un type de hachures pour représenter l'solation
dans un batiment, donc du style un U minuscule dans un sens , un N minuscule
dans l'autre...etc... comme un serpentin (~~~~~~~) (enfin, le type classic
je pense pour représenter l'isolation).

Quelqu'un aurait-il ça dans ces archives?

Merci!

[Anonymous]

Salut,

désolé, j'ai lu trop vite (hachure et type de ligne!!!!)

Michel

[Anonymous]

Salut Christian,

Même soucis que tout à l'heure, peux-tu me poster la modif. en pièce jointe dans un fichier texte, parce que à partir de l'interface web, ça me donne des hiéroglyphes!!! ;-(((

Sinon, merci pour tout ces lisp, mais avec ma pauvre version LT, ça m'avance pas beaucoup! 😉

[Anonymous]

Voila

Christian


a écrit dans le message de news: 4855568@discussion.autodesk.com...
Salut Christian,

Même soucis que tout à l'heure, peux-tu me poster la modif. en pièce jointe
dans un fichier texte, parce que à partir de l'interface web, ça me donne
des hiéroglyphes!!! ;-(((

Sinon, merci pour tout ces lisp, mais avec ma pauvre version LT, ça m'avance
pas beaucoup! 😉

[Anonymous]

Re,

Je n'arrive pas trés bien à comprendre comment arriver à régler ce type de ligne sans pour autant dérégler mes échelles de type de ligne qui sont déja pré-définies pour mon plan, peux-tu être un peu plus précis?

Merci!

[Anonymous]

Re

La ligne est dessinée pour "occuper" une largeur de 1 unité d'Autocad
Suivant que tu dessine des plans architecte avec :
- 1 unité représentant 1 m réel alors une épaisseur d'isolant de 7 cm
implique une échelle de type de ligne de 0,07
- 1 unité représentant 1 cm réel alors une épaisseur d'isolant de 7 cm
implique une échelle de type de ligne de 7

etc, etc ......

Bon courage

Christian


a écrit dans le message de news: 4855663@discussion.autodesk.com...
Re,

Je n'arrive pas trés bien à comprendre comment arriver à régler ce type de
ligne sans pour autant dérégler mes échelles de type de ligne qui sont déja
pré-définies pour mon plan, peux-tu être un peu plus précis?

Merci!

[Anonymous · Accepted solution]

Petit complément

Bien sur , tu ne change l'échelle de type de ligne que de la ligne
" isolation" que tu viens de tracer, par la fenêtre propriété.

Ce type de ligne étant "continu", il n'y a pas d'inter action avec tes
autres
types de ligne

Tiens nous au courant

Christian


"Christian.L" a écrit dans le message de
news: 4855667@discussion.autodesk.com...
Re

La ligne est dessinée pour "occuper" une largeur de 1 unité d'Autocad
Suivant que tu dessine des plans architecte avec :
- 1 unité représentant 1 m réel alors une épaisseur d'isolant de 7 cm
implique une échelle de type de ligne de 0,07
- 1 unité représentant 1 cm réel alors une épaisseur d'isolant de 7 cm
implique une échelle de type de ligne de 7

etc, etc ......

Bon courage

Christian


a écrit dans le message de news: 4855663@discussion.autodesk.com...
Re,

Je n'arrive pas trés bien à comprendre comment arriver à régler ce type de
ligne sans pour autant dérégler mes échelles de type de ligne qui sont déja
pré-définies pour mon plan, peux-tu être un peu plus précis?

Merci!

[Anonymous]

OK, cette fois j'ai compris, effectivement, ce que je ne faisais pas, c'était de modifier l'échelle par la boite de dialogue propriétés, et non par le gestionnaire de type de ligne.

Merci!

[bobaskis]

salut,

je ressort ce post de mai 2005 !

je n'arrive pas à utiliser ce lisp, je l'ai chargé j'ai tapé insul mais il affiche "commande inconnu INSUL"
c'est quoi le prb ?

mon prb général c'est que le type de ligne isolation déconne, y a-t-il une autre solution ?

a+
bob


------- le lisp
;*** Isolant.LSP
;
;*** adapté à Autocad 14 Français le 16/03/99 par roule.@wanadoo.fr
;
;*** Written by Don J. Buschert (c) 1992, 1997
;
; Email: don.buschert@sait.ab.ca
; buschert@spots.ab.ca
; AutoCAD Page: http://www.spots.ab.ca/~buschert/
;
; Disclaimer:
; Permission to use, copy, modify, and distribute this software
; for any purpose and without fee is hereby granted, provided
; that the above copyright notice appears in all copies and
; that both that copyright notice and the limited warranty and
; restricted rights notice below appear in all supporting
; documentation.
;
; THIS PROGRAM IS PROVIDED "AS IS" AND WITH ALL FAULTS. THE AUTHOR
; SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR
; FITNESS FOR A PARTICULAR USE. THE AUTHOR ALSO DOES NOT WARRANT THAT
; THE OPERATION OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR FREE.
;
; Version 4.1 01/06/97
; Added OSNAP controls.
; Version 4.0 08/14/92
; Initial release...
;
; This program draws a polyline in the shape of insulation.
; The user enters or picks the insulation width; and enters or
; picks the insulation length and angle.
;
;*** Function INSUL
;
(princ "\nChargement, attendez s'il vous plait...")
(defun C:ISOLANT (/
svbm ;"BLIPMODE"
sv_osmode ;"OSMODE"
poi1 ;Points which calculate the arcs and lines of the
;first batt.
poi2
poi3
poi4
poi5
poi6
poi7
iang ;Angle.
idis ;Approximate insulation length
iinc ;Increment distance.
;iwid ;Insulation width (global)
poic ;Center point of arc.
stpt ;Start point of insulation
)
(graphscr)
(setvar "CMDECHO" 0)
(command "_UNDO" "_M")
(setq svbm (getvar "BLIPMODE"))
(setq sv_osmode (getvar "OSMODE"))
(setq stpt (getpoint "\nPoint de départ de l'isolant: "))
(if iwid
(setq prom (strcat " <" (rtos iwid) ">"))
(setq prom "")
)
(setq flag (getdist (strcat "\nEpaisseur de l'isolant" prom ": ")))
(if flag
(setq iwid flag)
)
(setq endp
(getpoint stpt "\nPointer ou donner le point d'arrivée: ")
)
(setq iang (angle stpt endp))
(setq idis (distance stpt endp))
(setvar "OSMODE" 0)
(princ "\nDessin de l'isolant en cours...")
(setvar "BLIPMODE" 0)
(setvar "TRACEWID" 0)
(setq poi1 (polar stpt iang (* iwid 0.05)))
(setq iinc (distance poi1 stpt))
(setq poi2 (polar poi1 (+ (dtor 90) iang) (* iwid 0.30)))
(setq poi2 (polar poi2 (+ (dtor 180) iang) (* iwid 0.05)))
(command "_PLINE" poi1 poi2)
(while (< iinc idis)
(setq poic (polar poi2 iang (* iwid 0.20)))
(setq iinc (+ (distance poic poi2) iinc))
(if (< iinc idis)
(progn
(setq poi3 (polar poic (+ (dtor 90) iang) (* iwid 0.20)))
(setq poi4 (polar poic iang (* iwid 0.20)))
(setq iinc (+ (distance poi4 poic) iinc))
(if (< iinc idis)
(progn
(command "_ARC" "CE" poic "A" "-180")
(setq poi5 (polar poi4 (+ (dtor -90) iang) (* iwid 0.60)))
(setq poi5 (polar poi5 (+ (dtor 180) iang) (* iwid 0.10)))
(command "_Line" poi5)
(setq poic (polar poi5 iang (* iwid 0.20)))
(setq iinc (+ (* iwid 0.10) iinc))
(if (< iinc idis)
(progn
(setq poi6 (polar poic (+ (dtor -90) iang) (* iwid 0.20)))
(setq poi7 (polar poic iang (* iwid 0.20)))
(setq iinc (+ (* iwid 0.20) iinc))
(if (< iinc idis)
(progn
(command "_ARC" "CE" poic poi7)
(setq poi2 (polar poi7 (+ (dtor 90) iang) (* iwid 0.60)))
(setq poi2 (polar poi2 (+ (dtor 180) iang) (* iwid 0.10)))
(command "_Line" poi2)
(setq iinc (- iinc (* iwid 0.10)))
)
(command "_ARC" "CE" poic poi6)
)
)
)
)
(command "_ARC" "CE" poic "A" "-90")
)
)
)
)
(command "")
(princ "\nDessin isolant terminé...")
(setvar "BLIPMODE" svbm)
(setvar "OSMODE" sv_osmode)
(princ)
)
;
;*** End of Program
;*** Support Programs
;*** Function DTOR
;Converts degrees to radians, where degr is degrees; returns a
;radian value.
;
(defun DTOR (degr)
(/ (* degr pi) 180)
)
-------------

[bobaskis]

salut,

je ressort ce post de mai 2005 !

je n'arrive pas à utiliser ce lisp, je l'ai chargé j'ai tapé insul mais il affiche "commande inconnu INSUL"
c'est quoi le prb ?

mon prb général c'est que le type de ligne isolation déconne, y a-t-il une autre solution ?

a+
bob


------- le lisp
;*** Isolant.LSP
;
;*** adapté à Autocad 14 Français le 16/03/99 par roule.@wanadoo.fr
;
;*** Written by Don J. Buschert (c) 1992, 1997
;
; Email: don.buschert@sait.ab.ca
; buschert@spots.ab.ca
; AutoCAD Page: http://www.spots.ab.ca/~buschert/
;
; Disclaimer:
; Permission to use, copy, modify, and distribute this software
; for any purpose and without fee is hereby granted, provided
; that the above copyright notice appears in all copies and
; that both that copyright notice and the limited warranty and
; restricted rights notice below appear in all supporting
; documentation.
;
; THIS PROGRAM IS PROVIDED "AS IS" AND WITH ALL FAULTS. THE AUTHOR
; SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF MERCHANTABILITY OR
; FITNESS FOR A PARTICULAR USE. THE AUTHOR ALSO DOES NOT WARRANT THAT
; THE OPERATION OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR FREE.
;
; Version 4.1 01/06/97
; Added OSNAP controls.
; Version 4.0 08/14/92
; Initial release...
;
; This program draws a polyline in the shape of insulation.
; The user enters or picks the insulation width; and enters or
; picks the insulation length and angle.
;
;*** Function INSUL
;
(princ "\nChargement, attendez s'il vous plait...")
(defun C:ISOLANT (/
svbm ;"BLIPMODE"
sv_osmode ;"OSMODE"
poi1 ;Points which calculate the arcs and lines of the
;first batt.
poi2
poi3
poi4
poi5
poi6
poi7
iang ;Angle.
idis ;Approximate insulation length
iinc ;Increment distance.
;iwid ;Insulation width (global)
poic ;Center point of arc.
stpt ;Start point of insulation
)
(graphscr)
(setvar "CMDECHO" 0)
(command "_UNDO" "_M")
(setq svbm (getvar "BLIPMODE"))
(setq sv_osmode (getvar "OSMODE"))
(setq stpt (getpoint "\nPoint de départ de l'isolant: "))
(if iwid
(setq prom (strcat " <" (rtos iwid) ">"))
(setq prom "")
)
(setq flag (getdist (strcat "\nEpaisseur de l'isolant" prom ": ")))
(if flag
(setq iwid flag)
)
(setq endp
(getpoint stpt "\nPointer ou donner le point d'arrivée: ")
)
(setq iang (angle stpt endp))
(setq idis (distance stpt endp))
(setvar "OSMODE" 0)
(princ "\nDessin de l'isolant en cours...")
(setvar "BLIPMODE" 0)
(setvar "TRACEWID" 0)
(setq poi1 (polar stpt iang (* iwid 0.05)))
(setq iinc (distance poi1 stpt))
(setq poi2 (polar poi1 (+ (dtor 90) iang) (* iwid 0.30)))
(setq poi2 (polar poi2 (+ (dtor 180) iang) (* iwid 0.05)))
(command "_PLINE" poi1 poi2)
(while (< iinc idis)
(setq poic (polar poi2 iang (* iwid 0.20)))
(setq iinc (+ (distance poic poi2) iinc))
(if (< iinc idis)
(progn
(setq poi3 (polar poic (+ (dtor 90) iang) (* iwid 0.20)))
(setq poi4 (polar poic iang (* iwid 0.20)))
(setq iinc (+ (distance poi4 poic) iinc))
(if (< iinc idis)
(progn
(command "_ARC" "CE" poic "A" "-180")
(setq poi5 (polar poi4 (+ (dtor -90) iang) (* iwid 0.60)))
(setq poi5 (polar poi5 (+ (dtor 180) iang) (* iwid 0.10)))
(command "_Line" poi5)
(setq poic (polar poi5 iang (* iwid 0.20)))
(setq iinc (+ (* iwid 0.10) iinc))
(if (< iinc idis)
(progn
(setq poi6 (polar poic (+ (dtor -90) iang) (* iwid 0.20)))
(setq poi7 (polar poic iang (* iwid 0.20)))
(setq iinc (+ (* iwid 0.20) iinc))
(if (< iinc idis)
(progn
(command "_ARC" "CE" poic poi7)
(setq poi2 (polar poi7 (+ (dtor 90) iang) (* iwid 0.60)))
(setq poi2 (polar poi2 (+ (dtor 180) iang) (* iwid 0.10)))
(command "_Line" poi2)
(setq iinc (- iinc (* iwid 0.10)))
)
(command "_ARC" "CE" poic poi6)
)
)
)
)
(command "_ARC" "CE" poic "A" "-90")
)
)
)
)
(command "")
(princ "\nDessin isolant terminé...")
(setvar "BLIPMODE" svbm)
(setvar "OSMODE" sv_osmode)
(princ)
)
;
;*** End of Program
;*** Support Programs
;*** Function DTOR
;Converts degrees to radians, where degr is degrees; returns a
;radian value.
;
(defun DTOR (degr)
(/ (* degr pi) 180)
)
-------------

[Anonymous]

ben voila un beau message
incompréhensible....

je cherche une solution pour des prb avec le type
de ligne isolation, j'ai trouvé un lisp mais il ne marche pas.

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

<boblebob> a écrit dans le message de news:
href="mailto:6149988@discussion.autodesk.com">6149988@discussion.autodesk.com...

salut,
je ressort ce post de mai 2005 ! je n'arrive pas à utiliser ce lisp, je l'ai
chargé j'ai tapé insul mais il affiche "commande inconnu INSUL" c'est quoi le
prb ? mon prb général c'est que le type de ligne isolation déconne, y a-t-il
une autre solution ? a+ bob ------- le lisp ;*** Isolant.LSP ; ;*** adapté à
Autocad 14 Français le 16/03/99 par roule.@wanadoo.fr ; ;*** Written by Don J.
Buschert (c) 1992, 1997 ; ; Email: don.buschert@sait.ab.ca ;
buschert@spots.ab.ca ; AutoCAD Page: http://www.spots.ab.ca/~buschert/ ; ;
Disclaimer: ; Permission to use, copy, modify, and distribute this software ;
for any purpose and without fee is hereby granted, provided ; that the above
copyright notice appears in all copies and ; that both that copyright notice
and the limited warranty and ; restricted rights notice below appear in all
supporting ; documentation. ; ; THIS PROGRAM IS PROVIDED "AS IS" AND WITH ALL
FAULTS. THE AUTHOR ; SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
MERCHANTABILITY OR ; FITNESS FOR A PARTICULAR USE. THE AUTHOR ALSO DOES NOT
WARRANT THAT ; THE OPERATION OF THE PROGRAM WILL BE UNINTERRUPTED OR ERROR
FREE. ; ; Version 4.1 01/06/97 ; Added OSNAP controls. ; Version 4.0 08/14/92
; Initial release... ; ; This program draws a polyline in the shape of
insulation. ; The user enters or picks the insulation width; and enters or ;
picks the insulation length and angle. ; ;*** Function INSUL ; (princ
"\nChargement, attendez s'il vous plait...") (defun C:ISOLANT (/ svbm
;"BLIPMODE" sv_osmode ;"OSMODE" poi1 ;Points which calculate the arcs and
lines of the ;first batt. poi2 poi3 poi4 poi5 poi6 poi7 iang ;Angle. idis
;Approximate insulation length iinc ;Increment distance. ;iwid ;Insulation
width (global) poic ;Center point of arc. stpt ;Start point of insulation )
(graphscr) (setvar "CMDECHO" 0) (command "_UNDO" "_M") (setq svbm (getvar
"BLIPMODE")) (setq sv_osmode (getvar "OSMODE")) (setq stpt (getpoint "\nPoint
de départ de l'isolant: ")) (if iwid (setq prom (strcat " <" (rtos iwid)
">")) (setq prom "") ) (setq flag (getdist (strcat "\nEpaisseur de
l'isolant" prom ": "))) (if flag (setq iwid flag) ) (setq endp (getpoint stpt
"\nPointer ou donner le point d'arrivée: ") ) (setq iang (angle stpt endp))
(setq idis (distance stpt endp)) (setvar "OSMODE" 0) (princ "\nDessin de
l'isolant en cours...") (setvar "BLIPMODE" 0) (setvar "TRACEWID" 0) (setq poi1
(polar stpt iang (* iwid 0.05))) (setq iinc (distance poi1 stpt)) (setq poi2
(polar poi1 (+ (dtor 90) iang) (* iwid 0.30))) (setq poi2 (polar poi2 (+ (dtor
180) iang) (* iwid 0.05))) (command "_PLINE" poi1 poi2) (while (< iinc
idis) (setq poic (polar poi2 iang (* iwid 0.20))) (setq iinc (+ (distance poic
poi2) iinc)) (if (< iinc idis) (progn (setq poi3 (polar poic (+ (dtor 90)
iang) (* iwid 0.20))) (setq poi4 (polar poic iang (* iwid 0.20))) (setq iinc
(+ (distance poi4 poic) iinc)) (if (< iinc idis) (progn (command "_ARC"
"CE" poic "A" "-180") (setq poi5 (polar poi4 (+ (dtor -90) iang) (* iwid
0.60))) (setq poi5 (polar poi5 (+ (dtor 180) iang) (* iwid 0.10))) (command
"_Line" poi5) (setq poic (polar poi5 iang (* iwid 0.20))) (setq iinc (+ (*
iwid 0.10) iinc)) (if (< iinc idis) (progn (setq poi6 (polar poic (+ (dtor
-90) iang) (* iwid 0.20))) (setq poi7 (polar poic iang (* iwid 0.20))) (setq
iinc (+ (* iwid 0.20) iinc)) (if (< iinc idis) (progn (command "_ARC" "CE"
poic poi7) (setq poi2 (polar poi7 (+ (dtor 90) iang) (* iwid 0.60))) (setq
poi2 (polar poi2 (+ (dtor 180) iang) (* iwid 0.10))) (command "_Line" poi2)
(setq iinc (- iinc (* iwid 0.10))) ) (command "_ARC" "CE" poic poi6) ) ) ) )
(command "_ARC" "CE" poic "A" "-90") ) ) ) ) (command "") (princ "\nDessin
isolant terminé...") (setvar "BLIPMODE" svbm) (setvar "OSMODE" sv_osmode)
(princ) ) ; ;*** End of Program ;*** Support Programs ;*** Function DTOR
;Converts degrees to radians, where degr is degrees; returns a ;radian value.
; (defun DTOR (degr) (/ (* degr pi) 180) )
-------------