设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 567|回复: 5

[曲线] 曲线等分后开口

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-10-7 15:39:41 | 显示全部楼层 |阅读模式
  • 插件名称 : 曲线等分开口
  • 作  者 : Newer
  • 运行环境 :XDRX API 晓东工具箱 
  • 发布时间 :2016-10-07
  • 命令名称 :XDTB_CurveDivBrkGap
  • 插件介绍 :曲线等分后开口
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

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

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

  1. (defun c:XDTB_CurveDivBrkGap ( / #dis #div _isclose bound dis div e gap ge ge1 i intv keyword len pts sec sec1 sec2 ss x)
  2.   (defun _setdis (keyword)
  3.     (cond
  4.       ((= keyword "SE")
  5.        (if (setq dis (getreal (xdrx_prompt
  6.         "\n请输入断口距离<"
  7.         #dis
  8.         ">:"
  9.         t
  10.             )
  11.          )
  12.      )
  13.    (setq #dis dis)
  14.        )
  15.       )
  16.       ((= keyword "BE")
  17.        (if (setq div (getint (xdrx_prompt
  18.              "\n请输入等分数<"
  19.              #div
  20.              ">:"
  21.              t
  22.            )
  23.          )
  24.      )
  25.    (setq #div div)
  26.        )
  27.       )
  28.     )
  29.     (xdrx_prompt
  30.       "\n当前设置:等分数(" #div ")/断口距离(" #dis ")")
  31.   )
  32.   (defun _break  (e div dis)
  33.     (setq ge     (xdge::constructor e)
  34.     pts     (xdge::getpropertyvalue ge "getSamplePoints" div)
  35.     pts     (cdr pts)
  36.     pts     (xd::list:removetail pts)
  37.     intv     (xdge::getpropertyvalue ge "getinterval")
  38.     bound     (xdge::getpropertyvalue (car intv) "getbounds")
  39.     len     (xdge::getpropertyvalue ge "length")
  40.     dis     (/ dis 2.0)
  41.     _isclose (xdrx_getpropertyvalue e "isclosed")
  42.     )
  43.     (setq i 0)
  44.     (repeat div
  45.       (setq ge1 (xdge::copy ge))
  46.       (setq gap (* (last bound) (/ dis len)))
  47.       (cond
  48.   ((= i 0)
  49.    (setq sec (- (/ (last bound) div) gap))
  50.    (if _isclose
  51.      (xdge::setpropertyvalue ge1 "setinterval" gap sec)
  52.      (xdge::setpropertyvalue ge1 "setinterval" 0 sec)
  53.    )
  54.   )
  55.   ((= i (1- div))
  56.    (setq sec (+ gap (* (last bound) (/ (1- div) (+ 0.0 div)))))
  57.    (if _isclose
  58.      (xdge::setpropertyvalue
  59.        ge1
  60.        "setinterval"
  61.        sec
  62.        (- (last bound) gap)
  63.      )
  64.      (xdge::setpropertyvalue ge1 "setinterval" sec (last bound))
  65.    )
  66.   )
  67.   (t
  68.    (setq sec1 (+ gap (* i (/ (last bound) (+ 0.0 div))))
  69.          sec2 (- (* (1+ i) (/ (last bound) (+ 0.0 div))) gap)
  70.    )
  71.    (xdge::setpropertyvalue ge1 "setinterval" sec1 sec2)
  72.   )
  73.       )
  74.       (setq i (1+ i))
  75.       (xdge::entity:make ge1)
  76.       (xdrx_entity_matchprop e (entlast))
  77.     )
  78.     (xdrx_entity_delete e)
  79.   )
  80.   (xdrx_begin)
  81.   (if (not #dis)
  82.     (setq #dis 10.0)
  83.   )
  84.   (if (not #div)
  85.     (setq #div 5)
  86.   )
  87.   (xdrx_prompt
  88.     "\n当前设置:等分数(" #div ")/断口距离(" #dis ")")
  89.   (xdrx_initssget
  90.     "\n选取要等分断口的曲线[等分设置(BE)/断口距离(SE)]<退出>:"
  91.     "BE SE"
  92.     "移除不断口的曲线<退出>:"
  93.     "_setdis"
  94.     ""
  95.    )
  96.   (if (setq ss (xdrx_ssget '((0 . "*line,arc,ellipse,circle"))))
  97.     (progn
  98.       (mapcar
  99.   '(lambda (x)
  100.      (_break x #div #dis)
  101.    )
  102.   (xdrx_pickset->ents ss)
  103.       )
  104.     )
  105.   )
  106.   (xdrx_end)
  107.   (princ)
  108. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

点击这里给我发消息

已领礼包: 1757个

财富等级: 堆金积玉

发表于 2016-10-8 08:28:42 | 显示全部楼层
回的人少,我来小顶一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 65个

财富等级: 招财进宝

发表于 2017-5-12 12:37:35 | 显示全部楼层
不错,顶一下!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2018-7-30 20:58:35 | 显示全部楼层
不错,顶一下!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2020-8-28 18:32:49 | 显示全部楼层
这个不是很完善中间往往比两边短,能不能改这样,给命令TT,下面提示  把等分段改成 "\n缺口数量<2>:"   "\n缺口大小<4>:"   \n选取线和圆和弧:        省了输入BE和SE那个步骤了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 37个

财富等级: 招财进宝

发表于 6 天前 | 显示全部楼层
正需要,学习了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-11-26 09:46 , Processed in 0.161963 second(s), 47 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表