Chuyển đến nội dung
Diễn đàn CADViet
langtuchungtinh360

Nhờ Viết Lisp Đo Chiều Dài Đoạn Thẳng Và Khoảng Cách Giữa 2 Đoạn

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

Chào mọi người

Mong mọi người có thể giúp mình viết lisp với những yêu cầu như thế này được không.

Mình có trắc ngang như trên

Ví dụ tên lệnh : tt

Sau khi gõ tên thì sẽ hiện ra câu hỏi

1.    bạn có muốn thay đổi tùy chỉnh đã cài đặt sẵn (Y,N)- mặc định N

Nếu chọn Y thì sẽ hiện ra câu hỏi tiếp theo: còn N thì sẽ lấy những cài đặt mặc định bên dưới và chuyển sang bước 2

+          Chọn vị trí để điền text cao độ- ví dụ ngay điểm (3)- cách điểm dưới cùng của đoạn thẳng được chọn 1 khoảng cách bao nhiêu đó (do mình nhập- nếu enter bỏ qua thì mặc định 20)

+          Chọn vị trí để điền text khoảng cách điểm đo – ví dụ điểm (4) - cách điểm dưới cùng của đoạn thẳng được chọn 1 khoảng cách bao nhiêu đó (do mình nhập- nếu enter bỏ qua thì  mặc định 40) và nó sẽ nằm giữa 2 text cao độ ở bên trên

+          Bạn có muốn thay đổi chiều cao Text (Y/N) - nếu enter bỏ qua thì mặc định 5

+          Chọn góc xoay của text  chiều dài - nếu enter bỏ qua thì mặc định 90 độ thẳng đứng như trên

+          Chọn góc xoay của text khoảng cách - nếu enter bỏ qua thì mặc định 90 độ thẳng đứng như trên

2.    hiện gợi ý tiếp: hãy chọn các đoạn cần đo:

và mình sẽ chọn 5 đoạn trên đó. (áp dụng cho LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLI

3.    sau đó enter kết thúc lệnh và các số màu xanh bên trên sẽ hiện ra

+ trường hợp chọn >=2 đoạn thì sẽ xuất kết quả tương tự như trên

+ còn chỉ chọn 1 đoạn rồi kết thúc lệnh thì chỉ xuất con số (3)- không cần khoảng cách

số (3) là chiều dài của đoạn thẳng (1)

số (4) là khoảng cách giữa đoạn thẳng (1) và (2)

tỷ lệ tính toán sẽ dựa theo tỷ lệ đang chọn.

Nếu có thể mình xin thêm 1 trường hợp chiều đứng (ở trên theo chiều ngang)

mong được sự giúp đỡ từ mọi người. để mình có thể làm nhanh công việc và thuận tiện cho việc xuất kết quả qua excel. (mình không rành về autolisp nên nếu có thể mong có thêm chú thích ở mỗi dòng lệnh để mình có thể tìm hiểu thêm)

mấy con số mặc định mình cho đại, còn bao nhiêu mình xem lisp nếu hiểu mình sẽ sửa lại ch phù hợp.

bản vẽ và nội dung mình muốn có trong file đính kèm

http://www.cadviet.com/upfiles/6/152650_drawing1.dwghttp://www.cadviet.com/upfiles/6/152650_viet_lenh_autolisp.doc

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

Chào mọi người

Mong mọi người có thể giúp mình viết lisp với những yêu cầu như thế này được không.

Mình có trắc ngang như trên

Ví dụ tên lệnh : tt

Sau khi gõ tên thì sẽ hiện ra câu hỏi

1.    bạn có muốn thay đổi tùy chỉnh đã cài đặt sẵn (Y,N)- mặc định N

Nếu chọn Y thì sẽ hiện ra câu hỏi tiếp theo: còn N thì sẽ lấy những cài đặt mặc định bên dưới và chuyển sang bước 2

+          Chọn vị trí để điền text cao độ- ví dụ ngay điểm (3)- cách điểm dưới cùng của đoạn thẳng được chọn 1 khoảng cách bao nhiêu đó (do mình nhập- nếu enter bỏ qua thì mặc định 20)

+          Chọn vị trí để điền text khoảng cách điểm đo – ví dụ điểm (4) - cách điểm dưới cùng của đoạn thẳng được chọn 1 khoảng cách bao nhiêu đó (do mình nhập- nếu enter bỏ qua thì  mặc định 40) và nó sẽ nằm giữa 2 text cao độ ở bên trên

+          Bạn có muốn thay đổi chiều cao Text (Y/N) - nếu enter bỏ qua thì mặc định 5

+          Chọn góc xoay của text  chiều dài - nếu enter bỏ qua thì mặc định 90 độ thẳng đứng như trên

+          Chọn góc xoay của text khoảng cách - nếu enter bỏ qua thì mặc định 90 độ thẳng đứng như trên

2.    hiện gợi ý tiếp: hãy chọn các đoạn cần đo:

và mình sẽ chọn 5 đoạn trên đó. (áp dụng cho LINE,ARC,CIRCLE,POLYLINE,LWPOLYLINE,ELLIPSE,SPLI

3.    sau đó enter kết thúc lệnh và các số màu xanh bên trên sẽ hiện ra

+ trường hợp chọn >=2 đoạn thì sẽ xuất kết quả tương tự như trên

+ còn chỉ chọn 1 đoạn rồi kết thúc lệnh thì chỉ xuất con số (3)- không cần khoảng cách

số (3) là chiều dài của đoạn thẳng (1)

số (4) là khoảng cách giữa đoạn thẳng (1) và (2)

tỷ lệ tính toán sẽ dựa theo tỷ lệ đang chọn.

Nếu có thể mình xin thêm 1 trường hợp chiều đứng (ở trên theo chiều ngang)

mong được sự giúp đỡ từ mọi người. để mình có thể làm nhanh công việc và thuận tiện cho việc xuất kết quả qua excel. (mình không rành về autolisp nên nếu có thể mong có thêm chú thích ở mỗi dòng lệnh để mình có thể tìm hiểu thêm)

mấy con số mặc định mình cho đại, còn bao nhiêu mình xem lisp nếu hiểu mình sẽ sửa lại ch phù hợp.

bản vẽ và nội dung mình muốn có trong file đính kèm

http://www.cadviet.com/upfiles/6/152650_drawing1.dwghttp://www.cadviet.com/upfiles/6/152650_viet_lenh_autolisp.doc

Hề hề hề,

cái tỷ lệ mà bạn đang chọn là tỷ lệ nào vậy???? Nếu căn cứ theo bản vẽ bạn gửi thì có vẻ như tỷ lệ theo trục x khác với tỷ lệ theo trục y??? Khó quá.

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

Hề hề hề,

cái tỷ lệ mà bạn đang chọn là tỷ lệ nào vậy???? Nếu căn cứ theo bản vẽ bạn gửi thì có vẻ như tỷ lệ theo trục x khác với tỷ lệ theo trục y??? Khó quá.

cảm ơn bác đã quan tâm. ý em là tỷ lệ theo dòng lệnh này xác định được ạ.

(getvar "dimlfac")

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


×