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

matichen 发表于 2002-12-11 14:37:00

matichen 发表于 2002-12-12 08:26:00

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

龙龙仔 发表于 2002-12-12 08:44:00

AUTOLISP無法解决这个问题

龙龙仔 发表于 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

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

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

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

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

本帖最后由作者于 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

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

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

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

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

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

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

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

我试都没有错误!!!

页: [1] 2

明经CAD社区's Archiver