怎么获得云线命令的最短、最大弧长参数

Lisphk

各位大师，revcloud 云线命令里面的最短、最大弧长通过什么方法能获得，有系统变量吗？
我想在命令外，修改这个设置。
谢谢！

q3_2006

不可能有..云线就是多段线..

Lisphk

q3_2006 发表于 2018-3-14 13:07

就是这个，输入A修改后，会保存的。

marting

你要的这个是保存在注册表

"HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R18.2\\ACAD-a001:804\\Revision
Cloud"


下面



给你写个函数读取

1. (defun XD::VAR:GetRevCloudMinMax (/ path)
   
2.   (setq path (strcat "HKEY_CURRENT_USER\\"
   
3.                      (vlax-product-key)
   
4.                      "\\Revision Cloud"
   
5.              )
   
6.   )
   
7.   (if
   
8.     (and (setq minLen (vl-registry-read path "Default Mininum Arc Length"))
   
9.          (setq maxLen (vl-registry-read path "Default Maximum Arc Length"))
   
10.     )
    
11.      (cons (read minLen) (read maxLen))
    
12.     (cons 15 15)
    
13.   )
    
14. )
    
15. 
    
16. 
    
17. (defun XD::VAR:SetRevCloudMinMax (minArc maxArc / path)
    
18.   (setq path (strcat "HKEY_CURRENT_USER\\"
    
19.                      (vlax-product-key)
    
20.                      "\\Revision Cloud"
    
21.              )
    
22.   )
    
23.   (and (vl-registry-write
    
24.          path
    
25.          "Default Mininum Arc Length"
    
26.          (rtos minArc 2 16)
    
27.        )
    
28.        (vl-registry-write
    
29.          path
    
30.          "Default Maximum Arc Length"
    
31.          (rtos maxArc 2 16)
    
32.        )
    
33.   )
    
34. )
    
35. 
    

(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 /> <br /> <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 /> )<br /> <br />

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

q3_2006

marting 发表于 2018-3-14 16:14

学习了..谢谢大师

sicky111

学习了。        

fools

系统变量可以直接用setvar和getvar，不用管它是存储在注册表还是文件中

1. (getvar "*RevcloudMinArcLength") ;_获取最小弧长
   
2. (setvar "*RevcloudMinArcLength" 100.0) ;_设置最小弧长为100
   
3. (getvar "*RevcloudMaxArcLength") ;_获取最大弧长
   
4. (setvar "*RevcloudMaxArcLength" 1000.0) ;_设置最大弧长为1000
   
5. (setvar "*RevcloudArcStyle" "Normal") ;_设置圆弧样式为普通
   
6. (setvar "*RevcloudArcStyle" "Calligraphy") ;_设置圆弧样式为手绘
   
7. 
   
8. 
   
9. 
   

(getvar "*RevcloudMinArcLength") ;_获取最小弧长<br /> (setvar "*RevcloudMinArcLength" 100.0) ;_设置最小弧长为100<br /> (getvar "*RevcloudMaxArcLength") ;_获取最大弧长<br /> (setvar "*RevcloudMaxArcLength" 1000.0) ;_设置最大弧长为1000<br /> (setvar "*RevcloudArcStyle" "Normal") ;_设置圆弧样式为普通<br /> (setvar "*RevcloudArcStyle" "Calligraphy") ;_设置圆弧样式为手绘<br /> <br /> <br /> <br />

Lisphk

marting 发表于 2018-3-14 16:14

谢谢大师！

Lisphk

fools 发表于 2018-3-15 22:22

感谢回复，这些是高版本CAD才有吧？ 我在2012上执行没有。

kqqt6236

谢谢分享。

fools

Lisphk 发表于 2018-3-15 23:23

是有这个问题，2012版以前只能用读注册表的方法