Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
meodihia007

[Nhờ chỉnh sửa] Lisp chạy đúng. Cài lại CAD nó chạy sai

Các bài được khuyến nghị

Em có xài một lisp để đánh số thứ tự chi tiết tăng dần tự động. Lúc đầu xài em bị lỗi: đầu mũi tên bắt đầu từ tâm. Sau đó không biết sao nó lại hoạt động đúng. Lisp lúc chạy đúng thì đầu mũi tên bắt đầu từ mép của đường tròn. Hôm nay cài lại AutoCAD nó lại bị lỗi. Các bác cao thủ xem giúp em với.

 

Capture.JPG

Chay sai

 

Capture%2525201.JPG

Chạy đúng

 

(defun C:mt( / cc,in,ls)

   (setvar "CECOLOR" "Cyan")
  (setvar "dimASZ" 2)
  (setvar "dimASO" 0)

(setq in(getint "\n Chon so cua chi tiet dau tien : "))
 (While

 (setq cc (getpoint "\n Chon tam duong tron ")
ls (getpoint "\ Chon diem tren chi tiet ")
)

     	 (command ".CIRCLE" cc "d" 5.5)
(command ".text" "M" cc 2.2 0 in)
  (setq q2 (polar	 ls	 (angle ls cc)
 ( - (distance ls cc) 2.75)
  ))

(command	  	 "qleader" ls q2 nil)

	   ^C ^C;
	  (setq in (+ 1 in))

   )
 (setvar "CECOLOR" "bylayer")
 )

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Mình thấy chưa set osmode về 0, nên khả năng bị lỗi bắt điểm

Bạn thêm dòng này vào đầu lisp : (setq oldOs (getvar "osmode") dump (setvar "osmode" 0)) (sau dòng Defun c:...) và thêm dòng này ở cuối lisp, trước dấu đóng ngoặc cuối cùng (setvar "osmode" oldOs)

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×