Đến nội dung


Hình ảnh
- - - - -

[YÊU CẦU] Lisp đo tổng khoảng cách AB + CD nằm trên 2 đường Pline khác nhau


  • Please log in to reply
23 replies to this topic

#21 trangnhung

trangnhung

    biết vẽ pline

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

Đã gửi 21 January 2013 - 08:36 AM

Bác quansla ơi. em download về dùng thì cad báo lỗi:
Command: tinhtong ; error: AutoCAD variable setting rejected: "clayer"
"defpoints"
Bác xem lại giúp em với. Chân thành cảm ơn !
  • 0

#22 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 21 January 2013 - 11:10 AM


(defun c:tinhtong (/ L p1 p2 ll s1 olay)
(vl-load-com)
(setq olay (getvar "clayer"))
(setvar "clayer" "defpoints")
(setvar "cmdecho" 0)
(setq p1 (getpoint "chon diem")
L 0
ll (list p1))
(while (setq p2 (getpoint p1 "chon diem"))
(setq L ( + L (distance p1 p2)))
(setq ll (append ll (list p2)))
(setq p1 p2))
(acet-pline-make (list ll))
L
(entmod(subst (cons 1 (rtos L 2 2)) (assoc 1 (setq dt(entget(car(entsel "chontext"))))) dt))
(initget 1 "Y N")
(setq s1 (strcase(getkword "Co Xoa bo PL vua tao[Y,N]")))
(if (or (= s1 "")(= s1 "Y")) (entdel (entlast)))
(setvar "clayer" olay)
(setvar "cmdecho" 1)
)
Bạn có thể thử

Hề hề hề,
Ngoài lỗi trên lisp của bạn quansla dùng tính tổng khoảng cách chứ không phải độ dài tính theo pline như yêu cầu. Độ dài tinh theo pline không phải lúc nào cũng đúng là khoảng cách giữa hai điểm pick.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#23 vankhoa20001981

vankhoa20001981

    Chưa sử dụng CAD

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

Đã gửi 11 December 2013 - 08:33 PM

xin dien dan viet giup cho 1 lisp ve cot so sanh do cao trong mat cat dia hinh


  • -1

#24 vankhoa20001981

vankhoa20001981

    Chưa sử dụng CAD

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

Đã gửi 11 December 2013 - 08:43 PM

xin các anh ở diển đàn giúp em với, em muốn viết một lisp vẽ thước so sánh độ cao cho mặt cắt địa hình , em xin cảm ơn 


  • -1