设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

12下一页
返回列表
查看: 141|回复: 16

[每日一码] 用点表模拟多段线

[复制链接]

签到天数: 977 天

连续签到: 41 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-7-14 17:44:50 | 显示全部楼层 |阅读模式

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

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

x
下面代码,返回点表模拟的多段线,弧线段用凸度精度参数控制,直线段返回两点

QQ截图20170714174342.png

  1. ;;                                                                            ;
  2. ;; tracepline2     by ymg                                                     ;
  3. ;;                                                                            ;
  4. ;; Argument:  en,   Ename of a Polyline                                       ;
  5. ;;           tol,  Tolerance (Maximum Sagitta Allowed on Bulges)              ;
  6. ;;                                                                            ;
  7. ;; Return:  An Ordered Points List Approximating the Polyline                 ;
  8. ;;       (Requires ceil function)                                             ;

  9. (defun tracepline2 (en tol / b d i j obj pl)
  10.    (setq obj (vlax-ename->vla-object en))
  11.    (setq pl (cons (vlax-curve-getpointatparam en (setq i (vlax-curve-getEndParam en))) pl))

  12.    (repeat (fix i)
  13.       (if (not (zerop (setq b (abs (vlax-invoke obj 'getbulge (setq i (1- i)))))))
  14.          (progn
  15.             (setq j (ceil (sqrt (/ (* 0.5 (distance (car pl) (vlax-curve-getpointatparam en i)) b) tol)))
  16.                   d (/ 1.0 j)
  17.                   i (1+ i)
  18.             )
  19.             (repeat j
  20.                 (setq pl (cons (vlax-curve-getpointatparam en (setq i (- i d))) pl))
  21.             )
  22.          )
  23.          (setq pl (cons (vlax-curve-getPointAtParam en i) pl))
  24.       )
  25.    )
  26.    pl
  27. )


CEIL函数:

游客,如果您要查看本帖隐藏内容请回复







上一篇:vlax-curve-getparamatpoint
下一篇:绘制块实体属性文字的文字框
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 1378 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 2476个

财富等级: 金玉满堂

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

使用道具 举报

签到天数: 1787 天

连续签到: 326 天

[LV.Master]伴坛终老I

已领礼包: 4945个

财富等级: 富可敌国

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

使用道具 举报

签到天数: 1167 天

连续签到: 51 天

[LV.10]以坛为家III

已领礼包: 1323个

财富等级: 财源广进

发表于 2017-7-14 22:22:27 | 显示全部楼层
这个好。想要一个这样的程序。


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

使用道具 举报

签到天数: 914 天

连续签到: 354 天

[LV.10]以坛为家III

已领礼包: 1847个

财富等级: 堆金积玉

发表于 2017-7-14 22:59:43 来自手机 | 显示全部楼层
楼梯上班呢吗呀你们不要脸色彩缤纷五洲大酒店
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 341 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 417个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 1796 天

连续签到: 3 天

[LV.Master]伴坛终老I

已领礼包: 5302个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 1756 天

连续签到: 18 天

[LV.Master]伴坛终老I

已领礼包: 4951个

财富等级: 富可敌国

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

使用道具 举报

签到天数: 1167 天

连续签到: 51 天

[LV.10]以坛为家III

已领礼包: 1323个

财富等级: 财源广进

发表于 2017-7-15 09:17:22 | 显示全部楼层
请教老大这里 函数:(vla-getbulge plObj index),这个'getbulge怎么写啊!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 148 天

连续签到: 2 天

[LV.7]常住居民III

已领礼包: 30个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 977 天

连续签到: 41 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

 楼主| 发表于 2017-7-16 14:05:01 | 显示全部楼层

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

使用道具 举报

签到天数: 1167 天

连续签到: 51 天

[LV.10]以坛为家III

已领礼包: 1323个

财富等级: 财源广进

发表于 2017-7-17 10:53:35 | 显示全部楼层

谢谢老大回复。我原来以为 'getbulge 是个子函数,结果不是的,谢谢!

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

使用道具 举报

签到天数: 1480 天

连续签到: 4 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 2919个

财富等级: 家财万贯

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

使用道具 举报

签到天数: 270 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 106个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 176 天

连续签到: 1 天

[LV.7]常住居民III

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-4-27 06:39 , Processed in 0.481742 second(s), 133 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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