社区 › Auto Lisp › 如何获取布局ta的数量

chulse 发表于 2022-7-6 07:09:09

 
 
我不敢相信他们会删除这个功能。
（……好吧，是的，我可以……）

alanjt 发表于 2022-7-6 07:13:41

我认为这是一个错误。我们从06年到08年，所以我只听说过。

SteveK 发表于 2022-7-6 07:17:06

 
我想知道如何在字段中使用lisp函数；
在fields表中，我只能看到LispVariable，我想如果您分配一个变量（例如（length（layoutlist）），您仍然需要在每个会话开始时初始化lisp程序。。。客户不喜欢的。。。。但如果有某个地方字段支持lisp函数，那么我们就是在做生意！但是有没有。。。？

ronjonp 发表于 2022-7-6 07:19:43

 
也许正在形成。。。。http://www.theswamp.org/index.php?topic=30471.0

SteveK 发表于 2022-7-6 07:24:15

 
是的，我想有相当多的人在等着看安德里亚的密码。。。
 
不过，我们不需要运行lisp程序来运行Mlisp吗？（对我们来说可以，但对客户不可以）

chulse 发表于 2022-7-6 07:26:24

 
嗯，我只给客户发送PDF文件，所以这对我来说会很好

SteveK 发表于 2022-7-6 07:30:24

 
你好，Cary，
但是，为什么不将一个用户变量分配给一个字段（例如userr1），然后在pdf之前用以下命令更新变量：
(setvar "userr1" (length(layoutlist)))
或任何变量
(setq numLays (length(layoutlist)))

alanjt 发表于 2022-7-6 07:30:56

 
嗯
 
(if (not *CommandReactors-PlotSheetCount*)
(setq *CommandReactors-PlotSheetCount*
      (vlr-command-reactor
          nil
          '((:vlr-commandWillStart . StrtCMD-PlotSheetCount)
         )
      ) ;_ vlr-command-reactor
) ;_ setq
) ;_ if
(defun StrtCMD-PlotSheetCount
      (calling-reactor StrtCMD-PlotSheetCountInfo / theCMDStrt)
(setq theCMDStrt (strcase (car StrtCMD-PlotSheetCountInfo)))
(cond
   ((wcmatch theCMDStrt "*PLOT*,*PUBLISH*")
    (setvar "userr1" (length (layoutlist)))
   )
) ;_ cond
) ;_ defun

CADMASTER1128 发表于 2022-7-6 07:33:58

 
很好，这是一个有用的代码！谢谢你。

SteveK 发表于 2022-7-6 07:40:03

是的，我喜欢，艾伦。因为这样你就可以添加其他变量，这些变量可能会在其他字段中引用。
此外，在你的创业公司中，你不需要担心在更新pdf之前更新。

查看完整版本: 如何获取布局ta的数量