本帖最后由 qazxswk 于 2025-1-5 01:13 编辑
你都写出一半了,另一半就不会写了?
 - (defun c:11 (/ rect_length rect_width offset)
- (setq rect_length (getreal "\n输入铝通的长度: ")) ; 获取矩形的长度
- (setq rect_width (getreal "\n输入铝通的宽度: ")) ; 获取矩形的宽度
- (setq offset (getreal "\n输入铝通厚度: "))
- (vl-cmdf "rectang" (getpoint) "D" rect_length rect_width pause)
- (vla-offset (vlax-ename->vla-object (entlast)) offset)
- (princ))
|