Bạn dùng hàm GiaoDT sau. Cái này của anh Hoành viết lâu rồi ở đâu đó, ssg có biên tập thêm một chút:



Kết quả là một "list of 3Dpoint", gồm toàn bộ các giao điểm của 2 đối tượng, bất kể loại đối tượng nào, miễn là nó có dạng "đường", kể cả đường bao của đối tượng region. Nếu không có giao điểm, kết quả return nil.
Không bàn đến ý nghĩa các code...

Bạn dùng hàm GiaoDT sau. Cái này của anh Hoành viết lâu rồi ở đâu đó, ssg có biên tập thêm một chút:



Kết quả là một "list of 3Dpoint", gồm toàn bộ các giao điểm của 2 đối tượng, bất kể loại đối tượng nào, miễn là nó có dạng "đường", kể cả đường bao của đối tượng region. Nếu không có giao điểm, kết quả return nil.
Không bàn đến ý nghĩa các code lúc này, cứ dùng đã rồi sẽ hiểu!
Một ví dụ:



Chạy lệnh VD, bấm F2 sẽ thấy giá trị return.

Bạn thử lisp này xem sao. Lệnh AD (AutoDim):


Lưu ý:
1. Yêu cầu của bạn nếu chỉ với Line thì có thể đơn giản, nhưng có cả Pline thì cũng khá lôi thôi khi lập trình
2. Khi dim trực tiếp, user có sự nhìn nhận tổng quát để đặt vị trí dim linh hoạt, phù hợp với nhiều tình huống khác nhau. Với chương trình thì không (hoặc khó) được như vậy vì mọi chương trình...

Bạn thử lisp này xem sao. Lệnh AD (AutoDim):


Lưu ý:
1. Yêu cầu của bạn nếu chỉ với Line thì có thể đơn giản, nhưng có cả Pline thì cũng khá lôi thôi khi lập trình
2. Khi dim trực tiếp, user có sự nhìn nhận tổng quát để đặt vị trí dim linh hoạt, phù hợp với nhiều tình huống khác nhau. Với chương trình thì không (hoặc khó) được như vậy vì mọi chương trình đều mang tính máy móc và cứng nhắc. Trong chương trình trên, vị trí đặt dim được áp đặt theo một kiểu duy nhất, cách đối tượng một khoảng do user nhập vào tại dòng nhắc "Khoang cach tu doi tuong den duong kich thuoc <10>:". Mặc định lần đầu là 10, các lần sau chương trình tự nhớ trị số lần trước (nếu bạn chấp nhận trị số trong dấu móc nhọn thì chỉ cần Enter). Tuy nhiên, nhược điểm cũng chính là ưu điểm, bạn cứ yên chí rằng tất cả các dim đều nằm cách đối tượng một khoảng bằng nhau, đều tăm tắp!
3. AutoDim của bất cứ chương trình nào (kể cả các trình CAD "chính quy" có tính năng này), chỉ giúp user tiết kiệm được phần lớn thời gian, nhưng sau đó thường phải edit, chỉnh sửa thêm cho phù hợp.
4. Một điều quan trọng nữa cần lưu ý, khi dùng lisp trên, các dim tạo thành không có tính năng dimassoc. Nghĩa là khi bạn edit đối tượng, dim không tự động update theo được.

Chào bạn phillipdn,
Đây là một lisp mình viết thử theo yêu cầu của bạn. Tuy nhiên do mình không phải dân hạ tầng mà là dân me cha ni cô nên thục sự không biết có hiểu đúng ý bạn hay không. Vì thế mình xin giải thích một chút:
1/- Mình hiểu i 1 = i 2 = i là độ dốc dọc theo đường tim, i 3 là độ dốc mái mặt đường, i 4 là dộ dốc mái lề đường.
2/- Mình mới làm được...

Chào bạn phillipdn,
Đây là một lisp mình viết thử theo yêu cầu của bạn. Tuy nhiên do mình không phải dân hạ tầng mà là dân me cha ni cô nên thục sự không biết có hiểu đúng ý bạn hay không. Vì thế mình xin giải thích một chút:
1/- Mình hiểu i 1 = i 2 = i là độ dốc dọc theo đường tim, i 3 là độ dốc mái mặt đường, i 4 là dộ dốc mái lề đường.
2/- Mình mới làm được phần cho các đoạn đường thẳng, còn các cung cong thì mình chưa nghĩ ra thuật toán giải.
3/- Trong lisp có phần vẽ các đường tim và đường giới hạn lòng lề đường do mình vẽ từ bản vẽ chưa có gì. Nếu bạn đả có bản vẽ sẵn thì có thể bỏ các lệnh vẽ pline này.
4/- Mình chưa làm hộp thoại nên chưa thể lưu các giá trị nhập vào cho lần sau được như ý bạn. Tuy nhiên nếu bạn thấy có thể sử dụng được mình sẽ bổ sung sau. Điều này không quá khó nhưng do mình mới học lisp, chưa thành thạo lắm nên phải từ từ. Vả lại không biết có đúng ý bạn không nên mình hượm đã.
5/- Mình chưa làm động tác loại trừ biến sau khi chạy lisp nên bạn lưu ý khi sử dụng. Nếu dùng chung với các lisp khác phải cẩn thận vì có sự trùng biến.
Rất mong bạn dùng thử rồi cho ý kiến để mình hoàn thiện lại. Thông cảm cho mình do trình độ còn thiếu.
6/- Lệnh chạy lisp là DMTK
Chúc bạn thành công.
http://www.cadviet.com/upfiles/Veduongdongmuc.lsp

1. Vì yêu cầu của bạn hơi... kỳ cục! Bạn có thể nói rõ, bạn cần cái lisp kiểu như vậy để làm gì không? Người lập trình chỉ có hứng thú khi biết rằng, lisp họ viết ra có thể giúp ích được cho nhiều người chứ không chỉ đáp ứng một yêu cầu đặc biệt của một người nào đó.
2. Nếu giá trị = 12 thì sao?
3. Dù sao thì yêu cầu của bạn cũng thuộc dạng đơn giản,...

1. Vì yêu cầu của bạn hơi... kỳ cục! Bạn có thể nói rõ, bạn cần cái lisp kiểu như vậy để làm gì không? Người lập trình chỉ có hứng thú khi biết rằng, lisp họ viết ra có thể giúp ích được cho nhiều người chứ không chỉ đáp ứng một yêu cầu đặc biệt của một người nào đó.
2. Nếu giá trị = 12 thì sao?
3. Dù sao thì yêu cầu của bạn cũng thuộc dạng đơn giản, bạn thử lisp này xem. Giá trị = 12 cũng thêm xyz luôn. Tên lệnh ABC:

Vừa rồi phải làm một công việc nhàm chán trong AutoCAD, đó là công việc đếm xem trên mặt đứng của một ngôi nhà, có bao nhiêu loại tấm ốp, mỗi tấm ốp có kích thước bao nhiêu, và bao nhiêu tấm mỗi loại. Trên mặt đứng, mỗi tấm là một Polyline được tạo bằng lệnh rectangle (có 4 cạnh).

Tranh thủ viết được một chương trình AutoLisp để làm công việc này. Khi sử dụng lệnh tkt...

Vừa rồi phải làm một công việc nhàm chán trong AutoCAD, đó là công việc đếm xem trên mặt đứng của một ngôi nhà, có bao nhiêu loại tấm ốp, mỗi tấm ốp có kích thước bao nhiêu, và bao nhiêu tấm mỗi loại. Trên mặt đứng, mỗi tấm là một Polyline được tạo bằng lệnh rectangle (có 4 cạnh).

Tranh thủ viết được một chương trình AutoLisp để làm công việc này. Khi sử dụng lệnh tkt (thống kê tấm), chương trình sẽ cho kết quả:

Command: tkt
Hay chon tam:
Select objects: Specify opposite corner: 264 found
89 were filtered out.
Select objects:

So luong cac tam:
461x900: 22 tam
1700x900: 6 tam
2500x900: 108 tam
800x1800: 7 tam
1520x900: 16 tam
2680x900: 16 tam
-------------------------
Mã lệnh AutoLisp:


Với nguyên tắc của lệnh tkt này, chúng ta có thể phát triển thành chương trình thống kê thanh dàn của kết cấu, chương trình đếm số lượng xe ôtô trong gara, liệt kê các block có trong bản vẽ, block nào xuất hiện mấy lần, ... Là cơ sở của các chương trình thống kê.

Rất mong nhận được sự phản hồi khi sử dụng lệnh tkt.
Cảm ơn.

Đây là một kiểu hatch khá lạ. Chỉ cần gõ lệnh "DH" và click điểm đầu tiên, việc còn lại là di chuột để có được tỉ lệ hatch
Lisp này sưu tầm từ AUGIWORLD. www.augi.com

Chú ý: Ai dùng AutoCAD 2006-7 thì mới thử dùng lisp này nhé

>>

Đây là một kiểu hatch khá lạ. Chỉ cần gõ lệnh "DH" và click điểm đầu tiên, việc còn lại là di chuột để có được tỉ lệ hatch
Lisp này sưu tầm từ AUGIWORLD. www.augi.com

Chú ý: Ai dùng AutoCAD 2006-7 thì mới thử dùng lisp này nhé

Có lẽ bác Hoành bận, để ssg hộ một tay. Đề nghị các bạn lần sau nêu yêu cầu rõ ràng hơn, càng rõ càng tốt. Điều đó giúp người lập trình có định hướng chuẩn xác ngay từ đầu, đỡ mất công sửa đi sửa lại.
Ngay cả đoạn CT dưới đây, ssg cũng không chắc là có đúng ý bạn hay không. Ví dụ: CT đọc text "001r ranh dat", nó sẽ tách ra 2 thành phần:
- Value = "001" = 1
-...

Có lẽ bác Hoành bận, để ssg hộ một tay. Đề nghị các bạn lần sau nêu yêu cầu rõ ràng hơn, càng rõ càng tốt. Điều đó giúp người lập trình có định hướng chuẩn xác ngay từ đầu, đỡ mất công sửa đi sửa lại.
Ngay cả đoạn CT dưới đây, ssg cũng không chắc là có đúng ý bạn hay không. Ví dụ: CT đọc text "001r ranh dat", nó sẽ tách ra 2 thành phần:
- Value = "001" = 1
- Code = "r ranh dat"
Value thì không có vấn đề, nhưng code là thành phần rất "nhạy cảm", nều bạn viết thừa hoặc thiếu dù chỉ 1 dấu cách, ví dụ: "r ranh dat " hoặc "r ranh dat B", chương trình sẽ xem như không cùng code và lọc bỏ.
Tóm lại, bạn phải có quy định rõ và nhất quán về code (mã điểm), cụ thể là sử dụng chính xác bao nhiêu ký tự cho code. Chẳng hạn, nếu bạn quy định 1 ký tự cho code thì (setq code (substr code 1 1)) là xong. Khi đó, chương trình sẽ hiểu:
- Code = "r"
- Các ký tự sau r: " ranh dat..." chỉ là ghi chú, không ảnh hưởng gì.