完成和评估

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


(setq [color=red]per[/color] (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

copy

(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

不客气！

[编程交流] 完成和评估

发表回复

精选推荐