函数套函数中的选择问题

caoyongjun

(DEFUN  c:A1 (  / ss )
  (SETQ SS (SSGET));用这个选择集
  (setq err (vl-catch-all-apply 'hs-autoDim (list nil)))

  (C:Y)
  )
怎么将A1中的 定义的sst选择集，应用到以下的所有的子函数中去，不用重复选择


---------------------------------------------------
(DEFUN C:Y()
(setq err (vl-catch-all-apply 'hs-autoDim (list nil)))
)
此处引用hs-autoDim函数
---------------------------------------------------


---------------------------------------------------
(defun hs-autoDim (jianxiang  / ss)
(setq maxbox (hs-maxbox ss)))
此处引用hs-maxbox函数 选择集用 A1中的ss
---------------------------------------------------


---------------------------------------------------
(defun hs-maxbox (ss /  lst ll ur s1  p minx miny maxx maxy x)
(setq lst (HS-SS->LIST ss))
此处引用HS-SS->LIST函数 选择集用 A1中的ss
---------------------------------------------------


---------------------------------------------------
(defun hs-ss->list (ss / n i lst s1)
(setq n (sslength ss))
此处sslength  选择集用 A1中的ss
)
---------------------------------------------------

kozmosovia

先按照逻辑全部写成一个函数，这lisp基础就用子函数，子函数还就一句话，意义何在？

飞雪神光

这是引用自定义函数的问题吧

1. (defun c:a1 (  / ss )
   
2.   (setq ss (ssget));用这个选择集
   
3.   (setq err (vl-catch-all-apply 'hs-autoDim (list SS)))
   
4. )
   
5. (defun hs-autoDim (ss  / maxbox)
   
6.         (setq maxbox (hs-maxbox ss))
   
7. )
   
8. (defun hs-maxbox (ss /  lst ll ur s1  p minx miny maxx maxy x)
   
9.         (setq lst (HS-SS->LIST ss))
   
10. )
    
11. (defun hs-ss->list (ss / n i lst s1)
    
12.         (setq n (sslength ss))
    
13.         (print n)
    
14.         (princ)
    
15. )

(defun c:a1 (  / ss )<br />   (setq ss (ssget));用这个选择集<br />   (setq err (vl-catch-all-apply 'hs-autoDim (list SS)))<br /> )<br /> (defun hs-autoDim (ss  / maxbox)<br />         (setq maxbox (hs-maxbox ss))<br /> )<br /> (defun hs-maxbox (ss /  lst ll ur s1  p minx miny maxx maxy x)<br />         (setq lst (HS-SS->LIST ss))<br /> )<br /> (defun hs-ss->list (ss / n i lst s1)<br />         (setq n (sslength ss))<br />         (print n)<br />         (princ)<br /> )

caoyongjun

kozmosovia 发表于 2024-10-28 20:19
先按照逻辑全部写成一个函数，这lisp基础就用子函数，子函数还就一句话，意义何在？

我省略了很多没复制

caoyongjun

我需要的是怎么把我在主程序中的选择集ss应用到，其他的子函数中去

caoyongjun

其他的自定义函数都在y这个命令中。

自贡黄明儒

caoyongjun 发表于 2024-10-29 07:28
我需要的是怎么把我在主程序中的选择集ss应用到，其他的子函数中去

主程序返回ss,那么你就可以应用到其它函数了。

maghreb

(defun hs-autoDim (jianxiang  / ss) 此处不写ss呢？

tryhi

除了(defun hs-autoDim (jianxiang  / ss)去掉ss，其他照参数传

llsheng_73

如果后边这些函数都只是为前边的服务，别的地方不会调用它们，可以去掉它们的参数，直接引用调用它们的地方定义的变量，让局部变量成为范围内全局变量使用，不会成为真正的全局变量

1. (defun c:tt(/ a b c)
   
2.   (and(setq a(getreal))
   
3.       (setq b(getreal))
   
4.       (setq c(getreal))
   
5.       (t1)
   
6.       (t2)
   
7.       (t3)))
   
8. 
   
9. (defun t1()
   
10.   (>(+ a b)c))
    
11. (defun t2()
    
12.   (>(+ a c)b))
    
13. (defun t3()
    
14.   (>(+ b c)a))

(defun c:tt(/ a b c)<br />   (and(setq a(getreal))<br />       (setq b(getreal))<br />       (setq c(getreal))<br />       (t1)<br />       (t2)<br />       (t3)))<br /> <br /> (defun t1()<br />   (>(+ a b)c))<br /> (defun t2()<br />   (>(+ a c)b))<br /> (defun t3()<br />   (>(+ b c)a))

这是比较偷懒的做法，如果后续那些函数过程中不会修改参数变量，这样做也没什么不可以，但容易形成不好的习惯，正确的做法是，把引用到的变量都设置成参数，

1. (defun c:tt(/ a b c)
   
2.   (and(setq a(getreal))
   
3.       (setq b(getreal))
   
4.       (setq c(getreal))
   
5.       (t1 a b c)
   
6.       (t2 a b c)
   
7.       (t3 a b c)))
   
8. 
   
9. (defun t1(i j k / a)
   
10.   (setq a(>(+ i j)k)))
    
11. (defun t2(l m n / b)
    
12.   (setq b(>(+ l n)m)))
    
13. (defun t3(d e f)
    
14.   (>(+ e f)d))

(defun c:tt(/ a b c)<br />   (and(setq a(getreal))<br />       (setq b(getreal))<br />       (setq c(getreal))<br />       (t1 a b c)<br />       (t2 a b c)<br />       (t3 a b c)))<br /> <br /> (defun t1(i j k / a)<br />   (setq a(>(+ i j)k)))<br /> (defun t2(l m n / b)<br />   (setq b(>(+ l n)m)))<br /> (defun t3(d e f)<br />   (>(+ e f)d))