Hi,
Try for example to change this part in the lisp
Code:
(setq
ldat '((20 . 15.5)(30 . 26.5)(40 . 40.0)(50 . 55.0)(60 . 72.0)(70 . 95.0)(80 . 121.0)(90 . 151.0)(100 . 187.0))
vlaobj (vlax-ename->vla-object (ssname js 0))
perim_obj (vlax-curve-getDistAtParam vlaobj (vlax-curve-getEndParam vlaobj))
pt_start (vlax-curve-getStartPoint vlaobj)
pt_end (vlax-curve-getEndPoint vlaobj)
d_x 0.0
lst_pt nil
pt_last nil
env_mask (list pt_end)
inc perim_obj
)
by this, by adjusting the parameters and your lists to your desire.
Code:
(initget "NEigth NFour NTwo Zero PTwo PFour PEigth") ;Ajust the key with your desired slope
(setq slp (getkword "\nChoose slope [NEigth/NFour/NTwo/Zero/PTwo/PFour/PEeigth]? <Zero>: ")) ; And here also
(if (not slp) (setq slp "Zero"))
(setq
ldat
(cond
((eq slp "NEigth")
;replace this line with your list
)
((eq slp "NFour")
;replace this line with your list
)
((eq slp "NTwo")
;replace this line with your list
)
((eq slp "Zero")
;replace this line with your list
)
((eq slp "PTwo")
;replace this line with your list
)
((eq slp "PFour")
'((20 . 15.5)(30 . 26.5)(40 . 40.0)(50 . 55.0)(60 . 72.0)(70 . 95.0)(80 . 121.0)(90 . 151.0)(100 . 187.0))
)
((eq slp "PEigth")
;replace this line with your list
)
)
vlaobj (vlax-ename->vla-object (ssname js 0))
perim_obj (vlax-curve-getDistAtParam vlaobj (vlax-curve-getEndParam vlaobj))
pt_start (vlax-curve-getStartPoint vlaobj)
pt_end (vlax-curve-getEndPoint vlaobj)
d_x 0.0
lst_pt nil
pt_last nil
env_mask (list pt_end)
inc perim_obj
)