社区 › Auto Lisp › Set\u平铺问题

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

Set\u平铺问题

我哪里出错了？？？瓷砖正在设置变量
 
(MAPCAR
   '(LAMBDA (X)
      (IF (OR (EQUAL (EVAL (CAR X)) NIL) (EQUAL (EVAL (CAR X)) ""))
(SET (CAR X) (CADR X))
(SET_TILE (VL-PRIN1-TO-STRING (CAR X)) (EVAL (CAR X)))
      )
    )
   (LIST (LIST 'ALS$HT "")
(LIST 'ALS$WD ""))
)

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

我建议：
(mapcar
'(lambda ( sym val )
       (if (member (eval (read sym)) '(nil ""))
         (set (read sym) val)
         (set_tile sym (eval (read sym)))
       )
   )
'("ALS$HT" "ALS$WD") '("" "")
)
或
(foreach sym '("ALS$HT" "ALS$WD")
   (if (not (setq val (eval (read sym))))
       (set (read sym) "")
       (set_tile sym val)
   )
)
或：
(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平铺问题