（XD::VAR:SetRevCloudMinMax）修改云线revcloud命令的默认最短弧长、最大弧长参数

marting

1. ;修改
   
2. (defun XD::VAR:SetRevCloudMinMax (minArc maxArc / path)
   
3.   (setq path (strcat "HKEY_CURRENT_USER\\"
   
4.                      (vlax-product-key)
   
5.                      "\\Revision Cloud"
   
6.              )
   
7.   )
   
8.   (and (vl-registry-write
   
9.          path
   
10.          "Default Mininum Arc Length"
    
11.          (rtos minArc 2 16)
    
12.        )
    
13.        (vl-registry-write
    
14.          path
    
15.          "Default Maximum Arc Length"
    
16.          (rtos maxArc 2 16)
    
17.        )
    
18.   )
    
19. )

;修改<br /> (defun XD::VAR:SetRevCloudMinMax (minArc maxArc / path)<br />   (setq path (strcat "HKEY_CURRENT_USER\\"<br />                      (vlax-product-key)<br />                      "\\Revision Cloud"<br />              )<br />   )<br />   (and (vl-registry-write<br />          path<br />          "Default Mininum Arc Length"<br />          (rtos minArc 2 16)<br />        )<br />        (vl-registry-write<br />          path<br />          "Default Maximum Arc Length"<br />          (rtos maxArc 2 16)<br />        )<br />   )<br /> )

scnjlwb

谢谢分享！

fy1005

找了很久这个变量，原来在注册表