Script import 3DS

[RhymOne]

Bonjour j'aimerais savoir la sequence à rajouter pour l'import de fichier 3DS avec les options suivantes:

Objets disponible : TOUT AJOUTER

Enregistrer dans l'etat des calques: PAR MATERIAUX

Objets à plusieurs materiaux:SEPARER PAR MATERIAUX

Debut du script:

_.import

"C\...."

SEQUENCE

 

Merci d'avance.

 

[Tramber]

Consultes l'aide aux développeur :

 

la fonction 3DSIN est interne à Lisp, il ne faut pas l'appeler par un command

 

(c:3dsin mode [multimat create] file) l'aide est complète, dis-nous si t'as un problème?

[RhymOne]

Merci tramber. Je vais looker ça....

Je te tiens au courant à plus....

[RhymOne]

(Re)Bonjour,

Je viens d'essayer ca donne sa :

(c:3dsin 0 0 3 "C:\Cliche_1\Animaux\COMPSOGN.3DS")

_view

_swiso

_save

"C:\Cliche_1\Animaux\COMPSOGN.dwg"

_close

_yes

 

Mais malheureusement sa importe rien du tout.....

[RhymOne]

Je suis un peu préssé donc j'ai oublier de remplacer / par \ sa devrait marché....

[RhymOne]

Bonjour

Apres remplacement de \ sa roule.

Maintenant j'essaye de crée un lisp qui va cherché un gabarit .3ds dans un repertoire et qui ecrit automatiquement le lisp celon les fichiers du dossier.

Je me suis inspiré de sa :

 

http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=25754

Réponse 22

 

Et sa donne sa mais à parement je doit avoir un soucis quelque part...

 

(defun c:3dsin1 ( / prefix file_scr)

 

(setq

 

prefix (strcat (vl-filename-directory (getfiled "Sélectionner un fichier dessin TEMOIN" "" "3ds" 16)) "\\")

 

file_scr (open (strcat prefix "open_folder.scr") "w")

 

)

 

(foreach dwg (vl-directory-files prefix "*.3ds" 1)

 

(write-line "_new" file_scr)

 

(write-line "C:\Documents and Settings\rma\Local Settings\Application Data\Autodesk\AutoCAD 2009\R17.2\fra\Template\acad.dwt" file_scr)

 

(write-line "c:3dsin 0 0 2" file_scr)

 

(write-line (strcat "\"" prefix 3ds "\"") file_scr)

 

(write-line "_view" file_scr)

 

(write-line "_swiso" file_scr)

 

(write-line "_save" file_scr)

 

(write-line (strcat "\"" prefix (substr dwg 1 (- (strlen dwg) 4)) "\"") file_scr)

 

(write-line "_.close" file_scr)

 

(write-line "_yes" file_scr)

 

)

 

(close file_scr)

 

(princ (strcat "\Vous pouvez lancer le SCRIPT :" prefix "open_folder.scr"))

 

(prin1)

 

)

[bonuscad]

Bonjour,

 

(write-line "C:\Documents and Settings\rma\Local Settings\Application Data\Autodesk\AutoCAD 2009\R17.2\fra\Template\acad.dwt" file_scr)

 

Doubles les \ (anti-slash) ou alors mettre de simple / (slash-diviser) en substitution.

 

Le simple anti-slash dans une chaine en lisp est un caractère spécial de contrôle.

Les plus courants:

"\n" -> nouvelle ligne

"\r" -> retour chariot

"\t" -> tabulation

"\e" -> Échappe

 

pour " et \ pour les représenter dans une chaine, il faut les faire précéder de /

 

"\"" -> retournera "

"\\" -> retournera \

[RhymOne]

Merci bonuscad de ces precisions.

J'ai bien compris qu'il fallait doubler les \ mais je n'arrive pas à comprendre comment specifié un chemin.Lorsque il est entre guilleme "" il n'est plus dans une chaine ?.

Merci de repondre mais trouve tu d'autre erreur sur mon lisp qui genere un script.

[bonuscad]

Une supposée correction...

Je n'ai pas de vrais fichiers 3ds pour tester le résultat du script, mais ce qui suit aurait l'air bon...

 

(defun c:3dsin1 ( / prefix file_scr)
(setq
	prefix (strcat (vl-filename-directory (getfiled "Sélectionner un fichier 3DS TEMOIN" "" "3ds" 16)) "\\")
	file_scr (open (strcat prefix "open_folder.scr") "w")
)
(foreach 3ds (vl-directory-files prefix "*.3ds" 1)
	(write-line "_new" file_scr)
	(write-line "\"C:\\Documents and Settings\\rma\\Local Settings\\Application Data\\Autodesk\\AutoCAD 2009\\R17.2\\fra\\Template\\acad.dwt\"" file_scr)
	(write-line "(arxload \"acrender.arx\")" file_scr)
	(write-line "(c:3dsin 0 0 2)" file_scr)
	(write-line (strcat "\"" prefix 3ds "\"") file_scr)
	(write-line "_view" file_scr)
	(write-line "_swiso" file_scr)
	(write-line "_save" file_scr)
	(write-line (strcat "\"" prefix (substr 3ds 1 (- (strlen 3ds) 4)) "\"") file_scr)
	(write-line "_.close" file_scr)
	(write-line "_yes" file_scr)
)
(close file_scr)
(princ (strcat "\Vous pouvez lancer le SCRIPT :" prefix "open_folder.scr"))
(prin1)
)

 

[Edité le 20/11/2009 par bonuscad]

[RhymOne]

Merci bonuscad c'est cool je vais essayé ca...

A plus.

Par hasard aurais tu des lisp ou application en rapport avec les MNT genre courbe de niveau ou réalisation de plaquage sur MNT ?

Merci d'avance bonne journée...