本帖最后由 飞雪神光 于 2025-4-6 21:17 编辑
又是AI写的破代码
 - (defun c:hh (/ input)
- (setvar "cmdecho" 0)
- (initget "1 2 3 4 5 6 7 9 10 11 12 ")
- (setq input (getkword "\n填充类型 [混凝土(1)/钢筋混凝土(2)/钢型材(3)/dots(4)/cross(5)/grass(6)/玻璃(7)/玻璃2(8)/ansi34(9)/加气混凝土(10)/结构胶(11)/ansi31(12)] <1>: "))
- (if (or (not input) (= input ""))
- (setq input "1")
- )
- (eval (read (strcat "(h" input ")")))
- (princ)
- )
|