Đặt mặc định biến hệ thống

[Quan2008 0]

Cho mình hỏi nếu muốn đặt giá trị mặc định cho ô khoanh đỏ là 300 chẳng hạn thì mình dùng biến gì? Do mình k dùng cố định một máy nên muốn set giá trị cố định trong Lisp. 

Chân thành cảm ơn.  

 

 

[cuongtk2 429]

AddAppEvent.zip Lệnh AddAppEvent sẽ theo dõi thay đổi biến hệ thống và thông báo bởi hộp thoại alert. 

[Quan2008 0]

21 giờ trước, cuongtk2 đã nói:

AddAppEvent.zip Lệnh AddAppEvent sẽ theo dõi thay đổi biến hệ thống và thông báo bởi hộp thoại alert. 

Sử dụng như thế nào thế bác? Thanks

[cuongtk2 429]

Giải nén file dll, netload. Gõ lệnh AddAppEvent. Khi bạn thay đổi biến hệ thống thì autocad sẽ hiện hộp thoại thông báo tên biến và giá trị mới.

[Quan2008 0]

17 giờ trước, cuongtk2 đã nói:

Giải nén file dll, netload. Gõ lệnh AddAppEvent. Khi bạn thay đổi biến hệ thống thì autocad sẽ hiện hộp thoại thông báo tên biến và giá trị mới.

khi mình mở cái bảng ở trên ra và nhập 300 vào ô khoanh đỏ thì nó k hiện cái gì cả. Bác xem lại giùm mình với Cảm ơn bác nhiều

 

[cuongtk2 429]

Có thể nó không phải là biến hệ thống, bạn thử với 1 biến hệ thống khác như osmode là có thông báo alert thôi.

[Nguyễn Hà Huy 44]

Vào lúc 6/2/2025 tại 11:15, cuongtk2 đã nói:

AddAppEvent.zip Lệnh AddAppEvent sẽ theo dõi thay đổi biến hệ thống và thông báo bởi hộp thoại alert. 

file dll bị lỗi sao ấy bác, mình cũng netload vào cũng trả có gì

[Quan2008 0]

16 giờ trước, cuongtk2 đã nói:

Có thể nó không phải là biến hệ thống, bạn thử với 1 biến hệ thống khác như osmode là có thông báo alert thôi.

Mình nhập OSMODE rồi thử thay đổi số thì nó chỉ hiện vậy thôi bác ah.

[thanhduan2407 277]

Vào lúc 6/2/2025 tại 05:04, Quan2008 đã nói:

Cho mình hỏi nếu muốn đặt giá trị mặc định cho ô khoanh đỏ là 300 chẳng hạn thì mình dùng biến gì? Do mình k dùng cố định một máy nên muốn set giá trị cố định trong Lisp. 

Chân thành cảm ơn.  

 

 

 

Trong AutoCAD, nếu bạn muốn thay đổi cài đặt mặc định của Distance in Pixels trong bảng Quick Properties bằng cách sử dụng ngôn ngữ AutoLISP , thì bạn cần làm việc với hệ thống biến (system variables) liên quan đến Quick Properties.

Biến hệ thống liên quan:

Biến hệ thống chính liên quan đến Quick Properties là:

QPMODE : Điều khiển trạng thái bật/tắt của Quick Properties.

Giá trị 0: Tắt Quick Properties.

Giá trị 1: Bật Quick Properties.

QPLOC : Điều khiển vị trí hiển thị của bảng Quick Properties.

Giá trị 0: Hiển thị ở góc trên bên phải.

Giá trị 1: Hiển thị gần con trỏ chuột.

Tuy nhiên, khoảng cách giữa các thành phần trong bảng Quick Properties (Distance in Pixels) không được quản lý trực tiếp bởi một biến hệ thống cụ thể. Thay vào đó, nó thường là một phần của cấu hình giao diện người dùng và không có biến hệ thống riêng biệt để điều chỉnh khoảng cách này.

Kết luận:

Hiện tại, không có biến hệ thống cụ thể nào trong AutoCAD quản lý trực tiếp Distance in Pixels của bảng Quick Properties. Để tùy chỉnh khoảng cách này, bạn có thể:

Thử điều chỉnh thông qua Windows Registry bằng AutoLISP.

Tạo giao diện tùy chỉnh bằng CUI .

Sử dụng các công cụ lập trình nâng cao như .NET API hoặc ObjectARX .

 

P/s: AI trả lời

[ketxu 3004]

Giá trị này nằm trong Registry nên k catching qua System Variable đâu :)
Bạn có thể để đoạn mã này ở 1 file Lisp khi khởi động, hoặc mình cũng để sẵn thành lệnh để thích thì b gọi 
 

(defun changeLocationDistance(n)
	(vl-registry-write 
		(strcat
			"HKEY_CURRENT_USER\\"
			(vlax-product-key)
			"\\Profiles\\"
			(getvar "cprofile")
			"\\QuickProperties"		
		)
		"LocationDistance"
		n
	)
)
(changeLocationDistance 300)
(defun c:cld(/ n)
	(and 
		(setq n (getint "\nGia tri LocationDistance moi :"))
		(< 0 n 300)
		(changeLocationDistance n)
	)
)

 

[ketxu 3004]

Các bài hỏi xong vất đấy kiểu ntn càng ngày càng thôi thúc tại sao m k nên bỏ thời gian rep free =))

[vietduc147258 96]

6 giờ trước, ketxu đã nói:

Các bài hỏi xong vất đấy kiểu ntn càng ngày càng thôi thúc tại sao m k nên bỏ thời gian rep free =))

Tình trạng diễn đàn bữa nay hay gặp tính trạng "bác sĩ" vào bàn luận sôi nổi, trong khi "bệnh nhân" lại lặn mất tăm.

Cám ơn bác dòng code rất hay. Em áp dụng sang để đổi màu nền cho cái BEditBackground. Mặc dù dùng lisp không được (do hiểu biết lĩnh vực này còn hạn chế) nhưng dùng file .reg cũng khá tốt.