自动标注到所选rec

structo · 发表于 2022-7-5 16:52:30

嗨，朋友们，

我有几个矩形。我需要在选定的矩形上自动标注尺寸，如示例图形格式所示。请通过lisp例程提供帮助。

条件是1）如果我的图纸以英寸为单位，文字高度应为4“
2）如果我的图形以米为单位，文字高度应为0.1

谢谢
用于矩形尺寸。图纸

structo · 发表于 2022-7-5 16:58:50

嗨，朋友们，

我从谷歌那里得到了这个代码。

在本规范中，维度文本采用当前的Dim样式开发。我的要求是，文本应该在不关联当前尺寸样式的情况下进行开发（不需要尺寸线、外线等）。
按此代码放大也不需要，请删除。

如果文字单位为英寸，则文字高度应为4“。
如果文字单位为米，则文字高度应为0.1。

请编辑上述矩形自动标注代码。

非常感谢。

BIGAL · 发表于 2022-7-5 17:02:55

检查邮件！

Structo cadtutor是一个自愿论坛，不是一个请为我做所有这些，这样我可以节省时间，我注意到其他论坛也有其他帖子。是时候自己试一试了。

hanhphuc · 发表于 2022-7-5 17:10:33

也许这个->类似的线程？

structo · 发表于 2022-7-5 17:13:25

谢谢韩朋友，
我试过了，但没有成功。请帮助我了解lisp例程。

谢谢大家。

hanhphuc · 发表于 2022-7-5 17:19:04

IMO无论以米或英寸为单位，文字高度不变

@比格尔是对的，是时候自己试一试了。。。

上一个ppdim函数try edit

一小条

copy


(defun ppdim ( p1 p2 cw box / mp sz mx ); v1.1
;hanhphuc 31/10/2014
 
 (setq vs '(nil (/ (getvar 'viewsize) (cadr (getvar 'screensize))))
sz [color="red"] (* 0.05 (distance p1 p2))[/color] mp (mapcar '(lambda (a b) (* 0.5 (+ a b))) p1 p2)
)
...

尝试将其更改为0.1

copy


...
 (setq vs '(nil (/ (getvar 'viewsize) (cadr (getvar 'screensize))))
sz [color="red"][b]0.1[/b][/color] mp (mapcar '(lambda (a b) (* 0.5 (+ a b))) p1 p2)
)
...
...

或更通用。。要更改大小，请使用以下命令：textsize

copy


...
sz [color="red"][b](getvar 'textsize)[/b][/color] mp
...

同时复制c：测试代码以运行它

maratovich · 发表于 2022-7-5 17:23:04

如果这是VBA？
DIM矩形。拉链

structo · 发表于 2022-7-5 17:28:41

嗨，朋友，
谢谢你的指导。我应该将“pdim”代码和“测试”代码合并到一个中吗？有你指定的修改？

非常感谢。

structo · 发表于 2022-7-5 17:33:31

嗨，马拉，

感谢您的贡献。加载代码时，将错误显示为附加图像。

非常感谢。

maratovich · 发表于 2022-7-5 17:34:57

Is宏VBA
运行：宏->加载项目->DIM矩形。数字视频广播

源代码：

copy

[编程交流] 自动标注到所选rec

发表回复

精选推荐