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

[BuiHuuNghia 1]

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.

 

[hoanguct 0]

vba co duoc khong? xin file cad cu the

[phamthanhbinh 3146]

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.

 

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

[BuiHuuNghia 1]

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. 

[BuiHuuNghia 1]

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

 

[quynh536 0]

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?

[phamthanhbinh 3146]

 

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

[quynh536 0]

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!

[quynh536 0]

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

[phamthanhbinh 3146]

 

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 .......

[ketxu 2984]

Bạn có thể 

 

cam on ban!

 

 

 

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

 

 

Bạn có thể đánh tiếng việt giúp diễn đàn được không ?