生成DIMCONTINUE命令hon

Dadgad · 发表于 2022-7-6 07:33:08

我非常喜欢使用DIMCONTINUE命令，因为它速度非常快。
我的问题是，它覆盖了当前的dimstyle
定义的文本放置设置，带有“带引线的尺寸线上方”。
我更希望它尊重DIMSTYLE保存的文本位置。

现在它可以工作了，每次我将其用于连续的标注字符串时，我都需要记住将其全部选中，然后从右键单击快捷菜单中重新应用当前的dimstyle。
如果我没有，并且有任何尺寸太短，无法容纳文本和箭头，则会添加引线，这是我不想要的。

Lee Mac · 发表于 2022-7-6 07:43:52

下面是DimContinue和DimStyle命令的简单自动化：

copy

(defun c:dimc ( / en )
   (setq en (entlast))
   (command "_.dimcontinue")
   (while (= 1 (logand 1 (getvar 'cmdactive)))
       (command "\")
   )
   (if (not (eq en (entlast)))
       (progn
           (command "_.-dimstyle" "_A")
           (while (setq en (entnext en))
               (command en)
           )
           (command "")
       )
   )
   (princ)
)

希望这有帮助！

Dadgad · 发表于 2022-7-6 07:51:29

嗨，李，非常感谢你这么做，
但我似乎仍然有同样的问题。
这似乎是DIMTMOVE值需要保持为0，或者对于任何新完成的
维度，默认行为似乎将其切换为1，只要文本有可用空间
尺寸线上的文字穿过最小阈值，而不是将文字水平移动到箭头外。

如果我检查一个非常短的新创建的连续标注的属性（用不需要的引线显示），在属性中仍然显示
这是当前的dimstyle，但为了将DIMTMOVE变量恢复为0，我必须单击
在我的右键单击快捷菜单中选择标注样式，然后在那里选择当前的dimstyle，这会将其重置为
文字放置在尺寸线旁边。