带边缘的尺寸标注

the-trooper · 发表于 2022-7-6 14:56:42

大家好

我想要的是启动“dimbaseline”命令，为基线选择一个维度（绘制它），在创建一个基线后自动结束该命令，然后启动“dimcontinue”。

我确实试过了，但是。。。

（定义c:4（）
（命令“_dimbeline”）
（退出）
（命令“_dimcontinue”
)

以及：

（定义c:4（）
（命令“_dimbeline”）
（命令）
（命令“_dimcontinue”
)

和几个变体，但没有去。

提前感谢！

Lee Mac · 发表于 2022-7-6 15:07:21

对不起，我可能看错了，但为什么不只是：

copy


(command "_dimcontinue" "_S")
(while (> (getvar "cmdactive") 0) (command pause))

the-trooper · 发表于 2022-7-6 15:13:40

对不起，我对LISP知之甚少，我确实尝试输入了这段代码，但主要问题是在创建第一条基线后如何结束dimbaseline。

Lee Mac · 发表于 2022-7-6 15:20:44

dimbaseline不需要您选择尺寸吗？不是画一个吗？

the-trooper · 发表于 2022-7-6 15:25:57

选择后，绘制基准尺寸。所以我想要的是在第一个创建完成后，结束dimbaseline并自动转到dimcontinue。

Lee Mac · 发表于 2022-7-6 15:28:19

可能

copy


(command "_dimbaseline" "_S" pause pause "" "")
(command "_dimcontinue" "_S")
(while (> (getvar "cmdactive") 0) (command pause))

the-trooper · 发表于 2022-7-6 15:38:25

嗯。。。。。也许我做错了什么。这不会启动dimbaseline。以dimcontinue开头。。。

the-trooper · 发表于 2022-7-6 15:44:11

整个事情看起来怎么样？从（defun）开始：。。。。

Lee Mac · 发表于 2022-7-6 15:45:08

只需将其转储到测试函数中，如：

copy


(defun c:test ()
(command "_dimbaseline" "_S" pause pause "" "")
(command "_dimcontinue" "_S")
(while (> (getvar "cmdactive") 0) (command pause))
(princ)
)

我认为函数的作用会有所不同，这取决于您在图形中是否已经有尺寸，或者您创建的最后一个对象是否是尺寸。

the-trooper · 发表于 2022-7-6 15:54:59

就是这样！
我甚至对它做了一些修改，使一切都自动化了。李，万分感谢！

copy


(defun c:test ()
(command "_dimbaseline" "_S" pause pause "" "")
(command "_dimcontinue" "l")
(while (> (getvar "cmdactive") 0) (command pause))
(princ)
)

[编程交流] 带边缘的尺寸标注

发表回复

精选推荐