PHILACAD

model_typline V 2.0.lspsinon il y a ca commande model_typline

merci de ton aide c'est ce que je cherchais sujet clos

etant pas tres bon en lisp je cherche a modifié un lisp existant. je voudrais charger la police de caractere arial et que la taille des ecriture soit a 1 unite de dessin. jai bien trouvé ceci mais ca ne charge que la police arial: (if (= (tblsearch "style" "arial") nil) (command "style" "arial" "arial" "0" "" "" "" "" "") ) merci de votre aide.

cadreimage ou imageframe = 0 peut etre?

avec express tools" systeme variable editor" chez moi l'enregistrement est definitif je suis sous 2013

j ai ce lisp mais il te fais un fichier texte ou il faut entrer le Z ;BC le 06/12/96 ;creation d'un fichier ascii matricule x y z ;avec demande du matricule et de l'altitude ;modifié par SP 04/02/98 par PHB 27/08/2003 (defun c:PTS2() ;(command "resol" "in") ;(command "accrobj" "nod") ;(command "modifvar" "pickbox" 2) ;(command "ouvertur" 5) (command "scu" "g") (terpri) (terpri) (setq f (getfiled "Fichier à écrire (voir si style ARIAL existant hauteur egal 1??): "(strcat (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3)) "txt") "txt" 37)) (setq n 0) (setq a (open f "a")) (terpri) (terpri) (initget 16) (while (setq p (getpoint "Choix d'un Point : ")) (setq x (rtos (car p) 2 3)) (setq y (rtos (cadr p) 2 3)) (setq z (rtos (caddr p) 2 3)) ;suffixe possible (setq m "CAD.") (setq n (1+ n)) (setq n1 (rtos n 2 0)) (setq o " ") (setq qy " ") (setq qz " ") (setq r (getstring" puis entrez son altitude : ")) (setq k (strcat "Numéro du point <" n1 "> : ")) (setq n2 (getreal k)) (if (= n2 nil) (setq n1 (rtos n 2 0)) (setq n1 (rtos n2 2 0) n n2)) (setq l (strcat ""n1 o x qy y qz r )) (write-line l a) (initget 16) (command "calque" "n" "num" "co" "5" "num" "e" "num" "") (command "texte" "style" "arial" p "0.7" n1) (command "point" p) ) (close a) ;(command "accrobj" "auc") ;(command "modifvar" "pickbox" 3) )

sans covadis type ligne autres ouverture gestionaire type de ligne facteur echelle globale =1 ou 2 ou n'importe quoi

voir outil option onglet selection et parametres effet visuel couleurs a selectionner......

peut etre en cochant la case echelle uniforme dans la boite de dialogue insertion de bloc???

express tools "TORIENT"

la diference n est pas flagrante les deux fonctionnent sur le meme principe carte etc

se mettre dans l'espace papier puis modification,modifier l espace ensuite affichage fenetres objet

j utilise 2 programmes leica: leica survey office qui me permet de tranformer un fichier de point au format GSI grace a lediteur de coordonnées ensuite ce fichier est tranformer en dxf grace a leice DXF WIZ ces deux programme sont telechargeable sur leica geosysteme .fr et gratuit apres enregistrement

je viens de recevoir autocad 2009 quel sont les diferences avec la version 2008?

passer par un dxf si designcad ne lit pas le dwg.le dxf etant un standard d'echange

en ouvrant et en modifiant directement le fichier acadiso .dwt puis en l'enregistrant mais je ne sais pas pour la version LT :)

pour imprimer depuis lespace objet moi je tape 1000 mm represente la valeur de l"echelle en unite de dessin soit pour du 1/100 1000 mm = 100 unites pour imprimer depuis l espace papier je met a l"echelle la fenetre par zoom fenetre puis je tape 1000/100xp pour du 1/100 pour du 1/200 1000/200xp et ainsi de suite ....... a linpression 1 mm = 1 unites

tu peux essayer ceci: ;| TLEN.LSP - Total LENgth of selected objects © 1998 Tee Square Graphics |; (defun C:TL (/ ss tl n ent itm obj l) (setq ss (ssget) tl 0 n (1- (sslength ss))) (while (>= n 0) (setq ent (entget (setq itm (ssname ss n))) obj (cdr (assoc 0 ent)) l (cond ((= obj "LINE") (distance (cdr (assoc 10 ent))(cdr (assoc 11 ent)))) ((= obj "ARC") (* (cdr (assoc 40 ent)) (if (minusp (setq l (- (cdr (assoc 51 ent)) (cdr (assoc 50 ent))))) (+ pi pi l) l))) ((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE") (= obj "LWPOLYLINE")(= obj "ELLIPSE")) (command "_.area" "_o" itm) (getvar "perimeter")) (T 0)) tl (+ tl l) n (1- n))) (alert (strcat " longueur totale des objets selectionnes " (rtos tl))) (princ) )

sous 2005 tape "champ" sur la ligne de commande dans le menu deroulant selectionne "document" et "nom de fichier" a la grosse c'est ce que tu cherche

avec la hp 800 moi j utilise les drivers de la HP5000. solution donnée par un revendeur HP. Si si essayer vous verez ca marche depuis j ai plus de problemes du genres sortir 3fois le meme plan ce qui est dailleur impossible avec le driver HP800 :D ;)

un logiciel du type lingoware (a chercher sur le net je nai plus l adresse)devrait permetre dutilise autocad en traduisant a peut pres les menus jai deja fais avec la 2004 anglaise

pour ma part j utilise la commande VUEDYN et ds la ligne de commande je tape b (basculement) ensuite j entre au clavier l angle de basculement soit ce que je veux comme horizontale.c.a.d l angle de ma future horizontale - 90 degres(ou 100 grades je travaille surtout en grades) cordialement. PHILACAD :cool:

merci de ton aide, didier ,ca correspond tout a fait a ce que je voulais.

ayant pris cette commade sur internet j'aimerais savoir comment minimiser ou fermer l'interpreteur de commande autocad cette bcommande appelle la calculatrice windowws ^C^Cshell;Calc.exe ;

pour la hp 800 moi j ai installe les drivers de la HP 5000 et je trace sous HP 5000 avec autocad 2005 et tous mes problemes ont disparus( entre autre multi copie). si si ca marche faites le test et vous verez!!!!!