Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
quocaaa

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

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

ketxu    2.652

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:

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

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
phamthanhbinh    3.123
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.

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
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??

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
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"?

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

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

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
843824    0

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:

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
phamthanhbinh    3.123
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 ạ.

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
phamthanhbinh    3.123
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 ư???

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
duy782006    1.374
"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)

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

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
ketxu    2.652

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é

  • 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
gia_bach    1.442
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ó)

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

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

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
Doan Van Ha    2.676

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.

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
Thaistreetz    515

"Đá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.

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

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
Doan Van Ha    2.676

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

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

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
Doan Van Ha    2.676

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

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  

×