社区 › Auto Lisp › 完成和评估

Costinbos77 发表于 2022-7-6 07:40:45

(setq per (if (setq per (vl-some
                   '(lambda ( x ) (if (vlax-property-available-p vobi x) (vlax-get-property vobi x)))
                   '(length circumference arclength) ) ) ; setq
            per 0) ;_ end of if
) ; setq



 
每个变量必须是数字
 
谢谢你们！

Lee Mac 发表于 2022-7-6 07:44:55

(if
   (null
       (setq per
         (vl-some
            '(lambda ( x ) (if (vlax-property-available-p vobi x) (vlax-get-property vobi x)))
            '(length circumference arclength)
         )
       )
   )
   (setq per 0.0)
)

Costinbos77 发表于 2022-7-6 07:52:39

谢谢李

Lee Mac 发表于 2022-7-6 07:55:20

 
不客气！

查看完整版本: 完成和评估