找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2009|回复: 14

[已解决] 求一个数学表达式程序

[复制链接]

已领礼包: 9个

财富等级: 恭喜发财

发表于 2015-1-8 23:52:55 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
例子.png
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

文件名称:承包面积分摊模版图.rar 
下载次数:3  文件大小:17.31 KB 
下载权限: 不限 以上  [免费赚D豆]


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1757个

财富等级: 堆金积玉

发表于 2015-1-9 08:16:28 | 显示全部楼层
cal                     

点评

什么意思?  详情 回复 发表于 2015-1-9 08:31
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

 楼主| 发表于 2015-1-9 08:31:45 | 显示全部楼层

什么意思?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-9 09:15:16 | 显示全部楼层
1.gif
  1. (defun c:jsmj ( / ss cbhtmj lst el str nstr)
  2.   (setq ss (ssget '((1 . "*[a-A-z-Z]*"))))
  3.   (setq cbhtmj (getreal "\n请输入承包合同面积==>> "))
  4.   (setq lst (ZML-SS->ENLIST ss))
  5.   (foreach x lst
  6.     (setq el (entget x))
  7. ;;;      (setq el (entget (ssname ss 0)))
  8.     (setq str (cdr (assoc 1 el)))
  9.     (htmj str cbhtmj)
  10.     (setq el (subst (cons 1 nstr) (assoc 1 el) el))
  11.     (setq el (subst (cons 8 "修改面积图层") (assoc 8 el) el))
  12.     (entmod el)
  13.   )
  14. )
  15. (defun htmj (str cbhtmj)
  16.   (setq xs (/ cbhtmj (apply '+ '(0.32 0.25 0.79))))
  17.   (setq  nstr (rtos (cond ((= "A" str) (* 0.32 xs))
  18.        ((= "B" str) (* 0.25 xs))
  19.        ((= "C" str) (* 0.79 xs))
  20.        )
  21.        2
  22.        3
  23.        )
  24.   )
  25. )
  26. ;;;功能:选择集转换为图元名表                                       *
  27. ;;;参数:SS -----选择集                                             *
  28. ;;;返回:图元名表                                                   *
  29. (defun ZML-SS->ENLIST (SS / I EN LST_EN)
  30.   (setq  LST_EN '()
  31.   I 0
  32.   )
  33.   (repeat (sslength SS)
  34.     (setq EN   (ssname SS I)
  35.     LST_EN (cons EN LST_EN)
  36.     I   (1+ I)
  37.     )
  38.   )
  39.   ;;返回
  40.   (reverse LST_EN)
  41. )

点评

[attachimg]12596[/attachimg]我用了一下,怎么和你上面的不一样。?只是显示地块的面积。  详情 回复 发表于 2015-1-9 09:46

评分

参与人数 1D豆 +5 贡献 +1 收起 理由
newer + 5 + 1 热心帮忙奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

 楼主| 发表于 2015-1-9 09:46:02 | 显示全部楼层

QQ图片20150109093826.jpg 我用了一下,怎么和你上面的不一样。?只是显示地块的面积。

点评

看你传的图片,我发现了,可能你自己已经定义了“jsmj”的启动命令,你把我做的程序启动命令改一个跟你自己的不重名的应该就行了。  详情 回复 发表于 2015-1-9 09:53
哪里不一样了?启动命令 “jsmj”,然后框选左面框里的A,B,C(千万别选右面公里里含有A=...的文本),然后输入承包合同面积,回车即可改变ABC的数值。  详情 回复 发表于 2015-1-9 09:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-9 09:50:14 | 显示全部楼层
tyrasv 发表于 2015-1-9 09:46
我用了一下,怎么和你上面的不一样。?只是显示地块的面积。

哪里不一样了?启动命令 “jsmj”,然后框选左面框里的A,B,C(千万别选右面公里里含有A=...的文本),然后输入承包合同面积,回车即可改变ABC的数值。

点评

我输入了jsmj,我出来的和你不一样,你是直接选目标,我还要选图层,选目标,都没有要输入承包面积。 出来的地块面积[attachimg]12602[/attachimg]  详情 回复 发表于 2015-1-9 10:03
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-9 09:53:46 | 显示全部楼层
tyrasv 发表于 2015-1-9 09:46
我用了一下,怎么和你上面的不一样。?只是显示地块的面积。

看你传的图片,我发现了,可能你自己已经定义了“jsmj”的启动命令,你把我做的程序启动命令改一个跟你自己的不重名的应该就行了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

 楼主| 发表于 2015-1-9 10:03:42 | 显示全部楼层
Newbuser 发表于 2015-1-9 09:50
哪里不一样了?启动命令 “jsmj”,然后框选左面框里的A,B,C(千万别选右面公里里含有A=...的文本),然 ...

我输入了jsmj,我出来的和你不一样,你是直接选目标,我还要选图层,选目标,都没有要输入承包面积。  出来的地块面积 QQ截图111.jpg

点评

原来这样啊,这个就根据你个人需要和喜好自己修改下就行了。  详情 回复 发表于 2015-1-9 10:06
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-9 10:06:23 | 显示全部楼层
tyrasv 发表于 2015-1-9 10:03
我输入了jsmj,我出来的和你不一样,你是直接选目标,我还要选图层,选目标,都没有要输入承包面积。  出 ...

原来这样啊,这个就根据你个人需要和喜好自己修改下就行了。

点评

不好意思,和程序自带的命令重复了。不好意思。确实和你那一样。 能不能加以修改一下, 每户田块多少不一定,可能有2块,3块,也有7.8块的。我是不是每户都要用A.B.C.E.F.G来表示? 最好能在原来的面积上面  详情 回复 发表于 2015-1-9 10:17
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

 楼主| 发表于 2015-1-9 10:17:58 | 显示全部楼层
Newbuser 发表于 2015-1-9 10:06
原来这样啊,这个就根据你个人需要和喜好自己修改下就行了。

不好意思,和程序自带的命令重复了。不好意思。确实和你那一样。      
能不能加以修改一下,  每户田块多少不一定,可能有2块,3块,也有7.8块的。我是不是每户都要用A.B.C.E.F.G来表示?  最好能在原来的面积上面修改,我就不用每家都要注A.B.C.D了,因为不管每家有多少田块,都会有一个面积在里面。

点评

如上所示,你在代码中加入几行你想扩展的字母对应条件不就行了?  详情 回复 发表于 2015-1-9 10:24
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-9 10:24:52 | 显示全部楼层
tyrasv 发表于 2015-1-9 10:17
不好意思,和程序自带的命令重复了。不好意思。确实和你那一样。      
能不能加以修改一下,  每户田块 ...
  1. (setq  nstr (rtos (cond ((= "A" str) (* 0.32 xs))
  2.        ((= "B" str) (* 0.25 xs))
  3.        ((= "C" str) (* 0.79 xs))
  4.        ((= "D" str) (* 对应比例 xs))
  5.        ((= "E" str) (* 对应比例 xs))
  6.        ((= "F" str) (* 对应比例 xs))
  7.        ((= "G" str) (* 对应比例 xs))
  8.        )
  9.        2
  10.        3
  11.        )
  12.   )
如上所示,你在代码中加入几行你想扩展的字母对应条件不就行了?

点评

上面的0.32,0.25,都是地块的面积,只不过是换算成了亩数。是已知条件  详情 回复 发表于 2015-1-9 11:50
我添加了几个地块就不行了,是不是我每次要算一户承包面积都要把地块面积都要写到程序里面里面去。你把0.32,0.25,0.79都写到程序里面去了,能不能直接选中数值,直接换算。  详情 回复 发表于 2015-1-9 11:10
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

 楼主| 发表于 2015-1-9 11:10:07 | 显示全部楼层
Newbuser 发表于 2015-1-9 10:24
如上所示,你在代码中加入几行你想扩展的字母对应条件不就行了?

我添加了几个地块就不行了,是不是我每次要算一户承包面积都要把地块面积都要写到程序里面里面去。你把0.32,0.25,0.79都写到程序里面去了,能不能直接选中数值,直接换算。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 9个

财富等级: 恭喜发财

 楼主| 发表于 2015-1-9 11:50:53 | 显示全部楼层
Newbuser 发表于 2015-1-9 10:24
如上所示,你在代码中加入几行你想扩展的字母对应条件不就行了?

上面的0.32,0.25,都是地块的面积,只不过是换算成了亩数。是已知条件

点评

如果只想标注出图上封闭多段线以亩为单位的面积,直接提取平方单位的面积,然后再进行换算生成就行了。不知道你是否想要我所描述的结果。  详情 回复 发表于 2015-1-9 16:46
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2015-1-9 16:46:37 | 显示全部楼层
tyrasv 发表于 2015-1-9 11:50
上面的0.32,0.25,都是地块的面积,只不过是换算成了亩数。是已知条件

如果只想标注出图上封闭多段线以亩为单位的面积,直接提取平方单位的面积,然后再进行换算生成就行了。不知道你是否想要我所描述的结果。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 550个

财富等级: 财运亨通

发表于 2017-8-11 09:09:16 | 显示全部楼层
正好有用,研究一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 13:35 , Processed in 0.824703 second(s), 64 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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