Autocad changer épaisseur d'un calque

**Seifko** · 07/11/2010, 21h44

Bonjour !

Je cherche a changer l'épaisseur en lisp d'un calque. (le faire passé a 0.30 mm quand il se crée automatiquement)

J'ai déjà ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
	(entmake
 
		(list
 
			(cons 0  "LAYER")
 
			(cons 100 "AcDbSymbolTableRecord")
 
			(cons 100 "AcDbLayerTableRecord")
 
			(cons 2 nouveaucalque)
 
			(cons 70 0)
 
			(cons 62 couleur)
 
			(cons 370 -3)
 
			(cons 6 "Continuous")
 
		)
 
	)

Il ne me manque donc qu'un : (cons ? "0.30 mm")

Mais je ne trouve pas la valeur a mettre à la place du "?"
J'ai chercher via se site : http://www.teache.info/categorie-11211407.html

A première vu, ça serait 39 mais ... quand j'essaye, ça ne fonctionne pas ... donc je sèche ...

Merci d'avance !

**Patrick_35** · 08/11/2010, 11h47

Salut

Envoyé par Seifko

Bonjour !

Je cherche a changer l'épaisseur en lisp d'un calque. (le faire passé a 0.30 mm quand il se crée automatiquement)

J'ai déjà ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
	(entmake
 
		(list
 
			(cons 0  "LAYER")
 
			(cons 100 "AcDbSymbolTableRecord")
 
			(cons 100 "AcDbLayerTableRecord")
 
			(cons 2 nouveaucalque)
 
			(cons 70 0)
 
			(cons 62 couleur)
 
			(cons 370 -3)
 
			(cons 6 "Continuous")
 
		)
 
	)

Il ne me manque donc qu'un : (cons ? "0.30 mm")

Mais je ne trouve pas la valeur a mettre à la place du "?"
J'ai chercher via se site : http://www.teache.info/categorie-11211407.html

A première vu, ça serait 39 mais ... quand j'essaye, ça ne fonctionne pas ... donc je sèche ...

Merci d'avance !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(cons 370 30)

@+

**clovis** · 09/11/2010, 08h04

pour une introduction vers vlisp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
(setq monplant
  (vla-add
  (vlax-get
  (vlax-get
  (vlax-get-acad-object)'activedocument)'layers)"monplant")
)

..
modifier les valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
(vlax-put monplant 'Linetype "hidden")
(vlax-put monplant 'LineWeight acLnWt030)
..

lineweight

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Lineweight
 
acLineWeight enum; read-write 
 
acLnWtByLayer 
 
acLnWtByBlock 
 
acLnWtByLwDefault 
 
acLnWt000 
 
acLnWt005 
 
acLnWt009 
 
acLnWt013 
 
acLnWt015 
 
acLnWt018 
 
acLnWt020 
 
acLnWt025 
 
acLnWt030 
 
acLnWt035 
 
acLnWt040 
 
acLnWt050 
 
acLnWt053 
 
acLnWt060 
 
acLnWt070 
 
acLnWt080 
 
acLnWt090 
 
acLnWt100 
 
acLnWt106 
 
acLnWt120 
 
acLnWt140 
 
acLnWt158 
 
acLnWt200 
 
acLnWt211

**Patrick_35** · 09/11/2010, 11h47

Envoyé par clovis

pour une introduction vers vlisp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
(setq monplant
  (vla-add
  (vlax-get
  (vlax-get
  (vlax-get-acad-object)'activedocument)'layers)"monplant")
)

..
modifier les valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
(vlax-put monplant 'Linetype "hidden")
(vlax-put monplant 'LineWeight acLnWt030)
..

lineweight

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Lineweight
 
acLineWeight enum; read-write 
 
acLnWtByLayer 
 
acLnWtByBlock 
 
acLnWtByLwDefault 
 
acLnWt000 
 
acLnWt005 
 
acLnWt009 
 
acLnWt013 
 
acLnWt015 
 
acLnWt018 
 
acLnWt020 
 
acLnWt025 
 
acLnWt030 
 
acLnWt035 
 
acLnWt040 
 
acLnWt050 
 
acLnWt053 
 
acLnWt060 
 
acLnWt070 
 
acLnWt080 
 
acLnWt090 
 
acLnWt100 
 
acLnWt106 
 
acLnWt120 
 
acLnWt140 
 
acLnWt158 
 
acLnWt200 
 
acLnWt211

Salut

Je ne pense pas que le vlisp soit le plus indiqué dans ce cas.
Il faut créer le calque, puis lui changer ses paramètres alors que c'est fait directement grâce à la fonction entmake.

@+

**Seifko** · 10/11/2010, 08h13

Merci patrick ! C'est bien ça !

Seifko

**Seifko** · 10/11/2010, 14h52

Encore une petite question qui concerne principalement la même chose, je ne vais peut-être pas recrée un sujet pour ça mais :

Ok , je sais créer un calque dans autocad en lisp

Mais ... Comment modifier se calque en lisp ?

Comme sur les plans qu'on m'a fournie, certains calques ont été crées avec une épaisseur par défaut, je ne peux pas recrée le calque et donc, je dois le modifier ... (pour mettre 30 mm a ses calques ...)

**clovis** · 11/11/2010, 08h25

Envoyé par Patrick_35

Salut

Je ne pense pas que le vlisp soit le plus indiqué dans ce cas.
Il faut créer le calque, puis lui changer ses paramètres alors que c'est fait directement grâce à la fonction entmake.

@+

Au contraire, cela permet de commencer avec Vlisp en douceur

**Seifko** · 12/11/2010, 11h46

bah personnelement Clovis, je comprend strictement rien a tes lignes de commande ...

Je comprends surement mieux la méthode de patrick puisque je suispassé par le PASCAL aupavent (apprendre le Pascal a l'iut, je me demande encore l'interet néanmoins).

Toujours est-il que j'ai résolu mon probleme avec entmod ouf je sais m'en servir mintenant.

Je donne la solution au cas ou n autre débutant tomberais ici :

(progn
(setq propriete (entget (tblobjname "LAYER" "NOM DU CALQUE A MODIFIER"))) ; Obtient la liste des propriétés du calque
(setq epaisseur 30) ; Regle l'épaisseur du calque 0.30mm
(setq propriete (subst (cons '370 epaisseur) (assoc '370 propriete) propriete)) ; Modifie l'épaisseur du calque pour le rendre conforme au 0.30mm
(entmod propriete) ; réintégre les données dans autocad
)

**clovis** · 15/11/2010, 09h44

J'avoue que commencer avec Vlisp semble incomprehensible.
Surtout qu'au début il faut aller chercher l'object contenant les plans
L'avantage est que les modifications d'objets, ultérieurement, deviennent plus simples
ex. chercher l'object contenant les plans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(setq ObPlans(vlax-get (vlax-get (vlax-get-acad-object)'activedocument)'layers))

puis y ajouter le plan de ton choix

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(setq monplant  (vla-add ObPlans  "monplant"))

puis changer ses propriétés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
(vlax-put monplant 'Linetype "hidden")
(vlax-put monplant 'LineWeight acLnWt030)
..

Pour obtenir les propriétés que tu peux modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(vlax-dump-object monplant t)

**Seifko** · 15/11/2010, 20h54

Clovis, tu aurais un didacticiel pour ton vlisp ...

Ton exemple me semble assez intéressant donc si je pouvais approfondir ...

Ah moins que tu me fasse professeur

**clovis** · 16/11/2010, 08h22

Avant d'utiliser vlisp, j'ai commencé par des macros, puis lisp et bien plus tard lorsque j'ai voulu communiqué avec Excel je me suis mis à vlisp. Bref Comme disais Patrick, il n'est pas toujours nécessaire d'utiliser vlisp.
Je te conseille d'utiliser vlisp pour des fonctions simples comme modification d'objects (ligne, text...) : apprentissage + facile
Commence par ces fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
(defun ob()(vlax-ename->vla-object(car(entsel))))
(defun du(a)(vlax-dump-object a t))

que tu pourras charger dès le démarrage d'autocad.
Tu pourras les utiliser dans tes programmes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(setq UneEntite (ob))

pour avoir un object que tu pourra travailler avec vlisp
et pour connaitre les propriétés modifiables d'une entitée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(du(ob))

Le + intéressant est de commencer par écrire des fonctions simples.
NB:Le travail le + difficile est d'apprendre les nouveaux termes.
-> voir F1 dans autocad ->autolisp,visualLisp->reference->fonctions commençant par vl-

Pour un cours regarde par ici
http://www.augi.com/education/archive.asp?page=293#top
année 2007

**Seifko** · 16/11/2010, 15h48

Merci Clovis, je vais étudier ça avec attention

(quand je serais un peu moins surbooké ^^)

Surtout pour la communication avec excel qui m'interesse vraiment et pourrait me permettre de me dabarraser d'une feuille magouille d'excel pour inserer dans mes fonction lisp

**Patrick_35** · 18/11/2010, 09h37

Envoyé par Seifko

Surtout pour la communication avec excel qui m'interesse vraiment et pourrait me permettre de me dabarraser d'une feuille magouille d'excel pour inserer dans mes fonction lisp

Salut

J'ai fait des fonctions pour simplifier les manipulations avec Excel.
Et comme maintenant, on utilise de plus en plus Open Office, cela fonctionne aussi.

@+

Autocad changer épaisseur d'un calque

Lisp

Discussions similaires

Partager

Partager