[试用]：选择实体，计算重量的lisp

活塞

;|加载zss.lsp后,命令行输入zss，选择三维实体，计算结果为金属的重量。|;
;|问题是：运行时显示"≡穸韵?"的内容(按“F2”可查看)。不知是什么意思？如何才能不显示"≡穸韵?"|;
(defun C:zss(/ kk pp ll)
(vl-load-com)
(setq kk(vla-get-volume (vlax-ename->vla-object (car (entsel)))))
(setq pp (* kk 0.00000785))
(setq ll (rtos pp 2 2))
(princ "\n")(princ ll)(princ "kg")
(princ)
)

zml84

经测试，运行时，未发现楼主所言的乱码问题。

carrot1983

以下。。我测试的环境是：CAD2004迷你版......

1. 
   
2. 命令: BOX
   
3. 指定长方体的角点或 [中心点(CE)] <0,0,0>:
   
4. 指定角点或 [立方体(C)/长度(L)]:
   
5. 指定高度: 指定第二点:
   
6. 命令: 'VLIDE
   
7. 命令:
   
8. 命令: zss
   
9. ≡穸韵?
   
10. 1.93kg
    

复制代码

以下。。我测试的环境是：CAD2002迷你版......OK

1. 
   
2. 命令: box
   
3. 指定长方体的角点或 [中心点(CE)] <0,0,0>:
   
4. 指定角点或 [立方体(C)/长度(L)]:
   
5. 指定高度: 指定第二点:
   
6. 命令: zss
   
7. 选择对象:
   
8. 174.55kg
   

复制代码

还不懂为什么。。

真龙天子

在n 后面加一空格试试,(princ "\n "),原因可能是汉字占两位,英文和数字点一位,如果错位了就成乱码了

carrot1983

在n 后面加一空格试试,(princ "\n "),原因可能是汉字占两位,英文和数字点一位,如果错位了就成乱码了

这个我试过了。没用。。呵呵。。
其实这个应该没有什么大碍吧。。。