Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
4 replies to this topic

#1 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 19 June 2012 - 08:15 AM

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.
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 19 June 2012 - 08:34 AM

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 ))
)

  • 2

#3 duy782006

duy782006

    PHẠM QUỐC DUY

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 2155 Bài viết
Điểm đánh giá: 1360 (rất tốt)

Đã gửi 19 June 2012 - 09:13 AM

Đâ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).
  • 0

Cứ ngỡ trần gian là cõi thật.Cho nên tất bật đến bây giờ.
Tạo hộp thoại bằng lisp My blog QUY ĐỊNH ĐẶT TÊN TOPIC TRONG CHUYÊN MỤC LISPD http://ktsduy.wordpress.com/
Để cám ơn chỉ cần nhấn rep_up.png
(Là nhấn vào nút đó phía bài viết của người ta í chứ đừng có nhè cái hình này mà nhấn miết đi nha :-D


#4 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 19 June 2012 - 09:38 AM


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 ạ ^^
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#5 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 19 June 2012 - 02:08 PM

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 ạ.
  • 1

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD