Có thể mở rộng phạm vi sống của biến trong lisp ?

[tdvn 53]

Theo lisp nguyên thủy, biến lisp toàn cục chỉ "sống" ðýợc trong 1 file, nó không tồn tại (=nil) ở file khác. Không biết Visual Lisp hay có cách nào làm cho biến lisp tồn tại trong quá trình sống của cad (trýờng hợp nhiều file) không các bác nhỉ ?

[Nguyen Hoanh 4670]

Theo lisp nguyên thủy, biến lisp toàn cục chỉ "sống" ðýợc trong 1 file, nó không tồn tại (=nil) ở file khác. Không biết Visual Lisp hay có cách nào làm cho biến lisp tồn tại trong quá trình sống của cad (trýờng hợp nhiều file) không các bác nhỉ ?

bạn ghi nó vào file, vào registry, vào config, vào biến hệ thống (USERXXX).

[tdvn 53]

bạn ghi nó vào file, vào registry, vào config, vào biến hệ thống (USERXXX).

Cám ơn bạn, mình thường sử dụng những biến như vậy lưu trữ dữ liệu lớn để truy xuất cho nhanh trên nhiều file. Trên ARX thì biến toàn cục sống cho đến khi thoát cad thì thôi bất kể ở file nào. Nhưng sử dụng ARX thì phức tạp nào là trình biên dịch, phiên bản phù hợp ..., mình muốn thử trên lisp cho đơn giản hơn. Một lần nữa cám ơn bạn

[TRUNGNGAMY 91]

Theo lisp nguyên thủy, biến lisp toàn cục chỉ "sống" ðýợc trong 1 file, nó không tồn tại (=nil) ở file khác. Không biết Visual Lisp hay có cách nào làm cho biến lisp tồn tại trong quá trình sống của cad (trýờng hợp nhiều file) không các bác nhỉ ?

Thay đổi biến hệ thống LISPINIT từ 1 thành 0

Enter new value for LISPINIT <1>: 0

[VUVUZELA 100]

Bạn cũng có thể dùng hàm này để viết vô regedit và sau này load lên để đọc lại

 

Examples

 

_$ (vl-registry-write "HKEY_LOCAL_MACHINE\\SOFTWARE\\Khungten" "" "Giai doan")

"1"

_$ (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Khungten" "Giai doan")

"1"