write-line plante

[couçicouça]

bonsoir

 

après un bidouillage de entget(car(entsel)))

j'obtiens

((0 . "LINE") (67 . 0) (410 . "Model") (8 . "Calque2") (10 40.2898 38.2623 0.0)

(11 32.1382 24.1434 0.0) (210 0.0 0.0 1.0))

 

je voudrais écrire cette liste dans fichier texte

mais après

(setq fi (open (strcat (getvar "dwgprefix") "routines.txt") "w"))
 (write-line li2 fi)
 (close fi)

 

il plante car je crois qu'il ne peut écrire que des chaines de caractères et non pas des listes

 

comment fait-on?

[bonuscad]

Bonsoir,

 

il plante car je crois qu'il ne peut écrire que des chaines de caractères et non pas des listes

 

Tout à fait !

 

Regardes cette réponse , je pense que ça t'aidera. Au lieu d'afficher dans une BD d'arlerte, tu modifie le code et tu l'envoie dans un fichier.

 

 

[kekseksa]

bonjour

 

merci , je devrais m'en sortir

au fait , oto82 et couçicouça = même personne sur 2 pc différents

[Carboleum]

 

 

sinon, vl-princ-to-string est ton amie...

 

 

[bonuscad]

sinon, vl-princ-to-string est ton amie...

 

En effet, on peut faire un code beaucoup plus concis, par exemple:

(mapcar 'print (mapcar 'vl-princ-to-string (entget (car (nentsel)))))

[Carboleum]

(mapcar 'print (mapcar 'vl-princ-to-string (entget (car (nentsel)))))

 

encore plus simple:

 

(vl-princ-to-string (entget (car (entsel))))

 

et pour garder les guillemets:

 

(vl-prin1-to-string (entget (car (entsel))))

 

 

[kekseksa]

merci , encore merci , apply 'everybody 'merci

[kekseksa]

encore un petit effort

 

quel est l'inverse de "vl-princ-to-string"

pour transformer ma chaine (qui n'est qu'une liste) en liste

[(gile)]

quel est l'inverse de "vl-princ-to-string"

pour transformer ma chaine (qui n'est qu'une liste) en liste

 

(read ...) 

[kekseksa]

oui j'ai essayé read

 

j'ai une liste nommée lig obtenue après entget

 

((0 . LWPOLYLINE) (67 . 0) (410 . Model) (8 . Standard) (90 . 5) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 98.5035 55.22) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 118.504 55.22) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 118.504 59.12) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 106.004 60.62) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 98.5035 59.72) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

 

mais

 

(setq fic (open (strcat (getvar "dwgprefix") "test.txt") "r")) OK
 (while
   (setq lig (read (read-line fic))) ; c'est la liste OK
   (entmake (list lig)) ; plantage
   )
 (close fi)

 

encore plantage avec entmake ou (entmake lig)

y aurait-il trop de paramètres dans la liste?

[couçicouça]

gile, bonuscad et les autres calés en lisp

un peu d'aide serait la bienvenue

[Carboleum]

 

Il semble manquer des guillemets.

 

Mets ton text.txt en attachment, sans lui, on peut difficilement voir où est l'erreur.

 

 

 

[Edité le 23/9/2010 par Carboleum]

[kekseksa]

bonjour

 

pourtant j'ai fait un copier coller de ce qu'il y a dans le ficheir test.txt

 

Mets ton text.txt en attachment, sans lui, on peut difficilement voir où est l'erreur.

 

volontiers.

comment fait-on ?