自动标注尺寸

jessiwilk · 发表于 2022-7-5 17:31:44

fixo的命令是什么？

BIGAL · 发表于 2022-7-5 17:33:54

复制并粘贴Fixo的代码到记事本，将文件另存为其他内容。lsp

加载一些东西。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”）

tjfisher · 发表于 2022-7-5 17:37:22

Fixo是否有办法更改此lisp例程，使标注位置位于与正在标注的线平行但偏移200mm的不同位置？或者可以将此lisp更改为旋转尺寸而不是对齐尺寸？

fixo · 发表于 2022-7-5 17:41:45

tjfisher，
欢迎加入！
请附上一个截图，让我更有意义
（.jpeg或.png可在“Go Advanced”选项卡中找到）

tjfisher · 发表于 2022-7-5 17:45:30

谢谢菲索。下面，我画了四条线，并使用lisp例程对左侧的两条线进行了尺寸标注，并手动对右侧的两条线进行了尺寸标注，因为您可以看到左侧尺寸直接位于它们所标注的线的顶部，而我手动绘制的尺寸与该线偏移，因此该线仍然可见，如有任何帮助，我们将不胜感激

fixo · 发表于 2022-7-5 17:48:13

@tjfisher公司
抱歉耽搁了，
改为尝试此代码

copy


(defun C:mdm (/ elist en  i 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)
 )

tjfisher · 发表于 2022-7-5 17:50:55

@fixo公司

太好了，谢谢。

只是一个小问题，是否需要将尺寸文本保持在尺寸线的中心？

我的标注样式设置为文本放置，水平：居中，但lisp例程似乎覆盖了这一点？

非常感谢您的帮助

fixo · 发表于 2022-7-5 17:53:10

尝试另一个例程，您可以指定
透明地从线图元偏移尺寸线，
说出指定的方向和类型间隙大小。
我添加了一行代码来设置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”）；

tjfisher · 发表于 2022-7-5 17:56:20

非常感谢你的帮助

fixo · 发表于 2022-7-5 18:01:37

不客气，
我很乐意帮忙。

干杯

[编程交流] 自动标注尺寸

发表回复

精选推荐