Question

请教会AUTO CAD lisp编程的高手！

我用AUTO CAD绘制房产图，每次尺寸标注都需要一个一个的标注，非常麻烦，能不能帮我编写一个LISP程序，只需要在封闭区域里面一点，封闭区域的各边就自动标注好了尺寸？或者其他方法也行。非常感谢！

Answer 1

(setvar "CMDECHO" 0)
(vl-load-com)
;;;=================================================================*
;;;功能：测量封闭区域的面积（可分别设置XY比例） *
;;;日期：zml84 于 2009-06-07 *
(defun C:TT (/ X Y SIZE SS AREA STR TMP)
;; 0 初始化
(or *TEST_TMP*
(setq *TEST_TMP* '(1000 100 2.5))
)
(setq X (nth 0 *TEST_TMP*)
Y (nth 1 *TEST_TMP*)
SIZE (nth 2 *TEST_TMP*)
)

;; 1
(while
(progn
(princ
(strcat
"\n当前设置：X比例="
(rtos X)
"，X比例="
(rtos Y)
"，字高="
(rtos SIZE)
)
)
(initget "X Y Size")
(princ
"\n点取要测量面积的封闭对象，或 [X比例(X)/Y比例(Y)/字高(S)]: "
)
(setq SS (entsel ""))
)
(cond ((= SS "X")
(if (and (setq TMP (getreal "\n设置X向比例: "))
(> TMP 0)
)
(setq X TMP)
)
)
((= SS "Y")
(if (and (setq TMP (getreal "\n设置Y向比例: "))
(> TMP 0)
)
(setq Y TMP)
)
)
((= SS "Size")
(if (and (setq TMP (getreal "\n设置字体高度: "))
(> TMP 0)
)
(setq SIZE TMP)
)
)
((and (setq
AREA (vla-get-area
(vlax-ename->vla-object (car SS))
)
)
(setq AREA (/ AREA 1.0 X Y)
STR (rtos AREA 2 3)
)
(princ (strcat "\n**面积 = " STR))
(setq PT (getpoint "\n文字的位置: "))
)
(command "_.TEXT" "non" PT SIZE 0 STR)
)
)

)

;; 2
(setq *TEST_TMP* (list X Y SIZE))
(princ)

)

;;;=================================================================*
;;;功能：点取内部一点，测量封闭区域的面积（可分别设置XY比例） *
;;;日期：zml84 于 2009-06-07 *
(defun C:TT2 (/ X Y SIZE PT EN AREA STR TMP)
;; 0 初始化
(or *TEST_TMP*
(setq *TEST_TMP* '(1000 100 2.5))
)
(setq X (nth 0 *TEST_TMP*)
Y (nth 1 *TEST_TMP*)
SIZE (nth 2 *TEST_TMP*)
)

;; 1
(while
(progn
(princ
(strcat
"\n当前设置：X比例="
(rtos X)
"，X比例="
(rtos Y)
"，字高="
(rtos SIZE)
)
)
(initget "X Y Size")
(princ
"\n点取要测量的位置，或 [X比例(X)/Y比例(Y)/字高(S)]: "
)
(setq PT (getpoint ""))
)
(cond ((= PT "X")
(if (and (setq TMP (getreal "\n设置X向比例: "))
(> TMP 0)
)
(setq X TMP)
)
)
((= PT "Y")
(if (and (setq TMP (getreal "\n设置Y向比例: "))
(> TMP 0)
)
(setq Y TMP)
)
)
((= PT "Size")
(if (and (setq TMP (getreal "\n设置字体高度: "))
(> TMP 0)
)
(setq SIZE TMP)
)
)
((and
(setq EN (bpoly PT))
(setq
AREA (vla-get-area
(vlax-ename->vla-object EN)
)
)
;;(progn (command "REGEN") (redraw EN 3) t)
(entdel EN)

(setq AREA (/ AREA 1.0 X Y)
STR (rtos AREA 2 3)
)
(princ (strcat "\n**面积 = " STR))
)
(command "_.TEXT" "non" PT SIZE 0 STR)
)
)

)

;; 2
(setq *TEST_TMP* (list X Y SIZE))

(princ)
)

Answer 2

你可以试一下中望CAD，这个软件有你所提到的批量尺寸标注功能。

Answer 3

CAD10版里面有快速标注的非常方便强烈建议你去试试 绝对不会失望的
连续标注：dco
基线标注：dba
快速标注：qdim

Answer 4

可以，你发给我，我来。468996356@qq.com