Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
j'ai essayé et ça marche. la raison est sûrement ce que vous dites.qui n'aime pas ça parce que c'est l'autocad inclus dans le paquet inventeur pro 2008 ?
quelqu'un a essayé et travaille ? . . .
par curiosité je suis allé le tester avec un fichier très lourd et en fait il ne fonctionne pas du tout bien. le fichier qui génère est corrompu.quelqu'un l'a-t-il essayé de façon complémentaire ?
pour moi, ça ne fonctionne qu'avec de petits fichiers. . . .
j'ai fait un test rapide. j'ai tort avec 2008 ! :confus:merci plannerroad,
j'ai déjà téléchargé ce lisp et essayé... mais je ne vois aucun résultat.
tu sais l'utiliser ?
;;
;;; planstodwgs.lsp
;; créé 2000-03-27
;; par jimmy bergmark
;; droit d'auteur (c) 1997-2006 jtb world, tous droits réservés
;;; site web : www.jtbworld.com
;;; courriel: [email protected]
;;
;;; 2003-12-12 met ucs au monde dans l'espace modèle pour éviter les problèmes avec wblock
;;
;; pour autocad 2000, 2000i, 2002, 2004
;;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
;;; crée des dessins de toutes les mises en page.
;;; une seule mise en page à la fois est enregistrée, le reste est supprimé.
;;; c'est pratique lorsque vous voulez enregistrer des versions préa2k.
;;; les nouveaux dessins sont sauvegardés sur le chemin actuel des dessins
;;; et écrase les dessins existants.
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
(défun c:layoutstodwgs (/ fn chemin msg msg2 fichierpréfix)
(défendez les dalllayouts (garde / nom de l'onglet)
(vlax pour la mise en page)
(vla-get-layouts)
(document actif vla-get (vlax-get-acad-objet))
)
(si
(et
(/= (setq tabname (strcase (vla-get-name layout))) "modèle")
(/= nom de l'onglet (porteur de caractères))
)
(plan à supprimer)
)
)
)
(vl-load-com)
(setq msg ")
(setq msg2 "")
(commande "._undo" "_be")
(setq fileprefix (getstring "enter filename prefix: "))
(pour chaque layout)
(si (/= laïque "modèle")
(progrès
(commande "_.undo" "_m")
(délai de repos)
(setvar "modetile" 1)
(commandant "ucs" "[COLOR=red][B]_[/B][/COLOR]w")
(setvar "modetile" 0)
(chemin setq (getvar "dwgprefix")
(setq fn (strcat chemin fichierpréfix lay ".dwg"))
(si (trouver fn)
(progrès
(commandement ".[B][COLOR=#ff0000]_[/COLOR][/B]-wblock" fn "y"
(si (égal à 1 (logand 1 (getvar "cmdactive")))
(progrès
(setq msg (strcat msg "\n" fn))
(commande "*")
)
(setq msg2 (strcat msg2 "\n" fn))
)
)
(progrès
(commandement ".[B][COLOR=#ff0000]_[/COLOR][/B]-wblock" fn "*")
(setq msg (strcat msg "\n" fn))
)
)
(commande "_.undo" "_b")
)
)
)
(si (/= msg ")
(progrès
(prompt "\nsuivant des dessins ont été créés:")
(prompte msg)
)
)
(si (/= msg2 ")
(progrès
(les dessins suivants n'ont pas été créés:)
(prompte msg2)
)
)
(commande "._undo" "_e")
(textes)
(principal)
)