《钢板重量计算器》

kexiya123 · 发表于 2016-5-27 14:05:20

快快快看看看

皇上快溜 · 发表于 2016-6-29 12:04:10

谢谢楼主的分享

皇上快溜 · 发表于 2016-6-29 12:48:39

楼主好，想请你帮我改改这个程序好么

  (DEFUN C:SZL(/ OLDOS PT STA QAREA)
  (while (setq d (getreal "\n-->选取面积图形： "))
  (setq l (getreal "\n-->输入厚度： "))

  (setq olderr *error*)
  (setq *error* myerr)
  (SETQ OLDOS (GETVAR "OSMODE"))
  (SETVAR "OSMODE" 0)
  (SETQ STA (CAR (ENTSEL)))
  (COMMAND "AREA" "E" STA)
  (SETQ QAREA (RTOS (GETVAR "AREA") 2 2))

(princ "\n计算过程：(")
(princ AREA)
(princ "×")
(princ 1)
(princ "×")
(princ "×0.000007856＝")
(princ " 完成")
(princ)
) ;_ 结束defun

  (SETQ PT (GETPOINT"\n-->重量的写入位置:"))
  (COMMAND "TEXT" PT "" "" QAREA)
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CMDECHO" 1)
  (setq *error* olderr)
   (PRINC "\n重量计算完成")(PRINC))

完全是拆借别人语句拼奏的，，丢人现眼

选取图形，输入厚度，求取图形面积，计算，写计算结果TEXT

皇上快溜 · 发表于 2016-7-9 21:25:39

这个东西试试看学习一下

westlife123 · 发表于 2016-7-10 15:12:50

试试，666666666666

chunwhite · 发表于 2016-7-15 15:21:22

这个东西试试看学习一下

zuandongde · 发表于 2016-8-5 23:20:58

确实不错，辛苦了

yanshouzhang214 · 发表于 2016-8-26 10:08:02

看看学习下

精诚网：CREO1.0 · 发表于 2016-8-26 14:21:50

好东东，收藏！！！

楠水 · 发表于 4 天前

进来学习一下

账号		自动登录	找回密码
密码			注册

[源码] 《钢板重量计算器》

浏览过的版块