马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
 - (defun c:xdtb_kdbrk (/ e1 p1 p2 pts)
- (xdrx-begin)
- (xd::doc:getdouble "\n开口间距" "#xd-var-global-gap" 1.0)
- (xdrx-sysvar-push '("osmode" 545))
- (if (and (setq e1 (car (xdrx-entsel
- "\n拾取曲线实体<退出>:"
- '((0 . "*line,arc,circle,ellipse"))
- )
- )
- )
- (setq p1 (getpoint "\n第一点<退出>:"))
- (setq p2 (getpoint p1 "\n第二点<退出>:"))
- )
- (progn (setq p1 (xdrx-getpropertyvalue
- e1
- "getclosestpointto"
- (trans p1 1 0)
- )
- p2 (xdrx-getpropertyvalue
- e1
- "getclosestpointto"
- (trans p2 1 0)
- )
- pts (mapcar 'car (xdrx-points-sortoncurve e1 (list p1 p2)))
- p1 (xdrx-curve-getpointatdist
- e1
- (car pts)
- (- #xd-var-global-gap)
- )
- p2 (xdrx-curve-getpointatdist e1 (cadr pts) #xd-var-global-gap)
- )
- (xdrx-curve-break e1 p1 p2)
- )
- )
- (xdrx-end)
- (princ)
- )
|