（求助）标注能否按相同行X列=个数的公式表示出来，谢谢！

cxs259

（求助）标注能否按相同行X列=个数的公式表示出来，详见附图，谢谢！

cxs259

详见附图，谢谢！

Gu_xl

cxs259 发表于 2013-4-22 12:43
详见附图，谢谢！

1. (defun c:tt (/ S1 S2 PT H N OBJ STRD A LST1 LST2 AA BB K)
   
2.   (while (and
   
3.            (progn
   
4.              (princ "\n选择水平标注:")
   
5.              (setq s1 (ssget '((0 . "DIMENSION"))))
   
6.              )
   
7.            (progn
   
8.              (princ "\n选择垂直标注:")
   
9.              (setq s2 (ssget '((0 . "DIMENSION"))))
   
10.              )
    
11.            (setq pt (getpoint "\n标注放置位置:"))
    
12.            )
    
13.      (setq H (getreal "\n标注高度<1000>:"))
    
14.     (if (null h) (setq h 1000))
    
15.     (repeat (setq n (sslength s1))
    
16.       (setq obj (vlax-ename->vla-object (ssname s1 (setq n (1- n)))))
    
17.       (setq strd (rtos (vla-get-Measurement obj) 2 0))
    
18.       (if (setq a (assoc strd lst1))
    
19.         (setq lst1 (subst (cons strd (1+ (cdr a))) a lst1))
    
20.         (setq lst1 (cons (cons strd 1) lst1))
    
21.         )
    
22.       )
    
23.     (repeat (setq n (sslength s2))
    
24.       (setq obj (vlax-ename->vla-object (ssname s2 (setq n (1- n)))))
    
25.       (setq strd (rtos (vla-get-Measurement obj) 2 0))
    
26.       (if (setq a (assoc strd lst2))
    
27.         (setq lst2 (subst (cons strd (1+ (cdr a))) a lst2))
    
28.         (setq lst2 (cons (cons strd 1) lst2))
    
29.         )
    
30.       )
    
31.     (foreach a lst1
    
32.       (setq aa (car a) n (cdr a))
    
33.       (foreach b lst2
    
34.         (setq bb (car b) k (cdr b))
    
35.         (entmake
    
36.           (list '(0 . "text")
    
37.                 '(100 . "AcDbEntity")
    
38.                 '(67 . 0)
    
39.                 '(8 . "COLOR2")
    
40.                 '(100 . "AcDbText")
    
41.                 (cons 10 pt)
    
42.                 (cons 1 (strcat aa "X" bb "=" (itoa (* n k))))
    
43.                 (cons 40 h)
    
44.                 )
    
45.           )
    
46.         (setq pt (polar pt (* 1.5 pi) (* 1.5 h)))
    
47.         )
    
48.       )
    
49.    
    
50.     )
    
51.   (princ)
    
52.   )

(defun c:tt (/ S1 S2 PT H N OBJ STRD A LST1 LST2 AA BB K)<br />   (while (and<br />            (progn<br />              (princ "\n选择水平标注:")<br />              (setq s1 (ssget '((0 . "DIMENSION"))))<br />              )<br />            (progn<br />              (princ "\n选择垂直标注:")<br />              (setq s2 (ssget '((0 . "DIMENSION"))))<br />              )<br />            (setq pt (getpoint "\n标注放置位置:"))<br />            )<br />      (setq H (getreal "\n标注高度<1000>:"))<br />     (if (null h) (setq h 1000))<br />     (repeat (setq n (sslength s1))<br />       (setq obj (vlax-ename->vla-object (ssname s1 (setq n (1- n)))))<br />       (setq strd (rtos (vla-get-Measurement obj) 2 0))<br />       (if (setq a (assoc strd lst1))<br />         (setq lst1 (subst (cons strd (1+ (cdr a))) a lst1))<br />         (setq lst1 (cons (cons strd 1) lst1))<br />         )<br />       )<br />     (repeat (setq n (sslength s2))<br />       (setq obj (vlax-ename->vla-object (ssname s2 (setq n (1- n)))))<br />       (setq strd (rtos (vla-get-Measurement obj) 2 0))<br />       (if (setq a (assoc strd lst2))<br />         (setq lst2 (subst (cons strd (1+ (cdr a))) a lst2))<br />         (setq lst2 (cons (cons strd 1) lst2))<br />         )<br />       )<br />     (foreach a lst1<br />       (setq aa (car a) n (cdr a))<br />       (foreach b lst2<br />         (setq bb (car b) k (cdr b))<br />         (entmake<br />           (list '(0 . "text")<br />                 '(100 . "AcDbEntity")<br />                 '(67 . 0)<br />                 '(8 . "COLOR2")<br />                 '(100 . "AcDbText")<br />                 (cons 10 pt)<br />                 (cons 1 (strcat aa "X" bb "=" (itoa (* n k))))<br />                 (cons 40 h)<br />                 )<br />           )<br />         (setq pt (polar pt (* 1.5 pi) (* 1.5 h)))<br />         )<br />       )<br />     <br />     )<br />   (princ)<br />   )

bai2000

能列表出来并自动计算各种尺寸的面积更好

cxs259

感谢G版及时的解答！

vlisp2012

(if (setq a (assoc strd lst1))
        (setq lst1 (subst (cons strd (1+ (cdr a))) a lst1))
        (setq lst1 (cons (cons strd 1) lst1))
        )
在第一句中，lst1还未定义呢！下面才定义的。这样也可以啊？以前从未用过！

vlisp2012

唉，我太笨了，才看懂。
多谢G版了！