自动标注到所选rec
嗨，朋友们，我有几个矩形。我需要在选定的矩形上自动标注尺寸，如示例图形格式所示。请通过lisp例程提供帮助。
条件是1）如果我的图纸以英寸为单位，文字高度应为4“
2） 如果我的图形以米为单位，文字高度应为0.1
谢谢
用于矩形尺寸。图纸 嗨，朋友们，
我从谷歌那里得到了这个代码。
在本规范中，维度文本采用当前的Dim样式开发。我的要求是，文本应该在不关联当前尺寸样式的情况下进行开发（不需要尺寸线、外线等）。
按此代码放大也不需要，请删除。
如果文字单位为英寸，则文字高度应为4“。
如果文字单位为米，则文字高度应为0.1。
请编辑上述矩形自动标注代码。
非常感谢。
检查邮件！
Structo cadtutor是一个自愿论坛，不是一个请为我做所有这些，这样我可以节省时间，我注意到其他论坛也有其他帖子。是时候自己试一试了。 也许这个->类似的线程？
谢谢韩朋友，
我试过了，但没有成功。请帮助我了解lisp例程。
谢谢大家。
IMO无论以米或英寸为单位，文字高度不变
@比格尔是对的，是时候自己试一试了。。。
上一个ppdim函数try edit
一小条
(defun ppdim ( p1 p2 cw box / mp sz mx ); v1.1
;hanhphuc 31/10/2014
(setq vs '(nil (/ (getvar 'viewsize) (cadr (getvar 'screensize))))
sz (* 0.05 (distance p1 p2)) mp (mapcar '(lambda (a b) (* 0.5 (+ a b))) p1 p2)
)
...
尝试将其更改为0.1
...
(setq vs '(nil (/ (getvar 'viewsize) (cadr (getvar 'screensize))))
sz 0.1 mp (mapcar '(lambda (a b) (* 0.5 (+ a b))) p1 p2)
)
...
...
或更通用。。要更改大小，请使用以下命令：textsize
...
sz (getvar 'textsize) mp
...
同时复制c：测试代码以运行它 如果这是VBA？
DIM矩形。拉链
嗨，朋友，
谢谢你的指导。我应该将“pdim”代码和“测试”代码合并到一个中吗？有你指定的修改？
非常感谢。
嗨，马拉，
感谢您的贡献。加载代码时，将错误显示为附加图像。
非常感谢。
Is宏VBA
运行：宏->加载项目->DIM矩形。数字视频广播
源代码：
4
页:
[1]
2