曲线开端口

Lispboy · 发表于 2017-5-31 14:35:47

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

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

×

(defun c:XDTB_CURVEKaiKou ( / dis1 dis2 e p1 p2 pt val wid)
(if (not #xd_var_kaikou_width)
(setq #xd_var_kaikou_width 2)
)
(if (setq val (getint (xdrx_prompt "\n输入开口宽度<" #xd_var_kaikou_width
">:" t
)
)
)
(setq #xd_var_kaikou_width val)
)
(xdrx_begin)
(xdrx_sysvar_push '("osmode" 544))
(if (and
(setq e (car (xdrx_entsel "\n选取要等分的曲线<退出>")))
(setq pt (getpoint "\n断开点<退出>:"))
)
(progn
(setq dis1 (xdrx_curve_getdistatpoint e pt)
dis2 (xdrx_curve_getdistatpoint e
(xdrx_curve_getendpoint e)
)
dis2 (- dis2 dis1)
wid (/ #xd_var_kaikou_width 2.0)
)
(if (and
(> dis1 wid)
(> dis2 wid)
)
(progn
(setq p1 (xdrx_curve_getpointatdist e (- dis1 wid))
p2 (xdrx_curve_getpointatdist e (+ dis1 wid))
)
(xdrx_curve_break e p1 p2)
)
(xdrx_prompt "\n拾取位置不能开口.")
)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)

(defun c:XDTB_CURVEKaiKou ( / dis1 dis2 e p1 p2 pt val wid) 
  (if (not #xd_var_kaikou_width) 
    (setq #xd_var_kaikou_width 2) 
  ) 
  (if (setq val (getint (xdrx_prompt "\n输入开口宽度<" #xd_var_kaikou_width 
                                     ">:" t 
                        ) 
                ) 
      ) 
    (setq #xd_var_kaikou_width val) 
  ) 
  (xdrx_begin) 
  (xdrx_sysvar_push '("osmode" 544)) 
  (if (and 
        (setq e (car (xdrx_entsel "\n选取要等分的曲线<退出>"))) 
        (setq pt (getpoint "\n断开点<退出>:")) 
      ) 
    (progn 
      (setq dis1 (xdrx_curve_getdistatpoint e pt) 
            dis2 (xdrx_curve_getdistatpoint e 
                                            (xdrx_curve_getendpoint e) 
                 ) 
            dis2 (- dis2 dis1) 
            wid (/ #xd_var_kaikou_width 2.0) 
      ) 
      (if (and 
            (> dis1 wid) 
            (> dis2 wid) 
          ) 
        (progn 
          (setq p1 (xdrx_curve_getpointatdist e (- dis1 wid)) 
                p2 (xdrx_curve_getpointatdist e (+ dis1 wid)) 
          ) 
          (xdrx_curve_break e p1 p2) 
        ) 
        (xdrx_prompt "\n拾取位置不能开口.") 
      ) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)

njyhr0113 · 发表于 2017-5-31 17:30:20

感谢楼主分享

Linhay · 发表于 2017-6-1 07:22:11

感谢楼主分享

liunian0524 · 发表于 2017-6-1 07:30:42

感谢楼主分享

快乐王子刚 · 发表于 2017-6-1 19:25:00

挺实用的，能改为框选，默认在曲线中间断开吗？

newer · 发表于 2017-6-1 19:34:55

快乐王子刚发表于 2017-6-1 19:25

有需要，到编程申请论坛单独发个求助帖子吧。

快乐王子刚 · 发表于 2017-6-1 19:41:12

newer 发表于 2017-6-1 19:34

谢谢，你之前帮我写过一个类似的，一直在用，也挺好用的。

快乐王子刚 · 发表于 2017-6-1 19:50:48

newer 发表于 2017-6-1 19:34

我个人有个疑问，就是咱这论谈真的不错，为我们免费写插件，节省了工作中的时间。为什么不适当的收点费用呢？毕竟你们写程序也是需要时间的。网站的维护也是需要费用的。比如申请一个编程10元，20元的，我是愿意出的。毕竟工作中给我们带来了方便。

旺远镜里画世界 · 发表于 2018-3-22 19:49:28

曲线开端口

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

[曲线] 曲线开端口

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