维度帮助添加到dim

mike331 · 发表于 2022-7-6 12:43:56

有没有办法给维度添加额外的内容。

示例：我的维度为38“，但我希望维度显示38 1/2”。我总是想在实际尺寸上加上1/4英寸或1/2英寸。。

这是一个有点多解释，但只知道我需要它这样做。。。

谢谢

Lee Mac · 发表于 2022-7-6 13:11:09

你在考虑使用文本覆盖吗？

T2L · 发表于 2022-7-6 13:24:55

将尺寸后缀更改为1/2或1/4。
标注-->标注样式-->覆盖-->主单位-->后缀。

JohnM · 发表于 2022-7-6 13:32:47

就像李建议的那样
使用“特性”对话框中的“快速选择”来选择要更改的尺寸
在对话框中，在文本覆盖框中输入¼“=原始尺寸，然后输入一个空格，然后输入¼”
然后在下面找到后缀框并删除内容，使更改内容为38¼“而非38”¼”
又快又脏
要更改图形中的所有尺寸还是仅更改部分尺寸？
你发布的信息越详细，你收到的答案就越好。

alanjt · 发表于 2022-7-6 13:57:56

这个怎么样。。。

copy

(defun c:Test (/ #Choice #Suffix #SS)
 (vl-load-com)
 (and
   (not (initget 0 "1 2"))
   (setq #Choice (getkword "\nDimension Suffix (1 = ½/2 = ¼) [1/2]: "))
   (cond ((eq #Choice "1") (setq #Suffix "½"))
         ((eq #Choice "2") (setq #Suffix "¼")))
   (setq #SS (ssget ":L" '((0 . "DIMENSION"))))
   (foreach x (mapcar 'vlax-ename->vla-object
                      (vl-remove-if 'listp
                        (mapcar 'cadr (ssnamex #SS))))
     (vla-put-textsuffix x (strcat " " #Suffix """))))
 (princ))

[编程交流] 维度帮助添加到dim

发表回复

精选推荐