加载一些东西。lsp然后只需进行型式试验
关于VBA版本
VBAMAN，然后新建，然后单击ACADproject，然后单击Visual basic编辑器，然后右键单击此图形。。查看代码，将VBA代码复制并粘贴到新窗口中，然后保存VBA项目“something”，关闭Visual basic窗口并返回Autocad
要运行，请在菜单选项中删除命令行的^c^c
^C^C（vl vbaload“S:/AutoDESK/VBA/something.dvb”）（vl vbarun“DimAlignAll”） Fixo是否有办法更改此lisp例程，使标注位置位于与正在标注的线平行但偏移200mm的不同位置？或者可以将此lisp更改为旋转尺寸而不是对齐尺寸？
tjfisher，
欢迎加入！
请附上一个截图，让我更有意义
（.jpeg或.png可在“Go Advanced”选项卡中找到） 谢谢菲索。下面，我画了四条线，并使用lisp例程对左侧的两条线进行了尺寸标注，并手动对右侧的两条线进行了尺寸标注，因为您可以看到左侧尺寸直接位于它们所标注的线的顶部，而我手动绘制的尺寸与该线偏移，因此该线仍然可见，如有任何帮助，我们将不胜感激
@tjfisher公司
抱歉耽搁了，
改为尝试此代码
(defun C:mdm (/ elist eni p1 p2 pc ss)
(command "_undo"
"_be")
(setq ss (ssget(list (cons 0"LINE"))))
(setq i -1)
(while
(setq en (ssname ss (setq i (1+
i))))
(setq elist (entget en))
(setq p1 (cdr (assoc 10
elist))
p2 (cdr (assoc 11 elist))
pc (mapcar (function (lambda(a b)(* (+ a b) 0.5))) p1
p2)
)
(command "_dimaligned" "_non" p1 "_non" p2
"_non" pc )
(command "_dimtedit" "_L")
(while (eq 1 (logand
1 (getvar "cmdactive")))(command pause))
)
(command "_undo"
"_e")
(princ)
)
@fixo公司
太好了，谢谢。
只是一个小问题，是否需要将尺寸文本保持在尺寸线的中心？
我的标注样式设置为文本放置，水平：居中，但lisp例程似乎覆盖了这一点？
非常感谢您的帮助 尝试另一个例程，您可以指定
透明地从线图元偏移尺寸线，
说出指定的方向和类型间隙大小。
我添加了一行代码来设置dimtext“Home”：
（defun C:mdm（/elist en i p1 p2 pc ss）（命令“\u undo”“\u be”）（setq ss（ssget（list（cons 0“LINE”）））（setq i-1）（while（setq en（ssname ss（setq i（1+i）））（setq elist（entget en））（setq p1（cdr（assoc 10 elist））p2（cdr（assoc 11 elist））pc（mapcar（function（function（lambda（a b）（*（+a b）0.5）））p1 p2））（命令“\u dim aligned”“\u非“p1”\u非“p2”\u非“pc”（命令“\u dimtedit”“\u L”）（while（等式1（logand 1（getvar“cmdactive”））（命令暂停））（命令“\u dimtedit”“\u L”“\u H”）； 非常感谢你的帮助
不客气，
我很乐意帮忙。
干杯
页:
1
[2]