Set\u平铺问题

satishrajdev · 发表于 2022-7-5 18:37:29

我哪里出错了？？？瓷砖正在设置变量

  (MAPCAR
   '(LAMBDA (X)
      (IF (OR (EQUAL (EVAL (CAR X)) NIL) (EQUAL (EVAL (CAR X)) ""))
 (SET (CAR X) (CADR X))
 [color="red"](SET_TILE (VL-PRIN1-TO-STRING (CAR X)) (EVAL (CAR X))) [/color]
      )
    )
   (LIST (LIST 'ALS$HT "")
  (LIST 'ALS$WD ""))
)

Lee Mac · 发表于 2022-7-5 19:08:51

我建议：

copy

(mapcar
  '(lambda ( sym val )
       (if (member (eval (read sym)) '(nil ""))
           (set (read sym) val)
           (set_tile sym (eval (read sym)))
       )
   )
  '("ALS$HT" "ALS$WD") '("" "")
)

或

copy

(foreach sym '("ALS$HT" "ALS$WD")
   (if (not (setq val (eval (read sym))))
       (set (read sym) "")
       (set_tile sym val)
   )
)

或：

copy

(foreach sym '(ALS$HT ALS$WD)
   (if (not (eval sym))
       (set sym "")
       (set_tile (vl-symbol-name sym) (eval sym))
   )
)

satishrajdev · 发表于 2022-7-5 19:24:58

砰的一声。。。。工作起来很有魅力。。。。谢谢你，先生

Lee Mac · 发表于 2022-7-5 19:56:28

不客气，萨蒂什

[编程交流] Set\u平铺问题

发表回复

精选推荐