Đến nội dung


Hình ảnh
- - - - -

Xin lisp gộp các lệnh trong file lisp thành 1


  • Please log in to reply
5 replies to this topic

#1 friendship293a

friendship293a

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: -9 (bình thường)

Đã gửi 27 November 2013 - 12:39 PM

Em cần gộp các lệnh lai với nhau ví dụ đánh lệnh gop thì sẽ lần lượt thực hiện từng lệnh a, b, c ... trong lisp đã gộp chứ không muốn dánh lệnh a rồi b, c... cảm ơn pro.


  • 0

#2 quansla

quansla

    biết lệnh xclip

  • Members
  • PipPipPipPipPipPipPip
  • 643 Bài viết
Điểm đánh giá: 224 (khá)

Đã gửi 27 November 2013 - 03:20 PM

  1. Bạn gửi không đủ lisp rồi, hoặc bạn đã copy thiếu từ nguồn cũ của bạn (thiếu hàm c:TL, thiếu biến #Bacc)
  2. Tạm thời để chạy được bạn thử thêm dòng code sau (or #Bacc(setq #Bacc 3))  (or scale (setq scale 1)) vào dòng command của Cad xem đã chay được chưa( chú ý đừng copy vội vào lisp mà hỏng việc)
  3. Giải thích dòng Code. (or #Bacc..) là gán cho biến #Bacc giá trị đầu bằng 3, giá trị này ảnh hưởng đến số chữ số thập phân của cao độ. Còn dòng (or #scale ....) mình gán tạm bằng 1, còn giá trị muốn đúng với công việc của bạn có lẽ bạn cần copy lại nguồn của mình phần hàm (c:TL) thì sẽ chính xác hơn. Trước mắt chỉ để kiểm tra chạy được và xem còn lỗi gì không thôi.
  4. Nếu biết người viết Code có lẽ lên để họ kiểm tra. và mình cũng nghĩ không nên để tên lệnh trùng với tên lisp/lệnh Cad hay dùng như Code của bạn ( lệnh Tile trùng với TileMode, lệnh CD trùng lệnh "cắt dim")
  5. Chúc vui

Ah, xin lỗi, mình gửi nhầm topic hì hì.


Bài viết đã được chỉnh sửa nội dung bởi quansla: 28 November 2013 - 02:08 PM

  • 0

#3 friendship293a

friendship293a

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: -9 (bình thường)

Đã gửi 27 November 2013 - 07:46 PM

Chả hiểu bác nói cái gì nữa huhu


  • 0

#4 friendship293a

friendship293a

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: -9 (bình thường)

Đã gửi 28 November 2013 - 10:46 AM

HELP ME!!!


  • 0

#5 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 28 November 2013 - 10:57 AM

Lisp gộp đây. Lỗi bạn tự chịu trách nhiệm.

(defun C:GOP()
 (C:A)
 (C:B)
 (C:C))

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


#6 friendship293a

friendship293a

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: -9 (bình thường)

Đã gửi 28 November 2013 - 11:08 AM

Đơn giản mà hiệu quả thanks bác


  • 0