崔定制

DonovanPorter · 发表于 2022-7-7 00:45:43

标记的


^C^C^P(load "DATUM")))) ^C^CPOINTY

BlackBox · 发表于 2022-7-7 00:47:38

开枪*踢翻泥土*

... 不过，至少我们（现在）朝着正确的方向前进。

*给自己唱歌，有人拿了他们的杯子，呵呵呵呵。。。

编辑：额外的紧密排列是为了什么？

当你忘记使用时，SLW会生气

copy

[/url], and you wouldn't like him when he's angry.
... Looks like 'DATUM' is a custom [b][color=blue]*.LSP, *.FAS, *.VLX[/color][/b] file, and 'POINTY' is the custom command.
FWIW - I would re-write the macro so that 'DATUM' is only loaded if necessary, instead of each time the button is pressed:
[code]
^C^C^P(if (not c:POINTY)(load "DATUM"));POINTY;

。。。你能发布在“DATUM”中找到的源代码吗？

不确定在哪里可以找到“数据”。。。？

使用此选项：

copy


(findfile "datum.[color=red]<ext>[/color]")

。。。其中是上面的一个（不带星号）。

DonovanPorter · 发表于 2022-7-7 00:50:50

我不知道为什么会有这么多家长，早在我开始在这里工作之前，这个命令就在这里，创建它的人已经离开了。

我对代码标签表示歉意，请记住。

我对宏等的了解真的是零，所以我真的不知道该如何处理你给我的代码来查找源代码？

BlackBox · 发表于 2022-7-7 00:55:06

别担心；我不是在喋喋不休地谈论你——一旦你遇到SLW，你就会发现论坛上的幽默。英雄联盟

在任何情况下，请复制以下内容：

copy


(findfile "datum.[color=red]<ext>[/color]")

。。。将其粘贴到命令行，然后按Enter键（请确保按上述说明进行替换）。其中一个将返回路径，另两个应返回nil。

编辑：返回的路径是源文件所在的位置。我们希望源文件是的。LSP的多样性，因为我们无法使用编译代码（.FAS，.VLX），即使有也很容易。

DonovanPorter · 发表于 2022-7-7 00:57:36

我得到的只是这个

copy

("_>

与所有三个

BlackBox · 发表于 2022-7-7 01:02:51

奇怪的请原谅我吹毛求疵，但你具体尝试了以下每一项：

copy


(findfile "datum.lsp")

copy


(findfile "datum.fas")

copy


(findfile "datum.vlx")

...?

如果这些都不可行，也许您可以告诉我在命令行（如果有）返回了什么：

copy


(load "datum")

DonovanPorter · 发表于 2022-7-7 01:05:21

好吧，我做错了

这就是路

copy

"P:\\Drawings\\000-Templates Palettes Profiles\\lisps\\datum.lsp"

DonovanPorter · 发表于 2022-7-7 01:08:38

当我打开。lsp我得到这个代码

copy


(vmon)
(DEFUN C:DATUM ()
(setq pt (getpoint "Select DATUM point : "))
(setq dY (cadr pt))
(setq lvl (getreal "\nDatum level : "))
(setq diff (- lvl dy))
(prin1)
)
(defun C:pointY ()
  (setvar "attdia" 0)
  (setq pt (getpoint "Select insertion point : "))
  (setq Y (cadr pt))
  (setq a (getvar "dimscale"))
  (setq y (+ diff y))
  (setq Y (rtos Y))
;
  (setq l (strlen Y))
  (setq s (- l 3))
  (setq Y1 (substr Y 1 s))
  (setq Y2 (substr Y (1+ s)))
  (setq YA (strcat Y1 "," Y2))
;
  (command "insert" "pointy" pt a "" "" YA)
  (setvar "attdia" 0)
  (prin1)
)

Tyke · 发表于 2022-7-7 01:10:49

看起来RenderMan已经控制了这里的一切，所以我现在没有什么要补充的了，我会让这个“小家伙”完成这项工作。
他喜欢时不时地炫耀。

BlackBox · 发表于 2022-7-7 01:15:14

是的，好吧，不要走得太远。。。我得到了口齿不清的东西（大多数时候），但我仍然没有完全理解OP的要求。你说得对，我的朋友眨眼：

*口吃，不，我不*回到令人敬畏的状态*

@多诺万·波特-

尝试一下快速重写：

现在，我不确定为什么有两个独立的函数（DATUM和POINTY），所以我所做的是合并一个“检查”，这样如果全局变量*DATUM*（以前的diff）为零，就会提示您定义必要的标准。就我个人而言，我觉得你们需要的只是一个完整的尖头函数——但这不是由我来决定的。

请让我知道这是否有效；如果你想了解更多关于我为你发布的代码，请告诉我。

另外，我知道你没有写它，但是关于你发布的代码有几件事：

不再需要（vmon）“虚拟内存开启”功能（或为此进行记录）。

确保在将来的代码中本地化变量，以避免与其他例程发生潜在冲突。

希望这有帮助！

[综合讨论] 崔定制

发表回复

精选推荐