macklara Posted January 12, 2013 Posted January 12, 2013 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: 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. Quote
MSasu Posted January 12, 2013 Posted January 12, 2013 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. Quote
macklara Posted January 12, 2013 Author Posted January 12, 2013 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: 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. Quote
MSasu Posted January 14, 2013 Posted January 14, 2013 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. Quote
BIGAL Posted January 15, 2013 Posted January 15, 2013 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 ? Quote
BIGAL Posted January 15, 2013 Posted January 15, 2013 (edited) 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 January 16, 2013 by BIGAL Quote
BIGAL Posted January 16, 2013 Posted January 16, 2013 (edited) Version 2 when I get time will do hatch ; 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 January 16, 2013 by BIGAL Quote
Recommended Posts
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.