Đến nội dung


Hình ảnh
- - - - -

Tìm lisp đo chiều dài đoạn thẳng cùng layer


  • Please log in to reply
1 reply to this topic

#1 luyenxdk48

luyenxdk48

    biết pan

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

Đã gửi 14 April 2010 - 02:18 PM

Tình hình là e đọc tài liệu, thấy có lệnh CS để đặt tỷ lệ cho bình đồ. tuyến của e dài 200m, tỷ lệ 1/500. e đã đặt tỷ lệ rồi
sau đó DNDM, vạch tuyến, chèn cọc,chạy TD. Khi ra TD thì tuyến lại dài có hơn 40m. như thế là làm sao ạ? Tỷ lện TD của e là 1/100 và 1/1000.
Các bác giúp e với. Thank các bác nhìu.

Bác nào có lisp đo chiều dài các đoạn thẳng của cùng 1 layer ko,Post lên cho mình xem cái!
Thanks
  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 14 April 2010 - 02:50 PM

Bác nào có lisp đo chiều dài các đoạn thẳng của cùng 1 layer ko,Post lên cho mình xem cái!
Thanks

Bạn thử code này nhé :
(defun c:lla(/ la ss S)
(setvar "cmdecho" 0)
(setq la (cdr(assoc 8 (entget (car(entsel "\n Chon Layer bang cach pick 1 doi tuong :"))))))
(setq ss (ssget "X" (list(cons 0 "*LINE") (cons 8 la))) i -1 S 0)
(if ss (progn
(while (setq ent (ssname ss (setq i (1+ i))))
(command ".lengthen" ent "")
(Setq S (+ S (getvar "perimeter")))
)
(alert (strcat "Tong chieu dai cua doan thang LINE, PLINE thuoc Layer " la
" la : " (rtos S 2 2)
)
)
);progn
(alert (strcat "Khong co doi tuong LINE, PLINE thuoc Layer " la))
);if
(princ)
)

  • 0