xin lisp thay đổi chữ HOA thành THƯỜNG

[quocaaa 1]

xin lisp thay đổi chữ Hoa thành chữ Thường và ngược lại cho nhiều đối tượng cùng lúc.help...help.............

[ketxu 3005]

Nếu là các text không dấu hoặc thuộc font Unicode thì Lệnh TCASE của Expresstool đã làm được việc này bạn à :lol:

[quocaaa 1]

Nếu là các text không dấu hoặc thuộc font Unicode thì Lệnh TCASE của Expresstool đã làm được việc này bạn à :lol:

 

vi máy e ko có express nên e muốn xin lisp các pac.pac nào giúp e dc ko............!!!!!!!

[phamthanhbinh 3149]

vi máy e ko có express nên e muốn xin lisp các pac.pac nào giúp e dc ko............!!!!!!!

Dạ thưa, nó đây ạ:

 

strcase Function

 

Returns a string where all alphabetic characters have been converted to uppercase or lowercase

 

(strcase string [which])

 

Arguments

 

string

 

A string.

 

which

 

If specified as T, all alphabetic characters in string are converted to lowercase. Otherwise, characters are converted to uppercase.

 

Return Values

 

A string.

 

Examples

 

Command: (strcase "Sample")

 

"SAMPLE"

 

Command: (strcase "Sample" T)

 

"sample"

 

The strcase function will correctly handle case mapping of the currently configured character set.

[quocaaa 1]

Dạ thưa, nó đây ạ:

 

strcase Function

 

Returns a string where all alphabetic characters have been converted to uppercase or lowercase

 

(strcase string [which])

 

Arguments

 

string

 

A string.

 

which

 

If specified as T, all alphabetic characters in string are converted to lowercase. Otherwise, characters are converted to uppercase.

 

Return Values

 

A string.

 

Examples

 

Command: (strcase "Sample")

 

"SAMPLE"

 

Command: (strcase "Sample" T)

 

"sample"

 

The strcase function will correctly handle case mapping of the currently configured character set.

 

 

cái đó là gì vậy pác,là lisp hay text hướng dẫn??

[phamthanhbinh 3149]

cái đó là gì vậy pác,là lisp hay text hướng dẫn??

Là cái bạn cần. Hãy đọc kỹ ví dụ sẽ hiểu.....

[quocaaa 1]

Dạ thưa, nó đây ạ:

 

strcase Function

 

Returns a string where all alphabetic characters have been converted to uppercase or lowercase

 

(strcase string [which])

 

Arguments

 

string

 

A string.

 

which

 

If specified as T, all alphabetic characters in string are converted to lowercase. Otherwise, characters are converted to uppercase.

 

Return Values

 

A string.

 

Examples

 

Command: (strcase "Sample")

 

"SAMPLE"

 

Command: (strcase "Sample" T)

 

"sample"

 

The strcase function will correctly handle case mapping of the currently configured character set.

 

 

 

bác phải nói rõ thì em mới biết mà lần chứ.....đọc hiểu nhưng làm bằng cách nào thì pó tay luôn "strcase"strcase string"?

[ketui 12]

bác phải nói rõ thì em mới biết mà lần chứ.....đọc hiểu nhưng làm bằng cách nào thì pó tay luôn "strcase"strcase string"?

Gỏ TCASE xong cái chọn mấy cái text ưng sửa ấy. Nó lên cái bảng ko cần biết tiếng Anh chỉ cần xem mấy cái dòng chữ ấy ưng kết quả kiểu nào thì chọn kiểu đấy. Còn tui hơi bị đụt nên ko thể nói rỏ thêm được nửa mong bác bỏ quá cho chứ quả đầu tôi xắm ra dùng đội mũ là chính.

[quocaaa 1]

Gỏ TCASE xong cái chọn mấy cái text ưng sửa ấy. Nó lên cái bảng ko cần biết tiếng Anh chỉ cần xem mấy cái dòng chữ ấy ưng kết quả kiểu nào thì chọn kiểu đấy. Còn tui hơi bị đụt nên ko thể nói rỏ thêm được nửa mong bác bỏ quá cho chứ quả đầu tôi xắm ra dùng đội mũ là chính.

 

 

"tcase" của bạn là sửa thủ công mất rồi,ý mình muốn hỏi là sửa cùng lúc nhiều đối tượng.vd như quét qua đối tượng nào thì đối tượng đó sẽ được thay đổi.....phiền bạn tìm giùm mình cách khác....thanks

[843824 1]

Oh - xin mon men làm một phát :lol: he he

 

-> Cái này đâu cần lisp đâu bạn - và có thể sữa 1 loạt text luôn chứ không phải thủ công đâu

 

Nói rõ hơn ( lệnh trên kia là chính xác rồi ) : Bạn vào menu express -> text -> change text case ... chọn đối tượng -> chọn kiểu bạn muốn thôi

Nhanh lắm à . :lol:

[phamthanhbinh 3149]

bác phải nói rõ thì em mới biết mà lần chứ.....đọc hiểu nhưng làm bằng cách nào thì pó tay luôn "strcase"strcase string"?

Hề hề hề,

Bạn nói bạn đọc hiểu mà không dùng được ư??? Vậy bạn hiểu nó như thế nào???

Cái đó là hàm lisp thường dùng để đổi các chuỗi từ chữ hoa ra chữ thường và ngược lại.

Nếu bạn sử dụng:

(strcase "toi muon hoc lisp") Thì nó sẽ trả cho bạn thành chuỗi "TOI MUON HOC LISP"

Còn nếu bạn dùng:

(strcase "TOI KHONG MUON HOC LISP" T) thì nó sẽ trả bạn chuỗi "toi khong muon hoc lisp"

Vậy đó.

 

Hiểu nó thì phải sử dụng được nó, còn hiểu mà không dùng được thì phải đọc lại nữa cho đến khi biết dùng.

 

Với yêu cầu quét chọn các đối tượng và các đối tượng ấy tự động đổi của bạn thì bạn phải học thêm chút nữa để biết cách viết một cái lisp để thực hiện cái nhiệm vụ mình giao bạn ạ.

[phamthanhbinh 3149]

Gỏ TCASE xong cái chọn mấy cái text ưng sửa ấy. Nó lên cái bảng ko cần biết tiếng Anh chỉ cần xem mấy cái dòng chữ ấy ưng kết quả kiểu nào thì chọn kiểu đấy. Còn tui hơi bị đụt nên ko thể nói rỏ thêm được nửa mong bác bỏ quá cho chứ quả đầu tôi xắm ra dùng đội mũ là chính.

Hề hề hề,

Vậy chứ Không phải cái đầu đó để KỆ TUI ư???

[duy782006 1597]

"tcase" của bạn là sửa thủ công mất rồi,ý mình muốn hỏi là sửa cùng lúc nhiều đối tượng.vd như quét qua đối tượng nào thì đối tượng đó sẽ được thay đổi.....phiền bạn tìm giùm mình cách khác....thanks

Mô phật nay mới nghe TCASE là thủ công :lol: . Ông bạn này hình như ko biết chọn đối tượng hay sao í. Muốn lisp thì có đây:

(defun c:DC (/ x c e ss txt cmde)

(command "undo" "be")

(setq cmde (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

(initget "Hoa Thuong")

(setq x (getkword "\nChuyen thanh chu: Thuong/: "))

(prompt "\nChon chu muon chinh.")

(setq ss (ssget))

(setq c 0)

(if ss (setq e (ssname ss c)))

(while e

(setq e (entget e))

; Ensure entity is text

(if (= (cdr (assoc 0 e)) "TEXT")

(progn

(if (= x "Thuong")

(setq txt (strcase (cdr (assoc 1 e)) t))

(setq txt (strcase (cdr (assoc 1 e))))

)

(setq e (subst (cons 1 txt) (assoc 1 e) e))

(entmod e)

)

)

(setq c (1+ c)) ; Increment counter.

(setq e (ssname ss c)) ; Obtain next entity.

)

(setvar "CMDECHO" cmde)

(command "undo" "end")

(Prin I)

)

Cái này là sưu tầm à nha. (không nhớ nguồn)

[quocaaa 1]

Mô phật nay mới nghe TCASE là thủ công :lol: . Ông bạn này hình như ko biết chọn đối tượng hay sao í. Muốn lisp thì có đây:

(defun c:DC (/ x c e ss txt cmde)

(command "undo" "be")

(setq cmde (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

(initget "Hoa Thuong")

(setq x (getkword "\nChuyen thanh chu: Thuong/: "))

(prompt "\nChon chu muon chinh.")

(setq ss (ssget))

(setq c 0)

(if ss (setq e (ssname ss c)))

(while e

(setq e (entget e))

; Ensure entity is text

(if (= (cdr (assoc 0 e)) "TEXT")

(progn

(if (= x "Thuong")

(setq txt (strcase (cdr (assoc 1 e)) t))

(setq txt (strcase (cdr (assoc 1 e))))

)

(setq e (subst (cons 1 txt) (assoc 1 e) e))

(entmod e)

)

)

(setq c (1+ c)) ; Increment counter.

(setq e (ssname ss c)) ; Obtain next entity.

)

(setvar "CMDECHO" cmde)

(command "undo" "end")

(Prin I)

)

Cái này là sưu tầm à nha. (không nhớ nguồn)

 

 

 

bạn sao mình sử dụng không được vậy.báo lỗi "Select objects: no function definition: PRIN" sau khi chọn đối tượng cần chuyển

[ketxu 3005]

Thực chất là nó đã đổi string rồi đấy thôi bạn :lol:

Lỗi Prin thì bạn thay dòng cuối (Prin I) thành (prin1) nhé

[gia_bach 1558]

vi máy e ko có express nên e muốn xin lisp các pac.pac nào giúp e dc ko............!!!!!!!

Bạn nên cài express tool vì nó có rất nhiều lệnh hay.

 

xin lisp thay đổi chữ Hoa thành chữ Thường và ngược lại cho nhiều đối tượng cùng lúc.help...help.............

Lệnh TCASE của Expresstool đã làm được việc này, nên "các cao thủ" không muốn viết nữa (viết lại chắc gì hay hơn cái đã có)

[quocaaa 1]

Bạn nên cài express tool vì nó có rất nhiều lệnh hay.

Lệnh TCASE của Expresstool đã làm được việc này, nên "các cao thủ" không muốn viết nữa (viết lại chắc gì hay hơn cái đã có)

 

 

 

thôi vậy.đa tạ các pác nhé.để em kiếm cách khác...........

[tvgtyb08 10]

Các bác cho hỏi sao máy em cài Cad2005 chạy Expresstool ra nó ko nhận lệnh, vào MENULOAD và load file acetmain.mns thì nó hiện Tab Express trên thanh Nenu rồi xong tắt đi mở lại Cad nó lại biến mất. Ko riêng gì chương trình đó một số cái khác khi load lên được nhưng khởi động lại Cad nó lại mất.

Có bác nào biết cách xử lý chỉ giúp em với.

[Doan Van Ha 3211]

thôi vậy.đa tạ các pác nhé.để em kiếm cách khác...........

"Đánh một trân: sạch không kình ngạc!"

"Đánh hai trận: tan tác chim muông!"

Chịu khó nghiên cứu chút xíu thì bạn hiểu tất cả thôi mà. Nó đơn giản thôi. Chứ "đánh ba trận" thì không biết còn cái gì để "đánh" nữa không! Chúc bạn 1 ngày vui.

[Thaistreetz 539]

"Đánh một trân: sạch không kình ngạc!"

"Đánh hai trận: tan tác chim muông!"

Chịu khó nghiên cứu chút xíu thì bạn hiểu tất cả thôi mà. Nó đơn giản thôi. Chứ "đánh ba trận" thì không biết còn cái gì để "đánh" nữa không! Chúc bạn 1 ngày vui.

Nó lặn lâu rồi bác ợ. giờ bác chúc thế nó hok nghe thấy đâu. :D

người đào topic này lên là tvgtyb08 mà.

Các bác cho hỏi sao máy em cài Cad2005 chạy Expresstool ra nó ko nhận lệnh, vào MENULOAD và load file acetmain.mns thì nó hiện Tab Express trên thanh Nenu rồi xong tắt đi mở lại Cad nó lại biến mất. Ko riêng gì chương trình đó một số cái khác khi load lên được nhưng khởi động lại Cad nó lại mất.

Có bác nào biết cách xử lý chỉ giúp em với.

Bạn thử quét virut bằng lisp của bác Hoành xem. có lần mình từng bị giống bạn, khi quét xong thì hết.

[tvgtyb08 10]

 

 

Bạn thử quét virut bằng lisp của bác Hoành xem. có lần mình từng bị giống bạn, khi quét xong thì hết.

Giờ em mới nghe nói lisp này, em Seach mà ko thấy bác có link ko cho em xin với.

[Doan Van Ha 3211]

Giờ em mới nghe nói lisp này, em Seach mà ko thấy bác có link ko cho em xin với.

Hơi... mệt, vì bạn không chịu nghe người khác góp ý.

Còn thích LSP thì LSP đây. Tuy nhiên, khuyên bạn đừng quá lệ thuộc vào LSP như thế.

Chúc bạn vui.

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

[tvgtyb08 10]

Hơi... mệt, vì bạn không chịu nghe người khác góp ý.

Còn thích LSP thì LSP đây. Tuy nhiên, khuyên bạn đừng quá lệ thuộc vào LSP như thế.

Chúc bạn vui.

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

Thành thật Xin lỗi và cảm ơn anh.

 

Các bác cho hỏi sao máy em cài Cad2005 chạy Expresstool ra nó ko nhận lệnh, vào MENULOAD và load file acetmain.mns thì nó hiện Tab Express trên thanh Nenu rồi xong tắt đi mở lại Cad nó lại biến mất. Ko riêng gì chương trình đó một số cái khác khi load lên được nhưng khởi động lại Cad nó lại mất.

Có bác nào biết cách xử lý chỉ giúp em với.

Em hỏi xem có ai biết lỗi của nó ko bác Thaistreetz bảo có lisp giệt Virut của bác Hoàng, em muốn xin link đó em Seach ko thấy.

[Doan Van Ha 3211]

Thành thật Xin lỗi và cảm ơn anh.

 

 

Em hỏi xem có ai biết lỗi của nó ko bác Thaistreetz bảo có lisp giệt Virut của bác Hoàng, em muốn xin link đó em Seach ko thấy.

Hiện giờ nó nằm đầu trang đấy: CADViet Antivirus