Topic: segment offset ?

[kdub_nz]

gile,
I just downloaded a copy of this ..

Very NICE !! ..  Saved lots of time

[gile]

You're welcome, Kerry.

[CAB]

The coding is very nice and a useful routine.

[GDF]

Hi,

Here's my way

EDIT: corrected a missing parent.

Gile

I just saw this and tried it out...VERY NICE. Thanks for sharing it. It will come in handy.

Gary

[gile]

Thanks to all, you're welcome.

I'm glad you find it usefull.

[alanjt]

Fantastic code, Gile; very useful.

[rayakmal]

Thanks to all, you're welcome.

I'm glad you find it usefull.

Your program is very useful.

My main problem is, polyline that I need to offset resides inside a block.
E.q: When I working with a MEP Drawing, I need to draw a water pipeline, offsetting a parcel line that resides inside site plan block.
 

[Lee Mac]

My main problem is, polyline that I need to offset resides inside a block.

You could use NCOPY first.

[rayakmal]

My main problem is, polyline that I need to offset resides inside a block.

You could use NCOPY first.

Wow. I didn't realize Ncopy means Nested Copy 
I'm an old dog, hard to learn new tricks, I meant, when upgrading I don't really learn all new commands.
Thanks. you saved my life again.

[BIGAL]

Would using a xref be better way than "site plan block" as you can edit the xref pretty simply.

[rayakmal]

Would using a xref be better way than "site plan block" as you can edit the xref pretty simply.

We don't use an xref extensively. The main reason is our working folders can't be accessed freely by other divisions, when other divisions need our drawings we need to copy all the necessary drawings to a shared folder and sometimes forget to copy the xref files.

[ahsattarian]

This Helps U  :

Code - Auto/Visual Lisp: [Select]

1. (defun c:opl ()
2.   (defun sub1 () (cond (s1 (entdel s1) (setq s1 nil))))
3.   (defun sub2 ()
4.     (redraw)
5.     (cond (s1 (entdel s1) (setq s1 nil)))
6.     (setq side (trans side 1 normal))
7.     (setq start nil)
8.     (setq bulge (vla-getbulge obj param))
9.     (if (zerop bulge)
10.       (progn
11.         (setq ang (- (angle pt side) (angle p1 p2) (* pi 0.5)))
12.         (setq ofdist (* (abs (cos ang)) (distance pt side)))
13.         (grdraw pt side 8 1)
14.         (setq clockwise-p (< (sin (- (angle p1 side) (angle p1 p2))) -1e-14)) ;|  #clockwise  |;
15.         (if clockwise-p
16.           (progn
17.             (setq start (polar p1 (- (angle p1 p2) (* pi 0.5)) ofdist))
18.             (setq end (polar p2 (- (angle p1 p2) (* pi 0.5)) ofdist))
19.           )
20.           (progn
21.             (setq start (polar p1 (+ (angle p1 p2) (* pi 0.5)) ofdist))
22.             (setq end (polar p2 (+ (angle p1 p2) (* pi 0.5)) ofdist))
23.           )
24.         )
25.       )
26.       (progn
27.         (setq ang (* (atan bulge) 2.0)) ;|  #bulge  |;
28.         (setq rad (/ (distance p1 p2) (* (sin ang) 2.0)))
29.         (setq cen (polar p1 (+ (angle p1 p2) (- (* pi 0.5) ang)) rad))
30.         (setq ofdist (abs (- (distance cen side) (abs rad))))
31.         (grdraw cen side 8 1)
32.         (if (< (abs rad) (distance cen side))
33.           (progn
34.             (setq start (polar p1 (angle cen p1) ofdist))
35.             (setq end (polar p2 (angle cen p2) ofdist))
36.           )
37.           (if (< ofdist (abs rad))
38.             (progn
39.               (setq start (polar p1 (angle p1 cen) ofdist))
40.               (setq end (polar p2 (angle p2 cen) ofdist))
41.             )
42.           )
43.         )
44.       )
45.     )
46.     (if start
47.       (progn
48.         (setq method1 2)
49.         (cond
50.           ((= method1 1)
51.            (if (equal (angle p1 pm) (angle pm p2) fuzzy)
52.              (command "line" p1 p2 "")
53.              (command "arc" p1 pm p2)
54.            )
55.            (setvar "peditaccept" 1)
56.            (command "pedit" "last" "")
57.            (command "offset" "erase" "yes" "layer" "current" ofdist (entlast) side "")
58.            (setq s1 (entlast))
59.            (setq obj1 (vlax-ename->vla-object s1))
60.           )
61.           ((= method1 2)
62.            (setq obj1 (vlax-invoke space 'addlightweightpolyline (list (car start) (cadr start) (car end) (cadr end))))
63.            (vla-setbulge obj1 0 bulge)
64.            (setq s1 (vlax-vla-object->ename obj1))
65.           )
66.         )
67.         (setq method2 2)
68.         (cond ((= (vla-get-objectname obj) "AcDb2dPolyline") (setq method2 1)))
69.         (cond
70.           ((= method2 1) (setq w1 (nth param w1li)) (setq w2 (nth param w2li)))
71.           ((= method2 2) (vla-getwidth obj param 'w1 'w2))
72.         )
73.         (setq method3 2)
74.         (cond
75.           ((= method3 1) (command "pedit" s1 "e" "w" w1 w2 "x" ""))
76.           ((= method3 2) (vla-setwidth obj1 0 w1 w2))
77.         )
78.         (foreach prop '(elevation layer linetype linetypegeneration linetypescale lineweight normal truecolor) ;|  #matchprop  |;
79.           (cond ((vlax-property-available-p obj prop) (vlax-put obj1 prop (vlax-get obj prop))))
80.         )
81.         (setq pt1 (vlax-curve-getclosestpointto s1 pt))
82.         (grdraw pt pt1 9 1)
83.         (grdraw side pt1 8 1)
84.       )
85.     )
86.   )
87.   (defun sub3 ()
88.     (cond
89.       ((= (car a) 40) (setq w1li (append w1li (list (cdr a)))))
90.       ((= (car a) 41) (setq w2li (append w2li (list (cdr a)))))
91.       ((= (car a) 42) (setq buli (append buli (list (cdr a)))))
92.     )
93.   )
94.   (setq s1 nil)
95.   (setq es (entsel "\n Select Pline : "))
96.   (setq s (car es))
97.   (setq poj (cadr es))
98.   (setq fuzzy 1e-4)
99.   (if (= 1 (getvar "cvport"))
100.     (setq space (vla-get-paperspace (vla-get-activedocument (vlax-get-acad-object))))
101.     (setq space (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
102.   )
103.   (setvar "autosnap" 39)
104.   (setvar "orthomode" 0) ;|  #orthomode  |;
105.   (setvar "osmode" 0)
106.   (while s
107.     (redraw s 4)
108.     (setq en (entget s))
109.     (setq typ (strcase (cdr (assoc 0 en)) t))
110.     (setq w1li nil)
111.     (setq w2li nil)
112.     (setq buli nil)
113.     (cond
114.       ((= typ "lwpolyline") (foreach a en (sub3)))
115.       ((= typ "polyline")
116.        (setq sn (entnext s))
117.        (setq enn (entget sn))
118.        (setq typn (cdr (assoc 0 enn)))
119.        (while (/= typn "seqend")
120.          (foreach a enn (sub3))
121.          (setq sn (entnext sn))
122.          (setq enn (entget sn))
123.          (setq typn (strcase (cdr (assoc 0 enn)) t))
124.        )
125.       )
126.     )
127.     (setq obj (vlax-ename->vla-object s))
128.     (setq normal (vlax-get obj 'normal)) ;|  #normal vector  |;
129.     (setq poj (osnap poj "_nea"))
130.     (setq pt (trans poj 1 0))
131.     (setq param (fix (vlax-curve-getparamatpoint obj pt)))
132.     (setq p1 (trans (vlax-curve-getpointatparam obj param) 0 normal))
133.     (setq pm (trans (vlax-curve-getpointatparam obj (+ (float param) 0.5)) 0 normal))
134.     (setq p2 (trans (vlax-curve-getpointatparam obj (1+ param)) 0 normal))
135.     (setq g 1)
136.     (while (= g 1)
137.       (setq gr (grread t 15 0)) ;| #grread |;
138.       (setq code (car gr))
139.       (setq side (cadr gr))
140.       (cond
141.         ((= code 5) (sub1) (sub2)) ;| Bedune Click |;
142.         ((= code 3) ;| Click Beshe |;
143.          (sub1)
144.          (sub2)
145.          (setq s1 nil)
146.          (setvar "offsetdist" ofdist)
147.         )
148.         ((= code 2) (redraw) (sub1) (setq g 0)) ;| Type Beshe |;
149.         ((= code 25) (redraw) (sub1) (setq g 0)) ;| #mouse #right-click |;
150.       )
151.     )
152.     (setq s1 nil)
153.     (setq es (entsel "\n Select Pline : "))
154.     (setq s (car es))
155.     (setq poj (cadr es))
156.   )
157.   (redraw s 4)
158.   (princ "\n *** E N D *** ")
159. )