一個在CAD中標注坐標的LISP

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

再之就工具-AutoLIST-加載應用程序,找到你保存的那個東東,加載,關閉退出,輸入ZBBZ就可以啦!!!!!

[復制到剪切板][ - ]代碼:

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

(setq osm (getvar"osmode"))

(setvar "osmode" 33)

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

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

(while (setq zb (getpoint "指定坐標點："))

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

(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)

)

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。