Discussion :

[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 !

[Patrick_35]

Salut

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]

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]

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.

@+

[clovis]

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]

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
)

[Seifko]

Merci patrick ! C'est bien ça !

Seifko

[Seifko]

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 ...)