[求助]：功能:注解輸出

spring1983

;;;功能:注解輸出
;;;By Spring
;;;08/08-03
;;;______________________________________________________
;;;錯誤處理函數
(defun ai_error        (errmsg)
  (if errmsg
    '("console break"
      "Function Cancelled"
     )
    (princ (strcat "\nError: " errmsg))
  )
  (princ)
) ;_defun
;;;______________________________________________________
(defun C:TT1 (/              cm      old_error              qq      t_hight ss
              count   en      neu     hcount  ed      tag1    edd
              circle_xy              rad     cen     cen_x   cen_y   circle_x
              circle_y              circle_xy              n              listxy  tag
              qq      qqn     p1      ent
             )
  (setq cm (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq old_error *error*)
  (setq *error* ai_error)
  (setq qq nil)
  (princ "\nText high <")
  (setq t_hight (getvar "TEXTSIZE"))
  (princ t_hight)
  (setq t_hight (getstring ">"))
  (setq ss (ssget))
  (setq count 0)
  (while (> (sslength ss) count)
    (setq en (ssname ss count))
    (setq count (1+ count))
    (setq neu (itoa count))
    (setq hcount (strcat "h" neu))
    (setq ed (entget en '("MY_TAG")))
    (setq tag1 (cdr (cadr (cadr (assoc -3 ed)))))
    (setq edd (entget en))
    (if        (/= tag1 nil)
      (progn
        (if (= (cdr (assoc 0 edd)) "CIRCLE")
          (progn
            (setq circle_xy nil)
            (setq rad (cdr (assoc 40 ed)))
            (setq cen (cdr (assoc 10 ed)))
            (setq cen_x (car cen))
            (setq cen_y (nth 1 cen))
            (setq circle_x (+ cen_x (* 0.8 rad)))
            (setq circle_y (+ cen_y (* 0.8 rad)))
            (setq circle_xy (list circle_x circle_y))
            (command "UCS" "World")
            (command "TEXT" circle_xy t_hight 0 hcount)
            (command "UCS" "Prev")
          )
        )                                ;if
        (if (= (cdr (assoc 0 edd)) "LWPOLYLINE")
          (progn
            (setq n 0)
            (setq listxy nil)
            (while (/= (nth n edd) nil)
              (if (= (car (nth n edd)) 10)
                (setq listxy (append listxy
                                     (list (list (cadr (nth n edd))
                                                 (caddr (nth n edd))
                                           )
                                     )
                             )

                )
              )
              (setq n (1+ n))
            )
            (setq listxy (nth 2 listxy))
            (command "UCS" "World")
            (command "TEXT" listxy t_hight 0 hcount)
            (command "UCS" "Prev")
          )
        )                                ;if
        (setq tag1 (strcat hcount ": " tag1))
        (setq qq (cons tag1 qq))
      )
    )
  )                                        ;while
  (if (/= qq nil)
    (progn
      (setq qq (reverse qq))
      (setq qqn (length qq))
      (setq p1 (getpoint "\ninsert point"))
      (setq tag (nth 0 qq))
      (command "_.TEXT" p1 t_hight 0 tag)
      (setq qq (cdr qq))
      (foreach ent qq
        (command "_.TEXT" "" ent)
      )
      (setq textname (entlast))
      (setq textna (entget textname))
      (setq texthigh (* (cdr (assoc 40 textna)) 1.6666666667))
      (setq movdist (* (cdr (assoc 40 textna)) 0.4))
      (setq movdist (- movdist (* movdist 1.5)))
      (setq movdist (list 0 movdist))
      (if (= "TEXT" (cdr (assoc 0 textna)))
        (progn
          (command "_.ucs" "Object" textname)
          (setq TB (textbox (list (cons -1 textname))))
          (setq        PT1 (car TB)
                PT2 (cadr TB)
                PT3 (cadr PT1)
                PT4 (+ (car PT2) 5)
                PT5 (list pt4 pt3)
          )
        )
      )
      (command "LINE" pt1 pt5 "")
      (setq ss (ssget "l"))
      (command "CHANGE" ss "" "p" "Color" 2 "")
      (command "UCS" "Prev")
      (command "MOVE" ss "" "0,0" movdist)
      (command "-ARRAY" ss "" "R" qqn "" texthigh)
    )
    (prompt "\n無標籤圖元可產生註解資料")
  )
  (setvar "cmdecho" cm)
  (setq *error* old_error)
  (princ)
)

spring1983

如何注解成如下格式

spring1983

DWG

lsjjm

就那么两行字,  编程有普遍意义吗?  如果不是批处理,  直接写不就行了吗?

spring1983

再來一張

spring1983

對我來說很有用

spring1983

這個問題很難嗎

前生

小老弟:
      这里的朋友多数书建筑方面的吧,机械的本来就少,有何况是模具方面的呢?
不是问题太难,而是对这个话题感兴趣的不多吧

spring1983

老哥快幫幫我阿,我實在是想不出法了.....

aeo

(sslength ss)
点一下个数就可以了

spring1983

(sslength ss) 只能處理選集的個數
我的要求是我現在的圖元里含有標籤(my_tag)當我選折的圖元的標籤(my_tag)是一樣時就會統計數量

aeo

看了上面的例子，大致了解你的意思:
是不是这样:
块A有属性标签spring ,但插入时属性值可能是 h1  h2  h3
块B有属性标签test ,但插入时属性值可能是 r1 r2
现要假定图中有5个值为h1的块A,就写  h1  5-spring.

方法:
有选集ss
把里面的实体名都变为(属性值 .  标签)的表.
get-tab  得到标签
get-att   得到属性值

2. 
   
3. (setq j -1 li '())
   
4. (repeat (sslength ss)
   
5. (setq e(ssname ss(setq j(1+ j))))
   
6. (setq li(cons (cons(get-att e)(get-tab e)) li))
   
7. )
   

<br /> (setq j -1 li '())<br /> (repeat (sslength ss)<br /> (setq e(ssname ss(setq j(1+ j))))<br /> (setq li(cons (cons(get-att e)(get-tab e)) li))<br /> )<br />

现在的li为 ( ("h1" . "spring")("h2" . "spring") ...)
有办法了吧.
现在就差get-tab    get-att   了,
这方面这坛里很多，自个找.

==================================
上面写错了，我以为你是用属性的呢!
但方法是一样的

spring1983

我的程序可以得到
("h1: Spring" "h2: Spring" "h3: test" "h4: test" "h5: Spring" "h6: Spring")
定義在變量qq ,(setq qq (reverse qq)),我就是後面的不知道怎麼做了

aeo

很难理解你要的什么.

2. 
   
3. (defun  get-tab ( en / ed tag1)           ;这是你自己的.
   
4. (setq ed (entget en '("MY_TAG")))
   
5. (setq tag1 (cdr (cadr (cadr (assoc -3 ed)))))
   
6. )
   
7. 
   
8. (setq j -1 li '())
   
9. (repeat (sslength ss)                                    ;重复
   
10. (setq e(ssname ss(setq j(1+ j))))                  ;取其中一个
    
11. (setq tag(get-tag e))                                   ;这一个的标签
    
12. (if (setq a (assoc tag li))                             
    
13.     (setq li(subst a (append a e)li))                ;如果li里有这个标签引导的表了,就加这个实体到这表中.
    
14.     (setq li(cons(list tag e) li)                          ;如果li没有，就新生一个.
    
15. )
    
16. )
    
17. ;到这里应该li--> '((tag1 实体1 实体4 实体10...)(tag2 实体3 实体6...)...)
    
18. ;下面再repeat一下li
    
19. (setq j 0  )
    
20. 
    
21. (repeat (length li)
    
22. (setq li1(nth  j li))                             ;   '(tag1 实体1 实体4 实体10...)
    
23. (setq tag(car li1) li1(cdr li1) )             ; tag可能就是"spring"啦,li1就是你要标H?的实体名
    
24. (setq name(strcat "H"(itoa j)))         ;你要写的字 可能是 "H1"
    
25. (...下面设字高，开始command "text" 循环li1)
    
26. (setq j(1+ j))
    
27. ;你要写在旁边的不就是li1的表长吗?
    
28. )
    

<br /> (defun  get-tab ( en / ed tag1)           ;这是你自己的.<br /> (setq ed (entget en '("MY_TAG")))<br /> (setq tag1 (cdr (cadr (cadr (assoc -3 ed)))))<br /> )<br /> <br /> (setq j -1 li '())<br /> (repeat (sslength ss)                                    ;重复 <br /> (setq e(ssname ss(setq j(1+ j))))                  ;取其中一个<br /> (setq tag(get-tag e))                                   ;这一个的标签<br /> (if (setq a (assoc tag li))                             <br />     (setq li(subst a (append a e)li))                ;如果li里有这个标签引导的表了,就加这个实体到这表中.<br />     (setq li(cons(list tag e) li)                          ;如果li没有，就新生一个.<br /> )<br /> )<br /> ;到这里应该li--> '((tag1 实体1 实体4 实体10...)(tag2 实体3 实体6...)...)<br /> ;下面再repeat一下li<br /> (setq j 0  )<br /> <br /> (repeat (length li)<br /> (setq li1(nth  j li))                             ;   '(tag1 实体1 实体4 实体10...)<br /> (setq tag(car li1) li1(cdr li1) )             ; tag可能就是"spring"啦,li1就是你要标H?的实体名<br /> (setq name(strcat "H"(itoa j)))         ;你要写的字 可能是 "H1"<br /> (...下面设字高，开始command "text" 循环li1)<br /> (setq j(1+ j))<br /> ;你要写在旁边的不就是li1的表长吗?<br /> )<br />

spring1983

謝謝你 aeo 差不多就是我想要的,我回去再整理一下看.

順便問一下你在無錫嗎,我在蘇州,很近哦.