Question

CAD 快速标注LSP代码，大神帮忙整一个，感谢！

总装图绘好后，拆零件图，零件图太多，只需标注零件外形尺寸，因零件是不规则的，手动标注太慢且容易出错。做一个LSP代码，进行快速标注。如图片所示要求。

Answer 1

标注尺寸
autolisp代码如下：
;标注尺寸
(defun c:tes ( / ent n1 n2 obj p1 p2 p3)
(vl-load-com)
(while (setq ent (x2007101))
(setq obj (vlax-ename->vla-object ent))
(vla-getboundingbox obj 'p1 'p2)
(setq p1 (vlax-safearray->list p1) p2 (vlax-safearray->list p2) p3 (mapcar '- p2 p1) n1 (rtos (car p3) 2 2) n2 (rtos (cadr p3) 2 2))
(setq p3 (mapcar '+ '(-5 0) p1))
(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 p1) '(70 . 38) (cons 1 "0") '(71 . 5) '(72 . 1)
'(73 . 0) '(74 . 0) '(75 . 0) '(52 . 0.0) '(53 . 0.0) '(54 . 0.0) '(51 . 0.0)
'(100 . "AcDbOrdinateDimension") (cons 13 p1) (cons 14 p3)))
(setq p3 (mapcar '+ '(0 -5) p1))
(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 p1) '(70 . 102) (cons 1 "0") '(71 . 5) '(72 . 1)
'(73 . 0) '(74 . 0) '(75 . 0) '(52 . 0.0) '(53 . 0.0) '(54 . 0.0) '(51 . 0.0)
'(100 . "AcDbOrdinateDimension") (cons 13 p1) (cons 14 p3)))
(setq p3 (mapcar '+ '(5 0) p2))
(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 p1) '(70 . 38) (cons 1 n1) '(71 . 5) '(72 . 1)
'(73 . 0) '(74 . 0) '(75 . 0) '(52 . 0.0) '(53 . 0.0) '(54 . 0.0) '(51 . 0.0)
'(100 . "AcDbOrdinateDimension") (cons 13 p2) (cons 14 p3)))
(setq p3 (mapcar '+ '(0 5) p2))
(entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 p1) '(70 . 102) (cons 1 n2) '(71 . 5) '(72 . 1)
'(73 . 0) '(74 . 0) '(75 . 0) '(52 . 0.0) '(53 . 0.0) '(54 . 0.0) '(51 . 0.0)
'(100 . "AcDbOrdinateDimension") (cons 13 p2) (cons 14 p3)))
)
(princ)
)

(defun x2007101 ( / ent)
(if (setq ent (entsel "\n请选择零件"))
(progn
(setq ent (car ent))
(if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getStartPoint (list ent)))
nil
ent
)
)
nil
)
)

Answer 2

这个不适合在这里去询问这种高端的技术问题，可以去一些，CAD技术论坛里去看一下里面有一些大神。

Answer 3

好慢慢来不急