[LISP程序]：测试:获得匿名块或组的最大名称。

eachy

2. 
   
3. ;;获取匿名块(组)的后续名称，图中没有匿名块时返回nil
   
4. ;; name - "blocks" & "groups"
   
5. (defun get-UnnameBlock-maxNo (name / a n minNo maxNo obj no)
   
6.   (setq        a (vlax-get
   
7.             (vla-get-activedocument (vlax-get-acad-object))
   
8.             name
   
9.           )
   
10.   )
    
11.   (setq minNo 0)
    
12.   (setq        objectname
    
13.          (if (= (strcase name) "BLOCKS")
    
14.            "AcDbBlockTableRecord"
    
15.            "AcDbGroup"
    
16.          )
    
17.   )
    
18.   (vlax-for obj        a
    
19.     (if        (and (= objectname (vla-get-objectname obj))
    
20.              (wcmatch (vla-get-name obj) "*U*")
    
21.         )
    
22.       (progn
    
23.         (setq no (read (vl-string-left-trim "*U" (vla-get-name obj))))
    
24.         (if (> no minNo)
    
25.           (setq maxNo no)
    
26.           (setq minNo no)       
    
27.         )
    
28.       )
    
29.     )
    
30.   )
    
31.   (if maxNo (strcat "*U" (itoa (1+ maxNo))))
    
32. )

<br /> ;;获取匿名块(组)的后续名称，图中没有匿名块时返回nil<br /> ;; name - "blocks" & "groups"<br /> (defun get-UnnameBlock-maxNo (name / a n minNo maxNo obj no)<br />   (setq        a (vlax-get<br />             (vla-get-activedocument (vlax-get-acad-object))<br />             name<br />           )<br />   )<br />   (setq minNo 0)<br />   (setq        objectname<br />          (if (= (strcase name) "BLOCKS")<br />            "AcDbBlockTableRecord"<br />            "AcDbGroup"<br />          )<br />   )<br />   (vlax-for obj        a<br />     (if        (and (= objectname (vla-get-objectname obj))<br />              (wcmatch (vla-get-name obj) "*U*")<br />         )<br />       (progn<br />         (setq no (read (vl-string-left-trim "*U" (vla-get-name obj))))<br />         (if (> no minNo)<br />           (setq maxNo no)<br />           (setq minNo no)        <br />         )<br />       )<br />     )<br />   )<br />   (if maxNo (strcat "*U" (itoa (1+ maxNo))))<br /> )

LUCAS

指令: -BLOCK

输入图块名称或 [列示(?)]: 4U34
指定插入基准点:
选取对象: 指定对角点: 13 找到

选取对象:

指令: (GET-UNNAMEBLOCK-MAXNO "BLOCKS")

error: 损坏的比较自变量类型: 4U34


這個函數的主要用途是甚麼??

eachy

尝试用VLA方法建立匿名块  (vla-addblock blocks "*Uxxx")

LUCAS

2. 
   
3. ;;建立匿名块不是不用管名称吗???
   
4. (defun C:TT (/ BLKDEF)
   
5.   (setq
   
6.     BLKDEF (vla-add (vla-get-blocks
   
7.                       (vla-get-activedocument (vlax-get-acad-object))
   
8.                     )
   
9.                     (vlax-3d-point '(0 0 0))
   
10.                     "*U"
    
11.            )
    
12.   )
    
13. ;;LIST BLOCKS NAME
    
14. ;;(vlax-for ENT        (vla-get-blocks
    
15. ;;                  (vla-get-activedocument (vlax-get-acad-object))
    
16. ;;                )
    
17. ;;    (print (vla-get-name ENT))
    
18. ;;)
    
19.   (vla-get-name BLKDEF)
    
20. )
    

<br /> ;;建立匿名块不是不用管名称吗???<br /> (defun C:TT (/ BLKDEF)<br />   (setq<br />     BLKDEF (vla-add (vla-get-blocks<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />                     (vlax-3d-point '(0 0 0))<br />                     "*U"<br />            )<br />   )<br /> ;;LIST BLOCKS NAME<br /> ;;(vlax-for ENT        (vla-get-blocks<br /> ;;                  (vla-get-activedocument (vlax-get-acad-object))<br /> ;;                )<br /> ;;    (print (vla-get-name ENT))<br /> ;;)<br />   (vla-get-name BLKDEF)<br /> )<br />

eachy

最初由 LUCAS 发布
[B][CODE]
;;建立匿名块不是不用管名称吗???
(defun C:TT (/ BLKDEF)
  (setq
    BLKDEF (vla-add (vla-get-blocks
                      (vla-get-activedocument (vlax-get-acad-object))
                    )
                    (vlax-3d-point '(... [/B]

谢谢，原来这样。