例图error.dwg 测试记录: 命令: (setq ss (ssget) ent1 (ssname ss 0) ent2 (ssname ss 1)) 选择对象: 指定对角点: 找到 2 个 选择对象: <图元名: 7e3dbef8> 命令: (setq elev (cdr (assoc 38 (entget ent1)))) 125.0 命令: (setq h 1.0) 1.0 命令: (rem elev h) 1.0 命令: (rem 125.0 1.0) 0.0 命令: !elev 125.0 命令: !h 1.0 命令: (rem elev 1.0) 1.0 (为什么是1.0,而不是0呢?) |