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

Lisp Tính Độ Dài Hơi Khoai Ạ.

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

Xin chào tất cả các anh chị em trong diễn đàn. Mình có 1 cái file cad như đính kèm http://www.mediafire.com/file/a1f8ku72zk42g2s/M+-+012.7z

Và 1 ảnh được cắt ra từ file cad đó, có 2 điểm là 1 và 2.

Giờ làm thế nào mình chỉ cần click vào điểm 1 và điểm 2 là sẽ tính được độ dài của đường đó. Các bác dùng file của em mà viết được LISP em xin cảm ơn mọi người. 

Tiện thể cho em hỏi tí có ai biết số điện thoại của bác ketxu ko ạ. Em nghe phong thanh bác ấy mở lớp dạy online đang muốn học 1 khóa ạ. 

Cảm ơn anh chị em ạ. 159032_inkedkakaotalk_20170308_171447978

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

Gửi cho bạn cái Code. 

 

 

(defun c:test (/  Ent dis dis1 dis2 pt pt1 pt2 Eobject Ename Eold )
  (if (and (setq Ent (car (entsel "\nChon doi tuong can do :")))
  (wcmatch (cdr (assoc 0 (entget ent))) "*LINE,ARC,CIRCE")    
  (setq pt1 (getpoint "\nDiem dau :" ))
  (setq pt2 (getpoint pt1 "\nDiem cuoi :" )))
    (progn
      (setq pt11 (vlax-curve-getClosestPointTo ent pt1)
   dis1 (vlax-curve-getDistAtPoint Ent pt11)
   pt12 (vlax-curve-getClosestPointTo ent pt2)
   dis2 (vlax-curve-getDistAtPoint Ent pt12))
      (setq dis (abs(- dis2 dis1)))
      (ALERT  (strcat "\nKhoang cach :" (rtos dis 2 3)))))
  (princ))

 

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

 

 

Tiện thể cho em hỏi tí có ai biết số điện thoại của bác ketxu ko ạ. Em nghe phong thanh bác ấy mở lớp dạy online đang muốn học 1 khóa ạ. 

Cảm ơn anh chị em ạ. 

 

Lisp thì mình ko biết đã có người giúp bạn rồi

Còn sđt của ketxu chắc ko có đâu có địa chỉ face của nhóm bạn ấy đây

https://www.facebook.com/autocadusers/?fref=ts

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

Nếu các line, arc liền với nhau thì có thể dúng lệnh PEDIT để nối thành Pline, sau đó tính chiều dài của pline đó.

Nhưng trong file các đ/tượng này cách nhau khá xa ???

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  

×