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

[Yêu cầu] Nhờ giúp lisp move text đến vị trí bất kỳ gần nhất khi bị chạm

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

Nhờ AE trong diễn đàn viết giúp lisp dời text đến vị trí bất kỳ gần nhất khi bi chạm với text khác hay vật khác (hướng dời text là Đông, Nam, Tây, Bắc, Đông Bắc... đều được, miễn sao vị trí sau khi dời phải cách vị trí đầu trong bán kính 3' (3 feet) và càng gần vị trí đầu càng tốt (không nhất  thiết phải sắp xếp đẹp như hình bên dưới mà chỉ cần không chạm nhau là ok). Thanks AE trước nha.

 

127110_lisp_move_khi_cham.jpg

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

Nhờ AE trong diễn đàn viết giúp lisp dời text đến vị trí bất kỳ gần nhất khi bi chạm với text khác hay vật khác (hướng dời text là Đông, Nam, Tây, Bắc, Đông Bắc... đều được, miễn sao vị trí sau khi dời phải cách vị trí đầu trong bán kính 3' (3 feet) và càng gần vị trí đầu càng tốt (không nhất  thiết phải sắp xếp đẹp như hình bên dưới mà chỉ cần không chạm nhau là ok). Thanks AE trước nha.

 

127110_lisp_move_khi_cham.jpg

Hề hề hề,

Bạn thử dùng cái này coi sao nhé.

Cái bán kính tối đa của vùng dịch chuyển sẽ do bạn nhập vào khi lisp yêu cầu nhập khoảng cách di dời tối đa.

Text sẽ chuyển về vị trí chưa phải là gần nhất do mình cho text di chuyển theo bước nhẩy. Tuy nhiên nếu bạn muốn nó gần bao nhiêu cũng được bằng cách thay đổi bước nhảy này. Hiện tại mình mặc định bước nhảy này là 1/5 khoảng cách di dời tối đa.

Với những text không thể chuyển được với khoảng cách di chuyển tối đa bạn đã chọn , lisp sẽ đổi màu text này thành màu đỏ để bạn nhận biết và có phương án di chuyển thích hợp cho text này sau đó.

http://www.cadviet.com/upfiles/3/5194_movetexttospace.lsp

  • 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

vba co duoc khong? xin file cad cu the

 

http://www.cadviet.com/upfiles/3/127110_taphop_recept_ttext_blockthuonga__copy.dwg

 

Dùng gì cũng được cả. Gửi bạn file cad cụ thể, bên trong có 3 chỗ text bị chạm là "A"-4 chạm với mũi tên, F4 chạm với đường dây màu đỏ, text "A"-18,20 chạm với text "A"-15. 

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

Hề hề hề,

Bạn thử dùng cái này coi sao nhé.

Cái bán kính tối đa của vùng dịch chuyển sẽ do bạn nhập vào khi lisp yêu cầu nhập khoảng cách di dời tối đa.

Text sẽ chuyển về vị trí chưa phải là gần nhất do mình cho text di chuyển theo bước nhẩy. Tuy nhiên nếu bạn muốn nó gần bao nhiêu cũng được bằng cách thay đổi bước nhảy này. Hiện tại mình mặc định bước nhảy này là 1/5 khoảng cách di dời tối đa.

Với những text không thể chuyển được với khoảng cách di chuyển tối đa bạn đã chọn , lisp sẽ đổi màu text này thành màu đỏ để bạn nhận biết và có phương án di chuyển thích hợp cho text này sau đó.

http://www.cadviet.com/upfiles/3/5194_movetexttospace.lsp

Hi, cám ơn bạn. Đúng là move text ra khỏi chỗ bị chạm rồi, nhưng sao những text không bị chạm cũng bị move luôn. Giúp mình chỉnh lại những text không bị chạm vẫn giữ nguyên vị trí và chỉ những text bị chạm mà không move được thì mới chuyển thành màu đỏ. Không thì tách thành lisp chuyển thành màu đỏ những chỗ text bị chạm để mình dùng tay move cũng được. Bên dưới là kết quả sau khi mình chạy lisp movetexttospace.lsp

 

127110_truoc_khi_move_2.jpg127110_sau_khi_move_1.jpg127110_ketqua_1.jpg

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

Hề hề hề,

Bạn thử dùng cái này coi sao nhé.

Cái bán kính tối đa của vùng dịch chuyển sẽ do bạn nhập vào khi lisp yêu cầu nhập khoảng cách di dời tối đa.

Text sẽ chuyển về vị trí chưa phải là gần nhất do mình cho text di chuyển theo bước nhẩy. Tuy nhiên nếu bạn muốn nó gần bao nhiêu cũng được bằng cách thay đổi bước nhảy này. Hiện tại mình mặc định bước nhảy này là 1/5 khoảng cách di dời tối đa.

Với những text không thể chuyển được với khoảng cách di chuyển tối đa bạn đã chọn , lisp sẽ đổi màu text này thành màu đỏ để bạn nhận biết và có phương án di chuyển thích hợp cho text này sau đó.

http://www.cadviet.com/upfiles/3/5194_movetexttospace.ls

lisbạn ơi sao mình k dowload được lisp vậy?

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

 

Hề hề hề,

Bạn thử dùng cái này coi sao nhé.

Cái bán kính tối đa của vùng dịch chuyển sẽ do bạn nhập vào khi lisp yêu cầu nhập khoảng cách di dời tối đa.

Text sẽ chuyển về vị trí chưa phải là gần nhất do mình cho text di chuyển theo bước nhẩy. Tuy nhiên nếu bạn muốn nó gần bao nhiêu cũng được bằng cách thay đổi bước nhảy này. Hiện tại mình mặc định bước nhảy này là 1/5 khoảng cách di dời tối đa.

Với những text không thể chuyển được với khoảng cách di chuyển tối đa bạn đã chọn , lisp sẽ đổi màu text này thành màu đỏ để bạn nhận biết và có phương án di chuyển thích hợp cho text này sau đó.

http://www.cadviet.com/upfiles/3/5194_movetexttospace.ls

lisbạn ơi sao mình k dowload được lisp vậy?

 

Hề hề hề,

Có nhẽ diễn đàn có vấn đề về việc lưu trữ file chăng.

Bạn download lại ở đây nhé.

http://www.cadviet.com/upfiles/5/5194_movetexttospace.lsp

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

Hề hề hề,

Có nhẽ diễn đàn có vấn đề về việc lưu trữ file chăng.

Bạn download lại ở đây nhé.

http://www.cadviet.com/upfiles/5/5194_movetexttospace.lsp

 

Hề hề hề,

Có nhẽ diễn đàn có vấn đề về việc lưu trữ file chăng.

Bạn download lại ở đây nhé.

http://www.cadviet.com/upfiles/5/5194_movetexttospace.lsp

cam on ban!

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

Hề hề hề,

Có nhẽ diễn đàn có vấn đề về việc lưu trữ file chăng.

Bạn download lại ở đây nhé.

http://www.cadviet.com/upfiles/5/5194_movetexttospace.lsp

ban co the giup minh viet mot lip nhu nay duoc k? thanks banhttp://www.cadviet.com/upfiles/5/80655_vidu_2.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

 

ban co the giup minh viet mot lip nhu nay duoc k? thanks banhttp://www.cadviet.com/upfiles/5/80655_vidu_2.dwg

 

Hề hề hề,

Có thể viết được với điều kịn bạn cần mô tả chi tiết hơn về kết quả, Tỷ như vị trí đặt textt, hướng text, chiều cao text mầu sắc text, loại text .......

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  

×