社区 › Auto Lisp › 带边缘的尺寸标注

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

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

(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

可能
 

(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

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

(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

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

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

查看完整版本: 带边缘的尺寸标注