Đầu tiên, em xin chân thành cảm ơn bác tdvn và bác Nguyen Hoanh đã trợ giúp cho em.
Lisp của bác Hoành chạy OK. Em đã vận dụng cái Lisp của bác vào việc tính diện tích của một hình đa giác kín và bị khoét n lỗ ở trong.
Lisp đã chạy OK. Nhưng trước khi chạy ra kết quả (hiện ra hộp thoại AutoCAD...

Đầu tiên, em xin chân thành cảm ơn bác tdvn và bác Nguyen Hoanh đã trợ giúp cho em.
Lisp của bác Hoành chạy OK. Em đã vận dụng cái Lisp của bác vào việc tính diện tích của một hình đa giác kín và bị khoét n lỗ ở trong.
Lisp đã chạy OK. Nhưng trước khi chạy ra kết quả (hiện ra hộp thoại AutoCAD mesage) thì nó lại hiện ra hộp thoại Question, em phải ấn No. Và số lần em ấn No bằng với số đối tượng do lệnh Boundary tạo ra. Thiết nghĩ nguyên nhân này do lỗi vòng lặp mà em chưa biết lỗi do đâu bác Hoành ạ. Bác và mọi người trên diễn đàn có thể giải thích dùm Tue_NV nguyên nhân được không?
Đây là hình ảnh của hộp thoại question :
http://www.cadviet.com/upfiles/question.jpg
Còn đây là đoạn Code mà Tue_NV viết để tính tính diện tích của một hình đa giác kín và bị khoét n lỗ ở trong.

Cảm ơn mọi người thật nhiều

Chương trình đã sửa theo ý anh vbao. User chỉ định thêm điểm cố định, đường chia d sẽ quay quanh điểm này.



Ssg chưa test kỹ lắm. Các bạn dùng thử trong nhiều trường hợp xem có sai sót gì không. Tạm thời dùng lệnh DL1. Khi nào ổn ssg sẽ gộp 2 chương trình thành 1, kèm...

Chương trình đã sửa theo ý anh vbao. User chỉ định thêm điểm cố định, đường chia d sẽ quay quanh điểm này.



Ssg chưa test kỹ lắm. Các bạn dùng thử trong nhiều trường hợp xem có sai sót gì không. Tạm thời dùng lệnh DL1. Khi nào ổn ssg sẽ gộp 2 chương trình thành 1, kèm theo option cho user.

Em đang vẽ một số hình trong 3D, nhưng gặp khá nhiều khó khăn vì em biết ít lệnh trong môi trường này quá. Vì thế khi có vấn đề là em đè ra viết lisp để rút ngắn thời gian.
Em gửi mấy cái lisp mà em viết lên đây, chúng dùng để thực...

Em đang vẽ một số hình trong 3D, nhưng gặp khá nhiều khó khăn vì em biết ít lệnh trong môi trường này quá. Vì thế khi có vấn đề là em đè ra viết lisp để rút ngắn thời gian.
Em gửi mấy cái lisp mà em viết lên đây, chúng dùng để thực hiện những thao tác mà em cần, nhưng có thể trong CAD đã có những lệnh để thực hiện chúng, nên em mong mọi người ghóp ý cho em, ví dụ như: lisp này có thể thay bằng lệnh abc gì đó của CAD, hoặc đoạn trong lisp này có thể thay đổi lại như sau… vv.
Em cảm ơn cả nhà rất nhiều!
Sau đây, em xin đi vào chi tiết:
1. Đo khoảng cách 2 điểm và hiện ra thông báo như sau:
http://i244.photobucket.com/albums/gg18/vinhanh_hn/3-9.jpg
Lisp:

Em đang vẽ một số hình trong 3D, nhưng gặp khá nhiều khó khăn vì em biết ít lệnh trong môi trường này quá. Vì thế khi có vấn đề là em đè ra viết lisp để rút ngắn thời gian.
Em gửi mấy cái lisp mà em viết lên đây, chúng dùng để thực...

Em đang vẽ một số hình trong 3D, nhưng gặp khá nhiều khó khăn vì em biết ít lệnh trong môi trường này quá. Vì thế khi có vấn đề là em đè ra viết lisp để rút ngắn thời gian.
Em gửi mấy cái lisp mà em viết lên đây, chúng dùng để thực hiện những thao tác mà em cần, nhưng có thể trong CAD đã có những lệnh để thực hiện chúng, nên em mong mọi người ghóp ý cho em, ví dụ như: lisp này có thể thay bằng lệnh abc gì đó của CAD, hoặc đoạn trong lisp này có thể thay đổi lại như sau… vv.
Em cảm ơn cả nhà rất nhiều!
Sau đây, em xin đi vào chi tiết:
1. Đo khoảng cách 2 điểm và hiện ra thông báo như sau:
http://i244.photobucket.com/albums/gg18/vinhanh_hn/3-9.jpg
Lisp:

Xong phần khởi động. Giờ là bắt đấu vẽ với LINE, với ARC...
- Ồ! những đường Line này sao không phải là PLINE nhỉ? Vừa dễ quản lý vừa nhẹ bản vẽ. Phải làm sao đây? BO lại à ? OH không !!!

Bài 4. Nối LINE và ARC thành PLINE



Lệnh để nối LINE và ARC thành PLINE là...

Xong phần khởi động. Giờ là bắt đấu vẽ với LINE, với ARC...
- Ồ! những đường Line này sao không phải là PLINE nhỉ? Vừa dễ quản lý vừa nhẹ bản vẽ. Phải làm sao đây? BO lại à ? OH không !!!

Bài 4. Nối LINE và ARC thành PLINE



Lệnh để nối LINE và ARC thành PLINE là nn

1- Ý bạn muốn hoàn chỉnh như thế nào? Nói chung, các hàm dạng vlax-curve-xxxx có đủ khả năng để đảm đương việc "chia chác" curve theo đủ các kiểu ta muốn. Thật ra thì ý của chủ topic này chưa rõ ràng: cách user nhập số liệu? Cách đáp ứng của chương trình? v.v...

2- Nói về...

1- Ý bạn muốn hoàn chỉnh như thế nào? Nói chung, các hàm dạng vlax-curve-xxxx có đủ khả năng để đảm đương việc "chia chác" curve theo đủ các kiểu ta muốn. Thật ra thì ý của chủ topic này chưa rõ ràng: cách user nhập số liệu? Cách đáp ứng của chương trình? v.v...

2- Nói về DIV và ME, ssg xin nêu Bài toán trồng trụ rào như sau:
Đường ranh có chiều dài L. Người ta muốn trồng các trụ rào cách đều nhau, với khoảng cách dự kiến là k.
Số khoảng chia n = L/k nói chung không phải là số nguyên -> ta phải làm tròn n, sau đó tính lại kt = L/n, có sai khác chút ít với k dự kiến ban đầu. Bài toán này ssg gặp rất nhiều trong cơ khí: chia và khoan các lỗ cách đều nhau trên một đoạn chiều dài cho trước. Dùng ME trong trường hợp này không ổn vì nó sẽ chừa lại một đoạn cuối cùng "không giống ai"! Để dùng DIV phải qua các bước:
- Đo chiều dài L của curve
- Dự kiến khoảng cách k
- Tính n = L/k. Làm tròn n (có thể làm tròn tăng hoặc giảm tùy trường hợp)
- Dùng lệnh DIV với thông số n
Ssg vẫn thường dùng lisp sau, kết hợp ME và DIV. Bạn nào có nhu cầu tương tự bài toán "trồng trụ rào" nêu trên thử dùng xem:

Tui cần chia những đường cong như arc, circle thành những phần tử polyline để tạo wipeout và xuất wa những phần mềm tính toán bằng phương pháp phần tử hữu hạn. Tui lên google search đc cái lisp này thấy cũng ok nhưng mà nó chỉ có option chia theo segment length. Có cách nào chỉnh cái lisp này sao cho nó có thêm option chia theo...

Tui cần chia những đường cong như arc, circle thành những phần tử polyline để tạo wipeout và xuất wa những phần mềm tính toán bằng phương pháp phần tử hữu hạn. Tui lên google search đc cái lisp này thấy cũng ok nhưng mà nó chỉ có option chia theo segment length. Có cách nào chỉnh cái lisp này sao cho nó có thêm option chia theo "number of segments" không?

Bạn philipdn gởi message nhờ ssg một việc:

Theo đúng "Tinh thần CADVIET", ssg không trả lời riêng mà post lên đây chia sẻ cùng các bạn:



Các functions trên là để "Get...", các bạn muốn "Set..." có thể tham khảo thêm ở đây và phát triển theo ý riêng:
http://www.cadviet.com/forum/index.php?showtopic=10921

@philipdn

>>

Bạn philipdn gởi message nhờ ssg một việc:

Theo đúng "Tinh thần CADVIET", ssg không trả lời riêng mà post lên đây chia sẻ cùng các bạn:



Các functions trên là để "Get...", các bạn muốn "Set..." có thể tham khảo thêm ở đây và phát triển theo ý riêng:
http://www.cadviet.com/forum/index.php?showtopic=10921

@philipdn
Ssg lâu lâu mới vào diễn đàn. Nếu bạn post công khai thì có lẽ đã nhận được reply từ rất nhiều bạn khác rồi, chẳng phải chờ ssg!

Mình đang viết 1 đoạn lisp xuất dữ liệu ra TXT nhưng gặp1 vấn đề như sau:
- Khi thực hiện lệnh lần 1 thì không có vấn đề gì.
- Thực hiện lần 2 thì kết quả lần 2 đè lên lần 1.
( ờ đây mình ghi cùng lên 1 file )
Mình muốn lần 1 thì kết quả ở dòng 1 của file TXT.

>>

Mình đang viết 1 đoạn lisp xuất dữ liệu ra TXT nhưng gặp1 vấn đề như sau:
- Khi thực hiện lệnh lần 1 thì không có vấn đề gì.
- Thực hiện lần 2 thì kết quả lần 2 đè lên lần 1.
( ờ đây mình ghi cùng lên 1 file )
Mình muốn lần 1 thì kết quả ở dòng 1 của file TXT.
Lần 2 ghi vào dòng 2.
Lần n ghi vào dòng n.
Sau đây là lsp của mình mong các bạn góp ý và chỉ cho mình.

Chương trình nội suy cao độ theo các đường đồng mức và/hoặc các điểm tham chiếu. Cung cách hoạt động đúng như ssg đã trình bày ở bài trước. Tên lệnh: ZZ



Thuyết minh hoạt động của chương trình:
1) Nội suy theo đường đồng mức: từ điểm...

Chương trình nội suy cao độ theo các đường đồng mức và/hoặc các điểm tham chiếu. Cung cách hoạt động đúng như ssg đã trình bày ở bài trước. Tên lệnh: ZZ



Thuyết minh hoạt động của chương trình:
1) Nội suy theo đường đồng mức: từ điểm đang xét, kẻ 2 đường vuông góc (theo mặt bằng) với 2 đường đồng mức. Sau đó thực hiện nội suy theo công thức:
Z = (d1*Z2 + d2*z1) / (d1 + d2), không quan tâm đến 3 điểm có thẳng hàng hay không.

2) Nội suy theo các cặp điểm tham chiếu:
Công thức nội suy vẫn như trên. Yêu cầu tổng số điểm chọn, trừ điểm đang xét, phải là số chẵn. Nếu không, chương trình sẽ ra thông báo và sau đó exit.
Xem ra cũng khá dài dòng vì để lấy được dữ liệu của 1 điểm phải cần đến 2 đối tượng khác loại nhau (lấy X, Y từ point và lấy Z từ text). Trong 2 thành phần đó, chương trình dựa vào point là chính. Độ cao Z được lấy theo đối tượng text gần nhất so với point. Lưu ý: điểm chuẩn của text đối với chương trình là điểm insert của nó. Do đó, trong các vùng phức tạp, mật độ text dày đặc, có khả năng gặp phải trường hợp “râu ông nọ cắm cằm bà kia”! Nếu có thể, nên chuyển điểm insert của text về trùng (x, y) với đối tượng point mà nó biểu diễn để bảo đảm cho chương trình chạy chính xác.

3) Theo mình, các bản vẽ đã “lỡ có” rồi thì thôi. Nhưng khi lập bản vẽ mới, nên có quy ước nhất quán sẽ tạo điều kiện thuận lợi hơn cho lập trình khi cần. Chẳng hạn, cách ghi text và point, nếu bảo đảm được 1 trong 2 điều kiện sau thì chương trình này sẽ đơn giản hơn rất nhiều, và hoàn toàn không phải bận tâm đến vấn đề nêu trên:
- Các đối tượng point được vẽ đúng độ cao z (giống như các pline đồng mức).
- Các đối tượng text có điểm insert đúng tọa độ x, y của point

Vbao xem và test trong nhiều trường hợp khác nhau. Nếu có vấn đề gì thì phản hồi, mình sẽ sửa và bổ sung.

Lệnh hatchedit của ACAD đời mới có thể tạo lại đường biên của Hatch.
Nhưng vẫn còn một điều bất tiện là mỗi lệnh chỉ tạo được đường biên của 1 đối tượng Hatch.

Xin tặng các thành viên CADViet, mã lệnh lisp để tạo được nhiều...

Lệnh hatchedit của ACAD đời mới có thể tạo lại đường biên của Hatch.
Nhưng vẫn còn một điều bất tiện là mỗi lệnh chỉ tạo được đường biên của 1 đối tượng Hatch.

Xin tặng các thành viên CADViet, mã lệnh lisp để tạo được nhiều đường biên một lúc với lệnh hatch edit này.

Trong t/hợp của bạn, sử dụng BlockThuộc tính có nhiều ưu điểm hơn.
Tham khảo các bài viết về BlockThuộc tính trên CadViet : http://www.cadviet.com/sub/hsearch.php?cx=...b%2Fhsearch.php

Đây là Lisp theo yêu cầu của bạn :
liên kết các đối tượng đuợc chọn (line, Text) thành 1 khối (Block) mà VỊ TRÍ...

Trong t/hợp của bạn, sử dụng BlockThuộc tính có nhiều ưu điểm hơn.
Tham khảo các bài viết về BlockThuộc tính trên CadViet : http://www.cadviet.com/sub/hsearch.php?cx=...b%2Fhsearch.php

Đây là Lisp theo yêu cầu của bạn :
liên kết các đối tượng đuợc chọn (line, Text) thành 1 khối (Block) mà VỊ TRÍ (TỌA ĐỘ) CỦA BẢN VẼ ĐÓ KHÔNG THAY ĐỔI.