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

[tvgtyb08 10]

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

[phamthanhbinh 3149]

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

[tvgtyb08 10]

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.

[Detailing 281]

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.

[tvgtyb08 10]

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.

[tvgtyb08 10]

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.

[Detailing 281]

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.

[hoan2182 843]

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ư ý!

[tvgtyb08 10]

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.

[tvgtyb08 10]

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.

[ketxu 3005]

Bạn miêu tả chức năng rõ ràng ra, viết lại cái mới có khi nhanh hơn đó :">

[phamthanhbinh 3149]

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

[tvgtyb08 10]

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.

[Detailing 281]

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.

[Doan Van Ha 3211]

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.

[Tue_NV 3916]

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

[tinya1225 36]

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.

[Detailing 281]

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

[tvgtyb08 10]

Hê hê, Cảm ơn các bác.

[phamthanhbinh 3149]

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,

[tvgtyb08 10]

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.

[quang_lac 32]

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