Aller au contenu

Problème de rendu des types de lignes dans espace papier avec PSLTSCALE = 0


gloub

Messages recommandés

Bonjour Forum !

 

Un ami m’a soumis un problème que je n’arrive pas à résoudre...

 

Il a fait un dessin qui va bien, en mètres dans l’espace objet, avec LTSCALE = 1 (fichier en PJ).

Dans ses présentations (en mètres dans l’espace papier), le type de ligne (ISOLATION par exemple) est mal rendu.

Pourtant, on a bien PSLTSCALE = 0 dans chaque présentation.

Seule solution trouvée pour l’instant : régler LTSCALE = 1 dans l’espace objet et = 100 dans l’espace papier, ce qui n’est pas terrible.

 

Quelqu’un aurait-il une idée pour résoudre ce problème ?

 

Merci !

GRE_D_details.zip

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

LE type de ligne est instable du fait de la mise à l'échelle des types de ligne...

 

Je déconseille d'utiliser ce type de ligne !

 

Il est préférable d'utiliser le motif de hachures HONEY.. Ou un bloc dynamique proposé par Bryce je crois, mais je ne sais plus quel sujet !

 

Christian

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

Si se résultat est satisfaisant je te propose et conseille vivement ce lisp (pas de moi:)) résultat en dessous du code

Facile d'utilisation un premier point un deuxième pour la longueur et l'épaisseur c'est tout et tout cela rien qu'avec la souris!

 

 

(defun newerr (ne)
(if (/= ne "Function cancelled")
	(princ (strcat "\nErreur: " ne))
)
(setvar "OSMODE" om)
(setvar "CMDECHO" ce)
(setvar "BLIPMODE" bm)
(princ)
)
(defun c:serpentin (/ sp ep ht om ce bm dx an nx nu ax px p1 p2 p3 p4 p5 p6 p7 p8 p9 xt borne suivant ss)
(while (null (setq sp (getpoint "\nSaisir le point de départ du serpentin: "))))
(while (null (setq ep (getpoint sp "\nSaisir le point final du serpenting: "))))
(initget 7)
(setq ht (getdist "\nSaisir ou entrer l'épaisseur du serpentin: "))
(setq om (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq ce (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq bm (getvar "BLIPMODE"))
(setvar "BLIPMODE" 0)
(command "_.point" sp)
(setq
	borne (entlast)
	dx (distance SP EP)
	an (angle sp ep)
	nx (/ ht 2.0)
	nu (/ dx nx)
	ax (+ an (/ pi 2))
	px (polar sp ax ht)
	p1 (polar sp ax (/ ht 1.25))
	p2 (polar p1 an (/ ht 20.0))
	p3 (polar p1 an (/ ht 4.0))
	p4 (polar p2 an (/ ht 2.5))
	p5 (polar sp ax (/ ht 5.0))
	p6 (polar p5 an (/ ht 5.0))
	p7 (polar p6 an (/ ht 10.0))
	p8 (polar p5 an (/ ht 2.0))
	p9 (polar sp an (/ ht 2.0))
)
(repeat (fix nu)
	(command
		"_.arc" "_ce" p5 sp p6
		"_.line" p6 p2 ""
		"_.arc" p2 "_ce" p3 "_angle" (strcat "-" (angtos pi));(* -1 pi)
		"_.line" p4 p7 ""
		"_.arc" "_ce" p8 p7 p9
	)
	(setq
		sp (polar sp an nx)
		p2 (polar p2 an nx)
		p3 (polar p3 an nx)
		p4 (polar p4 an nx)
		p5 (polar p5 an nx)
		p6 (polar p6 an nx)
		p7 (polar p7 an nx)
		p8 (polar p8 an nx)
		p9 (polar p9 an nx)
	)
)
(setq xt (distance sp ep))
(if (>= xt (/ ht 5.0))
	(command
		"_.arc" "_ce" p5 sp p6
		"_.line" p6 p2 ""
		"_.arc" p2 "_ce" p3 "_angle" (strcat "-" (angtos (/ pi 2.40)));(/ pi 2.40)
	)
)
(if (and borne (entget borne))
	(progn
		(setq ss nil ss(ssadd))
		(while (setq suivant (entnext borne))
			(ssadd suivant ss)
			(setq borne suivant)
		)
		ss
	)
)
(command "_.pedit" "_multiple" ss "" "_yes" "_join" 0.0 "")
(entdel borne)
(setvar "OSMODE" om)
(setvar "CMDECHO" ce)
(setvar "BLIPMODE" bm)
(princ)
)
(princ "Taper <serpentin> pour l'éxecution...")

 

 

 

http://www.easy-upload.net/fichiers/xcADXP.201251015422.png

"Je suis fasciné par l'air. Si on enlevait l'air du ciel, tous les oiseaux tomberaient par terre... Et les avions aussi... En même temps l'air tu peux pas le toucher... Ca existe et ça existe pas... Ca nourrit l'homme sans qu'il ait faim... It's magic ! L'air c'est beau en même temps tu peux pas le voir, c'est doux et tu peux pas le toucher... L'air, c'est un peu comme mon cerveau..."

J-C Van Damme

Lien vers le commentaire
Partager sur d’autres sites

Merci pour vos réponses.

Je sais, je sais, c'est une méthode de travail qui remonte à AutoCad v12 et on peut faire mieux...

 

Mais si on laisse de côté cet archaïsme pour le dessin des isolants, et qu'on essaie d'obtenir un rendu satisfaisant des pointillés par exemple, le problème de base reste entier.

 

Des idées ?

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

Si tu parles de l'affichage des type de lignes autre... Il faut déjà que tes formats papier soient en MM et nom pas en mètres !

 

C'est un sujet qui revient souvent... En faisant des recherches tu trouveras les réponses.

 

Christian

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

  • 2 semaines après...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité