Lisp copy multi hay bị FALTAL ERROR ???

[hhhhgggg 29]

Đây là cái code bác Tuệ ngày trc viết cho em. Chạy nó hay làm CAD lỗi FALTAR ERROR lắm. Bác pro nào sửa giúp em với !

(defun c:g ()

(setq sset (ssget))

(if (null sset)

(progn

(princ "\nERROR: Nothing selected.")

(exit)

)

)

(command "copy" sset "" "m" "C" "1" "")

(princ)

)

)

[hantinh 45]

Đây là cái code bác Tuệ ngày trc viết cho em. Chạy nó hay làm CAD lỗi FALTAR ERROR lắm. Bác pro nào sửa giúp em với !

(defun c:g ()

(setq sset (ssget))

(if (null sset)

(progn

(princ "\nERROR: Nothing selected.")

(exit)

)

)

(command "copy" sset "" "m" "C" "1" "")

(princ)

)

)

 

bạn dung thử đoạn này coi có được hem

(Defun C:c(/ ss)

(setq ss (ssget))

(command "copy" ss "" "m")

)

nếu bị thừ ngoăc thì bạn xoá đi nhé