Créer un Tableau Autocad avec une liste de listes

[Fraid]

Bonjour,

 

Déjà quelques heures passées dans l'aide du developper a chercher les bonnes methodes, j'ai plus ou moins réussis a se que je voulais, mais je bloque dans le dimensionnement du tableau.

 

(defun tablolist (Titre  ListeDeListe  /   PtIns  NbLigne NbColon HautLigne LargCol Tableau compt1 compt2 LL
)
(setq 	*AcDoc* 	(vla-get-ActiveDocument (vlax-get-acad-object))
	PtIns 	'(0.02 0.277 0.0)
	LengthList (length ListeDeListe)
	NbLigne 	(+ 1 LengthList)
	NbColon 	(length (car ListeDeListe))
	HautLigne 0.01
	LargCol 	(/ 0.257 NbColon)
	Tableau 	(vla-addtable(vla-get-paperspace *acdoc*) (vlax-3d-point ptins) NbLigne NbColon HautLigne LargCol)
	compt1 	0
	compt2 	0
)
;(vla-put-StyleName Tableau "NouveauStyle");j'ai essayer en créant un style avant, mais ce n'est pas mieux

(if 	(/= Titre nil)
(vla-settext Tableau 0 0 Titre)
(vla-put-titlesuppressed Tableau :vlax-true)
)

(repeat LengthList
(setq LL (nth compt1 ListeDeListe)
)
(mapcar '(lambda (x)
	(vla-settext Tableau (+ compt1 1) compt2 x )
	(setq 	compt2 (+ 1 compt2))
			
	)
LL)
(setq 	compt1 (+ 1 compt1)
		compt2 	0
)
)
)

 

avec une liste du genre '( ("toto" "tata" "titi") ("nana" "neuneu" "néné"))

 

le tableau se créer bien et se remplis, mais ne fait pas du tout la taille escomptée ????

 

Merci

[Patrick_35]

Salut

 

Un exemple pour forcer la largeur d'un tableau à 200

(setq tab (vlax-ename->vla-object (car (entsel)))) ; sélection du tableau
(vla-put-width tab 200)

 

@+

[Fraid]

Merci,

 

c'est la derniere proprietée décrite dans le guide, j'aurai du commencer par la fin...

[Fraid]

aprés test, cela ne change rien.

 

je voudrai qu'il fasse 0.257 de large

 

et il fait 1.5 une fois créer !? :blink:

[Patrick_35]

Regarde la taille de tes caractères.

S'ils sont trop gros, tu ne pourras pas diminuer la taille du tableau aussi facilement.

 

@+

[Fraid]

Malgré multiples essais, impossible de faire des "petits" tableaux.

 

J'ai donc multiplier par mille mes tailles, et la, plus de problèmes.

 

Merci encore pour ton aide.