byghbcx 发表于 2012-9-26 20:51 
用ucs转换一下看看
也是一个好注意!
 - (defun c:test()
- (initget 9)
- (setq pt (getpoint "\n输入测试点:"))
- (initget 9)
- (setq p1 (getpoint "\n输入平面的第一点:"))
- (initget 9)
- (setq p2 (getpoint "\n输入平面的第二点:"))
- (initget 9)
- (setq p3 (getpoint "\n输入平面的第三点:"))
- (setq pt (trans pt 1 0))
- (command "._ucs" "3" p1 p2 p3)
- (setq pt (trans pt 0 1))
- (command ".ucs" "P")
- (princ "\n距离是:")
- (princ (abs (caddr pt)))
- (princ)
- )
代码更精简。但是要用到了命令。
|