Nhờ Viết Lisp Kí Hiệu Theo Số Lượng Đường Polyline

[taipham 5]

Xin chào các anh chị!

Nhờ các anh chị trong diễn đàn viết giúp em Lisp dùng để tạo kí hiệu mặt cắt bằng cách quét chọn qua các đường Pline, cụ thể lệnh như sau:

1. Đánh lệnh "KH"

2. Đánh kí hiệu mặt nền "T" hoặc "N" hoặc .... (và lưu lại cho lần tiếp theo).

3. Chọn điểm đầu và điểm cuối của đường quét. Phương và chiều của kí hiệu và text phụ thuộc vào 2 điểm này.

4. Chọn điểm đặt cho Block kí hiệu.

5. Lặp lại lệnh, chọn điểm đầu và điểm cuối...

Đây là file đính kèm:

http://www.cadviet.com/upfiles/6/146422_ki_hieu_mc.dwg

 

Mong các anh chị hiểu ý và giúp đỡ!

Cảm ơn nhiều!