求一图块按块名顺序编号程序

pchuangzmx

我们中五金模具工作过程中，对图形插入已经做好的螺丝，合销，导柱，导套，弹簧等等标准块，但每次都要手工去编号很是费力又浪费时间，求一高手指教一下怎么编定一按图块名称自动编号的lisp编序

langjs

穿一张低版本的dwg图纸看看

llsheng_73

很多种图块的话那么编号规则呢？
以及各种图块名称。。。

xyp1964

pchuangzmx

xyp1964 发表于 2017-10-24 15:25

如此附件的CAD图块，如何写lisp程序来编号？

pxt2001

xyp1964 发表于 2017-10-24 15:25

光截图有什么意思。

xyp1964

pchuangzmx 发表于 2017-10-24 18:36
如此附件的CAD图块，如何写lisp程序来编号？

1. ;; tt(属性图块顺序编号)
   
2. (defun c:tt ()
   
3.   (setq i (Uint 5 "" "起始编号" i))
   
4.   (princ "\n选择属性图块<退出>: ")
   
5.   (if (setq ss (ssget '((0 . "insert") (66 . 1))))
   
6.     (progn
   
7.       (setq lst (mapcar '(lambda (x) (list (xyp-DXF 2 x) x)) (xyp-Ss2List ss)))
   
8.       (foreach a (xyp-count1 lst)
   
9.         (mapcar '(lambda (x)
   
10.                    (setq s1 (caar (xyp-Att2list x))
    
11.                          s1 (xyp-SubUpd s1 1 (itoa i))
    
12.                          i  (1+ i)
    
13.                    )
    
14.                  )
    
15.                 (mapcar 'car (cdr a))
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

;; tt(属性图块顺序编号)<br /> (defun c:tt ()<br />   (setq i (Uint 5 "" "起始编号" i))<br />   (princ "\n选择属性图块<退出>: ")<br />   (if (setq ss (ssget '((0 . "insert") (66 . 1))))<br />     (progn<br />       (setq lst (mapcar '(lambda (x) (list (xyp-DXF 2 x) x)) (xyp-Ss2List ss)))<br />       (foreach a (xyp-count1 lst)<br />         (mapcar '(lambda (x)<br />                    (setq s1 (caar (xyp-Att2list x))<br />                          s1 (xyp-SubUpd s1 1 (itoa i))<br />                          i  (1+ i)<br />                    )<br />                  )<br />                 (mapcar 'car (cdr a))<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )