kính nhờ quý anh chị hổ trợ viết lispcad đơn giản

[Bình Mai 0]

kính chào các anh chị, em làm chuyên bên khảo sát xây dựng, trong quá trình biên tập thì gặp vấn đề tiêu tốn khá nhiều thời gian, kính nhờ anh chị giúp em tạo lispcad như sau:

1: trong cad vd như khi nhập lệnh line thì autocad sẽ vẽ ra 1 đường thằng của layer hiện tại. muốn vẽ layer khác phải đổi layer trên thanh công cụ hoặc lệch laymcur rồi nhập lệnh line vẽ cách đó thì nó thừa ra 1 bước đổi layer.

vậy nhờ anh chị hổ trợ tạo 1 lisp đơn giản quy định hẵn 1 phím tắt để khi nhập phím tắt đó nó sẽ vẽ ra 1 layer đã quy định trước đó

vd như khi mình quy định: 1 là lệnh tắt của lệnh line vẽ layer ao mương, 2 là lệnh tắt của lệnh line vẽ layer cầu cống, 3 là lệnh tắt của lệnh line vẽ layer địa vật

khi minh ấn 1 tự động nó hiểu là mình nhập lệnh line vẽ ra nét ao mương, ấn 2 tự động nó hiểu là mình nhập lệnh line vẽ ra nét cầu cống, ấn 3 tự động nó hiểu là mình nhập lệnh line vẽ ra nét địa vật

em nghĩ đoạn này sẽ set theo 2 bước bước 1 ấn lệch tắt xong comman chạy lệnh line. bước 2 sẽ tự động chọn layer mình quy định để vẽ

2: kính nhờ quý anh chị tạo thêm 1 lisp tự động rải ký hiệu. 

ví dụ: trên bản vẽ có thể hiện rất nhiều các chữ, tên, ký hiệu mình đã đặt trước ở vị trí khác nhau thể hiện cho địa vật, côt điện, giếng khoan, biển báo. thì ấn lệnh tắt xong nó sẽ hỏi tên ký hiệu mình đặt cần chọn, ấn inter sau đó nó sẽ hỏi chọn ký hiệu cần chọn trong bản vẽ(theo quy định) , ấn inter thì nó sẽ rải các ký hiệu (theo quy đinh) ở phía trước các chữ cái hoặc ký hiệu mình tạo.

em nghĩ kiểu lệnh này chắc gồm 2 bước, bước 1 sẽ giống "quickselect->test->content-> nhập tên ký hiệu" nó sẽ tự động chọn hết tất cả các tên hoặc ký hiệu trùng khớp với cái mình nhập

bước 2 là rải ký hiệu theo quy định vào vị trí trước cái tên mình nhập là được (bước 2 này thì em chịu không thể nghĩ ra cách  làm)

[vietduc147258 108]

Câu 1: Không lẽ bạn vẽ dùng mỗi lệnh Line à? Có ai đó giúp bạn lệnh 1, 2, 3 đó để vẽ Line sau đó bạn lại nhờ tiếp c1, c2, c3 để vẽ đường tròn, sp1, sp2, sp3 để vẽ Spline....

Theo tôi chuyển Layer không tốn công lắm đâu. Nếu cần đổi nhanh thì có đoạn lisp trong diễn đàn mình dùng thử xem

(defun c:0 () (vl-cmdf "clayer" "0" ))

Sửa màu đỏ là tên lệnh, màu xanh là tên Layer. Tôi chỉ click chột đổi thôi chứ không dùng lisp này, nhưng chắc là nó sẽ hoạt động tốt

[trieubb 9]

cái 1 thì đơn giản:

(defun c: tên lệnh ()

(vl-cmdf "_.layer" "s" "tên layer muốn quy định hiện hành" "" )

(vl-cmdf "_.line" pause "" )

)

Còn cái 2 thì chưa hiểu ý chủ thớt. có thể tải ảnh minh họa trước và sau khi dùng lệnh đc không

[Bình Mai 0]

em tìm được rồi mấy anh nhờ con AI nó viết code dùm mà xài cũng ok lắm

 

[cuongtk2 475]

Thay vì làm từng line sao bạn không nhờ trút luôn file khảo sát thành dwg. Cái này ít bị sai layer và xyz hơn nhiều.

[Bình Mai 0]

em trút qua dwg rồi nó hiện dạng điểm á anh. xong phải nối điểm lại

[cuongtk2 475]

21 phút trước, Bình Mai đã nói:

em trút qua dwg rồi nó hiện dạng điểm á anh. xong phải nối điểm lại

Bạn nên nhờ một con chat đọc file đó yêu cầu viết lệnh để trút vào dwg thành những thứ mình mong muốn. Tất nhiên phải đính kèm ký hiệu nhận diện cho nó biết lúc nào cần vẽ điểm, lúc nào line, polyline, text.

 

[Bình Mai 0]

để em test thử xem sao. cảm ơn anh

 

[cuongtk2 475]

bạn thử viết ít thông tin trong 1 vài lines của file khảo sát địa hình lên là biết cần phải làm gì với nó. Ví dụ một ngôi nhà với 4 điểm.