Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
tuvanthietke.hcm

Hỏi về lisp nối line, pline (nn, lj,...)

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

Chỉ có thể nói 1 câu : chắc mọi người chịu

- nn,lj... của bạn là cái lisp như thế nào? lisp ở đâu ? nội dung ra làm sao ?

- Lúc dùng thì nó báo như thế nào ???

- File cad ra làm sao ??

 

Giả sử mình hỏi bạn,"- Hỏi về lisp thống kê tkt, tkth..."- " Sao mình dùng nó không ra cái j", bạn là người đọc, kể cả bạn có biết cái tkt đấy, bạn có giúp được hem :)

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

Cho mượn Topic này hỏi về nội dung tương tự nhé Bac!

em có mót được trên diễn đàn cái lisp chuyển Line sang Pline, những đường Line đơn giản thì chuyển rất ok nhưng đường Line em gửi lên đây thì bị tình trạng như trong hình vẽ kèm theo. nhờ các bác khắc phục giúp em với!

Đây là lisp:

http://www.cadviet.com/upfiles/3/chuyen_line_sang_pline.lsp

Đây là bản vẽ:

http://www.cadviet.com/upfiles/3/10010103_1.dwg

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

Cho mượn Topic này hỏi về nội dung tương tự nhé Bac!

em có mót được trên diễn đàn cái lisp chuyển Line sang Pline, những đường Line đơn giản thì chuyển rất ok nhưng đường Line em gửi lên đây thì bị tình trạng như trong hình vẽ kèm theo. nhờ các bác khắc phục giúp em với!

Đây là lisp:

http://www.cadviet.com/upfiles/3/chuyen_line_sang_pline.lsp

Đây là bản vẽ:

http://www.cadviet.com/upfiles/3/10010103_1.dwg

Tiếc là tôi không rành mấy thứ vl, vla, vlax, acep... nên không sửa trực tiếp file lisp của bạn được (dù file rất gọn).

Nhưng bạn dùng cái này xem (cũng trên CADViet, tôi "mông má" lại). Nó không bị lỗi đó.

http://www.cadviet.com/upfiles/3/noi_thanh_duong_pline.lsp

P/S: À, mới tìm ra. Có 2 cách:

1. Bạn sửa số "10" thành số "0".

2. Bạn format đơn vị đo về càng nhỏ càng tốt.

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ủ topic : Trên diễn đàn có khá nhiều lisp nối *Line rồi đó bạn, nếu chịu khó dùng công cụ search thì sẽ thấy kha khá.

@ Doan Van Ha : thực chất trong lisp này chỉ có duy nhất 1 lệnh vl-cmdf, và mình nghĩ bạn nên tiếp cận dần dần với Visual Lisp để hoàn thiện hơn, đúng không nào ^^

- Mình xin nói qua 1 chút ý mình hiểu về Vl-cmdf : vl-cmdf cũng giống như command của autolisp, thực hiện các lệnh commandline, tuy nhiên thằng này xịn hơn ở chỗ nó sẽ kiểm tra các đối số trước khi thực hiện lệnh (khác với command là đọc từ trái sang phải, gặp lỗi thì ngưng).Trong trường hợp gặp lỗi, nó trả về thông báo lỗi của biểu thức, và.. tiếp tục thực hiện biểu thức tiếp theo.vl-cmdf vì thế tiện hơn trong việc đọc lỗi và try^^

Cũng chính vì vậy, lisp chủ topic đưa cho không cần if

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 xin nói qua 1 chút ý mình hiểu về Vl-cmdf : vl-cmdf cũng giống như command của autolisp, thực hiện các lệnh commandline, tuy nhiên thằng này xịn hơn ở chỗ nó sẽ kiểm tra các đối trước khi thực hiện lệnh (khác với command là đọc từ trái sang phải, gặp lỗi thì ngưng).Trong trường hợp gặp lỗi, nó trả về thông báo lỗi của biểu thức, và.. tiếp tục thực hiện biểu thức tiếp theo.vl-cmdf vì thế tiện hơn trong việc đọc lỗi và try^^

Cũng chính vì vậy, lisp chủ topic đưa cho không cần if

Bổ sung thêm là hàm command trả về nil còn vl-cmdf trả về T. hì hì

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ủ topic : Trên diễn đàn có khá nhiều lisp nối *Line rồi đó bạn, nếu chịu khó dùng công cụ search thì sẽ thấy kha khá.

@ Doan Van Ha : thực chất trong lisp này chỉ có duy nhất 1 lệnh vl-cmdf, và mình nghĩ bạn nên tiếp cận dần dần với Visual Lisp để hoàn thiện hơn, đúng không nào ^^

- Mình xin nói qua 1 chút ý mình hiểu về Vl-cmdf : vl-cmdf cũng giống như command của autolisp, thực hiện các lệnh commandline, tuy nhiên thằng này xịn hơn ở chỗ nó sẽ kiểm tra các đối trước khi thực hiện lệnh (khác với command là đọc từ trái sang phải, gặp lỗi thì ngưng).Trong trường hợp gặp lỗi, nó trả về thông báo lỗi của biểu thức, và.. tiếp tục thực hiện biểu thức tiếp theo.vl-cmdf vì thế tiện hơn trong việc đọc lỗi và try^^

Cũng chính vì vậy, lisp chủ topic đưa cho không cần if

Cám ơn bác, tôi sẽ học vlisp. Nhưng dù sao thì tôi cũng đã P/S rồi mà. Và nó đúng chứ?

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

Ồ, đúng rồi mà.Sửa số 10 thành số 0 tức là fuzzz = 0, tức là Object nào chạm nhau nó với nối, và tất nhiên k có lỗi mà chủ topic đề cầp.

Sửa đơn vị nhỏ đi cũng có nghĩa giảm fuzzz thực tế, nên cũng có thể giải quyết được vấn đề ^^

  • 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

Ồ, đúng rồi mà.Sửa số 10 thành số 0 tức là fuzzz = 0, tức là Object nào chạm nhau nó với nối, và tất nhiên k có lỗi mà chủ topic đề cầp.

Sửa đơn vị nhỏ đi cũng có nghĩa giảm fuzzz thực tế, nên cũng có thể giải quyết được vấn đề ^^

Bác Ketxu à, sửa 10 thành 0 thì dễ hiểu nhưng sửa bằng cách format cho đơn vị đo nhỏ đi thì tôi chưa hiểu

thấu đáo(mặc dù đã dùng).

Vì trong bài toán của topic 2 line này "chạm". Có lẻ do góc giao nhau quá 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

Thực ra mình cũng chưa test trên bản vẽ đó, mình chỉ suy luận ra distance CAD tính theo đơn vị unit, giảm nó đi tức trên thực tế cũng giảm khoảng cách tối đa để nối. Còn về góc để nối khi dùng lệnh Pedit, mình nghĩ là không ảnh hưởng đâu, vì kể cả khi nó = 0 thì mình thấy vẫn nối như thường

  • 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ác bác giúp em 1 chút nữa với là làm thế nào chuyển cả Line, Arc, Spline thành Pline vậy?

em thêm Spline vào:

(if (setq ss (ssget '((0 . "*line,arc,spline"))))

mà vẫn không đượ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

Theo mình biết thì với CAD<08 thì không nối Spline vào được. Còn cad12 mình đang test thì nối vô tư, không biết 09,10,11 có vậy không :)

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

oh, vậy thì tiếc nhỉ vì em đang dùng cad2004 chưa dùng thử trên cad đời sau này! có lẽ phải khám phá cái mới thôi không cứ dậm chân tại chỗ với cái 2004 miết người ta cười mình bác nhỉ! :rolleyes:

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

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×