[求助]：如何求得圆弧与圆弧（直线）延长段交点

hsslyl · 发表于 2005-9-27 00:51:25

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

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

×

应用以下程序可以求得圆弧与圆弧、圆弧与直线的交点，但是，当不相交时，会导致程序出错，提示：“ActiveX 服务器返回错误: 无效索引。”
(defun c:ss ()
(vl-load-com)
(if (and (setq obj1 (car (entsel "\n选择直线或圆弧 : ")))
   (setq obj2 (car (entsel "\n选择直线或圆弧 : ")))
   )
  (setq jd (vlax-safearray->list
      (vlax-variant-value
      (vla-intersectwith
      (vlax-ename->vla-object obj1)
      (vlax-ename->vla-object obj2)
      acextendnone
      )
      )
   )
  )
)
)
请问各位高手：
1、如何使得以上程序，当物体不相交时，返回nil，而不是出错。
2、如何求得圆弧与圆弧延长段交点、圆弧与直线延长段交点。

eachy · 发表于 2005-9-27 05:00:45

先判断是否有交点，然后在求值，不要连在一起写。

xyp1964 · 发表于 2005-9-27 08:08:49

修改：

[FONT=courier new](defun c:ss (/ jd jd1)
(if (and (setq obj1 (car (entsel "\n选择曲线1 : ")))
(setq obj2 (car (entsel "\n选择曲线2 : ")))
)
(progn
(setq jd (vlax-variant-value
(vla-intersectwith
(vlax-ename->vla-object obj1)
(vlax-ename->vla-object obj2)
acextendnone
)
)
)
(if (/= (vlax-safearray-get-u-bound jd 1) -1)
(setq jd1 (vlax-safearray->list
jd
)
)
)
)
)
jd1
)[/FONT]

交点列表：

[FONT=courier new](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
[url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
;;;交点列表
(defun c:ss ()
(if (and (setq obj1 (car (entsel "\n曲线1 : ")))
(setq obj2 (car (entsel "\n曲线2 : ")))
)
(setq jd (x_inters obj1 obj2))
)
jd
)[/FONT]

狂刀 · 发表于 2005-9-27 14:31:55

那么简单，就不必用通用函数了

;;　求实交，成功返回点表（散的），不相交返回ｎｉｌ。
(defun c:its (/)
(if (and (setq e1 (car(entsel)))
(setq e2 (car(entsel))))
(vlax-invoke (vlax-ename->vla-object e1) 'intersectwith (vlax-ename->vla-object e2) 0)
)
)

hsslyl · 发表于 2005-9-27 22:42:24

谢谢大家！还想请教一下，能求延长段的交点吗？

狂刀 · 发表于 2005-9-28 12:48:30

(vlax-invoke (vlax-ename->vla-object e1) 'intersectwith (vlax-ename->vla-object e2) 0)
末尾
0 不延伸求交
1延伸第一个实体求交
2 延伸第二个实体求交
3 延伸两个实体求交

lihb · 发表于 2005-9-28 14:47:17

请问线与线延伸求交,应该怎么写程序,6楼的只能求圆与线延伸求交,

狂刀 · 发表于 2005-9-28 18:00:57

再试试
参数0 改为3

hsslyl · 发表于 2005-9-28 20:25:14

非常感谢狂刀老兄！帮我解决了困扰已久的问题。

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

[求助] [求助]：如何求得圆弧与圆弧（直线）延长段交点

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

相关帖子

浏览过的版块