API应用曲线双向偏移并连线

st788796 · 发表于 2014-2-18 18:12:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 st788796 于 2014-2-18 18:14 编辑

(defun c:tt (/ dis ss)
(setq
dis (getdist (strcat "\nOffset Dist<"
(vl-princ-to-string (getvar "offsetdist"))
">: "
)
)
)
(if (or (null dis) (= dis ""))
(setq dis (getvar "offsetdist"))
(setvar "offsetdist" dis)
)
(if (and (not (zerop dis)) (not (minusp dis)))
(while (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
(mapcar '(lambda (x / ss1 sp sp1 mp ep mp1 ep1)
(setq ss1 (xdrx_curve_getoffsetcurves
x
dis
)
)
(if (= (sslength ss1) 1)
(mapcar 'set
'(sp mp ep)
(xdrx_curve_getpoint (ssname ss1 0))
)
)
(setq ss1 (xdrx_curve_getoffsetcurves x (- dis)))
(if (= (sslength ss1) 1)
(mapcar 'set
'(sp1 mp1 ep1)
(xdrx_curve_getpoint (ssname ss1 0))
)
)
(if sp
(if (not (xdrx_curve_isclosed x))
(progn (xdrx_line_make sp sp1)
(xdrx_line_make ep ep1)
)
)
)
)
(xdrx_pickset->ents ss)
)
)
)
(princ)
)

(defun c:tt (/ dis ss) 
  (setq 
    dis        (getdist (strcat "\nOffset Dist<" 
                         (vl-princ-to-string (getvar "offsetdist")) 
                         ">: " 
                 ) 
        ) 
  ) 
  (if (or (null dis) (= dis "")) 
    (setq dis (getvar "offsetdist")) 
    (setvar "offsetdist" dis) 
  ) 
  (if (and (not (zerop dis)) (not (minusp dis))) 
    (while (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))) 
      (mapcar '(lambda (x / ss1 sp sp1 mp ep mp1 ep1) 
                 (setq ss1 (xdrx_curve_getoffsetcurves 
                             x 
                             dis 
                           ) 
                 ) 
                 (if (= (sslength ss1) 1) 
                   (mapcar 'set 
                           '(sp mp ep) 
                           (xdrx_curve_getpoint (ssname ss1 0)) 
                   ) 
                 ) 
                 (setq ss1 (xdrx_curve_getoffsetcurves x (- dis))) 
                 (if (= (sslength ss1) 1) 
                   (mapcar 'set 
                           '(sp1 mp1 ep1) 
                           (xdrx_curve_getpoint (ssname ss1 0)) 
                   ) 
                 ) 
                 (if sp 
                   (if (not (xdrx_curve_isclosed x)) 
                     (progn (xdrx_line_make sp sp1) 
                            (xdrx_line_make ep ep1) 
                     ) 
                   ) 
                 ) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (princ) 
)

hzj268 · 发表于 2014-3-27 09:28:17

{:soso_e100:}。。。。。。。。。。

DASDASA · 发表于 2020-4-8 15:57:40

运行出错错误: no function definition: XDRX_PICKSET->ENTS

xdcad9819 · 发表于 2020-5-5 20:09:33

双向偏移并连线

账号		自动登录	找回密码
密码			立即注册

[教学] API应用 曲线双向偏移并连线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

[教学] API应用曲线双向偏移并连线