一個(gè)在CAD中標(biāo)注坐標(biāo)的LISP

使用方法：先把下面的代碼復(fù)制,再打開(kāi)CAD,工具-AutoLIST-VISUAL LISP編輯器-新建-粘貼-保存-退出

再之就工具-AutoLIST-加載應(yīng)用程序,找到你保存的那個(gè)東東,加載,關(guān)閉退出,輸入ZBBZ就可以啦!!!!!

[復(fù)制到剪切板][ - ]代碼:

(defun C:zbbz( / zb gd cld osm )

(setq osm (getvar"osmode"))

(setvar "osmode" 33)

(setq gd (getreal "指定標(biāo)注文字高度:>"))

(if (= gd nil) (setq gd 0.5))

(while (setq zb (getpoint "指定坐標(biāo)點(diǎn)："))

(setq cld(getpoint zb "指定文字插入點(diǎn)："))

(entmake (list

'(0 . "LINE")

'(67 . 0)

'(8 . "0")

(list 10 (car zb) (cadr zb) 0)

(list 11 (car cld) (cadr cld) 0)

'(210 0.0 0.0 1.0)

)

)

(entmake (list

'(0 . "text")

(list 10 (+ (car cld) gd) (car(cdr cld)) )

(cons 40 gd)

(cons 1 ( strcat "X=" (rtos (cadr zb) 2 3)))

'(50 . 0)

)

)

(entmake (list

'(0 . "text")

(list 10 (+ (car cld) gd)

(- (car(cdr cld)) (+ gd (/ gd 3)) )

)

(cons 40 gd)

(cons 1 (strcat "Y="(rtos (car zb) 2 3)))

'(50 . 0)

)

總結(jié)

以上是生活随笔為你收集整理的cadlisp点选面积标注_一个在CAD中标注坐标的LISP的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

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