救急，文字的相加并修改

Lisphk

今天要处理好多图纸，如图，把下面阳台那列的数值加到住宅列上面，修改住宅列内容到新值，并删除掉阳台那列的数值。图纸好多啊，请大大们给写个工具处理能快点。



附件是图纸。

请点击此处下载

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

您的用户组是：游客

文件名称:新块.rar 
下载次数:4  文件大小:14.56 KB 
下载权限: 不限 以上  [免费赚D豆]

Free-Lancer

随手写, 只能选该两列数字， xdapi + xd-lisp+lib 2011+

1. (defun c:tt (/ ss lst)
   
2.   (if (setq ss (ssget '((0 . "text"))))
   
3.     (progn
   
4.       (setq lst (xd::pickset:tablesort ss 1 3 '< '<))
   
5.       (mapcar '(lambda (a b / n)
   
6.    (setq n (+ (distof (getpropertyvalue a "TextString"))
   
7.        (distof (getpropertyvalue b "TextString"))
   
8.     )
   
9.    )
   
10.    (setpropertyvalue a "TextString" (rtos n 2 0))
    
11.    (entdel b)
    
12.         )
    
13.        (car lst)
    
14.        (cadr lst)
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt (/ ss lst)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq lst (xd::pickset:tablesort ss 1 3 '< '<))<br />       (mapcar '(lambda (a b / n)<br />    (setq n (+ (distof (getpropertyvalue a "TextString"))<br />        (distof (getpropertyvalue b "TextString"))<br />     )<br />    )<br />    (setpropertyvalue a "TextString" (rtos n 2 0))<br />    (entdel b)<br />         )<br />        (car lst)<br />        (cadr lst)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Free-Lancer

Getpropertyvalue Setpropertyvalue 换成 XDAPI 就是这样

1. (defun c:tt (/ ss lst)
   
2.   (if (setq ss (ssget '((0 . "text"))))
   
3.     (progn
   
4.       (setq lst (xd::pickset:tablesort ss 1 3 '< '<))
   
5.       (mapcar '(lambda (a b / n)
   
6.    (setq n (+ (distof (xdrx_text_string a))
   
7.        (distof (xdrx_text_string b))
   
8.     )
   
9.    )
   
10.    (xdrx_text_setstring a  (rtos n 2 0))
    
11.    (entdel b)
    
12.         )
    
13.        (car lst)
    
14.        (cadr lst)
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt (/ ss lst)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (setq lst (xd::pickset:tablesort ss 1 3 '< '<))<br />       (mapcar '(lambda (a b / n)<br />    (setq n (+ (distof (xdrx_text_string a))<br />        (distof (xdrx_text_string b))<br />     )<br />    )<br />    (xdrx_text_setstring a  (rtos n 2 0))<br />    (entdel b)<br />         )<br />        (car lst)<br />        (cadr lst)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

newer

Free-Lancer 发表于 2013-9-4 12:15
Getpropertyvalue Setpropertyvalue 换成 XDAPI 就是这样

(xdrx_text_string b "TextString")) 是不是应该为 (xdrx_text_string b） 或者 (cadr (assoc "String" (xdrx_text_GetProperty b)))?

newer

我也写一个，和上面的程序不同的是，我的是先按行排序。每行2个文字，然后处理。

1. ;|
   
2. 将两列文字行内相加，结果修改第一列文字
   
3. |;
   
4. (defun c:tt()
   
5.    (if (setq ss (ssget '((0 . "TEXT"))))
   
6.       (progn
   
7.           (XD::Begin)
   
8.           (setq e1 (ssname ss 0)
   
9.                 h (xdrx_text_height e1)
   
10.           )
    
11.           (xdrx_document_setPrec (/ h 5.0) 1.0);;字高1/5内，都算做一行（保证容差）
    
12.           (setq entl (XD::Pickset:TableSort ss 0 1 '< '<))
    
13.           (foreach n entl
    
14.              (setq e1 (car n)
    
15.                    e2 (cadr n)
    
16.                    txt2 (xdrx_text_string e2)
    
17.                    txt1 (itoa (+ (atoi (xdrx_text_string e1))(atoi txt2)))
    
18.              )
    
19.              (xdrx_text_setString e1 txt1)
    
20.              (entdel e2)
    
21.           )
    
22.           (XD::End)
    
23.       )
    
24.    )
    
25.    (princ)
    
26. )
    
27. 
    

;|<br /> 将两列文字行内相加，结果修改第一列文字<br /> |;<br /> (defun c:tt()<br />    (if (setq ss (ssget '((0 . "TEXT"))))<br />       (progn<br />           (XD::Begin)<br />           (setq e1 (ssname ss 0)<br />                 h (xdrx_text_height e1)<br />           )<br />           (xdrx_document_setPrec (/ h 5.0) 1.0);;字高1/5内，都算做一行（保证容差）<br />           (setq entl (XD::Pickset:TableSort ss 0 1 '< '<))<br />           (foreach n entl<br />              (setq e1 (car n)<br />                    e2 (cadr n)<br />                    txt2 (xdrx_text_string e2)<br />                    txt1 (itoa (+ (atoi (xdrx_text_string e1))(atoi txt2)))<br />              )<br />              (xdrx_text_setString e1 txt1)<br />              (entdel e2)<br />           )<br />           (XD::End)<br />       )<br />    )<br />    (princ)<br /> )<br /> <br />

Free-Lancer

newer 发表于 2013-9-4 15:48
(xdrx_text_string b "TextString")) 是不是应该为 (xdrx_text_string b） 或者 (cadr (assoc "String" ...

呵呵，拿上面的程序直接改的，忘了删掉，已修改