VẼ ĐƯỜNG CHÉO CHO HÀNG LOẠT POLYLINE KÍN

[sang98dhxd@gmail.com 1]

Em chào các anh chị trong nhóm ạ, chuyện là em đang có lớp nhà là polyline kín từ 4 đỉnh trở lên em muốn vẽ đồng loạt đường chéo từ trái sang phải và là từ trên xuống dưới thì có cách nào nhanh chóng không, em mong các anh chị trong nhóm bớt chút thời gian chỉ giúp em với ạ. EM xin chân thành cảm ơn ạ

SANG.dwg

KQ.pdf

[cuongtk2 356]

Bạn dùng vla-getboundingbox để lấy X min, max . Lọc points của pline theo 2 giá trị đó để vẽ.

[tannguyen291 149]

@MaiLinh2006 có bài tập đơn giản cho học sinh mới làm nè. :))

[sang98dhxd@gmail.com 1]

bài toán này có thể giải quyết bằng Lisp không anh Cường ơi

 

[sang98dhxd@gmail.com 1]

thanks b bớt chút thời gian đọc bài của mình ạ

[tannguyen291 149]

Thôi đành giải quyết vấn đề cho khổ chủ :))

lệnh vẽ đường chéo VDC

(defun c:VDC (/ ss i lstpt)
  (setq ss (ssget '((0 . "*POLYLINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>") (-4 . ">") (90 . 3))))
  (repeat (setq i (sslength ss))
    (setq 
      i (1- i)
      lstpt (mapcar '(lambda (x) (if (eq 10 (car x)) (cdr x) )) (entget (ssname ss i)))
      lstpt (vl-sort (vl-remove nil lstpt) '(lambda (a b) (> (cadr a) (cadr b))))
    )
    (if (< (cos (angle (car lstpt) (last lstpt))) 0)
      (setq lstpt (vl-sort lstpt '(lambda (a b) (< (car a) (car b))))) 
    )
    (entmake (list '(0 . "LINE") (list 10 (caar lstpt) (cadar lstpt) 0) (list 11 (car (last lstpt)) (cadr (last lstpt)) 0)))
  )
  (princ)
)

đã sửa điều kiện

[cuongtk2 356]

Giải ngắn, nhưng sai. Điểm bên trái + cao nhất nối điểm bên phải + thấp nhất. Kiểu gì cũng phải lọc từ Xmin, Xmax.

 

[tannguyen291 149]

18 phút trước, cuongtk2 đã nói:

Giải ngắn, nhưng sai. Điểm bên trái + cao nhất nối điểm bên phải + thấp nhất. Kiểu gì cũng phải lọc từ Xmin, Xmax.

  

à em đánh giá cái trái phải trước. nếu đánh giá trên xuống thì ngược lại là được mà bác. :)

[sang98dhxd@gmail.com 1]

29 phút trước, tannguyen291 đã nói:

Thôi đành giải quyết vấn đề cho khổ chủ :))

lệnh vẽ đường chéo VDC

(defun c:VDC (/ ss i lstpt)
  (setq ss (ssget '((0 . "*POLYLINE") (-4 . "<OR") (70 . 1) (70 . 129) (-4 . "OR>") (-4 . ">") (90 . 3))))
  (repeat (setq i (sslength ss))
    (setq 
      i (1- i)
      lstpt (mapcar '(lambda (x) (if (eq 10 (car x)) (cdr x) )) (entget (ssname ss i)))
      lstpt (vl-sort (vl-remove nil lstpt) '(lambda (a b) (< (car a) (car b))))
    )
    (if (> (sin (angle (car lstpt) (last lstpt))) 0)
      (setq lstpt (vl-sort lstpt '(lambda (a b) (> (cadr a) (cadr b)))))
    )
    (entmake (list '(0 . "LINE") (cons 10 (car lstpt)) (Cons 11 (last lstpt))))
  )
  (princ)
)

 

lisp không chạy được ạ

 

[sang98dhxd@gmail.com 1]

26 phút trước, cuongtk2 đã nói:

Giải ngắn, nhưng sai. Điểm bên trái + cao nhất nối điểm bên phải + thấp nhất. Kiểu gì cũng phải lọc từ Xmin, Xmax.

 

Anh Cường ơi chỉ cần có đường chéo bất kì cũng được ạ, miễn là quét được hết các nhà dạng polyline đó và thêm đường chéo thôi 

[tannguyen291 149]

11 phút trước, sang98dhxd@gmail.com đã nói:

lisp không chạy được ạ

máy mình chạy bình thường. máy bạn k chạy thì chắc là ... do bạn thôi :))

[cuongtk2 356]

@tannguyen291Máy không chạy có thể là do :

1. Thiếu hàm.

2. Biến toàn cục đổi sang biến cục bộ, nên máy chú nó OK vì biến đó đang trong bộ nhớ. Nhưng sang máy người khác thì nó chưa có giá trị đó. Chú chỉ cần đóng Cad mở lại mà vẫn chạy được là đúng,

[tannguyen291 149]

1 phút trước, cuongtk2 đã nói:

@tannguyen291Máy không chạy có thể là do :

 1. Thiếu hàm.

2. Biến toàn cục đổi sang biến cục bộ, nên máy chú nó OK vì biến đó đang trong bộ nhớ. Nhưng sang máy người khác thì nó chưa có giá trị đó. Chú chỉ cần đóng Cad mở lại mà vẫn chạy được là đúng,

2. thì không thể nào.

1. thì ... cái này do cad chứ lisp của em thuần tuý lisp. còn chưa dùng đến vla , vlax, expresstool, hàm phụ trợ.

Lisp này máy mac còn chạy chứ nói gì Cad LT

 

[cuongtk2 356]

Thử test, đã chạy thành công.

[Doan Van Ha 3.202]

1. Có thể do thiếu (vl-load-com) chăng?
2. @tannguyen291 đã set 3 biến (all: ss i lstpt) là cục bộ rồi thì chấp lisp khác phá hoại @cuongtk2.

[sang98dhxd@gmail.com 1]

dạ. em copy về để file định dạng .lsp, sau đó vào cad gõ AP load lisp lên dùng. Thao tác như vậy đúng chưa ạ 

[cuongtk2 356]

Muốn dùng luôn thì copy dán trực tiếp vào command line là được.

[tannguyen291 149]

@cuongtk2 @Doan Van Ha có khi nào thi thoảng cad bị sao đó không cho entmake line (10 x y) mà phải (10 x y z) không các bác nhỉ.

[Doan Van Ha 3.202]

7 phút trước, tannguyen291 đã nói:

@cuongtk2 @Doan Van Ha có khi nào thi thoảng cad bị sao đó không cho entmake line (10 x y) mà phải (10 x y z) không các bác nhỉ.

Viết (10 x y) rất nhiều rồi nhưng chưa bao giờ bị err, vì khi viết thiếu Z thì nó mặc định Z=0 rồi.

[cuongtk2 356]

Tốt nhất là đừng làm chuyện đó Line dùng Point3d, pline dùng Point2d

 

[tannguyen291 149]

3 phút trước, Doan Van Ha đã nói:

Viết (10 x y) rất nhiều rồi nhưng chưa bao giờ bị err, vì khi viết thiếu Z thì nó mặc định Z=0 rồi.

em cũng chưa bị err phát nào. ông thớt lỗi thì không chụp màn hình ngồi im ỉm. :((

[amateurday 16]

Thỉnh thoảng em copy về sẽ có lisp bị lỗi ký tự. Cái này hên xui, không biết do máy hay do web nữa.

[sang98dhxd@gmail.com 1]

ạ

1 giờ} trướ}c, cuongtk2 đã nói:

Muốn dùng luôn thì copy dán trực tiếp vào command line là được.

cảm ơn anh Cường,  em copy trực tiếp được rồi

[sang98dhxd@gmail.com 1]

Các anh ơi, có cách nào phân loại lớp polyline kín theo nội dung text được không ạ.
Ví dụ em vẽ nhiều hình chữ nhật, và mỗi hình bên trong có chứa 1 nội dung đánh dấu như t (nhà tạm) , b (nhà bằng)
Bây giờ em muốn lấy những hình chữ nhật hoặc polyline kín nhiều đỉnh có chứ nội dung là t thì có được không ạ

[sang98dhxd@gmail.com 1]

2 giờ trước, tannguyen291 đã nói:

máy mình chạy bình thường. máy bạn k chạy thì chắc là ... do bạn thôi :))

em cảm ơn bác, em load trực tiếp trên dòng comand được rồi ạ.