编程中遇到函数错误提示是怎么回事？

yuncai11 · 发表于 2004-6-1 12:03:00

我的程序在设计中单个的是没有什么问题的可是在放在一起在我调试的时候出现函数错误提示希望指教我作的是3D的螺栓设计。程序如下： ;检索数据库文件
   (defun jiansuo (/ f1 s h r d1)
   (setq f1 (open "c:\\data\\luos1.txt" "r"))
   (repeat    ct
   (setq p (read (read-line f1)))
   )
   (princ p);repeat
   (setq s (nth 0 p)
   h (nth 1 p)
   r (nth 2 p)
   d1 (nth 3 p))
   );
;六角头螺栓（粗制）（GB5-76）
(defun c:luos1 (/ l l0 d    ct p p1 f1 s h r d1)
   (setq d (getreal"\n请输入螺栓的直径:")
l (getreal"\n请输入螺栓的长度:"))
   (if (or (= d 10) (= d 12) (= d 14) (= d 16) (= d 18) (= d 20)
   (= d 22) (= d 24) (= d 27) (= d 30) (= d 36) (= d 42)
   (= d 48) (= d 56) (= d 64) (= d 72) (= d 80) (= d 90)
   (= d 100)
   )
   (cond ((= d 10) (setq ct 1) ((if (and (> l 19.99) ( l 24.99) ( l 24.99) ( l 29.99) ( l 34.99) ( l 34.99) ( l 49.99) ( l 54.99) ( l 59.99) ( l 59.99) ( l 79.99) ( l 79.99) ( l 109.99) ( l 159.99) ( l 179.99) ( l 179.99) ( l 199.99) ( l 219.99) ( l 300.01) ( l 125) ( l 200) (setq l0 (+ (* d 2) 25)))
)
   (setq p (getpoint"\n请输入图形的插入点:"))
   (command "polygon" 5 "" p "c" s)
   (setq ent_p (entlast))
   (command "extrude" ent_p "" h "")
   (setq p1 (list (car p) (cadr p) h))
   (command "ucs" "n" p1)
   (command "circle" p1 d)
   (setq ent_c (entlast))
   (command "subsrtact" ent_c "" l "")
   )

yuncai11 · 发表于 2004-6-1 12:09:00

希望大家多多指教

meflying · 发表于 2004-6-1 12:15:00

错误提示是什么？
TXT文件是什么？
这么多的(princ "\n请输入螺栓的长度..."))))做什么的？好象没有什么用，

yuncai11 · 发表于 2004-6-1 12:30:00

呵呵
我没看太清楚！匆忙了见效了，下面是.txt文件这么多的"princ"是因为螺栓的长度不一样，(17 7 0.5 19.6)
(19 8 0.8 21.9)
(22 9 0.8 25.4)
(24 10 1 27.7)
(27 12 1 31.2)
(30 13 1 34.6)
(32 14 1 36.9)
(36 15 1.5 41.6)
(41 17 1.5 47.3)
(46 19 1.5 53.1)
(55 23 2 63.5)
(65 26 2 75)
(75 30 2 86.5)
(85 35 2 98)
(95 40 3 109)
(105 45 3 120)
(115 50 3 132)
(130 57 3 150)
(145 63 3 167)