定义子程序时可以设置缺省参数吗？

etoxp

譬如附图中的程序有5个参数，调用时我只想填入3个，另外两个采用默认值。
代码要怎么写？

2. (defun XP-MakeLine (P10 P11 LayerName color LineType /)
   
3.   (entmake (list '(0 . "LINE")
   
4.      (cons 8 LayerName)
   
5.      (cons 62 color)
   
6.      (cons 6 LineType)
   
7.      (cons 10 P10)
   
8.      (cons 11 P11)
   
9.      )
   
10.   )
    
11.   (entlast)
    
12. )
    
13. 
    
14. (defun c:tt (/)
    
15.   (XP-MakeLine (getpoint) (getpoint) "0" 256 "BYLAYER")
    
16. )
    

(defun XP-MakeLine (P10 P11 LayerName color LineType /)<br />   (entmake (list '(0 . "LINE")<br />      (cons 8 LayerName)<br />      (cons 62 color)<br />      (cons 6 LineType)<br />      (cons 10 P10)<br />      (cons 11 P11)<br />      )<br />   )<br />   (entlast)<br /> )<br /> <br /> (defun c:tt (/)<br />   (XP-MakeLine (getpoint) (getpoint) "0" 256 "BYLAYER")<br /> )<br />

etoxp

除了把多个参数放在一个list中外，还有什么方法没？
有没有标准的做法？

start4444

加一句缺省的取值就行啦，比如颜色 (if (not color) (setq color 1))

etoxp

start4444 发表于 2020-3-1 19:33
加一句缺省的取值就行啦，比如颜色 (if (not color) (setq color 1))

会报错，说缺少参数。

1291500406

(defun bb-Make-Line (lst / list1 list2 )
(set 'leng(length  lst))
(cond
((= leng 2)(entmakex (list(cons 0 "LINE")(cons 10 (car lst))(cons 11 (cadr lst))))(entlast))
((= leng 3)(entmakex (list(cons 0 "LINE")(cons 8 (caddr lst))(cons 10 (car lst))(cons 11 (cadr lst))))(entlast))
((= leng 4)(entmakex (list(cons 0 "LINE")(cons 8 (caddr lst))(cons 10 (car lst))(cons 11 (cadr lst))(cons 62 (cadddr lst))))(entlast))
((= leng 5)(entmakex (list(cons 0 "LINE")(cons 6  (nth 4 lst))(cons 8 (caddr lst))(cons 10 (car lst))(cons 11 (cadr lst))(cons 62 (cadddr lst))))(entlast))
))



(bb-Make-Line(list(getpoint)(getpoint)))
(bb-Make-Line(list(getpoint)(getpoint) "0"))
(bb-Make-Line(list(getpoint)(getpoint) "0" 1 ))
(bb-Make-Line(list(getpoint)(getpoint) "0" 2 "BYLAYER"))

etoxp

1291500406 发表于 2020-3-1 22:02
(defun bb-Make-Line (lst / list1 list2 )
(set 'leng(length  lst))
(cond

不用列表作为参数可以实现吗？

669423907

(defun c:13(/)
  (XP-MakeLine (getpoint) (getpoint) ()()())
)

e2002

AutoLISP 写的函数不支持参数缺省。
arx写的函数给LISP用，这些函数可以有缺省。

etoxp

e2002 发表于 2020-3-2 15:33
AutoLISP 写的函数不支持参数缺省。
arx写的函数给LISP用，这些函数可以有缺省。

谢谢E大！！！！！

1291500406

etoxp 发表于 2020-3-1 23:31
不用列表作为参数可以实现吗？

将就着用吧