[Hỏi] Cách tạo hàm con với số lượng đối số thay đổi.

[duy782006 1.554]

Mình thử viết 1 hàm con như sau:

(defun duy:tao_circle (dt bk / dt bk bd vtr)

(setq bd (getvar "OSMODE"))

(setvar "osmode" 0)

(cond

((= bk nil) (setq bk 20))

)

(command "circle" dt bk)

(setvar "osmode" bd))

 

Ứng dụng

(defun c:vetron ()

(duy:tao_circle (getpoint) "")

)

 

Hoặc

 

(defun c:vetron ()

(duy:tao_circle (getpoint) 50)

)

 

Thì được nhưng mình muốn cải tạo thành

(defun c:vetron ()

(duy:tao_circle (getpoint) )

)

 

Hiện nay sẽ lổi thiếu đối số, mình muốn đối số bán kính này nếu có thì nhập nếu ko có thì khỏi nhập luôn nó sẽ tự nhận giá trị 20 bác nào rành thì chỉ bảo cho phát với. Cám ơn.

[Tue_NV 3.912]

Mình thử viết 1 hàm con như sau:

(defun duy:tao_circle (dt bk / dt bk bd vtr)

(setq bd (getvar "OSMODE"))

(setvar "osmode" 0)

(cond

((= bk nil) (setq bk 20))

)

(command "circle" dt bk)

(setvar "osmode" bd))

 

Ứng dụng

(defun c:vetron ()

(duy:tao_circle (getpoint) "")

)

 

Hoặc

 

(defun c:vetron ()

(duy:tao_circle (getpoint) 50)

)

 

Thì được nhưng mình muốn cải tạo thành

(defun c:vetron ()

(duy:tao_circle (getpoint) )

)

 

Hiện nay sẽ lổi thiếu đối số, mình muốn đối số bán kính này nếu có thì nhập nếu ko có thì khỏi nhập luôn nó sẽ tự nhận giá trị 20 bác nào rành thì chỉ bảo cho phát với. Cám ơn.

Đây anh:

(defun duy:tao_circle (lst-dtbk / dt bk bd vtr)
(mapcar 'set '(dt bk) lst-dtbk)
(setq bd (getvar "OSMODE"))
(setvar "osmode" 0)
(cond
((= bk nil) (setq bk 20))
)
(command "circle" dt bk)
(setvar "osmode" bd))
;;;
(defun c:vetron1 ()
(duy:tao_circle (list (getpoint) ))
)      
(defun c:vetron2 ()
(duy:tao_circle (list (getpoint) 50 ))
)

[duy782006 1.554]

Đây anh:

(defun duy:tao_circle (lst-dtbk / dt bk bd vtr)
(mapcar 'set '(dt bk) lst-dtbk)
(setq bd (getvar "OSMODE"))
(setvar "osmode" 0)
(cond
((= bk nil) (setq bk 20))
)
(command "circle" dt bk)
(setvar "osmode" bd))
;;;
(defun c:vetron1 ()
(duy:tao_circle (list (getpoint) ))
)      
(defun c:vetron2 ()
(duy:tao_circle (list (getpoint) 50 ))
)

 

Giải quyết được nhưng lòi thèn list trong lệnh ứng dụng. Có các nào khác nửa không nhỉ tạo thấy lisp co 1 số hàm cho phép nhập số lượng dối số khác nhau theo kiểu (ham a b c) hoặc (ham a B).

[ketxu 2.984]

 

Giải quyết được nhưng lòi thèn list trong lệnh ứng dụng. Có các nào khác nửa không nhỉ tạo thấy lisp co 1 số hàm cho phép nhập số lượng dối số khác nhau theo kiểu (ham a b c) hoặc (ham a B).

Đấy là các hàm được viết bằng ngôn ngữ khác bác ạ ^^

[Thaistreetz 539]

Trước đây em từng có thắc mắc giống hệt bác Duy rồi. và bác GIa Bach trả lời cho em giống hệt bác Tue_NV. Đúng là giới hạn của ngôn ngữ lisp không cho ta định nghĩa 1 hàm con như vậy bằng lisp bác ạ.