找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: liuyj

[已解决] 【已解决】曲线粘连选择

[复制链接]

已领礼包: 593个

财富等级: 财运亨通

发表于 2013-7-23 22:58:03 | 显示全部楼层
liuyj 发表于 2013-7-23 22:23
eachy兄,checkopen的算法在哪里可供学习?有没有代码?

Checkopen 的算法就是仅用端点进行 vlax-curve-getclosestpointto 后和端点比较,相等的时候就可以判断粘连,在间隙内也是“粘连”
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

 楼主| 发表于 2013-7-23 23:44:40 | 显示全部楼层
我试了下chkopen.vlx,好像也是对曲线zoom了才能获得端点值。而且相切和相交的情况怎么考虑?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-7-24 00:27:08 来自手机 | 显示全部楼层
ssget x 后要zoom,否则纯算法去搞就忒累了来自: Android客户端
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

 楼主| 发表于 2013-7-25 17:36:10 | 显示全部楼层
大家看看这个图,如何做到粘连选择?用我的程序,总是有遗漏。

新块.rar

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

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

使用道具 举报

已领礼包: 1336个

财富等级: 财源广进

发表于 2017-8-23 15:15:02 | 显示全部楼层

大师这个好,缺了个:trp ,矩阵里面的搞不懂

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

使用道具 举报

已领礼包: 1487个

财富等级: 财源广进

发表于 2019-1-16 19:55:00 | 显示全部楼层
本帖最后由 flowerson 于 2019-1-16 19:58 编辑
liuyj 发表于 2013-7-23 22:14
本人水平有限,程序是在江南兄的代码上修改而来,借用了多位大师的代码,也记不住是谁了。弄得很啰嗦,现在 ...

缺少 mxm 这个函数的?

点评

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-1-16 20:53:59 | 显示全部楼层
flowerson 发表于 2019-1-16 19:55
缺少 mxm 这个函数的?

论坛有,搜索下

点评

谢谢 newer 。我找到了,顺便贴贴出来。 (defun mxm ( m q ) (mapcar (function (lambda ( r ) (mxv (trp q) r))) m) )  详情 回复 发表于 2019-1-16 23:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 1487个

财富等级: 财源广进

发表于 2019-1-16 23:07:54 | 显示全部楼层
newer 发表于 2019-1-16 20:53
论坛有,搜索下

谢谢 newer 。我找到了,顺便贴贴出来。
(defun mxm ( m q )
  (mapcar (function (lambda ( r ) (mxv (trp q) r))) m)
)

评分

参与人数 1D豆 +5 收起 理由
marting + 5 热心帮忙奖!

查看全部评分

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2019-1-17 15:23:18 | 显示全部楼层
试试,
  1. (defun c:tt ()  (defun _process (e / box ss1 pts1)
  2.     (setq pts  (xdrx_getsamplept e)
  3.           pts1 (xdrx_points_offset tol pts)
  4.           box  (xdrx_entity_box e)
  5.     )
  6.     (if (not (member e lst))
  7.       (setq lst (cons e lst))
  8.     )
  9.     (xdrx_document_zoomwindow (car box)(caddr box))
  10.     (if (and (setq ss1 (ssget "cp" pts1 '((0 . "*line,arc,ellipse,circle"))))
  11.              (ssdel e ss1)
  12.              (foreach n lst (ssdel n ss1) t)
  13.              (> (sslength ss1) 0)
  14.         )
  15.       (progn
  16.         (mapcar '(lambda (x) (_process x)) (xdrx_pickset->ents ss1))
  17.       )
  18.     )
  19.   )
  20.   (if (not (setq tol (getreal (xdrx_prompt
  21.                                 "\n输入容差<"
  22.                                 (xd::doc:getpickboxheight)
  23.                                 ">:"
  24.                                 t
  25.                               )
  26.                      )
  27.            )
  28.       )
  29.     (setq tol (xd::doc:getpickboxheight))
  30.   )
  31.   (if (setq e (car (xdrx_entsel
  32.                      "\n拾取曲线<退出>:"
  33.                      '((0 . "*line,arc,ellipse,circle"))
  34.                    )
  35.               )
  36.       )
  37.     (progn (setq lst nil)
  38.            (_process e)
  39.            (if lst
  40.              (progn (xd::doc:safezoom (xdrx_entity_box lst))
  41.                     (xdrx_entity_redraw lst 1)
  42.              )
  43.            )
  44.     )
  45.   )
  46.   (princ)
  47. )


搜狗截图20190117152257.png


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

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 8611个

财富等级: 富甲天下

 楼主| 发表于 2019-5-20 17:03:04 | 显示全部楼层
在0328的API下,N版写的程序不好用了,只能选中点击的曲线和与其首尾相接的曲线,其余的都选不上,请N版看看问题在哪。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 04:19 , Processed in 0.423870 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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