Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
1 reply to this topic

#1 meodihia007

meodihia007

    biết pan

  • Members
  • Pip
  • 5 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 August 2011 - 10:50 PM

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.

Hình đã gửi
Chay sai

Hình đã gửi
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")
)

  • 0

#2 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 08 August 2011 - 10:59 PM

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)
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC