求编写个CAD用的LSP文件2

发布网友发布时间：2023-09-24 10:05

共2个回答

热心网友时间：2024-10-28 09:29

(defun C:test nil
(setqpt (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"

热心网友时间：2024-10-28 09:30

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