局部变量的设置

leeyuan

(defun jssj (t1 m v / pt1 pt2 L t2 t0)
(setq t1 (getreal "\n地面集水时间<t1>:"))
(setq m (getreal "\n折减系数<m>:"))
(setq pt1 (getpoint "\n选择该管段第一点:"))
(setq pt2 (getpoint pt2 "\n第二点:"))
(setq L (distance pt1 pt2)) ;L,管段长度
(setq v (getreal "\n管道内雨水流速:"))
(setq t2 (/ L (* 60 v)))
(setq t0 (+ t1 (* m t2)))
) 该段函数不能正常运行，但去掉局部变量以及行参后可正常运行，哪位详细讲讲如何设局部变量和行参吗？谢谢

yshf

不能正常的原因为“(setq pt2 (getpoint         pt2 "\n第二点:"))”应该为“(setq pt2 (getpoint pt1 "\n第二点:"))”，并非局部变量及行参的影响，去掉局部变量以及行参后仍然不能正常运行。

LONGXIN

这个函数好像定义得没有意义啊,应该如此: (defun c:jssj (/ t1 m v pt1 pt2 L t2 t0)
(setq t1 (getreal "\n地面集水时间<t1>:"))
(setq m (getreal "\n折减系数<m>:"))
(setq pt1 (getpoint "\n选择该管段第一点:"))
(setq pt2 (getpoint pt1 "\n第二点:"))
(setq L (distance pt1 pt2)) ;L,管段长度
(setq v (getreal "\n管道内雨水流速:"))
(setq t2 (/ L (* 60 v)))
(setq t0 (+ t1 (* m t2)))
)

leeyuan

二楼说的问题已经修改，这是上传是输入笔误，现主要是希望大家讨论一下局部变量的设置

LONGXIN

按楼主那样子的程序应该如此运行的：（jssj t1 m v）


但t1 m v这三个参数没有意义

xyp1964

这样可行？

2. (load "xyp_lib");加载通用函数
3. ;|
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
6. 1.在acad.lsp中增加(load"xyp_lib")
7. 2.在每个程序内增加(load"xyp_lib")
8. 3.在command下，输入(load"xyp_lib")
9. 4.在菜单.mnl中增加(load"xyp_lib")
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
11. 通用函数下载地址:
12. dispbbs.asp?boardID=3&ID=37554&page=1
13. |;(defun c:jssj (/ pt1 pt2 L t2 t0)
14.    (CMDLA0)
15.    (setq  t1 (UREAL 7 "" "\n地面集水时间" t1)
16.   m   (UREAL 7 "" "\n折减系数" m)
17.   v   (UREAL 7 "" "\n管道内雨水流速" v)
18.    )
19.    (while (setq pt1 (getpoint "\n选择该管段第一点<退出> : "))
20.        (if  (setq pt2 (getpoint pt1 "\n第二点<退出> : "))
21.            (progn (setq L   (distance pt1 pt2)
22.          t2 (/ L (* 60 v))
23.          t0 (+ t1 (* m t2))
24.            )
25.   (princ"\nt0 = ")
26.   (princ t0)
27.            )
28.        )      
29.    )
30.    (CMDLA1)
31. )

(load "xyp_lib");加载通用函数 ;| 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 5.将xyp_lib.vlx文件直接拽到cad屏幕 通用函数下载地址: dispbbs.asp?boardID=3&ID=37554&page=1 |;(defun c:jssj (/ pt1 pt2 L t2 t0)    (CMDLA0)    (setq  t1 (UREAL 7 "" "\n地面集水时间" t1)   m   (UREAL 7 "" "\n折减系数" m)   v   (UREAL 7 "" "\n管道内雨水流速" v)    )    (while (setq pt1 (getpoint "\n选择该管段第一点<退出> : "))        (if  (setq pt2 (getpoint pt1 "\n第二点<退出> : "))            (progn (setq L   (distance pt1 pt2)          t2 (/ L (* 60 v))          t0 (+ t1 (* m t2))            )   (princ"\nt0 = ")   (princ t0)            )        )          )    (CMDLA1) )

leeyuan

to5楼，这段程序本来就是想作为子程序来用的，分离开来看，意义不大，但不影响这个话题的讨论，因而未将整个程序全贴过来，


to6楼，程序是可行的，但能否提供原代码呢，


by，斑竹好像在很多地方都套用你的通用函数哦

LONGXIN

没有理解楼主要讨论局部变量那方面的问题

leeyuan

现在知道了那就说两句吧，我洗耳恭听！