【飞鸟集】数字文本的四则运算和统计（更新到2020.11.09)

guankuiwu

能不能进行分类求和呢。

tigcat

谢谢高飞鸟大神

szygyue

好用，这一版本比以前的好用多了

thttht

能不能加入 “绿化面积：12m”这类文本的统计啊？？

jhzxj

太好了，能加减乘除，谢谢！

goodt

很好用，谢谢楼主

pizi158545086

谢谢楼上的分享

tigcat

今天又来感谢高飞大神的作品，特别实用

tigcat

有点尴尬的是我用“stat"命令，进行了统计计算，其实我只想在旁边写出一个结果就好：例："3*5"，我想的是输入命令单击它后在旁边出现一个文字15就行。不知道直接操作怎么实现，看来要利用高飞大神的函数自己稍微改造下？或是原来就带的有呢？

tigcat

；我计算楼梯过程中，核对踏步宽度高度是否正确，做的一个小程序，选中带符号的文字，将计算结果放置在右下角，图层为当前图层。
；感谢高飞大神

1. (defun c:CAt (/ box Els ent i lst nls num p1 p2 p3 p4 sel strlst wcs wz_jd wz_obj wz_zg)
   
2.   
   
3.   (if
   
4.     (or
   
5.       (setq wcs (vlax-create-object "Aec32BitAppServer.AecScriptControl.1"))
   
6.       (setq wcs (vlax-create-object "ScriptControl"))
   
7.     )
   
8.     (vlax-put-property wcs "language" "VBScript")
   
9.   )
   
10.   (setq i 0)
    
11.   (setq sel (ssget '((0 . "text"))))
    
12.   (repeat (sslength sel)
    
13.     (setq ent (ssname sel i))
    
14.     (command "ucs" "e" ent)
    
15.     (setq wz_obj (vlax-ename->vla-object ent))
    
16.     (setq wz_jd (vlax-get-property wz_obj 'Rotation)) ;取得角度
    
17.     (setq wz_zg (vlax-get-property wz_obj 'Height)) ;取得字高
    
18.     (setq lst (entget ent))
    
19.     (setq box (textbox lst))  ;取得文字的外框坐标
    
20.     (setq p1 (car box))
    
21.     (setq p3 (cadr box))
    
22.     (setq p2 (list (car p3) (cadr p1)));p2为文字插入坐标
    
23.                 (setq p2 (trans p2 1 0))
    
24.     (setq p4 (list (car p1) (cadr p3)))
    
25.    
    
26.     (setq num (cdr (assoc 1 lst)))
    
27.     (if (wcmatch (cdr (assoc 0 lst)) "*_TEXT")
    
28.       (setq num (atof num))
    
29.       (progn
    
30.         (foreach s '("㎡" "平方米" "米")
    
31.           (while (/= num (setq num (vl-string-subst "" s num))))
    
32.         )
    
33.         (while (/= num (setq num (vl-string-subst "*" "×" num))))
    
34.         (setq num (vl-string-translate "xX" "**" num))
    
35.         ;;优先使用CAD的cal函数计算.
    
36.         (if CAL               
    
37.           (setq num (float (cal (strcat num "+0.0"))))    ;这个地方需要转化为浮点，不然cal函数会出错
    
38.           ;;然后采用vbs计算
    
39.           (if wcs
    
40.             (setq num (vlax-invoke wcs 'eval num))
    
41.             (setq num (CAL:Expr2Value Num))
    
42.           )
    
43.         )
    
44.       )
    
45.     )
    
46.     ;;;    (setq Els (cons ent Els))
    
47.     ;;;    (setq Nls (cons num Nls))
    
48.     (entmake (list '(0 . "TEXT") (cons 1 (rtos num)) (cons 10 p2) (cons 40 (* 0.3 wz_zg))))
    
49.     (setq i (1+ i))
    
50.   )
    
51.   (command "ucs" "")
    
52.   ;;;  (list
    
53.   ;;;    (reverse Els)
    
54.   ;;;    (reverse Nls)
    
55.   ;;;  )
    
56.   (prin1)
    
57. )
    
58. 
    
59. (prompt "\n根据高飞大神四则运算进行修改<c:cat>")
    
60. (prin1)

(defun c:CAt (/ box Els ent i lst nls num p1 p2 p3 p4 sel strlst wcs wz_jd wz_obj wz_zg)<br />   <br />   (if<br />     (or<br />       (setq wcs (vlax-create-object "Aec32BitAppServer.AecScriptControl.1"))<br />       (setq wcs (vlax-create-object "ScriptControl"))<br />     )<br />     (vlax-put-property wcs "language" "VBScript")<br />   )<br />   (setq i 0)<br />   (setq sel (ssget '((0 . "text"))))<br />   (repeat (sslength sel)<br />     (setq ent (ssname sel i))<br />     (command "ucs" "e" ent)<br />     (setq wz_obj (vlax-ename->vla-object ent))<br />     (setq wz_jd (vlax-get-property wz_obj 'Rotation)) ;取得角度<br />     (setq wz_zg (vlax-get-property wz_obj 'Height)) ;取得字高<br />     (setq lst (entget ent))<br />     (setq box (textbox lst))  ;取得文字的外框坐标<br />     (setq p1 (car box))<br />     (setq p3 (cadr box))<br />     (setq p2 (list (car p3) (cadr p1)));p2为文字插入坐标<br />                 (setq p2 (trans p2 1 0))<br />     (setq p4 (list (car p1) (cadr p3)))<br />     <br />     (setq num (cdr (assoc 1 lst)))<br />     (if (wcmatch (cdr (assoc 0 lst)) "*_TEXT")<br />       (setq num (atof num))<br />       (progn<br />         (foreach s '("㎡" "平方米" "米")<br />           (while (/= num (setq num (vl-string-subst "" s num))))<br />         )<br />         (while (/= num (setq num (vl-string-subst "*" "×" num))))<br />         (setq num (vl-string-translate "xX" "**" num))<br />         ;;优先使用CAD的cal函数计算.<br />         (if CAL               <br />           (setq num (float (cal (strcat num "+0.0"))))    ;这个地方需要转化为浮点，不然cal函数会出错<br />           ;;然后采用vbs计算<br />           (if wcs<br />             (setq num (vlax-invoke wcs 'eval num))<br />             (setq num (CAL:Expr2Value Num))<br />           )<br />         )<br />       )<br />     )<br />     ;;;    (setq Els (cons ent Els))<br />     ;;;    (setq Nls (cons num Nls))<br />     (entmake (list '(0 . "TEXT") (cons 1 (rtos num)) (cons 10 p2) (cons 40 (* 0.3 wz_zg))))<br />     (setq i (1+ i))<br />   )<br />   (command "ucs" "")<br />   ;;;  (list<br />   ;;;    (reverse Els)<br />   ;;;    (reverse Nls)<br />   ;;;  )<br />   (prin1)<br /> )<br /> <br /> (prompt "\n根据高飞大神四则运算进行修改<c:cat>")<br /> (prin1)