标注断开

lucas3 · 发表于 2014-9-10 16:22:47

本帖最后由 lucas3 于 2014-9-11 09:03 编辑

标注断开的样例理想的情况是这样的

效果不理想！指定点断开，但断开后，不在指定的点上，如下图：

还有的情况是，断开后，排列都变形了，如下图：

Free-Lancer · 发表于 2014-9-10 16:22:48

给你个示意

(defun Dim:MakeRotate (p1 p2 p3)
(entmakex (list '(0 . "DIMENSION")
'(100 . "AcDbEntity")
'(100 . "AcDbDimension")
(cons 10 p3)
'(11 0. 0. 0.)
'(70 . 32)
'(100 . "AcDbAlignedDimension")
(cons 13 p1)
(cons 14 p2)
;;(cons 50 (angle p1 p2))
'(50 . 0.0)
'(100 . "AcDbRotatedDimension")
)
)
)
(defun c:tt (/ p pts up bp)
(while (setq p (getpoint "\nPoint: "))
(setq pts (cons p pts))
)
(if (setq pts (reverse pts))
(progn
(setq up (apply 'mapcar (cons 'max pts))
bp (polar up (/ pi 2) 10.)
)
(mapcar '(lambda (x y)
(Dim:MakeRotate x y bp)
)
pts
(cdr pts)
)
)
(princ)
)
)

(defun Dim:MakeRotate (p1 p2 p3) 
  (entmakex (list '(0 . "DIMENSION") 
                  '(100 . "AcDbEntity") 
                  '(100 . "AcDbDimension") 
                  (cons 10 p3) 
                  '(11 0. 0. 0.) 
                  '(70 . 32) 
                  '(100 . "AcDbAlignedDimension") 
                  (cons 13 p1) 
                  (cons 14 p2) 
                  ;;(cons 50 (angle p1 p2)) 
                  '(50 . 0.0) 
                  '(100 . "AcDbRotatedDimension") 
            ) 
  ) 
) 
(defun c:tt (/ p pts up bp) 
  (while (setq p (getpoint "\nPoint: ")) 
    (setq pts (cons p pts)) 
  ) 
  (if (setq pts (reverse pts)) 
    (progn 
      (setq up (apply 'mapcar (cons 'max pts)) 
            bp (polar up (/ pi 2) 10.) 
      ) 
      (mapcar '(lambda (x y) 
                 (Dim:MakeRotate x y bp) 
               ) 
              pts 
              (cdr pts) 
      ) 
    ) 
    (princ) 
  ) 
)

Free-Lancer · 发表于 2014-9-10 16:58:27

看看这个帖子
http://bbs.xdcad.net/forum.php?m ... &extra=page%3D3

lucas3 · 发表于 2014-9-10 17:07:21

Free-Lancer 发表于 2014-9-10 16:58
看看这个帖子
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=675260&extra=page%3D3

谢谢，那个应该属于自动标注的一种吧，这个只是标注断开，选择在哪个点断开，
本论坛也有这个样例：可是还不如我贴出来的这个{:soso_e101:}
http://bbs.xdcad.org/forum.php?m ... &extra=page%3D1

csharp · 发表于 2014-9-10 17:45:20

lucas3 发表于 2014-9-10 17:07
谢谢，那个应该属于自动标注的一种吧，这个只是标注断开，选择在哪个点断开，
本论坛也有这个样例：可是 ...

断开也是由点新标，有点了自然就可以生成新标注

lucas3 · 发表于 2014-9-10 18:53:10

csharp 发表于 2014-9-10 17:45
断开也是由点新标，有点了自然就可以生成新标注

那大师可否扩展一下，根据点生成标注呢？

st788796 · 发表于 2014-9-10 19:25:55

lucas3 发表于 2014-9-10 18:53
那大师可否扩展一下，根据点生成标注呢？

Qdim命令即可

lucas3 · 发表于 2014-9-11 08:30:23

Free-Lancer 发表于 2014-9-11 00:27
给你个示意

这个可以有！谢谢大师，大师那么晚还在发贴啊，辛苦了！要注意休息啊！
很好的示意！{:soso_e179:} 要是能完善，左右标，上下标，对齐标，那就好啦{:soso_e113:}

csharp · 发表于 2014-9-11 08:41:54

lucas3 发表于 2014-9-11 08:30
这个可以有！谢谢大师，大师那么晚还在发贴啊，辛苦了！要注意休息啊！
很好的示意！要是 ...

修改 50 组码即可

tdcq10000 · 发表于 2014-9-17 11:13:04

求解。。。。。

tangsz2006 · 发表于 2014-10-10 22:52:44

断开后在重新对齐标注点也不麻烦吧

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

[已解决] 标注断开

最佳答案

点评

点评

点评

点评

点评