设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 来点实用的,求spline线的最小包容盒子
返回列表 发新帖
查看: 1766|回复: 5

[每日一码] 来点实用的,求spline线的最小包容盒子

[复制链接]
lgx9612

已领礼包: 146个

财富等级: 日进斗金
发表于 2014-8-12 19:11:36 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 lgx9612 于 2014-8-12 19:14 编辑

           来点实用的,求spline线的最小包容盒子,通常vla-getboundingbox来做spline线的最小包容盒子是会出错的,就如附图的cad曲线用vla-getboundingbox就错了.
  2. (defun c:test(/ cm_lgx ucs_lgx os_lgx ss_lgx llpoint)
  3. ;;;by:  刘国新
  4. (setq cm_lgx (getvar "cmdecho"))
  5. (setvar "cmdecho" 0)
  6. (setq ucs_lgx (getvar "ucsorg"))
  7. (command "ucs" "w")
  8. (setq os_lgx (getvar "osmode"))
  9. (setvar "osmode" 0)  
  10. (setq ss_lgx (car (entsel "请选择spline曲线")))
  11. (setq llpoint (calspline_lgx ss_lgx))
  12. (command "rectang" (car llpoint) (cadr llpoint))
  13. (setvar "osmode" os_lgx)
  14. (command "ucs" "n" ucs_lgx)
  15. (setvar "cmdecho" cm_lgx)
  16. )

  18. (defun calspline_lgx (partname_lgx / pl-temp_min_point pl-temp_max_point p_lgx
  19.          lowest bbb p1_lgx p_lgx vla-object zzl givenPnt type_lgx
  20.          y2 y1 x1 x2 llpoint urpoint pl_min_point pl_max_point)
  21. ;;;原创,编写:  刘国新
  22. ;;;精密计算spline线的最小包容盒子
  23. (setq bbb (entget partname_lgx))
  24. (while (/= (assoc 10  bbb) nil)
  25. (setq p1_lgx (assoc 10  bbb))
  26. (setq p_lgx (cons (cdr p1_lgx) p_lgx))
  27. (setq bbb (vl-remove p1_lgx bbb))
  28. )
  29. (setq pl-temp_min_point (apply 'mapcar (cons 'min p_lgx)))
  30. (setq pl-temp_max_point (apply 'mapcar (cons 'max p_lgx)))
  31. (setq pl-temp_min_point (list (- (car pl-temp_min_point) 3)(- (cadr pl-temp_min_point) 3)))
  32. (setq pl-temp_max_point (list (+ (car pl-temp_max_point) 3)(+ (cadr pl-temp_max_point) 3)))
  33. (setq vla-object(vlax-ename->vla-object partname_lgx))
  34. (progn
  35. (setq pl_min_point pl-temp_min_point)
  36. (setq pl_max_point pl-temp_max_point)
  37. (setq zzl (/ (- (car pl_max_point)(car pl_min_point)) 10))
  38. (setq  givenPnt (list (car pl_min_point)(cadr pl_max_point)))
  39. (setq y2 (calculate_lgx vla-object givenPnt "y" zzl pl_min_point pl_max_point))
  40. )
  41. (progn
  42. (setq pl_min_point pl-temp_min_point)
  43. (setq pl_max_point (list (car pl-temp_max_point)(cadr pl-temp_min_point)))
  44. (setq zzl (/ (- (car pl_max_point)(car pl_min_point)) 10))
  45. (setq  givenPnt (list (car pl_min_point)(cadr pl_max_point)))
  46. (setq y1 (calculate_lgx vla-object givenPnt "y" zzl pl_min_point pl_max_point))
  47. )
  48. (progn
  49. (setq pl_min_point pl-temp_min_point)
  50. (setq pl_max_point (list (car pl-temp_min_point)(cadr pl-temp_max_point)))
  51. (setq zzl (/ (- (cadr pl_max_point)(cadr pl_min_point)) 10))
  52. (setq  givenPnt pl_min_point)
  53. (setq x1 (calculate_lgx vla-object givenPnt "x" zzl pl_min_point pl_max_point))
  54. )
  55. (progn
  56. (setq pl_min_point (list (car pl-temp_max_point)(cadr pl-temp_min_point)))
  57. (setq pl_max_point pl-temp_max_point)
  58. (setq zzl (/ (- (cadr pl_max_point)(cadr pl_min_point)) 10))
  59. (setq  givenPnt pl_min_point)
  60. (setq x2 (calculate_lgx vla-object givenPnt "x" zzl pl_min_point pl_max_point))
  61. )
  62. (setq llpoint (list (car x1) (cadr y1)))
  63. (setq urpoint (list (car x2) (cadr y2)))
  64. (setq llpoint (list llpoint urpoint))
  65. llpoint
  66. )
  67. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  68. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  69. (defun calculate_lgx(vla-object givenPnt type_lgx zzl pl_min_point pl_max_point /  topnt lowest lowestpoint )
  70. ;;;原创,编写:  刘国新
  71. ;;;分四边精密求出最小包容盒子
  72. (while (>= zzl 0.02)
  73. (repeat 11
  74. (setq topnt (vlax-curve-getClosestPointTo vla-object givenPnt))
  75. ;;;(command "line" givenPnt topnt "")
  76. (if (or (>= lowest (distance  givenPnt topnt)) (= lowest nil))
  77. (progn
  78. (setq lowest (distance  givenPnt topnt))
  79. (setq lowestpoint givenPnt)
  80. )
  81. )
  82. (if (= type_lgx "y")
  83. (setq  givenPnt (list (+ (car givenPnt) zzl)(cadr pl_max_point)))
  84. (setq  givenPnt (list (car pl_min_point)(+ (cadr givenPnt) zzl)))
  85. )
  86. )
  87. (if (= type_lgx "y")  
  88. (setq  givenPnt (list (- (car lowestpoint) zzl) (cadr pl_max_point)))
  89. (setq  givenPnt (list (car pl_min_point)  (- (cadr lowestpoint) zzl)))
  90. )
  91. (setq zzl (/ zzl 5))
  92. )
  93. (setq topnt (vlax-curve-getClosestPointTo vla-object lowestpoint ))
  94. topnt
  95. )


lgx.gif

dwg.rar

6.02 KB, 下载次数: 21, 下载积分: D豆 -1 , 活跃度 1

演示用的cad图档

评分

参与人数 3D豆 +16 收起 理由
炫翔 + 5 很给力!经验；技术要点；资料分享奖！
XDSoft + 6 很给力!经验；技术要点；资料分享奖！
lucas3 + 5 刘工不是在明经发过吗？还没有解决？

查看全部评分

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

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-12 20:12:28 | 显示全部楼层
呵呵，是的，现在明经我发不了贴，老提示错误。
我觉的这个蛮好的，所以在这里跟大家分享一下。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yjy4519
发表于 2014-8-13 09:00:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
:lol顶楼主，赞一个
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

yxianfo

已领礼包: 2026个

财富等级: 金玉满堂
发表于 2014-8-13 16:20:52 | 显示全部楼层
谢楼主，支持源码，下载学习！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xvjiex

已领礼包: 1094个

财富等级: 财源广进
发表于 2021-6-28 00:02:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
感谢分享求spline线的最小包容盒子
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hh_lj007

已领礼包: 756个

财富等级: 财运亨通
发表于 2021-6-28 10:46:13 | 显示全部楼层
感谢分享源码！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-6-25 13:39 , Processed in 0.184349 second(s), 46 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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