Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
2 replies to this topic

#1 langtuchungtinh360

langtuchungtinh360

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 30 August 2016 - 11:31 PM

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.c...50_drawing1.dwghttp://www.cadviet.c...nh_autolisp.doc


  • 0

#2 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 03 September 2016 - 11:31 AM

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.c...50_drawing1.dwghttp://www.cadviet.c...nh_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á.


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 langtuchungtinh360

langtuchungtinh360

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 September 2016 - 08:06 PM

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")


  • 0