请教一个函数的可选项参数的问题

bonny123

• ;;<code>=组码(可选项)   <ent/obj>=图元对象
• (defun GetDXF (ent/obj code / sel)
•   (if (not code)
•     (setq ent/obj (entget (car ent/obj)))
•     (progn
•       (setq ent/obj (entget (car ent/obj)))
•       (cdr (assoc code ent/obj))
•     )
•   )
• )
• (defun c:tt (/ ab)
•   (setq ab (entsel))
•   (GetDXF ab nil)
• )
• ;;[请教一个关于程序参数可选项的问题]
• ;;条件：<code>=组码(是可选项)
• ;;问题1：当code参数不提供,获取属性值语法为(GetDXF ab)-->返回对象ab的组码列表
• ;;问题2：当code参数提供,获取属性值语法为(GetDXF ab "8")-->返回对象ab的图层名
• ;;请各位版主不吝赐教。
  

ayl1004

bonny123 发表于 2017-4-30 20:38

LISP不支持，但fas支持。

bonny123

2. ;;<code>=组码(可选项)   <ent/obj>=图元对象
   
3. (defun GetDXF (ent/obj code / sel)
   
4.         (if (not code)
   
5.                 (setq ent/obj (entget (car ent/obj)))
   
6.                 (progn
   
7.                         (setq ent/obj (entget (car ent/obj)))
   
8.                         (cdr (assoc code ent/obj))
   
9.                 )
   
10.         )
    
11. )
    
12. 
    
13. (defun c:tt (/ ab)
    
14.         (setq ab (entsel))
    
15.         (GetDXF ab nil)
    
16. )
    
17. 
    
18. ;;[请教一个关于程序参数可选项的问题]
    
19. ;;条件：<code>=组码(是可选项)
    
20. ;;问题1：当code参数不提供,获取属性值语法为(GetDXF ab)-->返回对象ab的组码列表
    
21. ;;问题2：当code参数提供,获取属性值语法为(GetDXF ab "8")-->返回对象ab的图层名
    
22. ;;请各位版主不吝赐教。

;;<code>=组码(可选项)   <ent/obj>=图元对象<br /> (defun GetDXF (ent/obj code / sel)<br />         (if (not code) <br />                 (setq ent/obj (entget (car ent/obj)))<br />                 (progn<br />                         (setq ent/obj (entget (car ent/obj)))<br />                         (cdr (assoc code ent/obj))<br />                 )<br />         )<br /> )<br /> <br /> (defun c:tt (/ ab)<br />         (setq ab (entsel))<br />         (GetDXF ab nil)<br /> )<br /> <br /> ;;[请教一个关于程序参数可选项的问题]<br /> ;;条件：<code>=组码(是可选项)<br /> ;;问题1：当code参数不提供,获取属性值语法为(GetDXF ab)-->返回对象ab的组码列表<br /> ;;问题2：当code参数提供,获取属性值语法为(GetDXF ab "8")-->返回对象ab的图层名<br /> ;;请各位版主不吝赐教。

marting

LISP不支持参数数量动态变化，如果你想要参数数量不同，只能把参数用表，函数里面判断表的长度计算参数

bonny123

明白了，程序中间加了关于参数表长度的判断，可以实现。
谢谢赐教。
我测试下。

Lisphk

ayl1004 发表于 2017-4-30 20:51

FAS怎么写代码？

bonny123

Lisphk 发表于 2017-4-30 22:13

同问：fas怎么写？
请教

ayl1004

Lisphk 发表于 2017-4-30 22:13

我自己还没完全弄清楚，也不好多说什么，先发个fas文件，里面的自定义函数名是AYL-boole6，最少两个参数，最多255个参数。

Lisphk

ayl1004 发表于 2017-5-4 16:57

谢谢！，FAS不是二进制的吗，什么东西能直接编辑它并往里面添加代码？