求教一个尺寸标注的小问题

LUQ

各位大侠：


                                                         图中104.685尺寸不准确，能否像在AutoCAD中一样对中心线进行裁减？


                                                                图中红色尺寸如何标注？

qiuping_wu

给你点帮助： 可以用垂足捕捉，另给你一个尺寸界限修剪的LISP (defun dfrmvz (p /)
(if p (list (car p) (cadr p) 0.0))
)
(defun c:dimtr ( / n ss sn en pt10 pt13 pt14 ptx ptx1 ptx2 pt_1 pt_2 ang1 ang2
oexo ose1 ose2)
(if (and (setq pt_1 (getpoint "\n切断线第一点(切线要穿过尺寸线)<退出>: "))
(setq pt_2 (getpoint pt_1 "\n切断线第二点(切线要穿过尺寸线)<退出>: "))
(setq n 0 ss (ssget "F" (list pt_1 pt_2))))
(progn
(setq oexo (getvar "dimexo")
ose1 (getvar "dimse1")
ose2 (getvar "dimse2"))
(setvar "dimexo" 0.0)
(setvar "dimse1" 0)
(setvar "dimse2" 0.0)
(setq ptx (mapcar '(lambda (x y) (* 0.5 (+ x y))) pt_1 pt_2))
(while (setq sn (ssname ss n))
(setq n (1+ n) en (entget sn))
(if (= "DIMENSION" (cdr (assoc 0 en)))
(progn
(setq pt10 (cdr (assoc 10 en)) pt13 (cdr (assoc 13 en)) pt14 (cdr
(assoc 14 en)) ang1 (angle pt10 pt14) ang2 (+ ang1 (* 0.5 pi))
pt10 (dfrmvz pt10) pt13 (dfrmvz pt13) pt14 (dfrmvz pt14)
pt_1 (inters pt13 (polar pt13 ang1 1000.) pt10 (polar pt10 ang2 1000.)
nil) ptx (dfrmvz ptx) pt_2 (polar ptx ang2 1000.))
(if (and (setq ptx1 (inters pt10 pt14 ptx pt_2 nil))
(setq ptx2 (inters pt_1 pt13 ptx pt_2 nil)))
(progn
(setq en (subst (cons 14 ptx1) (assoc 14 en) en)
en (subst (cons 13 ptx2) (assoc 13 en) en))
(entmod en)
)
)
)
)
)
(setvar "dimexo" oexo)
(setvar "dimse1" ose1)
(setvar "dimse2" ose2)
)
)
(princ)
)

LUQ

不好意思，还是不明白。垂足捕捉在哪？


另外，我只想裁减中心线，不是非得用LISP吧？Inventor里应该可以标注这种尺寸吧？I

LUQ

又有一个问题：图中的红色框线为什么没有自动隐藏？怎样使它看不见？

sixsixsix

鼠标在工程图的空白处点击一下，看看。

LUQ

鼠标点击空白处当然不行,要不我问啥?没有人遇到这种情况吗?

sixsixsix

问的是太低级了，想弄清是否已进入“死锁”。因为我这里在三台不同的机器上都无法整出您说的两个红虚线框。