CAD中如何使用Lisp程序编写坐标标注功能

共享Lisp源码,可直接在CAD的lisp编辑器里运行执行，命令为zbbz

;;;坐标标注

(defun C:zbbz()

(setvar "cmdecho" 0)

(setq old-dimzin (getvar "DIMZIN"))

(setvar "DIMZIN" 1)

(setq p1(getpoint "\n请选第一点："))

(command "pline" p1)

(setq p2(getpoint p1 "\n请选择第二点："))

(command p2)

(if(<= (car p1) (car p2))

(progn

(setq p3(polar p2 0 20))

)

(progn

(setq p3(polar p2 pi 20))

)

)

(command p3 "")

(setq x(rtos(car p1) 2 2))

(setq y(rtos(cadr p1) 2 2))

(if(<= (car p1) (car p2))

(progn

(setq px(list (+ 2 (car p2)) (+ 2 (cadr p2))))

(setq py(list (+ 2 (car p2)) (- (cadr p2) 4)))

(command "text" "j" "l" px 2.5 0 (Strcat "X " x))

(command "text" "j" "l" py 2.5 0 (Strcat "