曲线断开缺口

快乐王子刚 · 发表于 2016-10-6 15:15:12

大神们，像这种曲线断开缺口的插件，请帮忙写一个。

newer · 发表于 2016-10-6 15:15:13

本帖最后由 newer 于 2016-10-6 18:12 编辑

快乐王子刚发表于 2016-10-6 17:40

试试，可批量，封闭和不封闭的都考虑了，适合LINE,SPLINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,也用了SSGET里面设置关键字，如果可以，麻烦做个动画传上来，我去更新每日插件。

(defun c:tt () (defun _setdis (keyword)
(cond
((= keyword "SE")
(if (setq dis (getreal (xdrx_prompt
"\n请输入断口距离<"
#dis
">:"
t
)
)
)
(setq #dis dis)
)
)
((= keyword "BE")
(if (setq div (getint (xdrx_prompt
"\n请输入等分数<"
#div
">:"
t
)
)
)
(setq #div div)
)
)
)
(xdrx_prompt
"\n当前设置：等分数(" #div ")/断口距离(" #dis ")")
)
(defun _break (e div dis)
(setq ge (xdge::constructor e)
pts (xdge::getpropertyvalue ge "getSamplePoints" div)
pts (cdr pts)
pts (xd::list:removetail pts)
intv (xdge::getpropertyvalue ge "getinterval")
bound (xdge::getpropertyvalue (car intv) "getbounds")
len (xdge::getpropertyvalue ge "length")
dis (/ dis 2.0)
_isclose (xdrx_getpropertyvalue e "isclosed")
)
(setq i 0)
(repeat div
(setq ge1 (xdge::copy ge))
(setq gap (* (last bound) (/ dis len)))
(cond
((= i 0)
(setq sec (- (/ (last bound) div) gap))
(if _isclose
(xdge::setpropertyvalue ge1 "setinterval" gap sec)
(xdge::setpropertyvalue ge1 "setinterval" 0 sec)
)
)
((= i (1- div))
(setq sec (+ gap (* (last bound) (/ (1- div) (+ 0.0 div)))))
(if _isclose
(xdge::setpropertyvalue
ge1
"setinterval"
sec
(- (last bound) gap)
)
(xdge::setpropertyvalue ge1 "setinterval" sec (last bound))
)
)
(t
(setq sec1 (+ gap (* i (/ (last bound) (+ 0.0 div))))
sec2 (- (* (1+ i) (/ (last bound) (+ 0.0 div))) gap)
)
(xdge::setpropertyvalue ge1 "setinterval" sec1 sec2)
)
)
(setq i (1+ i))
(xdge::entity:make ge1)
(xdrx_entity_matchprop e (entlast))
)
(xdrx_entity_delete e)
)
(xdrx_begin)
(if (not #dis)
(setq #dis 10.0)
)
(if (not #div)
(setq #div 5)
)
(xdrx_prompt
"\n当前设置：等分数(" #div ")/断口距离(" #dis ")")
(xdrx_initssget
"\n选取要等分断口的曲线[等分设置(BE)/断口距离(SE)]<退出>:"
"BE SE"
"移除不断口的曲线<退出>:"
"_setdis"
""
)
(if (setq ss (xdrx_ssget '((0 . "*line,arc,ellipse,circle"))))
(progn
(mapcar
'(lambda (x)
(_break x #div #dis)
)
(xdrx_pickset->ents ss)
)
)
)
(xdrx_end)
(princ)
)

(defun c:tt ()  (defun _setdis (keyword) 
    (cond 
      ((= keyword "SE") 
       (if (setq dis (getreal (xdrx_prompt 
                                "\n请输入断口距离<" 
                                #dis 
                                ">:" 
                                t 
                              ) 
                     ) 
           ) 
         (setq #dis dis) 
       ) 
      ) 
      ((= keyword "BE") 
       (if (setq div (getint (xdrx_prompt 
                               "\n请输入等分数<" 
                               #div 
                               ">:" 
                               t 
                             ) 
                     ) 
           ) 
         (setq #div div) 
       ) 
      ) 
    ) 
    (xdrx_prompt 
      "\n当前设置：等分数(" #div ")/断口距离(" #dis ")") 
  ) 
  (defun _break        (e div dis) 
    (setq ge           (xdge::constructor e) 
          pts           (xdge::getpropertyvalue ge "getSamplePoints" div) 
          pts           (cdr pts) 
          pts           (xd::list:removetail pts) 
          intv           (xdge::getpropertyvalue ge "getinterval") 
          bound           (xdge::getpropertyvalue (car intv) "getbounds") 
          len           (xdge::getpropertyvalue ge "length") 
          dis           (/ dis 2.0) 
          _isclose (xdrx_getpropertyvalue e "isclosed") 
    ) 
    (setq i 0) 
    (repeat div 
      (setq ge1 (xdge::copy ge)) 
      (setq gap (* (last bound) (/ dis len))) 
      (cond 
        ((= i 0) 
         (setq sec (- (/ (last bound) div) gap)) 
         (if _isclose 
           (xdge::setpropertyvalue ge1 "setinterval" gap sec) 
           (xdge::setpropertyvalue ge1 "setinterval" 0 sec) 
         ) 
        ) 
        ((= i (1- div)) 
         (setq sec (+ gap (* (last bound) (/ (1- div) (+ 0.0 div))))) 
         (if _isclose 
           (xdge::setpropertyvalue 
             ge1 
             "setinterval" 
             sec 
             (- (last bound) gap) 
           ) 
           (xdge::setpropertyvalue ge1 "setinterval" sec (last bound)) 
         ) 
        ) 
        (t 
         (setq sec1 (+ gap (* i (/ (last bound) (+ 0.0 div)))) 
               sec2 (- (* (1+ i) (/ (last bound) (+ 0.0 div))) gap) 
         ) 
         (xdge::setpropertyvalue ge1 "setinterval" sec1 sec2) 
        ) 
      ) 
      (setq i (1+ i)) 
      (xdge::entity:make ge1) 
      (xdrx_entity_matchprop e (entlast)) 
    ) 
    (xdrx_entity_delete e) 
  ) 
 
  (xdrx_begin) 
  (if (not #dis) 
    (setq #dis 10.0) 
  ) 
  (if (not #div) 
    (setq #div 5) 
  ) 
  (xdrx_prompt 
    "\n当前设置：等分数(" #div ")/断口距离(" #dis ")") 
  (xdrx_initssget 
    "\n选取要等分断口的曲线[等分设置(BE)/断口距离(SE)]<退出>:" 
    "BE SE" 
    "移除不断口的曲线<退出>:" 
    "_setdis" 
    "" 
   ) 
  (if (setq ss (xdrx_ssget '((0 . "*line,arc,ellipse,circle")))) 
    (progn 
      (mapcar 
        '(lambda (x) 
           (_break x #div #dis) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

newer · 发表于 2016-10-6 15:38:01

等分？

快乐王子刚 · 发表于 2016-10-6 17:16:41

newer 发表于 2016-10-6 15:38

是的，等分。

newer · 发表于 2016-10-6 17:35:06

快乐王子刚发表于 2016-10-6 17:16

先等分点，然后在每个点两侧各移动二分之一宽度？

快乐王子刚 · 发表于 2016-10-6 17:40:41

newer 发表于 2016-10-6 17:35

可以的，帮我写个可以吗?

快乐王子刚 · 发表于 2016-10-6 18:59:49

newer 发表于 2016-10-6 18:10

你好，能否帮忙调一下，现在是默认4个缺口，而且宽度是10，无法更改个数及宽度。能不能改为输入命令回车，选择物体回车，输入个数回车，输入宽度回车完成。麻烦了，谢谢

newer · 发表于 2016-10-6 20:26:09

输入关键字be修改宽度和se修改等分数啊

快乐王子刚 · 发表于 2016-10-6 20:39:45

newer 发表于 2016-10-6 20:26

输入了，改不了。

newer · 发表于 2016-10-6 22:50:20

你用的什么时候的api？去下最新的。

快乐王子刚 · 发表于 2016-10-7 11:16:41

newer 发表于 2016-10-6 22:50

可以用了，下了最新的函数就行了，非常的感谢。上个图，看下效果。

newer · 发表于 2016-10-8 09:31:53

快乐王子刚发表于 2016-10-7 11:16

你把悬赏问题解决了啊。

快乐王子刚 · 发表于 2016-10-9 17:43:48

newer 发表于 2016-10-8 09:31

可以，怎么操作？

newer · 发表于 2016-10-9 17:56:09

快乐王子刚发表于 2016-10-9 17:43

你在解决答案那个帖子上下左右找找，有没有设为答案什么的链接，点下。

Kllies · 发表于 2016-12-19 17:51:06

这个插件好像选多段线CAD就会崩溃？

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

[编程申请] 曲线断开缺口

最佳答案