Topic: Help with double offset and hatch lisp

[PM]

Hi . This code begin with an option .Double offset (0.5 -0.5) and  (2.0  -2.0). I try to write it as (a -a) , i dont know if is wrong.

Then i want to select the layer 1 polylines and  add a hatch between of then . The hatch must be in Layer1 with lw 0.05 and type ANSI31 with scale 0.1

The code is

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / a sel int ent )
2.   (TEXTPAGE)
3.  (princ "\n")(princ "\n")(princ "\n")
4. (progn
5.            (initget "1 2")
6.            (setq
7.              l
8.               (cond
9.                 ((getkword
10.                    "\n SELECT OFFSET:
11.                        1. OFFSET 0.5
12.                        2. OFFSET 2.0
13.                     "
14.                  )
15.                 )
16.                 ("1")
17.               )
18.            )
19.  
20. (if (eq l "1")
21.         (setq a 0.5)
22.        )
23. (if (eq l "2")
24.         (setq a 2.0)
25.        )
26. )
27.         (COMMAND "_layer" "_m" "LAYER1" "_c" "93" "" "_lw" "0.30" "" "")
28.       (and (or (tblsearch "LAYER" "LAYER2")
29.              (alert "Layer name < LAYER2 >  was not found in this drawing to continue!")
30.              )
31.                 (princ "\nSelect polygon <LAYER2 > to offset on two sides: ")
32.          (setq int -1 sel (ssget "_X" '((0 . "LINE,*POLYLINE")(8 . "LAYER2"))))
33.          (while (setq int (1+ int) ent (ssname sel int))
34.            (foreach off '(a -a)
35.              (vla-put-layer (car (vlax-invoke (vlax-ename->vla-object ent) 'offset off)) "LAYER1")
36.              )
37.            )
38.     (princ)
39.     ) (vl-load-com)
40. )
41.  

Can any one help ?
Thanks

[kpblc]

Change

Code - Auto/Visual Lisp: [Select]

1. (foreach off '(a -a)

to

Code - Auto/Visual Lisp: [Select]

1. (foreach off (list a -a)

[PM]

Hi kpblc. I did the change  but the code is not working as double offset but only like one side offset. The other problem is how to add hatch inside the double offset.

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / a sel int ent )
2.   (TEXTPAGE)
3.  (princ "\n")(princ "\n")(princ "\n")
4. (progn
5.            (initget "1 2")
6.            (setq
7.              l
8.               (cond
9.                 ((getkword
10.                    "\n SELECT OFFSET:
11.                       1. OFFSET 0.5
12.                       2. OFFSET 2.0
13.                    "
14.                  )
15.                 )
16.                 ("1")
17.               )
18.            )
19.  
20. (if (eq l "1")
21.         (setq a 0.5)
22.        )
23. (if (eq l "2")
24.         (setq a 2.0)
25.        )
26. )
27.         (COMMAND "_layer" "_m" "LAYER1" "_c" "93" "" "_lw" "0.30" "" "")
28.           (and (or (tblsearch "LAYER" "LAYER2")
29.              (alert "Layer name < LAYER2 >  was not found in this drawing to continue!")
30.              )
31.               (princ "\nSelect polygon < LAYER2 > to offset on two sides: ")
32.          (setq int -1 sel (ssget "_X" '((0 . "LINE,*POLYLINE")(8 . "LAYER2"))))
33.          (while (setq int (1+ int) ent (ssname sel int))
34.                (foreach off (list a -a)
35.              (vla-put-layer (car (vlax-invoke (vlax-ename->vla-object ent) 'offset off)) "LAYER1")
36.              )
37.            )
38.     (princ)
39.                
40.     )
41.   (vl-load-com)
42.  );end defun
43.  
44.  

Any options ??

Thanks

[PM]

I did a stupid solution but i dont know how to add the hatch

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / a sel int ent )
2.   (TEXTPAGE)
3.  (princ "\n")(princ "\n")(princ "\n")
4. (progn
5.            (initget "1 2")
6.            (setq
7.              l
8.               (cond
9.                 ((getkword
10.                    "\n SELECT OFFSET:
11.                       1. OFFSET 0.5
12.                       2. OFFSET 2.0
13.                    "
14.                  )
15.                 )
16.                 ("1")
17.               )
18.            )
19.  
20. (if (eq l "1")
21.         (c:test1)
22.        )
23. (if (eq l "2")
24.         (c:test2)
25.        )
26.     (princ)
27.                
28.     )
29.   (vl-load-com)
30.  );end defun
31.  
32. (defun c:test1 ( / a sel int ent )
33.         (COMMAND "_layer" "_m" "LAYER1" "_c" "93" "" "_lw" "0.30" "" "")
34.           (and (or (tblsearch "LAYER" "LAYER2")
35.              (alert "Layer name < LAYER2 >  was not found in this drawing to continue!")
36.              )
37.               (princ "\nSelect polygon < LAYER2 > to offset on two sides: ")
38.          (setq int -1 sel (ssget "_X" '((0 . "LINE,*POLYLINE")(8 . "LAYER2"))))
39.          (while (setq int (1+ int) ent (ssname sel int))
40.                    (foreach off '(0.5 -0.5)
41.              (vla-put-layer (car (vlax-invoke (vlax-ename->vla-object ent) 'offset off)) "LAYER1")
42.              )
43.            )
44.     (princ)
45.                
46.     )
47.   (vl-load-com)
48.  );end defun
49.  
50.  
51. (defun c:test2 ( / a sel int ent )
52.         (COMMAND "_layer" "_m" "LAYER1" "_c" "93" "" "_lw" "0.30" "" "")
53.           (and (or (tblsearch "LAYER" "LAYER2")
54.              (alert "Layer name < LAYER2 >  was not found in this drawing to continue!")
55.              )
56.               (princ "\nSelect polygon < LAYER2 > to offset on two sides: ")
57.          (setq int -1 sel (ssget "_X" '((0 . "LINE,*POLYLINE")(8 . "LAYER2"))))
58.          (while (setq int (1+ int) ent (ssname sel int))
59.                    (foreach off '(2.00 -2.00)
60.              (vla-put-layer (car (vlax-invoke (vlax-ename->vla-object ent) 'offset off)) "LAYER1")
61.              )
62.            )
63.     (princ)
64.                
65.     )
66.   (vl-load-com)
67.  );end defun
68.  
69.  
70.  

[kpblc]

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun t1 (/ selset offset_value loops hatch layer)
4.   (if (and (= (type
5.                 (setq selset (vl-catch-all-apply
6.                                (function
7.                                  (lambda ()
8.                                    (ssget '((0 . "*POLYLINE") (8 . "layer2") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>")))
9.                                  ) ;_ end of lambda
10.                                ) ;_ end of function
11.                              ) ;_ end of vl-catch-all-apply
12.                 ) ;_ end of setq
13.               ) ;_ end of type
14.               'pickset
15.            ) ;_ end of =
16.            (= (type (setq offset_value
17.                            (vl-catch-all-apply
18.                              (function (lambda ()
19.                                          (initget "1 2")
20.                                          (cond ((getkword "\nSelect offset value [1 - offset 0.5/2 - ossfet 2.0] <1> : "))
21.                                                (t "1")
22.                                          ) ;_ end of cond
23.                                        ) ;_ end of lambda
24.                              ) ;_ end of function
25.                            ) ;_ end of vl-catch-all-apply
26.                     ) ;_ end of setq
27.               ) ;_ end of type
28.               'str
29.            ) ;_ end of =
30.       ) ;_ end of and
31.     (progn (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
32.            (setq layer (vla-add (vla-get-layers adoc) "Layer1"))
33.            (vla-put-color layer 93)
34.            (vla-put-lineweight layer aclnwt030)
35.            (setq offset_value (cond ((= (atoi offset_value) 1) 0.5)
36.                                     ((= (atoi offset_value) 2) 2.0)
37.                               ) ;_ end of cond
38.                  loops        (mapcar (function
39.                                         (lambda (ent)
40.                                           (vl-sort (mapcar (function (lambda (x)
41.                                                                        (setq x (car (vlax-safearray->list (vlax-variant-value x))))
42.                                                                        (vla-put-layer x (vla-get-name layer))
43.                                                                        x
44.                                                                      ) ;_ end of lambda
45.                                                            ) ;_ end of function
46.                                                            (list (vla-offset (vlax-ename->vla-object ent) offset_value)
47.                                                                  (vla-offset (vlax-ename->vla-object ent) (- offset_value))
48.                                                            ) ;_ end of list
49.                                                    ) ;_ end of mapcar
50.                                                    (function (lambda (a b) (> (vla-get-area a) (vla-get-area b))))
51.                                           ) ;_ end of vl-sort
52.                                         ) ;_ end of lambda
53.                                       ) ;_ end of function
54.                                       ((lambda (/ tab item)
55.                                          (repeat (setq tab  nil
56.                                                        item (sslength selset)
57.                                                  ) ;_ end setq
58.                                            (setq tab (cons (ssname selset (setq item (1- item))) tab))
59.                                          ) ;_ end of repeat
60.                                        ) ;_ end of lambda
61.                                       )
62.                               ) ;_ end of mapcar
63.            ) ;_ end of setq
64.            (foreach item loops
65.              (setq hatch (vla-addhatch
66.                            (vla-get-modelspace adoc)
67.                            achatchpatterntypepredefined
68.                            "ANSI31"
69.                            :vlax-false
70.                            achatchobject
71.                          ) ;_ end of vla-AddHatch
72.              ) ;_ end of setq
73.              (vla-appendouterloop
74.                hatch
75.                (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list (car item)))
76.              ) ;_ end of vla-appendouterloop
77.              (vla-appendinnerloop
78.                hatch
79.                (vlax-safearray-fill (vlax-make-safearray vlax-vbobject '(0 . 0)) (list (cadr item)))
80.              ) ;_ end of vla-appendinnerloop
81.              (vla-evaluate hatch)
82.              (vla-update hatch)
83.              (vla-put-layer hatch (vla-get-name layer))
84.            ) ;_ end of foreach
85.            (vla-endundomark adoc)
86.     ) ;_ end of progn
87.   ) ;_ end of if
88.   (princ)
89. ) ;_ end of defun
90.  

[PM]

Thank you  kpblc

[PM]

Hi  kpblc a last question. How to change pattetn scale to 0.1 and hatch linetype bylayer ?

Thanks

[PM]

Thans  kpblc i  fix it 

[Lee Mac]

Another, from almost 10 years ago...
https://www.cadtutor.net/forum/topic/43291-hatch-of-closed-polylines-offset-from-user-designated-points/?tab=comments#comment-353466

[ScottMC]

Just tried it and VLIDE'd to understand the oops.. NOT yet

Corrected by removing: 103, 106, 132,133,134 and adding
 
(command "-bhatch" "S" "L" "" "") at the end. oldies still work!

   Thanks Much Lee - you keep me thinkin