明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2968|回复: 11

[基础] 求一个数学表达式程序,讲的很明白。求大神

[复制链接]
发表于 2015-1-8 17:39:54 | 显示全部楼层 |阅读模式
20明经币

附件: 您需要 登录 才可以下载或查看,没有账号?注册
发表于 2015-1-8 17:39:55 | 显示全部楼层
  1. ;; 命令: TT
  2. (defun C:TT (/ AREA E ELIST LST N NUM SS TEXT TEXTPT TEXTSIZE TOTAL)
  3.   (princ "\n按比例分摊承包合同面积标注")
  4.   (princ "\n作者:carrot1983 QQ:95818608 2015年01月09日")
  5.   (command ".-LAYER" "M" "分摊面积标注"  "C" 2 "分摊面积标注" "")
  6.   (princ "\n选择三个地块的面积数字")
  7.   (if (and (setq SS (ssget '((0 . "TEXT")
  8.            (8 . "面积标注")
  9.            (1 . "~*[~`--9]*")
  10.           )
  11.         )
  12.      )
  13.      (setq AREA (getreal "\n输入已知的承包合同面积<退出>: "))
  14.       )
  15.     (progn
  16.       (setq LST NIL)
  17.       (repeat (setq N (sslength SS))
  18.   (setq E (ssname SS (setq N (1- N))))
  19.   (setq ELIST (entget E))
  20.   (setq NUM (atof (cdr (assoc 1 ELIST))))
  21.   (setq LST (cons (list E NUM) LST))
  22.       )
  23.       (setq TOTAL (apply '+ (mapcar 'cadr LST)))
  24.       (foreach X LST
  25.   (setq E (car X))
  26.   (setq NUM (cadr X))
  27.   (setq TEXT (rtos (/ (* NUM AREA) 1.0 TOTAL) 2 2))
  28.   (setq ELIST (entget E))
  29.   (setq TEXTSIZE (cdr (assoc 40 ELIST)))
  30.   (setq TEXTPT (cdr (assoc 10 ELIST)))
  31.   (setq TEXTPT (polar TEXTPT (* 1.5 pi) (* 1.1 TEXTSIZE)))
  32.   (setq ELIST (subst (cons 1 TEXT)
  33.          (assoc 1 ELIST)
  34.          ELIST
  35.         )
  36.   )
  37.   (setq ELIST (subst (cons 8 "分摊面积标注")
  38.          (assoc 8 ELIST)
  39.          ELIST
  40.         )
  41.   )
  42.   (setq ELIST (subst (cons 10 TEXTPT)
  43.          (assoc 10 ELIST)
  44.          ELIST
  45.         )
  46.   )
  47.   (entmake ELIST)
  48.       )
  49.     )
  50.   )
  51.   (princ)
  52. )
回复

使用道具 举报

发表于 2015-1-8 18:22:49 | 显示全部楼层
本帖最后由 llsheng_73 于 2015-1-8 18:24 编辑

晕,难道最后面积以原承包合同面积为准么?
另外这个功能20明经币买不到
宁可白送,绝不贱卖
回复

使用道具 举报

 楼主| 发表于 2015-1-8 19:08:09 | 显示全部楼层
llsheng_73 发表于 2015-1-8 18:22
晕,难道最后面积以原承包合同面积为准么?
另外这个功能20明经币买不到
宁可白送,绝不贱卖

本人不会写程序,不知道这个东西难不难,给20币是辛苦费,没有其他意思,绝对没有其他意思。     
不会以原承包合同面积,主要是要填写原承包合同面积。本来要每户每块地块算的,但是太麻烦了,。
回复

使用道具 举报

发表于 2015-1-8 19:47:56 | 显示全部楼层
>..额...好吧  没什么问题...
回复

使用道具 举报

发表于 2015-1-9 09:43:12 | 显示全部楼层
什么是已知条件,求什么,结果怎么表示,这些说都说不清,还讲的很明白。。。。
回复

使用道具 举报

 楼主| 发表于 2015-1-9 09:53:42 | 显示全部楼层
vormittag 发表于 2015-1-9 09:43
什么是已知条件,求什么,结果怎么表示,这些说都说不清,还讲的很明白。。。。

已知是承包合同面积啊,         求的是A.B.C,     表示的话可以覆盖A.B.C,也可以覆盖上面原有的面积。
回复

使用道具 举报

发表于 2015-1-9 09:58:44 | 显示全部楼层
0.32 0.79 0.25 这是啥?已知条件还是举例? 覆盖面积是啥意思?直接改这三个数字?
回复

使用道具 举报

 楼主| 发表于 2015-1-9 11:19:19 | 显示全部楼层
vormittag 发表于 2015-1-9 09:58
0.32 0.79 0.25 这是啥?已知条件还是举例? 覆盖面积是啥意思?直接改这三个数字?

0.32   0.79   0.25  是地块的面积,是已知条件,只不过是换算成了亩数。覆盖面积就是可以覆盖0.32  0.79  0.25      ,最好能单独生个层,生成换算的面积或者算出来的面积换个颜色也行。
回复

使用道具 举报

 楼主| 发表于 2015-1-9 12:38:52 | 显示全部楼层
本帖最后由 tyrasv 于 2015-1-9 13:01 编辑
carrot1983 发表于 2015-1-9 12:01

真心感谢,
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-23 02:54 , Processed in 0.183283 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表