Đến nội dung


Hình ảnh
- - - - -

Lisp copy multi hay bị FALTAL ERROR ???


  • Please log in to reply
1 reply to this topic

#1 hhhhgggg

hhhhgggg

    biết dimedit

  • Members
  • PipPipPipPipPip
  • 393 Bài viết
Điểm đánh giá: 30 (tàm tạm)

Đã gửi 21 April 2010 - 03:29 PM

Đâ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)
)
)
  • 0
Hoàng Giang

#2 hantinh

hantinh

    biết lệnh attdef

  • Members
  • PipPipPipPipPipPip
  • 413 Bài viết
Điểm đánh giá: 44 (tàm tạm)

Đã gửi 24 April 2010 - 07:32 PM

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