如何将变量值A写入记忆，下次打开CAD还是这个变量值

世井

（defun c:tt () (setq A (GETREAL "\n输入:"))
(princ)）

xyp1964

不如直接写注册表，以便所有文件都可以读取。

vectra

1. (setq $op-output-directory
   
2.        (vlax-ldata-get
   
3.          "OneClickPlot2"
   
4.          "OutputDirectory"
   
5.          ""
   
6.        )
   
7. )
   
8. 
   
9. 
   
10. (setq rt (getstring
    
11.            (strcat "输入打印文件保存目录 <" $op-output-directory ">:")
    
12.          )
    
13. )
    
14. (if (not (null rt))
    
15.   (progn
    
16.     (setq $op-output-directory rt)
    
17.     (vlax-ldata-put
    
18.       "OneClickPlot2"
    
19.       "OutputDirectory"
    
20.       $op-output-directory
    
21.     )
    
22.   )
    
23. )
    
24. 
    

(setq $op-output-directory<br />        (vlax-ldata-get<br />          "OneClickPlot2"<br />          "OutputDirectory"<br />          ""<br />        )<br /> )<br /> <br /> <br /> (setq rt (getstring<br />            (strcat "输入打印文件保存目录 <" $op-output-directory ">:")<br />          )<br /> )<br /> (if (not (null rt))<br />   (progn<br />     (setq $op-output-directory rt)<br />     (vlax-ldata-put<br />       "OneClickPlot2"<br />       "OutputDirectory"<br />       $op-output-directory<br />     )<br />   )<br /> )<br /> <br />

竹天

2. (defun C:dwgp (/ App Doc DwgProps)
   
3.   (vl-load-com)
   
4.         (setq App (vlax-Get-Acad-Object)
   
5.                 Doc (vla-Get-ActiveDocument App)
   
6.                 DwgProps (vla-Get-SummaryInfo Doc)
   
7.         )
   
8.         (vla-AddCustomInfo DwgProps "AAA" "1")        
   
9.         (vla-AddCustomInfo DwgProps "BBB" "2")
   
10.         (prin1)
    
11. )

(defun C:dwgp (/ App Doc DwgProps)<br />   (vl-load-com)<br />         (setq App (vlax-Get-Acad-Object)<br />                 Doc (vla-Get-ActiveDocument App)<br />                 DwgProps (vla-Get-SummaryInfo Doc)<br />         )<br />         (vla-AddCustomInfo DwgProps "AAA" "1")        <br />         (vla-AddCustomInfo DwgProps "BBB" "2")<br />         (prin1)<br /> )

感觉可以用上面的方法把自变量写到dwg文件的自定义属性里

lxw320

保存在字典里

世井

lxw320 发表于 2022-3-7 20:53
保存在字典里

哥那个函数是保存字典

竹天

竹天 发表于 2022-3-8 08:57
感觉可以用上面的方法把自变量写到dwg文件的自定义属性里

代码摘自 http://bbs.mjtd.com/forum.php?mo ... ;highlight=dwgprops

烟盒迷唇

vlax-ldata-get（~put）等是关于字典的函数，可以去帮助查看使用方法。

hhh454

写注册表，再读取，最直观的方法，也很好理解

世井

xyp1964 发表于 2022-3-8 21:45
不如直接写注册表，以便所有文件都可以读取。