[求助]错误: 函数错误: 16153.7。老师指点一下。

xstlf

提示说:输入窗口的另一点：; 错误: 函数错误: 16153.7.这是什么错误呀？程序什么地方生癌症了呀？ 下面是相关的内容: (defun c:smc (/ pt1 pt2 ss1 n i ents j ent1 name1 ptstart1
ptend1 ang1 px11 py11 px12 py12 ent2 name2
ptstart2 ptend2 ang2 px21 py21 px22 py22
pxmin pymin pxmax pymax ptmin ptmax ent3)
(setq pt1 (getpoint "\n输入窗口的第一点：")
pt2 (getcorner pt1 "\n输入窗口的另一点：")
)
(setq ss1 (ssget "W" pt1 pt2))
(command "_.erase" ss1 "")
(setq ss1 (ssget "C" pt1 pt2 '((8 . "墙体"))))
(setq n (sslength ss1))
(setq i 0)
(while (< i n)
(setq ents (append ents (list (list (ssname ss1 i)))))
(setq i (+ i 1))
)
(setq i 0)
(while (< i n)
(setq j (+ i 1))
(setq ent1 (ssname ss1 i))
(setq name1 (entget ent1))
(setq ptstart1 (cdr (assoc 10 name1))
ptend1 (cdr (assoc 11 name1))
ang1 (angle ptstart1 ptend1)
px11 (car ptstart1)
py11 (cadr ptstart1)
px12 (car ptend1)
py12 (cadr ptend1)
)
(while (< j n)
(setq ent2 (ssname ss1 j))
(setq name2 (entget ent2))
(setq ptstart2 (cdr (assoc 10 name2))
ptend2 (cdr (assoc 11 name2))
ang2 (angle ptstart1 ptstart2)
px21 (car ptstart2)
py21 (cadr ptstart2)
px22 (car ptend2)
py22 (cadr ptend2)
)
(if (or (= ang1 ang2) (= ang1 (+ pi ang2)))
(progn
(setq pxmin (min px11 px12 px21 px22)
pymin (min py11 py12 py21 py22)
pxmax (max px11 px12 px21 px22)
pymax (max py11 py12 py21 py22)
)
(setq ptmin (list (pxmin pymin))
ptmax (list (pxmax pymax))
)
(command "_.line" ptmin ptmax "")
(setq ent3 ent2)
(entdel ent2)
)
)
(setq j (+ j 1))
)
(if (/= nil ent3)
(progn
(entdel ent3)
(entdel ent1)
)
)
(setq i (+ i 1))
)
(princ)
)

meflying

楼主好象只会写程序，不会调试程序，应该说调试比写程序跟烦琐。。。楼主不能把调试的工作都让别人给做了吧。。。 可以先看看帮助文件的VLISP编辑器的使用，这个编辑器不仅仅是用来写程序的， 还有很多功能。。。只要调试找到问题在哪儿，解决起来应该就很简单了。。。如你的程序问题在这里（别处有没有未细看，这里肯定是有问题）： (setq ptmin (list (pxmin pymin))
ptmax (list (pxmax pymax))
) 怎么改应该不用说了吧。。。 还有，程序中下面这部分代码好象没什么作用： (while (< i n)
(setq ents (append ents (list (list (ssname ss1 i)))))
(setq i (+ i 1))
)

xstlf

谢谢，呵呵，我再试试怎么用。编辑器来调试。