Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
10 replies to this topic

#1 BuiHuuNghia

BuiHuuNghia

    biết zoom

  • Members
  • Pip
  • 19 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 29 December 2013 - 06:23 PM

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


  • 0

#2 hoanguct

hoanguct

    biết vẽ line

  • Members
  • PipPip
  • 23 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 29 December 2013 - 08:50 PM

vba co duoc khong? xin file cad cu the


  • 0

#3 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 30 December 2013 - 01:53 PM

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.c...texttospace.lsp


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#4 BuiHuuNghia

BuiHuuNghia

    biết zoom

  • Members
  • Pip
  • 19 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 30 December 2013 - 07:52 PM

vba co duoc khong? xin file cad cu the

 

http://www.cadviet.c...uonga__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. 


  • 0

#5 BuiHuuNghia

BuiHuuNghia

    biết zoom

  • Members
  • Pip
  • 19 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 30 December 2013 - 08:22 PM

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


  • 0

#6 quynh536

quynh536

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 August 2015 - 09:05 AM

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.c...etexttospace.ls

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


  • 0

#7 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 08 August 2015 - 12:02 PM

 

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.c...etexttospace.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.c...texttospace.lsp


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#8 quynh536

quynh536

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 August 2015 - 03:15 PM

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.c...texttospace.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.c...texttospace.lsp

cam on ban!


  • 0

#9 quynh536

quynh536

    biết pan

  • Members
  • Pip
  • 6 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 08 August 2015 - 03:33 PM

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.c...texttospace.lsp

ban co the giup minh viet mot lip nhu nay duoc k? thanks banhttp://www.cadviet.c...0655_vidu_2.dwg


  • 0

#10 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 08 August 2015 - 04:20 PM

 

ban co the giup minh viet mot lip nhu nay duoc k? thanks banhttp://www.cadviet.c...0655_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 .......


  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#11 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 08 August 2015 - 04:25 PM

Bạn có thể 

 

cam on ban!

 

 

 

ban co the giup minh viet mot lip nhu nay duoc k? thanks banhttp://www.cadviet.c...0655_vidu_2.dwg

 

 

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


  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC