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

Viết Lisp theo yêu cầu

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

Lệnh RuleLine (vì giống lệnh RuleSurf của ACAD) dưới đây sẽ giúp bạn:

 

Đầu tiên là rất cảm ơn bác Nguyên Hoành! Vừa mới post lên bác đã giúp được rồi!

Thứ hai là em muốn thêm 1 chút tính năng cho lisp này. Bây giờ không phải là đường thẳng nối nữa mà em muốn nó là một đường cong spline nối các điểm chia đó có đc không bác. Bởi vì em muốn Rải thép trên mặt bằng của một đường cong chuyển tiếp nên các thanh thép cũng phải cong theo.

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
Đầu tiên là rất cảm ơn bác Nguyên Hoành! Vừa mới post lên bác đã giúp được rồi!

Thứ hai là em muốn thêm 1 chút tính năng cho lisp này. Bây giờ không phải là đường thẳng nối nữa mà em muốn nó là một đường cong spline nối các điểm chia đó có đc không bác. Bởi vì em muốn Rải thép trên mặt bằng của một đường cong chuyển tiếp nên các thanh thép cũng phải cong theo.

 

Thứ nhất là không dám nhận lời cảm ơn của bạn.

Thứ hai là không giúp bạn thêm tính năng cho lisp trên được. Bạn rút kinh nghiệm lần sau cần nêu yêu cầu cụ thể ngay từ đầu.

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

Bác nói là không thể làm được, hay bác không giúp đc. Thực ra lúc đầu e cứ tưởng dùng line là được nhưng về sau check lại thì không thể dùng line mà phải dùng đường cong nó mới hợp lý nên e mới phải bổ xung ý tưởng thôi

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

Bác Hoành giúp em cái lisp này nha:

1. Chon 1 pline

2. Tính khoảng cách giữa các đỉnh của Pline vừa chọn

3. Tính toạ độ giữa các đỉnh của Pline vừa chọn.

Cám ơn bác trước.

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
Bác Hoành giúp em cái lisp này nha:

1. Chon 1 pline

2. Tính khoảng cách giữa các đỉnh của Pline vừa chọn

3. Tính toạ độ giữa các đỉnh của Pline vừa chọn.

Cám ơn bác trước.

Tính xong rồi làm thì làm gì bạn?

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

Bác Hoành giúp em cái lisp này nha:

1. Chon 1 pline

2. Tính khoảng cách giữa các đỉnh của Pline vừa chọn

3. Ghi khoảng cách giữa các đỉnh đó vào giữa các đỉnh của Pline vừa chọn.

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 các bác em là lính mới mong các đại ca sửa giúp em lỗi này : Em sửa lệnh Align như sau ở cad 20004 và dùng không có vấn đề gì nhưng ở cad14 thì máy báo lỗi như sau:

"Command: 1

Select objects: Other corner: 1 found

 

Select objects: ALIGN Unknown command "ALIGN". Press F1 for help.

 

Command: <Selection set: 1>"

(Defun c:1 (/ ss1)(setq ss1 (ssget))(command "ALIGN" ss1 "" pause "" pause pause "" pause "" ""))

(Defun c:2 (/ ss1)(setq ss1 (ssget))(command "ALIGN" ss1 "" pause "" pause ""))

(Defun c:3 (/ ss1)(setq ss1 (ssget))(command "ALIGN" ss1 "" pause "" pause pause "" pause "" "Y" ""))

Các bác Nguyễn Hoành giúp em với !

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 các bác em là lính mới mong các đại ca sửa giúp em lỗi này : Em sửa lệnh Align như sau ở cad 20004 và dùng không có vấn đề gì nhưng ở cad14 thì máy báo lỗi như sau:

"Command: 1

Select objects: Other corner: 1 found

 

Select objects: ALIGN Unknown command "ALIGN". Press F1 for help.

 

Command: "

(Defun c:1 (/ ss1)(setq ss1 (ssget))(command "ALIGN" ss1 "" pause "" pause pause "" pause "" ""))

(Defun c:2 (/ ss1)(setq ss1 (ssget))(command "ALIGN" ss1 "" pause "" pause ""))

(Defun c:3 (/ ss1)(setq ss1 (ssget))(command "ALIGN" ss1 "" pause "" pause pause "" pause "" "Y" ""))

Các bác Nguyễn Hoành giúp em với !

Đoạn mã trên thì với ACAD nào cũng gặp vấn đề hết.

 

Để không gặp vấn đề, bạn phải dùng lệnh Align tại dòng lệnh 1 lần để AutoCAD load DLL cần thiết lên bộ nhớ, sau đó mới dùng được. Còn không, bạn thêm dòng lệnh sau vào trước lệnh command: (arxload "geom3d.arx")

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
mình đang cần vễ hình có sử dụng đường cong Epicycloide va hypocycloide. Yêu cầu của hình vẽ minh đã post theo link http://www.cadviet.com/upfiles/EpyCycloide...ypoCycloide.doc

Mong các bạn giúp đỡ.

Cám ơn các bạn nhiều

Bạn muốn kết quả là đường LWPOLINE hay Spline?

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

Bác Hoành ơi giúp em cái lisp này nha:

1. Chon 1 pline

2. Tính khoảng cách giữa các đỉnh của Pline vừa chọn

3. Ghi khoảng cách giữa các đỉnh đó vào giữa các đỉnh của Pline vừa chọn.

Cám ơn bác trước

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
Lời kêu cứu khẩn thiết :cheers:

Bác Hoành ra tay đi bác!

Hãy chị khó đọc bài viết của tôi trước khi nhờ tôi giúp tiếp. Đây là bài post thứ 2 của namng về cùng 1 nội dung, mà namng không chịu đọc bài trả lời của tôi với bài post trước đó.

 

Tôi sẽ không giúp bất cứ ai chỉ chăm chăm nhờ tôi, nhưng không cần quan tâm đến câu trả lời của tôi. Vì như vậy là họ thiếu tôn trọng tôi.

  • Vote tăng 1

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

Cái Lisp trước chỉ là vẽ đường dóng đấy chứ bác Hoành.

Thú thật em định viết lisp mà em yêu cầu từ cái lisp trước đó, nhưng em viết mãi mà không được.

Bác cố gắng giúp em với nha.

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
Cái Lisp trước chỉ là vẽ đường dóng đấy chứ bác Hoành.

Thú thật em định viết lisp mà em yêu cầu từ cái lisp trước đó, nhưng em viết mãi mà không được.

Bác cố gắng giúp em với nha.

Bạn hỏi cùng một vấn đề ở bài số 679; 682; 687.

Ở bài 679 bác Hoành đã hỏi bạn "Tính xong rồi thì làm gì bạn?" mà không thấy bạn trả lời trả vốn gì cả(?!)

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

Em đã viết lại cái đầu bài rùi mà.

Tính xong khoảng cách rùi ghi giá trị khoảng cách đó vào đểm giữa của đỉnh pline mà.

Bác Hoàng giúp em cái nha. Thank bác

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
Bạn muốn kết quả là đường LWPOLINE hay Spline?

Trích dẫn(dotracchien @ May 12 2008, 06:42 PM) *

mình đang cần vễ hình có sử dụng đường cong Epicycloide va hypocycloide. Yêu cầu của hình vẽ minh đã post theo link http://www.cadviet.com/upfiles/EpyCycloide...ypoCycloide.doc

Mong các bạn giúp đỡ.

Cám ơn các bạn nhiều

 

Bạn muốn kết quả là đường LWPOLINE hay Spline?

Được dạng Spilne thì tốt quá. Xin giúp đỡ.Mình đang cần quá mà bây giờ mới làm quen với lisp nên 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
Đoạn mã trên thì với ACAD nào cũng gặp vấn đề hết.

 

Để không gặp vấn đề, bạn phải dùng lệnh Align tại dòng lệnh 1 lần để AutoCAD load DLL cần thiết lên bộ nhớ, sau đó mới dùng được. Còn không, bạn thêm dòng lệnh sau vào trước lệnh command: (arxload "geom3d.arx")

 

Cảm ơn Bác nhiều, nhưng bác có thể hướng dẫn cụ thể hơn cho em được không ? Em đã làm như bác nói nhưng vãn không được và báo như sau :

 

Unable to execute "geom3d.arx".

 

Error: ARXLOAD failed.*Cancel*

Em muốn sửa lênh này bởi vì em hay phải copy đối tượng từ bản vẽ này sang bản vẽ kia.

Đoạn mã này :(Defun c:3 (/ ss1)(setq ss1 (ssget))(command "ALIGN" ss1 "" pause "" pause pause "" pause "" "Y" ""))

em vẫn dùng được các đời cad ngoại trừ cadR14 (công ty em chỉ dùng cad14 thui).

Bác giúp em nhé.

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

Bác hoành giúp em cái dc không.

1. Chọn 1 Pline

2. Tính khoảng cách giữa các đỉnh của Pline vừa chọn

3. Ghi khoảng cách giữa các đỉnh đó vào giữa các đỉnh của Pline vừa chọn.

Em đang cần quá mà làm mãi không đc. Bác cố gắng giúp em cái.

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

bác Hoành ơi, hôm trước em có đọc ở đâu đó người ta viết một lisp để in một lúc nhiều bản vẽ bằng cách tạo một block là cái khung bản vẽ, sau đó copy multy cái block đó đặt vào những bản vẽ cần in, sau đó lệnh in sẽ in ra nhũng phần bản vẽ nằm trong cái block đó. đại ca giúp em nhá

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
Bác hoành giúp em cái dc không.

1. Chọn 1 Pline

2. Tính khoảng cách giữa các đỉnh của Pline vừa chọn

3. Ghi khoảng cách giữa các đỉnh đó vào giữa các đỉnh của Pline vừa chọn.

Em đang cần quá mà làm mãi không đc. Bác cố gắng giúp em cái.

 

Nghe kiểu nói thì bạn có biết viết lisp. Mình có 2 ý thế này:

-Bạn tự viết 1 lisp đơn giản thôi. chọn hai điểm rồi viết khoảng cách vào điểm giữa hai điểm đó. (cái này dể)

-Bạn muốn ngon như bạn yêu cầu ở trên thì tìm xem cái bác SSG viết về liệt kê tọa độ đỉnh của pl cải tiến 1 chút. Cái đó bác SSG dùng hàm mở rộng tôi không rành.

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
bác Hoành ơi, hôm trước em có đọc ở đâu đó người ta viết một lisp để in một lúc nhiều bản vẽ bằng cách tạo một block là cái khung bản vẽ, sau đó copy multy cái block đó đặt vào những bản vẽ cần in, sau đó lệnh in sẽ in ra nhũng phần bản vẽ nằm trong cái block đó. đại ca giúp em nhá

Bạn search chữ MPLOT trên diễn đàn CADViet

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
Khách
Chủ đề này bây giờ đã bị đóng lại để trả lời thêm.

×