Message à l\'ouverture!!

[jalna]

Bonjour,

 

Je cherche un moyen de placer un message à l'ouverture d'un fichier "DWG"...

 

Texte que je pourrais remplir

 

Un peu comme ca...

 

http://img148.imageshack.us/img148/2121/messageuo9.jpg

 

Alors une idée??

 

Merci et bonne journée!!

 

[bonuscad]

Un truc comme ça, glisser à la fin du fichier acad200ndoc.lsp ?

 

((lambda ( / first_blk q_xref l_xref l_blk n_blk js l)
(setq first_blk (tblnext "BLOCK" T) q_xref nil l_xref nil l "")
(cond
	(first_blk
		(setq l_blk (list first_blk))
		(while (setq n_blk (tblnext "BLOCK"))
			(setq l_blk (cons n_blk l_blk))
		)
		(foreach n l_blk
			(setq js (ssget "_X" (list (cons 0 "INSERT") (assoc 2 n))))
			(if (>= (cdr (assoc 70 n)) 4)
				(setq q_xref T l_xref (cons (cdr (assoc 2 n)) l_xref))
			)
			(print)
		)
	)
)
(if q_xref (alert (strcat "\nCe fichier fait appel à des XRefs insérés:\n\n" (foreach n l_xref (setq l (strcat n "\n" l))))))
(prin1)
))

[jalna]

Salut et merci de penser à moi!!

 

Une question (désolé mais je suis pas très lisp!!)

 

Je l'ai copié dans acad2006doc.lsp

 

Ca me bloque complètement AutoCAD!!