社区 › AutoLISP/Visual LISP 编程技术 › meflying程序，测试提示参数类型错误: 二维/三维点:

mycad 发表于 2013-4-22 09:26:13

meflying程序，测试提示参数类型错误: 二维/三维点:

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif;函数:GetInterPOint

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif;功能:返回两个对象的所有交点

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif;参数:ent1、ent2均为ename对象


;原帖：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=15804&page=1#pid49582
;请高手帮忙看看是怎么回事，谢谢！！



[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(vl-load-com)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif(defun GetInterPoint (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq ax_ent_1 (vlax-ename->vla-object ent1)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               ax_ent_2 (vlax-ename->vla-object ent2)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq intpoints (vlax-variant-value intpoints))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq i 0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (if (> (vlax-safearray-get-u-bound intpoints 1) 0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       (repeat (/ (+ 1

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif                           (- (vlax-safearray-get-u-bound intpoints 1)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif                                 (vlax-safearray-get-l-bound intpoints 1)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif                           )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif                     )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif                     3

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif         (setq points (append points (list (list

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               (vlax-safearray-get-element intpoints i)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               (vlax-safearray-get-element intpoints (+ i 1))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               (vlax-safearray-get-element intpoints (+ i 2))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif         )))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif         )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif         (setq i (+ 3 i))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   points

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)(defun err(msg)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (princ msg)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setvar "osmode" os)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setvar "cmdecho" cmd)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq *error* errtmp)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (command "_.undo" "e")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (princ)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)(defun c:test( / ent1 ent2 pts param11 param12 param1 i pt1 pt2)   

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq os (getvar "osmode"))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq cmd (getvar "cmdecho"))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (command "_.undo" "be")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setvar "osmode" 0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setvar "cmdecho" 0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq errtmp *error*)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq *error* err)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq ent1 (car (entsel "\nSelect the first line...")))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq ent2 (car (entsel "\nSelect the second line...")))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq n 10)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq pts (GetInterpoint ent1 ent2))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq param11 (vlax-curve-getParamAtPoint ent2 (car pts)))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq param12 (vlax-curve-getParamAtPoint ent2 (cadr pts)))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq i 1)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq param1 (/ (- param12 param11) n))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (repeat (1- n)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       (setq pt2 (vlax-curve-getPointAtParam ent2 (+ param11 (* param1 i))))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       (setq pt1 (vlax-curve-getClosestPointTo ent1 pt2))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       (if (= (* (/ i 2) 2) i)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif         (setq pt2 (list (/ (+ (car pt1) (car pt2)) 2.0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               (/ (+ (cadr pt1) (cadr pt2)) 2.0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               (/ (+ (last pt1) (last pt2)) 2.0)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif               ))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       (command "_.line" pt1 pt2 "")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif       (setq i (1+ i))

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   )

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setvar "osmode" os)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setvar "cmdecho" cmd)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (setq *error* errtmp)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (command "_.undo" "e")

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif   (princ)

[*]http://bbs.mjtd.com/source/plugin/mc_colorcode/images/jssc_none.gif)

004 发表于 2013-4-22 11:43:53

通用函数 获取两个线条对象交点.lsp
http://zml84.blog.sohu.com/102716208.html

newbuser 发表于 2013-12-22 09:32:04

等待作者meflying给出详尽解释。。。

查看完整版本: meflying程序，测试提示参数类型错误: 二维/三维点: