众多PL与指定PL相交的交点坐标如何求[求助]

龙龙仔 · 发表于 2002-12-11 16:07:00

http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&RootID=9982&ID=9993

http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&RootID=6568&ID=6595

matichen · 发表于 2002-12-13 08:24:00

这样才好多次使用啊。有劳。

龙龙仔 · 发表于 2002-12-13 16:30:00

本帖最后由作者于 2002-12-13 16:30:32 编辑

http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&RootID=12521&ID=12521

(VL-LOAD-COM)
(defun TEST (PL1 PL2 / IPTS PTS)
(setq IPTS (vla-intersectwith
         (vlax-ename->vla-object PL1)
         (vlax-ename->vla-object PL2)
         acExtendNone ;Does not extend either object
      )
IPTS (vlax-variant-value IPTS)
  )
  (if (> (vlax-safearray-get-u-bound IPTS 1) 0)
(progn (setq IPTS
   (vlax-safearray->list IPTS)
   )
   (while (> (length IPTS) 0)
      (setq PTS (cons (list (car IPTS)
      (cadr IPTS)
      (caddr IPTS)
      )
      PTS
)
   IPTS (cdddr IPTS)
      )
   )
)
  )
  PTS
)

;;USAGE: (TEST (car (entsel)) (car (entsel)))

[此贴子已经被作者于2002-12-13 13:00:31编辑过]

[此贴子已经被作者于2002-12-13 13:10:25编辑过]

matichen · 发表于 2002-12-13 13:00:00

龙龙仔 · 发表于 2002-12-13 13:13:00

[此贴子已经被作者于2002-12-13 13:13:13编辑过]

matichen · 发表于 2002-12-13 13:28:00

本帖最后由作者于 2002-12-13 13:28:53 编辑

说实话，没看懂这个程序，VL真是气我，就是直接加了个出C:就用的。是不是用错了。看上去是个无参函数啊。

龙龙仔 · 发表于 2002-12-13 16:31:00

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

众多PL与指定PL相交的交点坐标如何求[求助]

好像不大一样，能不能用AUTOLISP 解决这个问题，VLISP还没时间学，几个地方看不懂。

AUTOLISP無法解决这个问题

这个问题以前就回答过你?????

那能不能帮忙写个函数，参数两条PL线，返回这两条PL的所有交点的点表？

http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&RootID=12521&ID=12521

就是最后那贴写的那个吗？试了一下，不行啊。

錯誤信息是甚麼??ACAD2000以上,自身交點無效.

错误: 参数类型错误: safearrayp # 2002英文版

我试都没有错误!!!