（XD::VAR:GetRevCloudMinMax）获取云线命令的最短弧长、最大弧长参数

marting

1. ;读取
   
2. (defun XD::VAR:GetRevCloudMinMax (/ path)
   
3.   (setq path (strcat "HKEY_CURRENT_USER\\"
   
4.                      (vlax-product-key)
   
5.                      "\\Revision Cloud"
   
6.              )
   
7.   )
   
8.   (if
   
9.     (and (setq minLen (vl-registry-read path "Default Mininum Arc Length"))
   
10.          (setq maxLen (vl-registry-read path "Default Maximum Arc Length"))
    
11.     )
    
12.      (cons (read minLen) (read maxLen))
    
13.     (cons 15 15)
    
14.   )
    
15. )
    

;读取<br /> (defun XD::VAR:GetRevCloudMinMax (/ path)<br />   (setq path (strcat "HKEY_CURRENT_USER\\"<br />                      (vlax-product-key)<br />                      "\\Revision Cloud"<br />              )<br />   )<br />   (if<br />     (and (setq minLen (vl-registry-read path "Default Mininum Arc Length"))<br />          (setq maxLen (vl-registry-read path "Default Maximum Arc Length"))<br />     )<br />      (cons (read minLen) (read maxLen))<br />     (cons 15 15)<br />   )<br /> )<br />

命令: (XD::VAR:GETREVCLOUDMINMAX)
(20 . 30)

fy1005

感谢分享函数，之前都在用command