Có 2 điểm không chuẩn trong đoạn lisp trên của duy782006.

- Thứ nhất, vòng lặp while của bạn không có điều kiện thoát, vì vậy sẽ lặp vĩnh viễn. Bạn hãy move đoạn code (setq b (getpoint "\nChon diem dat moi: ")) vào ngay sau while.

- Thứ hai, bạn select 2 lần, copy 2 lần đối tượng text, như vậy là thừa. Bạn hãy xóa các dòng lệnh thừa đó:
(Prompt "\nChon cac doi tuong chep theo...")

>>

Có 2 điểm không chuẩn trong đoạn lisp trên của duy782006.

- Thứ nhất, vòng lặp while của bạn không có điều kiện thoát, vì vậy sẽ lặp vĩnh viễn. Bạn hãy move đoạn code (setq b (getpoint "\nChon diem dat moi: ")) vào ngay sau while.

- Thứ hai, bạn select 2 lần, copy 2 lần đối tượng text, như vậy là thừa. Bạn hãy xóa các dòng lệnh thừa đó:
(Prompt "\nChon cac doi tuong chep theo...")
(Setq CDT (Ssget))
và
(command "copy" CDT "" (list xa ya) (list xb yb))

Như vậy, code sẽ trở thành như sau:


Có thể mọi người ngạc nhiên tại sao tôi lại ngồi sửa từng lỗi lisp cho các thành viên? Rất dễ hiểu thôi, tôi cũng đã từng tự học lisp như các bạn. Khi đó chưa có mạng internet, không có chương trình visual lisp, không có ai để hỏi. Nhiều khi mắc một lỗi lisp tìm cả tháng mới biết cách khắc phục. Vì vậy, tôi rất hiểu mong muốn của mọi người khi post các bài thực hành lisp lên đây. Tôi đã và sẽ sửa tiếp như thế! He he!!!

Các bác ơi sữa giùm mình đoạn lisp sau này nhé.




với đoạn lisp này khi cộng các giá trị mà có tổng của chúng nhỏ hơn 1 thì nó không xuất ra kết quả 0.3 (giả sử kết quả là 0.3), mà kết quả xuất ra là ".3" ; nếu để thế rồi tiền hành phép toán khác thí nó lại không nhận gía trị .3 mà phải sửa lai 0.3 rồi mới thực hiện được.

các bác có...

Các bác ơi sữa giùm mình đoạn lisp sau này nhé.




với đoạn lisp này khi cộng các giá trị mà có tổng của chúng nhỏ hơn 1 thì nó không xuất ra kết quả 0.3 (giả sử kết quả là 0.3), mà kết quả xuất ra là ".3" ; nếu để thế rồi tiền hành phép toán khác thí nó lại không nhận gía trị .3 mà phải sửa lai 0.3 rồi mới thực hiện được.

các bác có thể giúp mình khác phục tình trạng trên không, làm sao để có đươc kết quả là "0.3"

Thiết kế nguyên lý máy, thiết kế cam, vẽ quỹ đạo, mô phỏng, khảo sát chuyển động các cơ cấu cơ khí là "chuyện thường ngày ở huyện" của ssg. Ý tưởng của bạn rất hay, đúng ngay chỗ... ngứa của mình!
Bạn thử dùng chương trình sau:



Hướng dẫn
Vẽ sẵn biên dạng cần gia công, tam giác gá dao (tam giác MPC như ví dụ của bạn) và đường tròn chuẩn....

Thiết kế nguyên lý máy, thiết kế cam, vẽ quỹ đạo, mô phỏng, khảo sát chuyển động các cơ cấu cơ khí là "chuyện thường ngày ở huyện" của ssg. Ý tưởng của bạn rất hay, đúng ngay chỗ... ngứa của mình!
Bạn thử dùng chương trình sau:



Hướng dẫn
Vẽ sẵn biên dạng cần gia công, tam giác gá dao (tam giác MPC như ví dụ của bạn) và đường tròn chuẩn. Chương trình mang tính tổng quát hơn yêu cầu của bạn: cho phép biên dạng gia công có hình dáng bất kỳ chứ không chỉ là hình vuông bo tròn 4 góc. Hình tam giác MPC vẽ sao cũng được, chương trình không quan tâm đến các tham số x, y và góc anpha của bạn (miễn là có hình tam giác thấy trên màn hình là nó... chơi ngay!).
Yêu cầu bắt buộc:
1. Hình tam giác và biên dạng gia công phải là Pline kín
2. Hình tam giác phải có 1 đỉnh nằm trên đưởng tròn, 1 đỉnh nằm trên biên dạng. User phải bảo đảm chính xác và chịu trách nhiệm về điều đó. Nếu không, có thể chương trình không chạy hoặc cho kết quả sai.
User tuỳ chọn "trị số góc của 1 khoảng chia", mặc định là 1 độ, nếu chấp nhận chỉ việc Enter không cần nhập số. Trị số 1 khoảng chia càng nhỏ, kết quả càng chính xác nhưng chương trình chạy lâu hơn. Kết quả cuối cùng là 1 pline kín nối các điểm trên quỹ đạo của điểm C ứng với các khoảng chia. Ngoài ra, để tạo ấn tượng và để dễ kiểm tra khi chạy, chương trình vẽ thêm các point trên quỹ đạo. Nếu không thích, có thể cho các point vào layer nào đó rồi ấn nó đi. Nếu không muốn vẽ các point, xoá bỏ cả dòng code:
(command "point" p3) ;;;Ve cac diem de kiem tra qua trinh chay, khong can thi bo


Đề nghị
Bài toán của bạn phải có một số điều kiện vì các yếu tố: biên dạng gia công, đường tròn và hình tam giác phải có những ràng buộc (bắt buộc) nào đó mới có thể có kết quả. Các ràng buộc bao gồm cả các phương diện:
1. Hình học: nếu tam giác chọn không hợp lý, sẽ có những vị trí nó không thể có 2 đỉnh nằm trên đường tròn và biên dạng gia công.
2. Kỹ thuật: mối quan hệ giữa đường tròn, biên dạng gia công và hình tam giác không hợp lý sẽ dẫn đến những biên dạng cam... kỳ quái, không thoả mãn các điều kiện kỹ thuật bình thường của cơ cấu cam
3. Công nghệ: vị trí dao chạy trên biên dạng không hợp lý sẽ dẫn đến việc có những vị trí dao không thể cắt gọt được (theo nguyên lý cắt kim loại)
Nói chung, vấn đề này có thể nâng lên thành một đề tài nghiên cứu khoa học! Sau bước thiết kế biên dạng cam với sự hỗ trợ của chương trình, bạn có thể thiết kế ra cả cơ cấu cam, có hình dáng kích thước cụ thể; có bộ gá dao, con dao và chi tiết gia công cụ thể.... Bạn chuyển tất cả chúng thành các bản vẽ (*.dwg) và post lên để anh em cùng thảo luận, trao đổi và học tập lẫn nhau. OK?
Vấn đề này đã đi sâu vào chuyên ngành Cơ khí, có lẽ bạn vào box Cơ khí, lập topic mới cho nó thì hay hơn là thảo luận ở đây.

Lỗi này quả là rất ...thú vị và cũng nguy hiểm đối với các programer
Vì thông thường, một người ko trực tiếp viết code thì hơi khó phát hiện khi chỉ test 1, 2 lần.
Tôi cũng như bác...

Lỗi này quả là rất ...thú vị và cũng nguy hiểm đối với các programer
Vì thông thường, một người ko trực tiếp viết code thì hơi khó phát hiện khi chỉ test 1, 2 lần.
Tôi cũng như bác Hoành, mới đầu ko thấy vấn đề j cả, tưởng bạn post nhầm
Giờ chú ý lại mới thấy cái chỉ số tên file "i" của bạn có vấn đề
- Thứ nhất: với dòng (setq i 1) ở đoạn đầu thì chỉ số của bạn đã bị đặt cố định ko thể tăng lên 3. Ở đây bạn fải thêm một dòng kiểm tra
(if i
(setq i (1+ i))
(setq i 1)
)
- Thứ 2: với dòng (if (= nil (findfile tfile)) bạn chỉ kiểm tra được 1 lần. Chẳng hạn đã có file A1, A2, A3, ban đầu i = 1,
biến i sẽ được tăng lên i = 2 rồi dừng lại ko kiểm tra tiếp, file A3 sẽ bị ghi đè.
Bạn fải đưa vào một vòng lặp tăng i và kiểm tra đến khi nào ko trùng tên file mới dừng.
Đây là đoạn code đã sửa lại:

Bác Nguyen Hoanh ơi ! sao mình không tải được, vã lại có cách nào khác không (chỉ sử dụng lisp không thôi, mà không phai dùng file TD.dwg nữa không.

nhân tiện nhờ bác chỉ giùm mình sửa đoạn lisp này với nha'

đoạn lisp này sau khi chạy thì nó bỏ toàn bộ lựa chon truy bát tự đông (Snap), bác có cách nào giúp mình lấy lại tựa chọn cũ hay không, vã lại bài toán trên có thể...

Bác Nguyen Hoanh ơi ! sao mình không tải được, vã lại có cách nào khác không (chỉ sử dụng lisp không thôi, mà không phai dùng file TD.dwg nữa không.

nhân tiện nhờ bác chỉ giùm mình sửa đoạn lisp này với nha'

đoạn lisp này sau khi chạy thì nó bỏ toàn bộ lựa chon truy bát tự đông (Snap), bác có cách nào giúp mình lấy lại tựa chọn cũ hay không, vã lại bài toán trên có thể ghi tọa độ theo kiện ghi cao độ trong đoạn này được không?

Bạn cần đánh số cột đèn đúng ko
Cái này tôi đã làm giúp một đồng chí ở cty, nhưng có cái khác là bạn phải ký hiệu dạng T3-L1/4/A hoặc T3-L1/4:A . Tôi ko fải dân chuyên ngành điện nên ko hiểu được cách ký hiệu nào đúng. Tôi đưa lên lisp phục vụ cả 2 cách để bạn lựa chọn ...

Bạn cần đánh số cột đèn đúng ko
Cái này tôi đã làm giúp một đồng chí ở cty, nhưng có cái khác là bạn phải ký hiệu dạng T3-L1/4/A hoặc T3-L1/4:A . Tôi ko fải dân chuyên ngành điện nên ko hiểu được cách ký hiệu nào đúng. Tôi đưa lên lisp phục vụ cả 2 cách để bạn lựa chọn )
Cách dùng: tạo một text đầu tiên, đánh lệnh "DSC", chọn text gốc, chọn giá trị bước nhảy, chọn điểm gốc copy -- chọn điểm copy tới ... đến khi muốn dừng thì thôi.

Đây là lisp để bạn tham khảo và có thể phát triển thêm, trước đây tôi viết chơi nhưng chẳng mấy khi dùng đến.
Lệnh rt: căn lề phải (cho các text xếp theo dạng cột)
lft: căn lề trái ( "" "" )
cct : căn giữa cho cột text
crt : căn giữa cho hàng text
Bạn có thể chỉnh sửa lại tuỳ theo yêu cầu sử dụng (căn theo x, y, z ...)

>>

Đây là lisp để bạn tham khảo và có thể phát triển thêm, trước đây tôi viết chơi nhưng chẳng mấy khi dùng đến.
Lệnh rt: căn lề phải (cho các text xếp theo dạng cột)
lft: căn lề trái ( "" "" )
cct : căn giữa cho cột text
crt : căn giữa cho hàng text
Bạn có thể chỉnh sửa lại tuỳ theo yêu cầu sử dụng (căn theo x, y, z ...)


Dạo này vào quý IV, các bác nhà mình bận Tổng kết với ...đi đòi nợ hay sao mà thấy diễn đàn ... vắng vẻ (Ít có những yêu cầu kích thích sáng tạo )