Đến nội dung


Hình ảnh
- - - - -

Nhờ sửa lisp


  • Please log in to reply
2 replies to this topic

#1 pawuta

pawuta

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: -12 (hơi kém)

Đã gửi 06 June 2015 - 09:33 PM

Nhờ anh em sửa giúp lisp sau bằng cách kết hợp 2 thao tác vào lisp hoặc chọn các đối tượng trước rồi mới đánh lệnh đổi màu các đối tượng đó hoặc đánh lệnh trước rồi chọn các đối tượng cần đổi màu. Và lưu lại màu chọn cho các lần thao tác sau. Thansk!

(defun c:doimau (/ m ss)
(command "undo" "be")
  (princ "\nChon doi tuong muon doi mau:")
  (setq ss (ssget))
  (princ "\nChon mau muon doi :")(setq m (acad_colordlg 7))
(command "change" ss "" "P" "c" m "")
(command "undo" "end")
(setvar "MODEMACRO" "**KTS_DUY**")
(princ)
)

  • -1

#2 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 07 June 2015 - 09:04 AM

Thế này cho gọn:

(defun c:doimau (/ m)
 (princ "\nChon mau muon doi: ")
 (princ)
 (setq m (acad_colordlg 7))
 (command "change" (ssget) "" "P" "c" m "")
 (princ))

  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#3 pawuta

pawuta

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: -12 (hơi kém)

Đã gửi 07 June 2015 - 10:07 AM

 

Thế này cho gọn:

(defun c:doimau (/ m)
 (princ "\nChon mau muon doi: ")
 (princ)
 (setq m (acad_colordlg 7))
 (command "change" (ssget) "" "P" "c" m "")
 (princ))

Thanks nhiều nhé!


  • 0