Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
4 replies to this topic

#1 tdvn

tdvn

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 08 April 2009 - 12:49 AM

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ỉ ?
  • 0

#2 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 08 April 2009 - 10:09 AM

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

#3 tdvn

tdvn

    biết lệnh rotate

  • Members
  • PipPipPip
  • 134 Bài viết
Điểm đánh giá: 53 (tàm tạm)

Đã gửi 08 April 2009 - 12:35 PM

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

#4 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 05 July 2010 - 09:32 AM

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

#5 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 05 July 2010 - 03:06 PM

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

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong