明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2997|回复: 22

[提问] 框选 求最大外框 的水平垂直 标注

[复制链接]
发表于 2019-12-17 11:07:25 | 显示全部楼层 |阅读模式
5明经币
本帖最后由 zhuzhi1631 于 2019-12-18 16:20 编辑

框选 求最大外框的水平垂直标注 距离一个文字高度
附件: 您需要 登录 才可以下载或查看,没有账号?注册

最佳答案

查看完整内容

是一个文字高度啊,看我发的动图,发图测试
发表于 2019-12-17 11:07:26 | 显示全部楼层
本帖最后由 x_s_s_1 于 2019-12-21 21:06 编辑
zhuzhi1631 发表于 2019-12-21 20:52
间距改成一个文字高度

是一个文字高度啊,看我发的动图,发图测试
回复

使用道具 举报

 楼主| 发表于 2019-12-19 12:58:27 | 显示全部楼层
哪位大神帮助下
回复

使用道具 举报

发表于 2019-12-19 13:19:32 来自手机 | 显示全部楼层
如愿意少量付费联系qq344549985
回复

使用道具 举报

发表于 2019-12-20 21:31:52 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

 楼主| 发表于 2019-12-21 09:49:26 | 显示全部楼层
本帖最后由 zhuzhi1631 于 2019-12-21 10:43 编辑

谢谢大神 缺少XYP-MKLACO,能把这个改一下吗
回复

使用道具 举报

发表于 2019-12-21 20:02:32 | 显示全部楼层
本帖最后由 x_s_s_1 于 2019-12-21 21:15 编辑

试试
  1. ;;;默认前提,当前标注样式为需要的标注样式
  2. ;;;默认前提,图层列表中有图层6
  3. (defun c:test (/ sc h d  oldos oldla ss lst n obj minx miny maxx  maxy pt1
  4.          pt2 pt3)
  5.   (setq sc (getvar "dimscale"))
  6.   (setq h (getvar "dimtxt"))
  7.   (setq d (getvar "dimgap"))
  8.   (setq oldos (getvar "osmode"))
  9.   (setq oldla (getvar "clayer"))
  10.   (setvar "cmdecho" 0)
  11.   (setvar "osmode" 0)
  12.   (setvar "clayer" "6")
  13.   (prompt "\n选择需标注的门窗:")
  14.   (setq ss (ssget))
  15.   (repeat (setq n (sslength ss))
  16.     (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
  17.     (vla-getboundingbox obj 'x 'y)
  18.     (setq lst (cons (vlax-safearray->list y)
  19.         (cons (vlax-safearray->list x) lst)
  20.         )
  21.     )
  22.   )
  23.   (setq  minx (car (vl-sort (mapcar 'car lst) '<))
  24.   miny (car (vl-sort (mapcar 'cadr lst) '<))
  25.   maxx (car (vl-sort (mapcar 'car lst) '>))
  26.   maxy (car (vl-sort (mapcar 'cadr lst) '>))
  27.   )
  28.   (setq pt1 (list minx miny))
  29.   (setq pt2 (list maxx miny))
  30.   (setq pt3 (list maxx maxy))
  31.   (command "dimlinear"
  32.      pt1
  33.      pt2
  34.      (polar pt1 (+ (* -0.5 pi) (angle pt1 pt2)) (* sc (+ d h h)))
  35.   )
  36.   (command "dimlinear"
  37.      pt2
  38.      pt3
  39.      (polar pt2 (+ (* -0.5 pi) (angle pt2 pt3)) (* sc (+ d h h)))
  40.   )
  41.   (setvar "osmode" oldos)
  42.   (setvar "clayer" oldla)
  43.   (setvar "cmdecho" 1)
  44.   (princ)
  45. )


回复

使用道具 举报

发表于 2019-12-21 20:11:16 | 显示全部楼层
本帖最后由 x_s_s_1 于 2019-12-21 20:28 编辑

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTA2NzE0fDk4YjQxZDU3OWEyNGE4Yjc4ZDcxNWQ5YmJjZWM0NTM2fDE3MzA4NTA4Mzg%3D&request=yes&_f=.gif

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1明经币 +1 收起 理由
zhuzhi1631 + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-21 20:52:29 | 显示全部楼层
x_s_s_1 发表于 2019-12-21 20:11
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTA2NzE0fDk4YjQxZDU3OWEyNGE4Yjc4ZDcxNWQ5YmJjZWM0NTM2fDE3MzA4NTA4Mzg%3D&request=yes&_f=.gif

间距改成一个文字高度

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

 楼主| 发表于 2019-12-21 21:47:43 | 显示全部楼层
x_s_s_1 发表于 2019-12-21 20:11
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTA2NzE0fDk4YjQxZDU3OWEyNGE4Yjc4ZDcxNWQ5YmJjZWM0NTM2fDE3MzA4NTA4Mzg%3D&request=yes&_f=.gif

谢谢,非常感谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 07:53 , Processed in 0.188974 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表