英寸到英尺的尺寸

structo · 发表于 2022-7-5 16:55:25

嗨，朋友们，

我有59英寸的尺寸文本等等。我想转换为4'-11英寸规则高于18英寸的尺寸文本应该转换为英尺。快速lisp有任何可能性吗？
规则是：

查找带英寸（“）符号文本并除以“12”的文本。然后替换为“英尺-英寸”文本。例如4'-11“而不是59”。（如果大于18”文本值）

非常感谢。
英寸到英尺。图纸

Dadgad · 发表于 2022-7-5 17:02:57

您当然可以使用其他标注样式，或者创建一个全新的标注样式。

structo · 发表于 2022-7-5 17:05:39

嗨，朋友，
感谢您的回复。是的，我已经试过你的想法了。但并非完全成功。请遵守样品图纸。有一维样式。在此样式中包含不同的文字。请看一看。在此标注样式中，不是原始标注。存在已编辑的文本。所以很难改变每一个文本。

非常感谢。

Dadgad · 发表于 2022-7-5 17:10:19

您只需要设置dimstyle来执行您希望它执行的操作。

我在现有Dimsyle 1的基础上创建了一个新的dimstyle，并在dimstyle定义中调整了dimscale linear，因此您不需要覆盖所有尺寸。我删除了右侧线条中的所有替代，选择了所有尺寸标注，并将其在“快捷特性”中的dimstyle更改为dimstyle 1 Fixed。

我不知道你为什么没有在Modelspace中以1:1的比例绘制，这是公认的行业规范。
通常，使用Autocad时，用户可以在模型空间中以真人大小（1:1）绘制任何东西，这与传统的在纸上绘图不同，在纸上绘图很快就不可能了。

如果按比例缩放此图形。02，一切都将是正确的大小，在这种情况下，你将能够删除。02我应用于dimstyle的比例因子，在“快捷特性”选项卡的屏幕截图上以黄色高亮显示。

我刚刚在你的画中按比例缩放了对象。02，并调整标注样式以反映该更改，如黄色高亮显示的，暗比例线性不再为0.02，而是现在为1，如上一个屏幕截图所示。

我希望这对你有帮助。

英寸到英尺。图纸

structo · 发表于 2022-7-5 17:10:50

你好
谢谢你的回复。这些图纸是由一个程序绘制的。这就是为什么我想通过自动化许多绘图过程来进行更改。

非常感谢。

Dadgad · 发表于 2022-7-5 17:16:15

由于标注文字已被覆盖，这可能相当困难，更不用说比例尺不是预期的。
我对尺寸很在行，但对lisp一无所知，希望能找到一种自动排序的方法。

所有的图纸都会像这样缩放，比实际尺寸（50:1）大50倍吗？
答案可能很重要。

structo · 发表于 2022-7-5 17:20:37

是的，朋友，

我需要找到带有英寸（“）符号文本并除以“12”的文本。然后替换为“英尺-英寸”文本。例如4'-11“而不是59”。（如果超过18”文本值）

非常感谢。

Roy_043 · 发表于 2022-7-5 17:25:26

我同意达加德的评论。但是，尽管如此，这应该是可行的：

copy

(defun c:Test ( / doc ovr ss)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-endundomark doc)
 (vla-startundomark doc)
 (if (setq ss (ssget "_X" '((0 . "DIMENSION") (-4 . "<NOT") (1 . "") (-4 . "NOT>"))))
   (vlax-for obj (setq ss (vla-get-activeselectionset doc))
     (setq ovr (vla-get-textoverride obj))
     (if
       (and
         (wcmatch ovr "*"")
         (not (wcmatch ovr "*[~"0-9]*,*"*?"))
         (< 18 (atoi ovr))
       )
       (vla-put-textoverride 
         obj 
         (strcat 
           (itoa (/ (atoi ovr) 12)) 
           "'-" 
           (itoa (rem (atoi ovr) 12))
           """
         )
       )
     )
   )
   (vla-delete ss)
 )
 (vla-endundomark doc)
 (princ)
)

structo · 发表于 2022-7-5 17:26:00

哇，罗伊，

太神奇了。谢谢你的巨大贡献。

Dadgad · 发表于 2022-7-5 17:29:23

干得好，罗伊！

[编程交流] 英寸到英尺的尺寸

发表回复

精选推荐