Commande \"Hachure\"

[dr.loveless]

Salut,

 

je trouve pas la commande Visual Lisp qui me permet de réaliser des hachures mais en choisissant un poin et non pas les objets!!

 

merci

[Tramber]

Il fait faire une region par un command.

 

C'est la même famille

 

Ensuite hachure sur entlast ou D

[didier]

hello le DOC

 

eh Tramber! il veut un POINT le monsieur,

 

donc le monsieur, il fait çà :

 

(setq pt (getpoint))

(command "_-bhatch" "a" "y" "i" "" "p" "solid" pt "")

 

et çà va coller

 

amicalement

 

 

[Tramber]

Je viends de me dire à l'instant que je signifiais CONTOUR et non REGION

[bonuscad]

Si t'es puriste

 

(setq ent_name (fhatch (getpoint "\nPoint Interieur: ")))

 

NB: (fpoly) est identique pour créer un contour.

[timhothels]

je dois aussir faire des hachures en choisissant 1 point mais en vba.

Est ce aque kelkun peut m'aider??

 

[timhothels]

C bon g trouvé

voici le code au cas ou ca interesserait kkun

 

'*****************************************************************************************

'*Fonction permettant de Dessiner un rectangle et de l'hachurer grace a la commande batch*

'*****************************************************************************************

Public Sub DessinerHachureDessin1(x As Double, y As Double, TypeHachure As Long, NomHachure As String, H As Double, Larg As Double, EchelleHachure As Double, PointXHachure As Double, PointYHachure As Double)

Dim objHachure As AcadHatch, PointHachure(0 To 2) As Double

Dim Rectangle(0 To 3) As AcadLine, PickPoint(0 To 1) As Double

Dim Point1(0 To 2) As Double, Point2(0 To 2) As Double, Point3(0 To 2) As Double, Point4(0 To 2) As Double

'création des différents points

Point1(0) = x: Point1(1) = y: Point1(2) = 0

Point2(0) = x: Point2(1) = y + H: Point2(2) = 0

Point3(0) = Larg: Point3(1) = y + H: Point3(2) = 0

Point4(0) = Larg: Point4(1) = y: Point4(2) = 0

'*Creation des lignes*

Set Rectangle(0) = Feuille.ModelSpace.AddLine(Point1, Point2)

Set Rectangle(1) = Feuille.ModelSpace.AddLine(Point2, Point3)

Set Rectangle(2) = Feuille.ModelSpace.AddLine(Point3, Point4)

Set Rectangle(3) = Feuille.ModelSpace.AddLine(Point4, Point1)

'création des hachures

Set objHachure = Feuille.ModelSpace.AddHatch(TypeHachure, NomHachure, True)

Feuille.SendCommand ("-bhatch p ar-conc 0.25 0 " & PointXHachure & "," & PointYHachure & vbCrLf)

'on efface les lignes que l'on doit pas voir

Rectangle(0).delete

Rectangle(2).delete

Rectangle(3).delete