Đến nội dung


Hình ảnh
- - - - -

Viết giúp Lisp xoá text trong khoảng nhất định


  • Please log in to reply
48 replies to this topic

#41 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 22 April 2014 - 03:25 PM

Dạ em cảm ơn anh. Anh có thể sửa lại giúp em là có thể sử dụng cho  cả trường hợp căn lề baseline center được ko anh. Tại vì nếu căn lề là baseline left thì vị trí text sẽ sai mất so với cọc (trường hợp của em). Em cảm ơn anh

Hề hề hề,

Hãy dùng thử cái này. Việc sửa lisp của bác Gia_bach không phải là không thể nhưng có nhẽ hơi lâu vì phải đọc kỹ mới được. Nếu lisp này chưa thỏa mãn yêu cầu của bạn thì mình sẽ sửa líp của bác gia_bach sau vậy.

http://www.mediafire...oatexttrung.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.

#42 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 22 April 2014 - 03:27 PM

File của bạn không chạy được là do đang xài UCS chứ không phải WCS.

Bạn có thể thêm dòng  (command "ucs" "w") ở đầu file lsp và

 (command "ucs" "p") ở cuối file lsp.

 

Các giá trị xuất ra file csv cũng ở toạ độ WCS, đó có phải là cái bạn muốn không?


  • 0

#43 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 22 April 2014 - 03:33 PM

Rất mong các anh vào giúp đỡ mình sửa cái lisp FTEXT trên của bác gia_bach cho phù hợp với công việc của mình với.

Theo như anh phamthanhbinh nói là cái lisp này chỉ lọc được các text cho trường hợp các text có căn lề là baseline left. Mình cần lọc text có căn lề là baseline center. Nhờ mọi người chỉnh sửa giúp để thực hiện được.Xin cảm ơn tất cả anh em.

Hề hề hề,

Đây là cái mình sửa từ líp của bác gia_bach

http://www.mediafire.../Filtertext.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.

#44 hotanphi

hotanphi

    biết vẽ polygon

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

Đã gửi 23 April 2014 - 08:45 AM

Hề hề hề,

Đây là cái mình sửa từ líp của bác gia_bach

http://www.mediafire.../Filtertext.lsp

Dạ em xin cảm ơn anh phamthanhbinh va anh Tot77 đã giúp đỡ. Của em ko cần xuất toạ độ. Chỉ cần lọc các text gần nhau với khoảng cách tuỳ chọn tạo thành layer khác. Có lẽ do ko chuyển trục nên ko dùng được lisp này của bác giabach. Nhờ anh chỉnh sửa giúp lisp sau của bác giabach cho trường hợp mọi ucs.

Xin cảm ơn anh

Đây là lisp của bác giabach. Nhờ anh sửa lisp này giúp

https://www.mediafir...qgz1bdslly908x1


  • 0

#45 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 23 April 2014 - 09:40 AM

Gửi lại bạn. Có điều là tôi bỏ luôn việc nhập khoảng cách đường viền vì thấy nó không cần thiết, text nào chồng lên nhau thì tự động 1 cái chuyển qua layer khác.

 

http://www.mediafire...nh_do_-_LTT.lsp

Khi chạy lisp bạn phải tắt hết các layer có  text khác không liên quan, vì lisp không phân biệt  text thuộc layer nào.


  • 0

#46 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1435 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 23 April 2014 - 09:49 AM

Dạ em xin cảm ơn anh phamthanhbinh va anh Tot77 đã giúp đỡ. Của em ko cần xuất toạ độ. Chỉ cần lọc các text gần nhau với khoảng cách tuỳ chọn tạo thành layer khác. Có lẽ do ko chuyển trục nên ko dùng được lisp này của bác giabach. Nhờ anh chỉnh sửa giúp lisp sau của bác giabach cho trường hợp mọi ucs.

Xin cảm ơn anh

Đây là lisp của bác giabach. Nhờ anh sửa lisp này giúp

https://www.mediafir...qgz1bdslly908x1

Bạn sửa như gợi ý của Tot7 : 

- thêm  dòng  (command "ucs" "w") sau dòng   (command "_.undo" "be) 

- thêm  dòng (command "ucs" "p") trước dòng  (command "_.undo" "e") 

 

@Tot7 : dùng hàm getBoundingBox sẽ không đúng khi Text nghiêng.


  • 0

#47 Tot77

Tot77

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 990 Bài viết
Điểm đánh giá: 498 (tốt)

Đã gửi 23 April 2014 - 12:09 PM

Nếu muốn giữ hàm của bác gia_Bach thì chỉ sửa 1 chỗ như sau.

 

http://www.mediafire...n_binh_do_-_LTT(2).lsp


  • 1

#48 hotanphi

hotanphi

    biết vẽ polygon

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

Đã gửi 25 April 2014 - 10:39 AM

Dạ em xin cảm ơn các anh. E làm được rồi. Ko tìm thấy nút thank ở chỗ nào cả


  • 0

#49 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5448 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 25 April 2014 - 10:59 AM

Dạ em xin cảm ơn các anh. E làm được rồi. Ko tìm thấy nút thank ở chỗ nào cả

Post 63 bài mà chưa biết nút Thanks? Hình như chưa thank ai cả? Vậy thì bấm vào cái mũi tên màu xanh ở bên phải để thank Tot77 đi!


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.