Rated 5/5 based on 240179 internet user reviews

Đến nội dung


Hình ảnh
- - - - -

Lisp đánh số thứ tự bản vẽ tự động?


  • Please log in to reply
59 replies to this topic

#1 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 Bài viết
Điểm đánh giá: 18 (tàm tạm)

Đã gửi 20 June 2009 - 11:13 AM

e đang cần lisp đánh số thứ tự bản vẽ tự động trong trường hợp khung bản vẽ được sắp xếp theo nhiều hàng, nhiều cột.Rất mong CADVIET giúp hộ e cái lisp này.
http://www.cadviet.c...les/Ban_cad.rar
  • 0
Hãy làm việc hết mình rồi mọi điều tốt đẹp sẽ đến với bạn.....

#2 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 20 June 2009 - 02:08 PM

e đang cần lisp đánh số thứ tự bản vẽ tự động trong trường hợp khung bản vẽ được sắp xếp theo nhiều hàng, nhiều cột.Rất mong CADVIET giúp hộ e cái lisp này.
http://www.cadviet.c...les/Ban_cad.rar


Đánh số thứ tự là sao? Bạn mún lưu mỗi khung thành 1 bản vẽ rieng hay sao?
  • 0

#3 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 Bài viết
Điểm đánh giá: 18 (tàm tạm)

Đã gửi 21 June 2009 - 08:15 AM

Đánh số thứ tự là sao? Bạn mún lưu mỗi khung thành 1 bản vẽ rieng hay sao?

mình muốn đánh số tứ tự bản vẽ trong trắc ngang.chẳng hạn mình có 36 khung bản vẽ trắc ngang và sắp xếp theo 6 hàng, 6 cột, có cách nào để đánh thứ tự bản vẽ tự động : bản vẽ số 1/36, bản vẽ số 2/36.... bản vẽ số 36/36?
  • 0
Hãy làm việc hết mình rồi mọi điều tốt đẹp sẽ đến với bạn.....

#4 q288

q288

    biết lệnh fillet

  • Members
  • PipPipPipPip
  • 209 Bài viết
Điểm đánh giá: 162 (tàm tạm)

Đã gửi 21 June 2009 - 10:19 AM

mình muốn đánh số tứ tự bản vẽ trong trắc ngang.chẳng hạn mình có 36 khung bản vẽ trắc ngang và sắp xếp theo 6 hàng, 6 cột, có cách nào để đánh thứ tự bản vẽ tự động : bản vẽ số 1/36, bản vẽ số 2/36.... bản vẽ số 36/36?


tức là ghi chữ 1/36,2/36... vào mỗi khung?
  • 0

#5 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 21 June 2009 - 10:38 AM

e đang cần lisp đánh số thứ tự bản vẽ tự động trong trường hợp khung bản vẽ được sắp xếp theo nhiều hàng, nhiều cột.Rất mong CADVIET giúp hộ e cái lisp này.
http://www.cadviet.c...les/Ban_cad.rar

Bạn sử dụng Lisp này thử xem :
Cách thức hoạt động tương tự lệnh Array :
Tên lệnh dsbv
http://www.cadviet.c...pfiles/dsbv.vlx
  • 1

#6 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 Bài viết
Điểm đánh giá: 18 (tàm tạm)

Đã gửi 21 June 2009 - 04:34 PM

Bạn sử dụng Lisp này thử xem :
Cách thức hoạt động tương tự lệnh Array :
Tên lệnh dsbv
http://www.cadviet.c...pfiles/dsbv.vlx

e thấy lisp này đánh số thứ tự từ trái qua phải và từ dưới lên trên, sao không đánh theo thứ tự từ trái qua phải, từ trên xuống dưới được?và có thể xuất ra kết quả là: "bản vẽ số: 1/..." được không thay vì chỉ là " 1/..."?
  • 0
Hãy làm việc hết mình rồi mọi điều tốt đẹp sẽ đến với bạn.....

#7 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

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

Đã gửi 21 June 2009 - 05:27 PM

e thấy lisp này đánh số thứ tự từ trái qua phải và từ dưới lên trên, sao không đánh theo thứ tự từ trái qua phải, từ trên xuống dưới được?và có thể xuất ra kết quả là: "bản vẽ số: 1/..." được không thay vì chỉ là " 1/..."?

Bạn đã đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ý bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx
  • 1

#8 namhai

namhai

    biết vẽ rectang

  • Members
  • PipPip
  • 81 Bài viết
Điểm đánh giá: 18 (tàm tạm)

Đã gửi 22 June 2009 - 04:54 PM

Bạn đã đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ý bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

Bác Tue_NV à, cảm ơn bác nhiều nhé, lisp này đúng là hết ý rùi, thế này từ nay việc đánh số bản vẽ sẽ nhàn lắm :lol2:
  • 0
Hãy làm việc hết mình rồi mọi điều tốt đẹp sẽ đến với bạn.....

#9 transu

transu

    biết vẽ spline

  • Members
  • PipPip
  • 93 Bài viết
Điểm đánh giá: 19 (tàm tạm)

Đã gửi 22 June 2009 - 05:09 PM

các pro giúp em cái lisp như sau:
em có các file cad người ta chuyển nhưng text của nó máy em ko có nên ko đọc đc
yêu cầu:lisp...>chọn text...>đổi sang phông vn-times mà ko bị lỗi
  • 0

#10 cavoitrang_11

cavoitrang_11

    biết zoom

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

Đã gửi 10 July 2009 - 09:30 AM

Nhưng em muốn chọn chiều cao chữ bất kỳ thì làm thế nào hả bác?
  • 0

#11 quygtvt

quygtvt

    biết vẽ circle

  • Members
  • PipPip
  • 30 Bài viết
Điểm đánh giá: 27 (tàm tạm)

Đã gửi 10 July 2009 - 12:25 PM

Bạn đã đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ý bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

LISP đánh số bản vẽ của bác Tuệ rất hay, có thể đánh số hàng loạt tất cả các bản vẽ. Tuy nhiên, để sử dụng hiệu quả thì bản thân mỗi người sử dụng phải sáng tạo một chút. Ví dụ, bạn muốn bản vẽ được đánh số kiểu 1/36, 2/36, ...,36/36 thay vì "Bản vẽ số: 1/36" thì chỉ cần cùng lệnh Find thay thế "Bản vẽ số:" bằng "" là xong ngay. Hay bạn muốn đánh số kiểu BVTC/QL6/TN/1/36 cũng dùng lệnh Find để thay thế "Bản vẽ số:" bằng "BVTC/QL6/TN/".
Hơn nữa, trước khi sử dụng bạn phải gán textstyle và chiều cao chữ như mong muốn.
Trong quá trình chạy lệnh, điểm chèn phải được chọn hợp lý.
Cám ơn Mr. Tuệ

Em cũng xin đóng góp một lựa chọn khác trong việc đánh số bản vẽ, do em viết.
Chi tiết như sau:
- Tên lệnh: STT
- Tên bản vẽ đầu tiên, người sử dụng phải tự lập (bằng lệnh text chẳng hạn): vị trí của text trong khung tên, cỡ chữ, kiểu prefix,... Ví dụ: "BVTC/QL6/TN/001" thì "BVTC/QL6/TN/" được hiểu là prefix, số chữ số của phần đếm là "001" ---> 3 ký tự
- Chỉ tự động đánh số thứ tự các bản vẽ trên cùng một hàng (tất nhiên các bản vẽ phải cách đều nhau), bản vẽ đầu tiên trong hàng phải được đánh số bằng tay.
- Tự động bù các số "0" vào trước số thứ tự để cho đủ số ký tự quy ước.
- Không thể hiện được tổng số bản vẽ.
Đây là file dịch:
http://www.cadviet.c...es/dsbv_DXQ.vlx
Các bác dùng thử nhé, nếu thấy được thì thanks cái động viên anh em :s_big:
  • 0
Không thể nói trời không xanh hơn,
và mắt em không xanh khác ngày thường

Hình đã gửi


#12 bach1212

bach1212

    biết lệnh array

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

Đã gửi 10 July 2009 - 02:41 PM

Bạn đã đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ý bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

bác ưi! em chỉ có thể nhập khoảng cách bằng tay và chọn giá trị âm, vd: -7 thì mới đánh thứ tự theo hàng từ trên xuống được.chứ em chỉ trực tiếp vào bản vẽ hết trái sang phải, trên xuống dưới và ngược lại thì nó cứ đánh thứ tự hàng từ dưới lên trên. bác chỉnh lại cho chuẩn chút được hôk ah? hàng thì phải kích từ trên xuống dưới <0, cột thì phải kích từ trái qua phải >0 và ngược lại thì mới giống array được chứ ah!
Bác sửa xong thì gửi lại cho em nữa na! lisp của bác rất tuyệt!
  • 0

Một môn tập luyện mang lại vô vàn lợi ích sức khỏe cho mọi người, nhiều bệnh tật nan y đều được chữa khỏi, hoàn toàn miễn phí. Hiệu quả chữa khỏi bệnh tật của nó lên đến hơn 90%.
Tài liệu tại đây: http://phapluan.org/

Rất vui được làm quen với mọi người trên facebook:
https://www.facebook...67946371&type=1

 

 


#13 winter712

winter712

    biết vẽ polygon

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

Đã gửi 29 July 2010 - 01:11 PM

[quote name='Tue_NV' date='Jun 21 2009, 17:27' post='65033']
Bạn đã đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ý bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx
Tự động đánh số thứ tự bản vẽ là cách mà em cũng đang tìm may quá trên diễn đàn cadviet lai có. nhung bác Tue oi sao em kich vào đường linh đó mà không dowload được cái lip ấy. chỉ thấy xuất hiện một file tiếng gi ấy. bác có thể upload cái lips ấy lên được ko. cảm ơn bác nha
  • 1
[size=3][/size]Có ai đó nói rằng tôi đang lạc bước. Nhưng họ ko biết rằng tôi đã có 1 ước mơ…!
VIT NGOC

#14 tuanlongtl

tuanlongtl

    biết vẽ arc

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

Đã gửi 25 September 2010 - 05:22 PM

Bạn đã đọc kỹ chưa?
Tue_NV nói là cách thức của nó hoạt động tương tự như lệnh array
Hàng từ trái -> phải : khoảng cách hàng >0
Hàng từ phải -> trái : khoảng cách hàng < 0

Cột từ dưới lên trên : khoảng cách cột >0
Cột từ trên xuống dưới : khoảng cách cột <0

Mong là bạn hiểu.
Tue_NV upload file Lisp này có chỉnh sửa theo ý bạn
Tên lệnh dsbv
http://www.cadviet.c...iles/dsbv_1.vlx

Rất cảm ơn bạn nhưng nếu bản vẽ chỉ có 1 cột thì nó không hiểu. Mong bạn sửa giúp lỗi này.
  • 1

#15 antony7117

antony7117

    biết zoom

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

Đã gửi 03 November 2010 - 04:04 PM

Mình có ý này:
Mình có 1 ký hiệu bản vẽ như: KT: 01/30 mà mình muốn copy sang 1 đối tượng khác nó tự chuyển thành KT: 02/30
làm như vậy mình có thể kiểm tra được bản vẽ.
Các Pro nào có lisp đó ko?? cho mình xin với.
  • 0

#16 phamngoctukts

phamngoctukts

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1107 Bài viết
Điểm đánh giá: 695 (tốt)

Đã gửi 03 November 2010 - 04:40 PM

Mình có ý này:
Mình có 1 ký hiệu bản vẽ như: KT: 01/30 mà mình muốn copy sang 1 đối tượng khác nó tự chuyển thành KT: 02/30
làm như vậy mình có thể kiểm tra được bản vẽ.
Các Pro nào có lisp đó ko?? cho mình xin với.

Vì trong block khung tên có nhiều attribute khác nhau nên bạn up file khung tên của bạn lên đây anh em trên diễn đàn sẽ viết code giúp bạn.
  • 1
Tất cả vì sự phát triển của diễn đàn ...
Cám ơn đừng nói lời suông mà hãy nhấn Hình đã gửi!

#17 antony7117

antony7117

    biết zoom

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

Đã gửi 05 November 2010 - 01:22 PM

Vì trong block khung tên có nhiều attribute khác nhau nên bạn up file khung tên của bạn lên đây anh em trên diễn đàn sẽ viết code giúp bạn.

Cám on ban đã tra loi câu hỏi cua mình. Nhưng ý của mình ở đây là:
+ Chỉ copy cái Text như sau: KT: 01/30 thành KT: 02/30. hoàn toàn không nằm trong block ATT.
rất mong nhận duoc ý kiến trả lời từ bạn và các Pro trên diễn đàn
  • 0

#18 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 05 November 2010 - 02:41 PM

Cám on ban đã tra loi câu hỏi cua mình. Nhưng ý của mình ở đây là:
+ Chỉ copy cái Text như sau: KT: 01/30 thành KT: 02/30. hoàn toàn không nằm trong block ATT.
rất mong nhận duoc ý kiến trả lời từ bạn và các Pro trên diễn đàn

Bạn chịu khó tìm kiếm một chút trên diễn đàn là có, Ngồi chờ vừa lâu mà vừa chưa chắc đã có lisp hay hơn cái có sẵn bạn à.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#19 antony7117

antony7117

    biết zoom

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

Đã gửi 05 November 2010 - 09:33 PM

Bạn chịu khó tìm kiếm một chút trên diễn đàn là có, Ngồi chờ vừa lâu mà vừa chưa chắc đã có lisp hay hơn cái có sẵn bạn à.

Mình đã tìm rồi.nhưng vẫn không thấy nếu ban 'phamthanhbinh' biết thì chỉ dùm mình cái dường dẫn.Cám on bạn Bình nhiều.
  • 0

#20 antony7117

antony7117

    biết zoom

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

Đã gửi 05 November 2010 - 09:34 PM

Bạn chịu khó tìm kiếm một chút trên diễn đàn là có, Ngồi chờ vừa lâu mà vừa chưa chắc đã có lisp hay hơn cái có sẵn bạn à.

Mình đã tìm rồi.nhưng vẫn không thấy nếu ban 'phamthanhbinh' biết thì chỉ dùm mình cái dường dẫn.Cám on bạn Bình nhiều.
  • 0