英寸到英尺的尺寸
嗨，朋友们，我有59英寸的尺寸文本等等。我想转换为4'-11英寸规则高于18英寸的尺寸文本应该转换为英尺。快速lisp有任何可能性吗？
规则是：
查找带英寸（“）符号文本并除以“12”的文本。然后替换为“英尺-英寸”文本。例如4'-11“而不是59”。（如果大于18”文本值）
非常感谢。
英寸到英尺。图纸 您当然可以使用其他标注样式，或者创建一个全新的标注样式。
嗨，朋友，
感谢您的回复。是的，我已经试过你的想法了。但并非完全成功。请遵守样品图纸。有一维样式。在此样式中包含不同的文字。请看一看。在此标注样式中，不是原始标注。存在已编辑的文本。所以很难改变每一个文本。
非常感谢。
您只需要设置dimstyle来执行您希望它执行的操作。
我在现有Dimsyle 1的基础上创建了一个新的dimstyle，并在dimstyle定义中调整了dimscale linear，因此您不需要覆盖所有尺寸。我删除了右侧线条中的所有替代，选择了所有尺寸标注，并将其在“快捷特性”中的dimstyle更改为dimstyle 1 Fixed。
我不知道你为什么没有在Modelspace中以1:1的比例绘制，这是公认的行业规范。
通常，使用Autocad时，用户可以在模型空间中以真人大小（1:1）绘制任何东西，这与传统的在纸上绘图不同，在纸上绘图很快就不可能了。
如果按比例缩放此图形。02，一切都将是正确的大小，在这种情况下，你将能够删除。02我应用于dimstyle的比例因子，在“快捷特性”选项卡的屏幕截图上以黄色高亮显示。
我刚刚在你的画中按比例缩放了对象。02，并调整标注样式以反映该更改，如黄色高亮显示的，暗比例线性不再为0.02，而是现在为1，如上一个屏幕截图所示。
我希望这对你有帮助。
英寸到英尺。图纸
你好
谢谢你的回复。这些图纸是由一个程序绘制的。这就是为什么我想通过自动化许多绘图过程来进行更改。
非常感谢。 由于标注文字已被覆盖，这可能相当困难，更不用说比例尺不是预期的。
我对尺寸很在行，但对lisp一无所知，希望能找到一种自动排序的方法。
所有的图纸都会像这样缩放，比实际尺寸（50:1）大50倍吗？
答案可能很重要。 是的，朋友，
我需要找到带有英寸（“）符号文本并除以“12”的文本。然后替换为“英尺-英寸”文本。例如4'-11“而不是59”。（如果超过18”文本值）
非常感谢。 我同意达加德的评论。但是，尽管如此，这应该是可行的：
(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)
) 哇，罗伊，
太神奇了。谢谢你的巨大贡献。 干得好，罗伊！
页:
[1]
2