共享Lisp源碼,可直接在CAD的lisp編輯器里運(yùn)行執(zhí)行，命令為zbbz

;;;坐標(biāo)標(biāo)注

(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 "Y " y))

)

(progn

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

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

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

(command "text" "j" "l" py 2.5 0 (Strcat "Y " y))

)

)

(setvar "DIMZIN" old-dimzin)

(princ)

)

標(biāo)注后的樣式如下圖所示，可進(jìn)行左右標(biāo)注，且可更改設(shè)置保留的小數(shù)位數(shù)

?

總結(jié)

以上是生活随笔為你收集整理的CAD中如何使用Lisp程序编写坐标标注功能的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。