pchuangzmx 发表于 2017-10-23 19:01:22

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

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

langjs 发表于 2017-10-24 08:21:28

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

llsheng_73 发表于 2017-10-24 08:38:55

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

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


pchuangzmx 发表于 2017-10-24 18:36:54

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


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

pxt2001 发表于 2017-12-16 14:50:01

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


光截图有什么意思。

xyp1964 发表于 2017-12-16 16:19:01

本帖最后由 xyp1964 于 2017-12-16 16:20 编辑

pchuangzmx 发表于 2017-10-24 18:36
如此附件的CAD图块，如何写lisp程序来编号？
;; tt(属性图块顺序编号)
(defun c:tt ()
(setq i (Uint 5 "" "起始编号" i))
(princ "\n选择属性图块<退出>: ")
(if (setq ss (ssget '((0 . "insert") (66 . 1))))
    (progn
      (setq lst (mapcar '(lambda (x) (list (xyp-DXF 2 x) x)) (xyp-Ss2List ss)))
      (foreach a (xyp-count1 lst)
      (mapcar '(lambda (x)
                   (setq s1 (caar (xyp-Att2list x))
                         s1 (xyp-SubUpd s1 1 (itoa i))
                         i(1+ i)
                   )
               )
                (mapcar 'car (cdr a))
      )
      )
    )
)
(princ)
)
页: [1]
查看完整版本: 求一图块按块名顺序编号程序