Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
thanhgam2003

Bảng toạ độ các đỉnh thửa đất

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

thanhduan2407    227
Góp ý với nhoclangbat là hạn chế dùng command, thứ nhất là tốc độ chậm, thứ hai là dễ bị sai khi để chế độ bắt điểm (như thế setvar "OSMODE" 0), lại phải cài đặt chế độ bắt điểm.

Góp ý với nhoclangbat là hạn chế dùng command, thứ nhất là tốc độ chậm, thứ hai là dễ bị sai khi để chế độ bắt điểm (như thế setvar "OSMODE" 0), lại phải cài đặt chế độ bắt điểm.

Khi tạo boudary thì nó sẽ tạo 1 Polyline và chiều của nó bao giờ cũng là ngược chiều kim đồng hồ. Có thể dùng Lisp đảo chiều Polyline để cho nó theo chiều kim đồng hồ.

(defun dch (ent / eo el len)
(vl-load-com)
(setq eo ent)
(setq el (list(assoc 210 ent)))
(while (member (assoc 10 ent) ent)
  (if (= 0.0 (assoc 42 ent))
(setq el (cons (assoc 42 ent) el))
(setq el (cons (cons 42 (- (cdr (assoc 42 ent)))) el))
  )
  (setq el (cons (assoc 41 ent) el))
  (setq el (cons (assoc 40 ent) el))
  (setq el (cons (assoc 10 ent) el))
  (setq ent (member (assoc 10 ent) ent))
  (setq ent (cdr ent))
)
(setq len(- (LENGTH eo) (LENGTH (member (assoc 10 eo) eo)) 1))
(while (>= len 0)
  (setq el (cons (nth len eo) el))
  (setq len (- len 1))
)
(setq ent el)
(entmod ent)
(princ)
)

Mình test nó lỗi font nên ko chạy.

Góp ý với nhoclangbat là hạn chế dùng command, thứ nhất là tốc độ chậm, thứ hai là dễ bị sai khi để chế độ bắt điểm (như thế setvar "OSMODE" 0), lại phải cài đặt chế độ bắt điểm.
Khi tạo boudary thì nó sẽ tạo 1 Polyline và chiều của nó bao giờ cũng là ngược chiều kim đồng hồ. Có thể dùng Lisp đảo chiều Polyline để cho nó theo chiều kim đồng hồ.
 
Khi tạo boudary thì nó sẽ tạo 1 Polyline và chiều của nó bao giờ cũng là ngược chiều kim đồng hồ. Có thể dùng Lisp đảo chiều Polyline để cho nó theo chiều kim đồng hồ.

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


×