AUTOLISP怎么将(# #)转化为表(1 34)

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 23:35:33
AUTOLISP怎么将(# #)转化为表(1 34)

AUTOLISP怎么将(# #)转化为表(1 34)
AUTOLISP怎么将(# #)转化为表(1 34)

AUTOLISP怎么将(# #)转化为表(1 34)
(vl-load-com)
(setq a (vlax-make-variant 1 5)) ;创建变体a,类型双精度浮点数
(setq b (vlax-make-variant 34 5));创建变体b,类型双精度浮点数
(mapcar 'vlax-variant-value (list a b)) ;返回(1.0 34.0)
如果要转为整数请用下面一句:
(mapcar 'fix (mapcar 'vlax-variant-value (list a b))) ;返回 '(1 34)