求一个数学表达式程序

tyrasv

请点击此处下载

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

您的用户组是：游客

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

守仁格竹GM

cal                     

tyrasv

守仁格竹GM 发表于 2015-1-9 08:16
cal

什么意思？

Newbuser

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

(defun c:jsmj ( / ss cbhtmj lst el str nstr)<br />   (setq ss (ssget '((1 . "*[a-A-z-Z]*"))))<br />   (setq cbhtmj (getreal "\n请输入承包合同面积==>> "))<br />   (setq lst (ZML-SS->ENLIST ss))<br />   (foreach x lst<br />     (setq el (entget x))<br /> ;;;      (setq el (entget (ssname ss 0)))<br />     (setq str (cdr (assoc 1 el)))<br />     (htmj str cbhtmj)<br />     (setq el (subst (cons 1 nstr) (assoc 1 el) el))<br />     (setq el (subst (cons 8 "修改面积图层") (assoc 8 el) el))<br />     (entmod el)<br />   )<br /> )<br /> (defun htmj (str cbhtmj)<br />   (setq xs (/ cbhtmj (apply '+ '(0.32 0.25 0.79))))<br />   (setq  nstr (rtos (cond ((= "A" str) (* 0.32 xs))<br />        ((= "B" str) (* 0.25 xs))<br />        ((= "C" str) (* 0.79 xs))<br />        )<br />        2<br />        3<br />        )<br />   )<br /> )<br /> ;;;功能：选择集转换为图元名表                                       *<br /> ;;;参数：SS -----选择集                                             *<br /> ;;;返回：图元名表                                                   *<br /> (defun ZML-SS->ENLIST (SS / I EN LST_EN)<br />   (setq  LST_EN '()<br />   I 0<br />   )<br />   (repeat (sslength SS)<br />     (setq EN   (ssname SS I)<br />     LST_EN (cons EN LST_EN)<br />     I   (1+ I)<br />     )<br />   )<br />   ;;返回<br />   (reverse LST_EN)<br /> )

tyrasv

Newbuser 发表于 2015-1-9 09:15

我用了一下，怎么和你上面的不一样。？只是显示地块的面积。

Newbuser

tyrasv 发表于 2015-1-9 09:46
我用了一下，怎么和你上面的不一样。？只是显示地块的面积。

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

Newbuser

tyrasv 发表于 2015-1-9 09:46
我用了一下，怎么和你上面的不一样。？只是显示地块的面积。

看你传的图片，我发现了，可能你自己已经定义了“jsmj”的启动命令，你把我做的程序启动命令改一个跟你自己的不重名的应该就行了。

tyrasv

Newbuser 发表于 2015-1-9 09:50
哪里不一样了？启动命令 “jsmj”，然后框选左面框里的A，B，C(千万别选右面公里里含有A=...的文本)，然 ...

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

Newbuser

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

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

tyrasv

Newbuser 发表于 2015-1-9 10:06
原来这样啊，这个就根据你个人需要和喜好自己修改下就行了。

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

Newbuser

tyrasv 发表于 2015-1-9 10:17
不好意思，和程序自带的命令重复了。不好意思。确实和你那一样。      
能不能加以修改一下，  每户田块 ...

2. (setq  nstr (rtos (cond ((= "A" str) (* 0.32 xs))
   
3.        ((= "B" str) (* 0.25 xs))
   
4.        ((= "C" str) (* 0.79 xs))
   
5.        ((= "D" str) (* 对应比例 xs))
   
6.        ((= "E" str) (* 对应比例 xs))
   
7.        ((= "F" str) (* 对应比例 xs))
   
8.        ((= "G" str) (* 对应比例 xs))
   
9.        )
   
10.        2
    
11.        3
    
12.        )
    
13.   )

(setq  nstr (rtos (cond ((= "A" str) (* 0.32 xs))<br />        ((= "B" str) (* 0.25 xs))<br />        ((= "C" str) (* 0.79 xs))<br />        ((= "D" str) (* 对应比例 xs))<br />        ((= "E" str) (* 对应比例 xs))<br />        ((= "F" str) (* 对应比例 xs))<br />        ((= "G" str) (* 对应比例 xs))<br />        )<br />        2<br />        3<br />        )<br />   )

如上所示，你在代码中加入几行你想扩展的字母对应条件不就行了？

tyrasv

Newbuser 发表于 2015-1-9 10:24
如上所示，你在代码中加入几行你想扩展的字母对应条件不就行了？

我添加了几个地块就不行了，是不是我每次要算一户承包面积都要把地块面积都要写到程序里面里面去。你把0.32，0.25，0.79都写到程序里面去了，能不能直接选中数值，直接换算。

tyrasv

Newbuser 发表于 2015-1-9 10:24
如上所示，你在代码中加入几行你想扩展的字母对应条件不就行了？

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

Newbuser

tyrasv 发表于 2015-1-9 11:50
上面的0.32，0.25，都是地块的面积，只不过是换算成了亩数。是已知条件

如果只想标注出图上封闭多段线以亩为单位的面积，直接提取平方单位的面积，然后再进行换算生成就行了。不知道你是否想要我所描述的结果。

fan_zh

正好有用，研究一下