Đến nội dung


Hình ảnh
- - - - -

Nhờ viết lisp Move Text Dim?


  • Please log in to reply
8 replies to this topic

#1 huaductiep

huaductiep

    biết vẽ rectang

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

Đã gửi 08 July 2013 - 02:02 AM

Nhờ các bác viết lisp sao cho có thể move dc Text Dim của nhiều Dim trong vùng lựa chọn gióng đều tới 1 vị trí mà mình click chon.

Mình đã tìm khắp diễn đàn mà chưa thấy lisp như vậy nên rất mong các bác giúp :)
Chân thành cám ơn64997_move_text_dim_1.jpgn


  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 08 July 2013 - 06:23 AM

Đã có lisp rồi đây 

(Bài viết số 12 và bài viết số 15)

http://www.cadviet.c...tren-duong-dim/


  • 1

#3 huaductiep

huaductiep

    biết vẽ rectang

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

Đã gửi 08 July 2013 - 11:57 AM

Em cũng đọc bài đấy và sử dụng lisp bài đấy rồi bác Tue_NV ah. Nhưng nó chỉ move text dim trong phạm vị Dimension thôi. Còn em là muốn Move nó ra ngoài và canh đều nhau. Mong các bác giúp cho. Vì e làm việc với rất nhiều text dim..=.="


  • 0

#4 gia_bach

gia_bach

    biết lệnh adcenter

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

Đã gửi 08 July 2013 - 12:50 PM

Em cũng đọc bài đấy và sử dụng lisp bài đấy rồi bác Tue_NV ah. Nhưng nó chỉ move text dim trong phạm vị Dimension thôi. Còn em là muốn Move nó ra ngoài và canh đều nhau. Mong các bác giúp cho. Vì e làm việc với rất nhiều text dim..=.="

Đã có lisp rồi đây 

http://www.cadviet.c...tren-duong-dim/

Xem bài số 8 của Ketxu , dùng đoạn code thứ nhất : MTD.

Đã có lisp rồi đây 

(Bài viết số 12 và bài viết số 15)

http://www.cadviet.c...tren-duong-dim/

Đã có lisp rồi đây 

(Bài viết số 12 và bài viết số 15)

http://www.cadviet.c...tren-duong-dim/


  • 1

#5 huaductiep

huaductiep

    biết vẽ rectang

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

Đã gửi 08 July 2013 - 02:14 PM

Em cũng dùng thử lisp đấy rồi. Nhưng nó bị lỗi như sau:

Command:  LP MTD.lsp successfully loaded.

nil

Command:
Command:
Command: MTD

Select objects: Specify opposite corner: 5 found

Select objects:
Vecto dịch chuyển text :; error: bad function: #<SUBR @0a65f5a8 +>

Command:

Các bác sửa giúp em với nhé :)


 


  • 0

#6 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

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

Đã gửi 08 July 2013 - 02:35 PM

Bạn mở file lisp ra và sửa như sau:

Sửa:

(mapcar + center v)

Thành:

(mapcar '+ center v)


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


#7 huaductiep

huaductiep

    biết vẽ rectang

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

Đã gửi 08 July 2013 - 03:55 PM

Em sửa như bác Doan Van Ha rồi. Và đã Dim được. Nhưng các text dim nó lại ko canh đều nhau. Các bác giúp em cho nó canh đều dc ko ah :D
Cám ơn các bác rất nhiều ^^64997_move_text_dim_1_2.jpg
 


  • 0

#8 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 08 July 2013 - 04:18 PM

Em cũng đọc bài đấy và sử dụng lisp bài đấy rồi bác Tue_NV ah. Nhưng nó chỉ move text dim trong phạm vị Dimension thôi. Còn em là muốn Move nó ra ngoài và canh đều nhau. Mong các bác giúp cho. Vì e làm việc với rất nhiều text dim..=.="

 

Bạn đọc kỹ lại bài số 15 của mình trong đường link (đã gửi cho bạn) nữa nhé. 

Code lấy ở bài viết số 12 và chỉnh sửa ở bài viết số 15

Move vô trong hay ra ngoài và canh đều, đều được cả


  • 1

#9 huaductiep

huaductiep

    biết vẽ rectang

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

Đã gửi 08 July 2013 - 05:20 PM

oh..tuyệt quá. Em thiếu sót quá khi ko đọc kĩ. Các bác nhiệt tình quá..Cám ơn Bác Tue_NV và mọi người rất nhiều.


  • 0