Topic: [XDrX-Function(3)] xdrx-curve-offset ( xdrx_curve_getoffsetcurves )

[xdcad]

Code - Auto/Visual Lisp: [Select]

1. (xdrx-curve-offset <db-ent...ge-ent..ss..> <int...real...string> t)
2. exp:
3.  
4. (xdrx-curve-offset (list e1 e2 ss) 100.0) ;Offset the processing curve in the increasing direction
5. (xdrx-curve-offset (list e1 e2 ss) -100.0) ;Offset the processing curve in the direction of reduction
6.  
7. (xdrx-curve-offset (list e1 e2 ss) 50.0 100.0 200.0) ; OFFSET three times in a row
8.  
9. (xdrx-curve-offset (list e1 e2 ss) "50.0,100.0,300.0"); OFFSET three times in a row
10.  
11. (xdrx-curve-offset (list e1 e2 ss) "50.0,100.0,300.0" t); Give the T parameter and return the point list

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt ()
2.   (if
3.     (and (setq e (xdrx-ssget "\nSelect the curve to be OFFSET<Exit>:" '((0 . "*line"))))
4.          (and (/= ""
5.                   (setq offsetdist
6.                          (getstring
7.                            "\nEnter OFFSET distance (use, to separate multiple)<Exit>:"
8.                          )
9.                   )
10.               )
11.               (xdrx-string-regexps "^[-0-9.,]+$" offsetdist)
12.          )
13.     )
14.      (progn
15.        (xdrx-begin)
16.        (setq ss (xdrx-curve-offset e offsetdist))
17.        (xdrx-entity-setcolor ss 1)
18.        (xdrx-end)
19.      )
20.   )
21.   (princ)
22. )
23.