谁有点选直线，让该线在与其他任何线的交点处打断的程序

xingyun300 · 发表于 2011-11-20 17:59:49

点选直线后，

让该线在与其他线的交点处打断 ,其它线没有被打断，只有选择的直线被打断，直线与选择的直线相交，没有选择该直线，则交点不被打断！

xingyun300 · 发表于 2011-11-20 19:32:53

本帖最后由 xingyun300 于 2011-11-20 19:33 编辑

编程思路：
1、选择一条直线；
2、取得这条直线的两个端点；
3、用这两个端点取得与这条直线相交的直线；
(ssget "F" (list pt1 pt2) '((0 . "LINE")))
4、用第一条直线对取得的每条直线分别取交点；
5、对交点按距离第一条直线的一个端点距离排序；
6、按交点重画这条直线；
7、删除这条直线。

但我不会，请高手试试！

x_s_s_1 · 发表于 2011-11-20 20:55:54

本帖最后由 x_s_s_1 于 2011-11-20 20:56 编辑

;;;计算曲线交点
(defun Curveinters (en1 en2 / pl pts)
  (setq pl  (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))
  (while pl
(setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))
pl (cdr (cdr (cdr pl)))
)
)
pts
  )
得到交点然后(command "break")就行了

xingyun300 · 发表于 2011-11-20 21:05:49

好像不是太好用呀，也没有达到我要的那个效果呀！也许是我不会用吧！

x_s_s_1 · 发表于 2011-11-20 21:13:15

本帖最后由 x_s_s_1 于 2011-11-20 21:24 编辑

我只是将古版主的函数给您，剩下的就简单了，您自己再写点不就得了（您自己编程思路都有了，关键函数也给您了），实在不行看这个http://bbs.mjtd.com/thread-85947-1-1.html或到这里看有无您需要的http://search.mjtd.com/f/search?agId=0&charset=gbk&cuName=x_s_s_1&egIds=&fId=3&fmSign=5238&gId=13&module=forum&q=%E4%BA%A4%E7%82%B9%E6%89%93%E6%96%AD&sId=3237198&sSiteUid=171481&source=forum_thread&ugSign13=cb11&ts=1321795025&sig=020df19aa71963f695c8b6f1b1b6f465&mySign=54ad32ee&fmid=3&myfId=3&searchBoardId=3&searchLevel=3&qs=forum_thread&menu=1&updForum=0&page=2

xingyun300 · 发表于 2011-11-20 21:25:56

x_s_s_1 发表于 2011-11-20 21:13
我只是将古版主的函数给您，剩下的就简单了，您自己再写点不就得了（您自己编程思路都有了，关键函数也给您 ...

唉，关键是我不会呢！唉

x_s_s_1 · 发表于 2011-11-20 21:35:13

xingyun300 发表于 2011-11-20 21:25
唉，关键是我不会呢！唉

我现在也没有时间，要加通宵班，您这样的功能以我的水平需要1个小时以上才可写出，不好意思了，爱莫能助

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

谁有点选直线，让该线在与其他任何线的交点处打断的程序

点评