生成DIMCONTINUE命令hon
我非常喜欢使用DIMCONTINUE命令，因为它速度非常快。我的问题是，它覆盖了当前的dimstyle
定义的文本放置设置，带有“带引线的尺寸线上方”。
我更希望它尊重DIMSTYLE保存的文本位置。
现在它可以工作了，每次我将其用于连续的标注字符串时，我都需要记住将其全部选中，然后从右键单击快捷菜单中重新应用当前的dimstyle。
如果我没有，并且有任何尺寸太短，无法容纳文本和箭头，则会添加引线，这是我不想要的。
下面是DimContinue和DimStyle命令的简单自动化：
(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)
)
希望这有帮助！ 嗨，李，非常感谢你这么做，
但我似乎仍然有同样的问题。
这似乎是DIMTMOVE值需要保持为0，或者对于任何新完成的
维度，默认行为似乎将其切换为1，只要文本有可用空间
尺寸线上的文字穿过最小阈值，而不是将文字水平移动到箭头外。
如果我检查一个非常短的新创建的连续标注的属性（用不需要的引线显示），在属性中仍然显示
这是当前的dimstyle，但为了将DIMTMOVE变量恢复为0，我必须单击
在我的右键单击快捷菜单中选择标注样式，然后在那里选择当前的dimstyle，这会将其重置为
文字放置在尺寸线旁边。
不客气，不过这很奇怪，因为代码似乎适合我：
是的，李，这是一个非常有说服力的论点，我必须同意。
让我再试一次。
我明白了，盲人说！
我用ESC按钮退出命令，而不是回车。
无论你走到哪里，你都在那里！
现在工作很有魅力，只需要把目光放在路上，非常感谢李！
那是冒烟！ 别担心Dadgad
试试这个：
现在，您应该可以使用“回车”或“Esc”退出。 对李来说太酷了！
我脸上挂着大大的笑容，甚至不需要学习如何使用它。
这就是伟大设计的意义所在，再次感谢！ 谢谢爸爸，不客气。 我现在渴望将此增强版本的DIM继续应用到
将光标悬停在尺寸的夹点菜单上，因此如果我选择从该菜单继续
下拉菜单它将使用此选项，而不是默认版本。
如果在下拉列表中单击DIMCONTINUE，命令行将显示
**继续标注**。
我尝试在CUI中为其创建一个新的别名，但无法识别？
页:
[1]