函数套函数中的选择问题

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，其他照参数传