Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
tvgtyb08

Nhờ viết Lisp hiệu chỉnh Text hàng loạt

Các bài được khuyến nghị

Ở Cad R14 (hay Nova3 em ko nhớ rõ) thấy có lệnh SSX chọn 1 đối tượng thuộc lớp Text cần hiệu chỉnh sau đó thoát lệnh và gõ lệnh CHT Enter rồi P Enter sau đó hàng loạt lựa chọn chỉnh Cao chữ, rộng chữ, góc quay chữ....

Em nhờ các anh cho em xin lisp đó với ạh.

Em cảm ơn.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Ở Cad R14 (hay Nova3 em ko nhớ rõ) thấy có lệnh SSX chọn 1 đối tượng thuộc lớp Text cần hiệu chỉnh sau đó thoát lệnh và gõ lệnh CHT Enter rồi P Enter sau đó hàng loạt lựa chọn chỉnh Cao chữ, rộng chữ, góc quay chữ....

Em nhờ các anh cho em xin lisp đó với ạh.

Em cảm ơn.

Hề hề hề,

Cái lệnh SSX có trong Express Tools của Cad. Hãy cài nó thì sẽ có để xài....

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề hề,

Cái lệnh SSX có trong Express Tools của Cad. Hãy cài nó thì sẽ có để xài....

Hề hề, thế còn lisp chỉnh Text hàng loạt CHT bác ơi?

Với lại hình như Cad2002 ko có Express Tools thì phải.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

mình thấy ngoài cái góc quay ra tất cả các yêu cầu chỉnh text đều có trong bảng properties của CAD hết.

Dùng lisp vẫn nhanh hơn bác ạh.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

mình thấy ngoài cái góc quay ra tất cả các yêu cầu chỉnh text đều có trong bảng properties của CAD hết.

Bảng Properties ko sửa hàng loạt được và dùng rất bất tiện, nếu chọn hàng loạt chỉ chọn lẫn 1 đối tượng ko phải Text là ko sửa được.

Bác nào biết hoặc có cho em xin với.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Dùng lisp vẫn nhanh hơn bác ạh.

 

lệnh của CAD -> chạy trực tiếp

lệnh Auto lisp -> thông dịch -> chạy

nếu lệnh lisp bao gồm nhiều lệnh của CAD -> chạy nhanh hơn do thao tác của người dùng chậm hơn máy

theo yêu cầu của bạn chỉ có mỗi thao tác sửa Text bạn thử lấy cái lisp đó xon chọn khoảng 10.000 text rồi đổi thử coi cái nào nhanh hơn.

 

Bảng Properties ko sửa hàng loạt được và dùng rất bất tiện, nếu chọn hàng loạt chỉ chọn lẫn 1 đối tượng ko phải Text là ko sửa được.

Bác nào biết hoặc có cho em xin với.

 

Bạn chọn hết có lẫn gì cũng được, trên đầu bảng properties có chỗ lọc đối tượng bạn cứ click vào chọn text rồi sửa. Các bn5 nên tận dụng hết khả năng của CAD trước đã, trước khi nghĩ đến Autolisp vì các lí do sau:

 

lệnh của CAD chạy nhanh hơn, ổn định hơn và chính xác hơn.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Nếu không muốn dùng lisp mà vẫn có thể thay đổi được hàng loạt >>> Lựa chọn kiểu chữ rồi dùng lệnh MA quét là được như ý!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

lệnh của CAD -> chạy trực tiếp

lệnh Auto lisp -> thông dịch -> chạy

nếu lệnh lisp bao gồm nhiều lệnh của CAD -> chạy nhanh hơn do thao tác của người dùng chậm hơn máy

theo yêu cầu của bạn chỉ có mỗi thao tác sửa Text bạn thử lấy cái lisp đó xon chọn khoảng 10.000 text rồi đổi thử coi cái nào nhanh hơn.

 

 

 

Bạn chọn hết có lẫn gì cũng được, trên đầu bảng properties có chỗ lọc đối tượng bạn cứ click vào chọn text rồi sửa. Các bn5 nên tận dụng hết khả năng của CAD trước đã, trước khi nghĩ đến Autolisp vì các lí do sau:

 

lệnh của CAD chạy nhanh hơn, ổn định hơn và chính xác hơn.

Chưa chắc bác ạh, làm cách đó so với lệnh CHT kết hợp SSX của lisp thì chậm hơn rất nhiều. Ý của bác chỉ đúng 1 số ít trường hợp thôi.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Nếu không muốn dùng lisp mà vẫn có thể thay đổi được hàng loạt >>> Lựa chọn kiểu chữ rồi dùng lệnh MA quét là được như ý!

Dùng lệnh MA càng không được, đôi khi cùng lớp Text (Text khoảng cách và cao độ thiên nhiên) chữ đứng chữ nghiêng nếu MA thì tất cả đều giống nhau Text Cao độ thiên nhiên cũng nằm ngang ra như text khoảng cách nếu MA từ Text khoảng cách.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Dùng lệnh MA càng không được, đôi khi cùng lớp Text (Text khoảng cách và cao độ thiên nhiên) chữ đứng chữ nghiêng nếu MA thì tất cả đều giống nhau Text Cao độ thiên nhiên cũng nằm ngang ra như text khoảng cách nếu MA từ Text khoảng cách.

Hề hề hề,

Phải chăng bạn muốn xài cái lísp CHT này:

http://www.cadviet.com/upfiles/3/chtext.lsp

Hề hề hề.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề hề,

Phải chăng bạn muốn xài cái lísp CHT này:

http://www.cadviet.com/upfiles/3/chtext.lsp

Hề hề hề.

Hề hề..

Nhìn qua thì hình như là cái này. Sau khi em thực hiện lệnh CHGTEXT xong nó bảo em chọn Text (Select objects) em chọn xong Enter, nó ko ra

Height/Justification/Location/Rotation/Style/Text/Undo/Width:

Mà nó lại nói Match string

Vậy là sao ạh, bác sửa giúp em bắt nó ra Height/Justification/Location/Rotation/Style/Text/Undo/Width: luôn em với.Hoặc bác hướng dẫn em dùng với.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Chưa chắc bác ạh, làm cách đó so với lệnh CHT kết hợp SSX của lisp thì chậm hơn rất nhiều. Ý của bác chỉ đúng 1 số ít trường hợp thôi.

 

chừng nào bác có lisp đó send cho em nha, em cũng cần làm nhanh hơn nhưng bác nhớ lúc viết lisp phần filter selection bác nhớ cho em mấy cái keywork để filter theo layer, style, height, color, content, tọa độ X Y Z v.v... nha (càng nhiều filter càng tốt khỏi select nhầm)

Thanks bác trước.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề..

Nhìn qua thì hình như là cái này. Sau khi em thực hiện lệnh CHGTEXT xong nó bảo em chọn Text (Select objects) em chọn xong Enter, nó ko ra

Height/Justification/Location/Rotation/Style/Text/Undo/Width:

Mà nó lại nói Match string

Vậy là sao ạh, bác sửa giúp em bắt nó ra Height/Justification/Location/Rotation/Style/Text/Undo/Width: luôn em với.Hoặc bác hướng dẫn em dùng với.

Dùng lệnh CHT chứ?

Thằng CHGTEXT là để thay đổi ký tự trong Text/Mtext/Attdef.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề, thế còn lisp chỉnh Text hàng loạt CHT bác ơi?

Với lại hình như Cad2002 ko có Express Tools thì phải.

Hề hề, cài dzô là xài được tất. CAD2002 cũng cài được tất.

Sao bạn không thử để có thể sử dụng được những lệnh hay trong bộ phụ trợ này :rolleyes:

Ở CADR12, R14 mình nhớ cái bộ phụ trợ này chính là Bonus

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

mình thấy ngoài cái góc quay ra tất cả các yêu cầu chỉnh text đều có trong bảng properties của CAD hết.

mình dùng cad 2008 full thấy có sửa góc trong bảng properties mà bạn.

  • Vote giảm 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

mình dùng cad 2008 full thấy có sửa góc trong bảng properties mà bạn.

 

Hehe đúng là có đầy đủ, hôm trước ko nhớ, sửa cả Hyperlink, Annotation, align text theo X Y Z,...

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề..

Nhìn qua thì hình như là cái này. Sau khi em thực hiện lệnh CHGTEXT xong nó bảo em chọn Text (Select objects) em chọn xong Enter, nó ko ra

Height/Justification/Location/Rotation/Style/Text/Undo/Width:

Mà nó lại nói Match string

Vậy là sao ạh, bác sửa giúp em bắt nó ra Height/Justification/Location/Rotation/Style/Text/Undo/Width: luôn em với.Hoặc bác hướng dẫn em dùng với.

Hề hề hề,

Của đáng tội, cái lisp ni là mình mót về từ diễn đàn, chửa có dịp xài nên cũng chửa kịp ngâm cứu kỹ lưỡng. Vì bác nói là dùng lệnh cht nên mình mới nghĩ là nó mà trưng ra. Nay hổng phải vậy thì mong bác để cho mình thư thả ngâm cứu lại xem nó bởi răng mà hổng chịu theo ý muốn của bác hỉ.

Như bác đã thấy, cái lisp ni hổng phải của mình viết nên việc sửa nó chắc hẳn không thể dễ. Có sửa được hay không mình cũng hổng dám hứa. Chỉ mong bác chớ có sốt ruột , mình sẽ cố theo khả năng. Nhược bằng hổng được thì bác cũng đừng có giận hỉ????

Chúc bác vui,

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Hề hề hề,

Của đáng tội, cái lisp ni là mình mót về từ diễn đàn, chửa có dịp xài nên cũng chửa kịp ngâm cứu kỹ lưỡng. Vì bác nói là dùng lệnh cht nên mình mới nghĩ là nó mà trưng ra. Nay hổng phải vậy thì mong bác để cho mình thư thả ngâm cứu lại xem nó bởi răng mà hổng chịu theo ý muốn của bác hỉ.

Như bác đã thấy, cái lisp ni hổng phải của mình viết nên việc sửa nó chắc hẳn không thể dễ. Có sửa được hay không mình cũng hổng dám hứa. Chỉ mong bác chớ có sốt ruột , mình sẽ cố theo khả năng. Nhược bằng hổng được thì bác cũng đừng có giận hỉ????

Chúc bác vui,

Hề, hề hê!!

Em cảm ơn bác nhiều nhiều lắm.

Ngon rồi bác ạh, hôm đó Down về chẳng biết mắt mũi nào soi nhầm lệnh thôi. Đó chính là cái em đang cần tìm.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

nếu không dùng cái lisp như các bác nói, mình dùng cách này không biết ý các bác thế nào.

 

Dùng lệnh fi sau đó chọn đối tượng text, dùng chuột chọn khu vực cần thay đổi text hoặc tham số all để toàn text trên bản vẽ sau đó proties chọn kick thước hoặc hoặc kiểu chữ cần thay đổi

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×