Jump to content

Two-color solid hatch or two-color thick stripes hatch?


macklara

Recommended Posts

I'm using AutoCAD not only for architecture but also sometimes for city planning.

 

I need to use two-color solid hatch or two-color thick stripes hatch.

Something like that:

hatch.jpg

 

I don't want to use super hatch for that.

It has to be normal hatch, because I need this for the display properties of "Zone Style".

 

Can someone help me? Thanks.

My currently version is AutoCAD Architecture 2013.

Link to comment
Share on other sites

You may try to chouse the user hatch pattern, set the spacing to double of desired stripe width and apply to the contour to be hatched. Next do a copy in-place of the resulted hatch and edit the copy to adjust the origin point in such way to get the two hatches equally spaced. Set two different colors for those hatches (preferably two colors not used for other items in drawing) and in your CTB file define custom lineweights - equal with stripe width - for the said colors.

Since don't have access to AutoCAD right now, I'm not sure about how the end of those stripes will appear, but hope that you will try the proposed solution and come back with feedback.

Link to comment
Share on other sites

Thank you for the reply.

 

I was thinking about something similar (something easier), but still this isn't a good solution.

The background color of the hatch is green and the color of the hatch is red.

This is the result:

hatch2.jpg

 

If you are using thick lineweight like 2.0 mm or 3.0 mm it always looks not good. Doesn't matter if the "line end style" is butt, square, round or diamond.

Link to comment
Share on other sites

That's why I was afraid, that the end of the hatch lines will not behave as expected, but I wasn't able to test it at the time of my replay. Sorry to find that this is the case.

I hope that someone else will be able to suggest a better solution.

Link to comment
Share on other sites

Tried solid and cookie cutter but no go, but a solution bit difficult but can be solved draw outside shape, draw a pline cossing shape make a width copy as required make sure goes past trim lines. Using pline width and inters can re calc the hatch boundary and delete pline.

 

I started on a trafic island chevron lisp which is what you want I followed up on a post here. I will try to find it. So many lisps lose track of names.

 

Found http://www.cadtutor.net/forum/showthread.php?59026-Road-Hatching&highlight=chevron

 

Never finished it just did manual hatch using the method if I get some time ?

Link to comment
Share on other sites

Just tried it, can be automated further than extrim just need a drag line to calc inters between 2 lines this is the pick point for the hatch this way you can get odd shapes to work as drag line can be more than 1 line. I will have a play.

 

small steps at a time

 

; this uses the extrim command to trim shape this si part of express tools hence must be loaded
; By Alan H Jan 2012
(setq obj (car (entsel "\npick pline or circle")))
(setq pt1 (Getpoint "\npick start point"))
(setq pt2 (Getpoint pt1 "\npick end point"))
(command "line" pt1 pt2 "")
(setq gap (getreal "\nEnter  line spacing"))
(setq x (getint "\nEnter how many lines"))
(setq pt3 (strcat (rtos gap 2 2) ",0.0"))
(repeat x (command "copy" "L" "" "0,0" pt3 ))
(load "Extrim")
(etrim obj pt1)
(setq obj nil
     pt1 ni)

Edited by BIGAL
Link to comment
Share on other sites

Version 2 when I get time will do hatch

 

Chevron.jpg

 

; this use the extrim command to trim shape
; By Alan H Jan 2012
(setq obj (car (entsel "\nPick pline or circle")))
; should do a object test here

(setq pt1 (Getpoint "\nPick Line start point"))
(setq pt2 (Getpoint pt1 "\nPick end point"))
(command "line" pt1 pt2 "")
(setq gap (getreal "\nEnter spacing"))
(setq pt3 (getpoint "\nPick 1st cross point"))
(setq pt4 (getpoint pt3 "\nPick 2nd cross point"))
(setq dist (distance pt3 pt4))
(setq x (fix (/ dist gap)))

(setq newpt (strcat (rtos gap 2 2) ",0.0"))
(repeat x (command "copy" "L" "" "0,0" newpt))

(load "Extrim")
(etrim obj pt1)

; work out hatch points work in progress
;(setq ss (ssget "F" (list pt3 pt4)))
; now cen pts  as list

(setq obj nil
     pt1 nil)

Edited by BIGAL
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...