用法
评论
建议
取 消
确 定
(defun m:cal (lst1 lst2 str) "根据给定表达式计算结果" (if (not (list:exist (arx) "geomcal.arx")) (arxload "geomcal" "\n加载geomcal失败!")) (mapcar (quote set) lst1 lst2) (if (vl-every (quote (lambda (x) (= (quote real) (type x)))) lst2) (cal (strcat "1.0*(" str ")")) (cal str)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新