vitalgg 发表于 2020-12-29 03:35:32

@lisp: 动态图框 新增图纸自动编号功能。

本帖最后由 vitalgg 于 2021-1-4 09:59 编辑

新增图框自动编号功能 。就是改图框里的图号，从左到右，从上到下，把图号按顺序改写（不是移动排版，只是改图号）

命令行输入 @U 自动升级到新版
http://atlisp.cn/static/number.gif
那就给个源码：
(defun @:get-frames (/ s1 ss-list ename en0 ti% p ml-contents xmax ymin boxscale insp)
"选取图中的图框"
(prompt "回车或右键则为所有图框")
(setq s1 (ssget '((0 . "INSERT"))))
(setq ss-list '())
(if (null s1)
      (setq s1 (ssget "x" '((0 . "INSERT")))))
(setq ti% 0)
(if (/= s1 nil)
      (progn
(while
      (<= ti% (- (sslength s1) 1))
    (setq en0 (ssname s1 ti%))
    (if (eq (block:get-effectivename en0) (@:get-config 'vitaltools:tukuang))
      (progn
    (setq ss-list (append ss-list (list en0)))
    ))
    (setq ti% (+ 1 ti%))
    )
)
      (progn
(alert (strcat "未选中任何图框，请检查配置文件中你的图框块名是 "
         (@:get-config 'vitaltools:tukuang)))
(@:edit-config))
      )
(vl-sort ss-list
   '(lambda (en1 en2)
       (if (> (caddr (assoc 10 (entget en1)))
      (+ 1000 (caddr (assoc 10 (entget en2)))))
   T
   (if (and (< (caddr (assoc 10 (entget en1)))
         (+ 1000 (caddr (assoc 10 (entget en2)))))
      (> (caddr (assoc 10 (entget en1)))
         (- (caddr (assoc 10 (entget en2))) 1000))
      (< (cadr (assoc 10 (entget en1)))
         (cadr (assoc 10 (entget en2)))))
         T
         nil)
   ))))

(@:add-menu "工程管理" "自动编图号" "(@:set-tuhao (@:get-frames))")
(defun @:set-tuhao (ss-list / num1 start )
(setq start (getint "请输入图纸起始编号<1>:"))
(if (null start) (setq start 1))
(setq num1 0)
;;(print (length ss-list))
(foreach en0 ss-list
   (block:set-attributes
      en0
      (list (cons "图号"
      (strcat (if (@:get-tubie (block:get-attributes en0))
            (strcat (@:get-tubie (block:get-attributes en0))
            "-")
            "")
      (if (< (+ num1 start) 10) "0" "")
      (itoa (+ num1 start))))))
   (setq num1 (1+ num1))
   ))



vitalgg 发表于 2020-12-29 12:40:03

paulpipi 发表于 2020-12-29 09:49
程序吗？等待分享

到 atlisp.cn 下载安装就有了，@lisp 是管理 lisp 程序的程序。方便用户安装 升级，及管理自己的程序加载库。

有新版本时 一个命令 @U 搞定升级.

不用你一个个的到网上搜索下载安装了。

vitalgg 发表于 2021-1-7 16:58:45

kdanqu 发表于 2021-1-7 16:42
命令是啥啊？看不懂！！

菜单命令 “自动编图号”
命令行的话输入 (@:set-tuhao (@:get-frames))

就是把图框里的图号按从左到右，从上到下，按顺序排一下。如果你加了一张图，不用再逐个改图号了，一个命令就排好了。 需要安装@lisp, 访问 atlisp.cn 下载

vitalgg 发表于 2022-4-12 09:25:41

cowboy110 发表于 2022-4-12 08:34
加载提示
文件中有不正确的快速加载格式: "C:/Users/admin/@lisp/packages/vitaltools/vitaltools-whole.F ...

@r然后输入 vitaltools。
去除这个应用。

这是一个老版本的工程管理。新版本名称改为 at-pm 了

paulpipi 发表于 2020-12-29 09:49:59

程序吗？等待分享

lxl217114 发表于 2020-12-29 10:26:56

这个有点意思，有图纸集内味了

菜卷鱼 发表于 2021-1-4 08:33:32

vitalgg 发表于 2020-12-29 12:40
到 atlisp.cn 下载安装就有了，@lisp 是管理 lisp 程序的程序。方便用户安装 升级，及管理自己的程序加载 ...

发广告交广告费了吗？

429014673 发表于 2021-1-4 09:12:25

楼主没看版规，原则上没程序源码只有广告是不能发这个版的

hnzkhyyl 发表于 2021-1-4 09:28:04

楼主发个图片是几个意思？？？

vitalgg 发表于 2021-1-4 10:04:35

429014673 发表于 2021-1-4 09:12
楼主没看版规，原则上没程序源码只有广告是不能发这个版的

那就发一段源码。 附件传不上去啊。

czb203 发表于 2021-1-4 19:31:20

这个有点意思，有图纸集内味了

kdanqu 发表于 2021-1-7 16:42:32

命令是啥啊？看不懂！！
页: [1] 2
查看完整版本: @lisp: 动态图框 新增图纸自动编号功能。