AutoCAD Online | Diễn đàn | 158

Cadonline Forum :: Xem chủ đề - Hàm ghi Regedit

Trợ giúp

Tìm kiếm

Nhóm làm việc

Thông tin cá nhân

Tin nhắn riêng

Đăng nhập

Hàm ghi Regedit

Cadonline Forum -> Thư viện hàm con

Xem chủ đề trước :: Xem chủ đề kế

Tác giả

Thông điệp

hochoaivandot
Quản trị

Ngày tham gia: 04/12/2011
Bài gửi: 107
Đến từ: Quảng Nam

gửi: 11.11.2012 Tiêu đề: Hàm ghi Regedit

Code:

(defun DBD-WriteRegedit (ValueDefault Promt KeyReg StringReg func keyw / key1 key)
; ValueDefault is information to write to regedit
; ValueDefault is string contain string, int, real "abc" "123" "987.17"
; Return string, int, real
(setq key1 (vl-registry-read KeyReg StringReg))
(if (not key1) (vl-registry-write KeyReg StringReg (setq key1 ValueDefault)))
(if Promt
   (progn
      (if keyw (apply 'initget keyw))
      (setq key (func (strcat Promt " <" key1 ">: ")))
      (cond
         ((= (type key) 'INT) (vl-registry-write KeyReg StringReg (itoa key)))
         ((= (type key) 'REAL) (vl-registry-write KeyReg StringReg (rtos key)))
         ((= (type key) 'STR) (vl-registry-write KeyReg StringReg key))
         (t (alert "Loi nang"))
      )
   )
)
(if (not key) (setq key (read key1)))
key
)

_________________
Học hoài vẫn dốt

Chuyển lên trên

Trình bày bài viết theo thời gian:

	Cadonline Forum -> Thư viện hàm con	Thời gian được tính theo giờ [GMT+7giờ]
Trang 1 trong tổng số 1 trang

Bạn không có quyền gửi bài viết
Bạn không có quyền trả lời bài viết
Bạn không có quyền sửa chữa bài viết của bạn
Bạn không có quyền xóa bài viết của bạn
Bạn không có quyền tham gia bầu chọn

Trang chủ ¤ Diễn đàn ¤ Liên hệ ¤ Sơ đồ site ¤ Tìm kiếm ¤ Thăm dò dư luận ¤ Thư viện Download

© Copyright 2011-2012 AutoCAD Online
Người phát triễn : Dương Bá Diệp Email : badiep@duyxuyen.vn
Website : http://cadonline.duyxuyen.vn
Diễn đàn BBtoNuke 2.0.21 © 2006 Nuke Cops
Được phát triển từ phpBB 2.0.21 © 2001-2006 phpBB Group