命令: (setq en (car (entsel))) 选择对象: <图元名: 7ef60e80> 命令: (setq en (vlax-ename->vla-object en)) #<VLA-OBJECT IAcadLWPolyline 048b4bf4> 命令: (vla-get-area en) 4034.91 命令: (setq rr (vla-get-area) en)) *取消* 语法错误 命令: (setq rr (vla-get-area en)) 4034.91 命令: (/ rr 8) 504.363 命令: (/ 4034.91 8) 504.364 rr=4034.91 但用rr/8与用4034.91/8的结果是不一样的,证明rr并不是=4034.91,而是实际的值。 再看看下面 (rtos rr 2 10) "4034.9056767338" 命令: (/ 4034.9056767338 8) 504.363 |