Drawing rectangle with hatch

[veteranus]

Hi members,

 

I need a lisp routine that will be draw a rectangle with solid hatch with in default.

 

Can you help?

[Tharwat]

This?

 

(defun c:test (/ e r)
 (setq e (entlast))
 (command "_.rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (command "_.-hatch" "S" r "" "P" "SOLID" "")
 )
 (princ)
)

[veteranus]

This?

 

(defun c:test (/ e r)
 (setq e (entlast))
 (command "_.rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (command "_.-hatch" "S" r "" "P" "SOLID" "")
 )
 (princ)
)

 

Great work! Can we add a default transparency options. For example 50% ?

[Tharwat]

Change the command hatch in the previous routine with the following one.

 

(command "_.-hatch" "S" r "" "P" "SOLID" "TRANSPARENCY" 50 "")

[veteranus]

Great work! thanks sir.

[Tharwat]

You are welcome.

[rungruang]

On 11/16/2015 at 6:49 PM, Tharwat said:

Change the command hatch in the previous routine with the following one.

 

 

(command "_.-hatch" "S" r "" "P" "SOLID" "TRANSPARENCY" 50 "")

 

 

want to solid color fill same the color bylayer pleas .

 

[Tharwat]

22 hours ago, rungruang said:

want to solid color fill same the color bylayer pleas .

This shall change the color of solid to be bylayer regardless of cecolor system variable:

(command "_.-hatch" "S" r "" "P" "SOLID" "" "t" 0)

 

[rungruang]

thank you  sir.

[Tharwat]

1 hour ago, rungruang said:

thank you  sir.

You're welcome anytime.

[catoscuro]

con Diesel

PLACA DE CONCRETO
^C^C_-layer;_s;70N;;_rectang;\\_-layer;_s;HT;;_-HATCH;_p;AR-CONC;6;0;_r;s;(entlast);;;