曲线等分后开口

newer · 发表于 2016-10-7 15:39:41

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

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

×

本帖最后由 newer 于 2016-10-8 09:32 编辑

原编程申请帖子见： http://bbs.xdcad.net/thread-705690-1-1.html

(defun c:XDTB_CurveDivBrkGap ( / #dis #div _isclose bound dis div e gap ge ge1 i intv keyword len pts sec sec1 sec2 ss x)
(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:XDTB_CurveDivBrkGap ( / #dis #div _isclose bound dis div e gap ge ge1 i intv keyword len pts sec sec1 sec2 ss x) 
  (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) 
)

守仁格竹GM · 发表于 2016-10-8 08:28:42

回的人少，我来小顶一下

ck1569 · 发表于 2017-5-12 12:37:35

不错，顶一下!

moto1986 · 发表于 2018-7-30 20:58:35

不错，顶一下!

吴外安放 · 发表于 2020-8-28 18:32:49

这个不是很完善中间往往比两边短，能不能改这样，给命令TT,下面提示把等分段改成 "\n缺口数量<2>:" "\n缺口大小<4>:" \n选取线和圆和弧：省了输入BE和SE那个步骤了

jiang__jin · 发表于 2020-11-20 14:14:46

正需要,学习了

ilovem · 发表于 2023-5-6 09:12:53

谢谢楼主的分享

hzyhzjjzh1 · 发表于 2023-5-14 13:15:19

谢谢楼主分享

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

[曲线] 曲线等分后开口

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