框选求最大外框的水平垂直标注

zhuzhi1631 · 发表于 2019-12-17 11:07

本帖最后由 zhuzhi1631 于 2019-12-18 16:20 编辑

框选求最大外框的水平垂直标注距离一个文字高度

x_s_s_1 · 发表于 2019-12-17 11:07

本帖最后由 x_s_s_1 于 2019-12-21 21:06 编辑

zhuzhi1631 发表于 2019-12-21 20:52
间距改成一个文字高度

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

zhuzhi1631 · 发表于 2019-12-19 12:58

哪位大神帮助下

言戲無軍 · 发表于 2019-12-19 13:19

如愿意少量付费联系qq344549985

xyp1964 · 发表于 2019-12-20 21:31

zhuzhi1631 · 发表于 2019-12-21 09:49

本帖最后由 zhuzhi1631 于 2019-12-21 10:43 编辑

xyp1964 发表于 2019-12-20 21:31

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

x_s_s_1 · 发表于 2019-12-21 20:02

本帖最后由 x_s_s_1 于 2019-12-21 21:15 编辑

试试

;;;默认前提，当前标注样式为需要的标注样式
;;;默认前提，图层列表中有图层6
(defun c:test (/ sc h d oldos oldla ss lst n obj minx miny maxx maxy pt1
pt2 pt3)
(setq sc (getvar "dimscale"))
(setq h (getvar "dimtxt"))
(setq d (getvar "dimgap"))
(setq oldos (getvar "osmode"))
(setq oldla (getvar "clayer"))
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setvar "clayer" "6")
(prompt "\n选择需标注的门窗:")
(setq ss (ssget))
(repeat (setq n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))
(vla-getboundingbox obj 'x 'y)
(setq lst (cons (vlax-safearray->list y)
(cons (vlax-safearray->list x) lst)
)
)
)
(setq minx (car (vl-sort (mapcar 'car lst) '<))
miny (car (vl-sort (mapcar 'cadr lst) '<))
maxx (car (vl-sort (mapcar 'car lst) '>))
maxy (car (vl-sort (mapcar 'cadr lst) '>))
)
(setq pt1 (list minx miny))
(setq pt2 (list maxx miny))
(setq pt3 (list maxx maxy))
(command "dimlinear"
pt1
pt2
(polar pt1 (+ (* -0.5 pi) (angle pt1 pt2)) (* sc (+ d h h)))
)
(command "dimlinear"
pt2
pt3
(polar pt2 (+ (* -0.5 pi) (angle pt2 pt3)) (* sc (+ d h h)))
)
(setvar "osmode" oldos)
(setvar "clayer" oldla)
(setvar "cmdecho" 1)
(princ)
)

;;;默认前提，当前标注样式为需要的标注样式 
;;;默认前提，图层列表中有图层6 
(defun c:test (/ sc h d  oldos oldla ss lst n obj minx miny maxx  maxy pt1 
         pt2 pt3) 
  (setq sc (getvar "dimscale")) 
  (setq h (getvar "dimtxt")) 
  (setq d (getvar "dimgap")) 
  (setq oldos (getvar "osmode")) 
  (setq oldla (getvar "clayer")) 
  (setvar "cmdecho" 0) 
  (setvar "osmode" 0) 
  (setvar "clayer" "6") 
  (prompt "\n选择需标注的门窗:") 
  (setq ss (ssget)) 
  (repeat (setq n (sslength ss)) 
    (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n))))) 
    (vla-getboundingbox obj 'x 'y) 
    (setq lst (cons (vlax-safearray->list y) 
        (cons (vlax-safearray->list x) lst) 
        ) 
    ) 
  ) 
  (setq  minx (car (vl-sort (mapcar 'car lst) '<)) 
  miny (car (vl-sort (mapcar 'cadr lst) '<)) 
  maxx (car (vl-sort (mapcar 'car lst) '>)) 
  maxy (car (vl-sort (mapcar 'cadr lst) '>)) 
  ) 
  (setq pt1 (list minx miny)) 
  (setq pt2 (list maxx miny)) 
  (setq pt3 (list maxx maxy)) 
  (command "dimlinear" 
     pt1 
     pt2 
     (polar pt1 (+ (* -0.5 pi) (angle pt1 pt2)) (* sc (+ d h h))) 
  ) 
  (command "dimlinear" 
     pt2 
     pt3 
     (polar pt2 (+ (* -0.5 pi) (angle pt2 pt3)) (* sc (+ d h h))) 
  ) 
  (setvar "osmode" oldos) 
  (setvar "clayer" oldla) 
  (setvar "cmdecho" 1) 
  (princ) 
)

x_s_s_1 · 发表于 2019-12-21 20:11

本帖最后由 x_s_s_1 于 2019-12-21 20:28 编辑

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

zhuzhi1631 · 发表于 2019-12-21 20:52

x_s_s_1 发表于 2019-12-21 20:11
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTA2NzE0fDM1ZTMwMTllYzNiMDg0YTYwMzg4NmZhMjkxZWYyM2IzfDE3MTUwMzM4NjA%3D&request=yes&_f=.gif

间距改成一个文字高度

zhuzhi1631 · 发表于 2019-12-21 21:47

x_s_s_1 发表于 2019-12-21 20:11
http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTA2NzE0fDM1ZTMwMTllYzNiMDg0YTYwMzg4NmZhMjkxZWYyM2IzfDE3MTUwMzM4NjA%3D&request=yes&_f=.gif

谢谢，非常感谢

账号		自动登录	找回密码
密码			注册

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

最佳答案

本帖子中包含更多资源

本帖子中包含更多资源

评分

本帖子中包含更多资源

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

最佳答案

本帖子中包含更多资源

本帖子中包含更多资源

评分

本帖子中包含更多资源

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