世井 发表于 2022-3-7 20:44:51

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

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


xyp1964 发表于 2022-3-8 21:45:05

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

vectra 发表于 2022-3-9 09:50:46

本帖最后由 vectra 于 2022-3-9 09:52 编辑

(setq $op-output-directory
       (vlax-ldata-get
       "OneClickPlot2"
       "OutputDirectory"
       ""
       )
)


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


竹天 发表于 2022-3-8 08:57:27

本帖最后由 竹天 于 2022-3-8 09:01 编辑

(defun C:dwgp (/ App Doc DwgProps)
(vl-load-com)
      (setq App (vlax-Get-Acad-Object)
                Doc (vla-Get-ActiveDocument App)
                DwgProps (vla-Get-SummaryInfo Doc)
      )
      (vla-AddCustomInfo DwgProps "AAA" "1")      
      (vla-AddCustomInfo DwgProps "BBB" "2")
      (prin1)
)
感觉可以用上面的方法把自变量写到dwg文件的自定义属性里

lxw320 发表于 2022-3-7 20:53:27

保存在字典里

世井 发表于 2022-3-8 07:53:07

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

哥那个函数是保存字典

竹天 发表于 2022-3-8 09:01:39

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

代码摘自 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100969&highlight=dwgprops

烟盒迷唇 发表于 2022-3-8 17:53:23

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

hhh454 发表于 2022-3-9 10:23:13

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

世井 发表于 2022-3-9 12:24:40

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

页: [1] 2
查看完整版本: 如何将变量值A写入记忆，下次打开CAD还是这个变量值