新手菜鸟求助vla-intersectwith命令的问题

dcg553496180

编了如下一个测试vla-intersectwith的程序：
(defun c:qdz ()
    (setq se_1 (entsel "\n 选择第一条曲线:"))
    (setq se_2 (entsel "\n 选择第二条曲线:"))
    (vl-load-com)
    (setq pt (vla-intersectwith se_1 se_2 3))
)
但是CAD加载显示： 错误: 参数类型错误: VLA-OBJECT (<图元名: 7ef76820> (112526.0 43280.1 0.0))
这是什么问题导致的呢，请各位大神解答

fangmin723

自贡黄明儒 发表于 2013-10-11 16:02
(defun c:cs (/ OBJ1 OBJ2 PT1 PT6)
  (setq obj1 (vlax-ename->vla-object (car (entsel "\n 选择对象: ...

这个确实不错，但是如果有两个交点的话他返回的是一个表，不知道能不能让他返回成一个点表

dcg553496180

自己顶一个

Andyhon

http://bbs.mjtd.com/thread-57227-1-1.html

dcg553496180

Andyhon 发表于 2013-10-11 11:16
http://bbs.mjtd.com/thread-57227-1-1.html

(setq sel_line (command "line" pt6 pt1 ""))
我这样能表示一个对象吗？

Andyhon

(command "line" pt6 pt1 "")
(setq sel_line (entlast))

dcg553496180

Andyhon 发表于 2013-10-11 11:25
(command "line" pt6 pt1 "")
(setq sel_line (entlast))

非常感谢。。

dcg553496180

Andyhon 发表于 2013-10-11 11:25
(command "line" pt6 pt1 "")
(setq sel_line (entlast))

(defun c:cs ()
    (setq sel_dd (entsel "\n 选择对象:"))
    (setq pt1 (getpoint "\n 请选择一个点:"))
    (setq pt6 (getpoint "\n 请选择一个点:"))
    (command "line" pt6 pt1 "")
    (setq sel_l (entlast))
    (setq pt_int (jd sel_dd sel_l))
    ! pt_int
)

(defun jd (se_1 se_2)
  (vl-load-com)
  (setq a (car se_1))
  (setq b (car se_2))
  (setq pts (vla-IntersectWith (vlax-ename->vla-object a) (vlax-ename->vla-object b) 3))
)
这是我编的求交点的测试程序，但是运行结果是： 错误: 参数类型错误: consp <图元名: 7ef63188>
请您指点

自贡黄明儒

(setq b (car se_2))
应为(setq b  se_2)

还有，不要! pt_int

dcg553496180

自贡黄明儒 发表于 2013-10-11 15:28
(setq b (car se_2))
应为(setq b  se_2)

但是这样运行的结果是：错误: 参数类型错误: lentityp (<图元名: 7ef63160> (13922.1 36947.3 0.0))
其实我主要的困惑在于vla-intersectwith的用法不是很清楚

dcg553496180

dcg553496180 发表于 2013-10-11 15:32
但是这样运行的结果是：错误: 参数类型错误: lentityp ( (13922.1 36947.3 0.0))
其实我主要的困惑在于v ...

我是一只一条曲线，然后自己做一条直线求交点，在程序中 (setq sel_dd (entsel "\n 选择对象:")) 就是选择已知的曲线，
   (setq pt1 (getpoint "\n 请选择一个点:"))
     (setq pt6 (getpoint "\n 请选择一个点:"))
     (command "line" pt6 pt1 "")
     (setq sel_1(entlast))
就是我自己做的这条直线