Question

求编写个CAD用的LSP文件

想要一个选取一个点直接输入长宽出现一个矩形中间显示长宽数字如图，相当于长方形命令REC的进化版，如输入REC空格500空格600就出现了一个500*600的矩形 中间有500*600字样，谢谢各位大神了
要是能再增加自定义文字就更好了 谢谢





Answer 1

(defun C:test nil
(setq pt (getpoint "\n指定矩形中心点:")
L (getreal "\n输入矩形的长度:")
W (getreal "\n输入矩形的宽度:")
)
(setq pt1 (list (- (car pt) (* 0.5 L)) (- (cadr pt) (* 0.5 W))))
(setq pt2 (list (+ (car pt) (* 0.5 L)) (+ (cadr pt) (* 0.5 W))))
(command ".RECTANG" "non" pt1 "non" pt2)
(setq str (strcat (rtos l 2 2) "*" (rtos W 2 2)))
(entmake
(list '(0 . "TEXT")
(cons 1 str)
(cons 10 pt)
(cons 11 pt)
(cons 40 5) ;字高
(cons 72 1)
(cons 73 2)
)
)
(princ)
)
;;;使用命令"test"

Answer 2

输入Vlide，在编辑里面新建一个新LISP文件，把所有的LISP连接复制粘贴到里面，另存一个自己使用名字，否则先加载的无效! lsp文件在cad里有个support文件夹下比如acad2007.lsp文件（我用的是2007版本的），在后面加一行你写的这个程序名，在cad启...