修改批量改页码插件

qazxswk · 发表于 2022-5-13 11:36:18

本帖最后由 qazxswk 于 2022-5-13 12:11 编辑

   下面附件，是LLXXZZ大神写的批量改页码的插件，很好用。但是，在选择属性块时，必须要点到页码的位置，似乎有点点不太顺手。因为属性块中，可能有多个标记，如图名、图纸比例、序号、图号等等，一不小心会点错。
   我想各位大神，能不能修改一下，就是能点取属性块的任一位置，然后自动读取页码标记并修改页码。

其点取属性块的代码如下：

  (if (progn
         (setq EP1 (entsel "点取属性块中页码的位置:\n"))
         (setq EG1 (cdr (assoc 0 (entget (car EP1)))))
         (if (= EG1 "INSERT")
            (progn (setq EG2 (car (nentselp (cadr EP1))))
               (if (= (cdr (assoc 0 (entget EG2))) "ATTRIB")
                     (setq blktag (cdr (assoc 2 (entget EG2)))) ;标记
               )
               (setq EP1st (entget (car EP1)))
               (setq blkname (assoc 2 EP1st))
            )
      )
      )
      (princ (strcat " 块名为-->" (cdr blkname) " 标记为-->" blktag "\n"))
      (progn(princ "  必须选择属性块!")(exit))
      )

插件原地址 http://bbs.mjtd.com/forum.php?mo ... hlight=%D2%B3%C2%EB

vectra · 发表于 2022-5-13 11:36:19

本帖最后由 vectra 于 2022-5-13 15:12 编辑

屏蔽点取属性块的代码，并增加如下代码，块名和标签名按实际需要修改。

(setq blkname "A$C366b6fde"
blktag "图号"
)

这样可以省去前面选择属性的步骤。

另外选择块那行代码

(princ ">>选择对象...")
(setq ss (ssget (cons blkname slist)))

似乎要修改成下面这样才能正常运行。

(princ ">>选择对象...")
(setq ss (ssget (list '(0 . "INSERT") (cons 2 blkname))))

此外rtos函数全改成itoa才合理

qazxswk · 发表于 2022-5-13 19:41:27

vectra 发表于 2022-5-13 15:08
屏蔽点取属性块的代码，并增加如下代码，块名和标签名按实际需要修改。

用你的方式，已经解决了我的问题，而且还不用事先去点属性块，这样更省事。设置好前缀，直接框选就可以了。原来的作者可能考虑到插件的通用性，所以先要获取块名与标记。我反正是自己用，有图号的块就固定那一两个。我也把这个代码成功加上一个对话框了。现在使用体验性很好。谢谢你了。

ZJKUSO · 发表于 2022-5-20 15:03:19

本帖最后由 ZJKUSO 于 2022-5-22 21:43 编辑

vectra 发表于 2022-5-13 11:36
屏蔽点取属性块的代码，并增加如下代码，块名和标签名按实际需要修改。

可以增加后缀吗？

我已经自己修改，把后缀加进去了，花了半天时间，搞这个有时候会上瘾，会的人几分钟就搞好了，想专业的还是要系统学习一下

vitalgg · 发表于 2022-5-20 15:47:45

本帖最后由 vitalgg 于 2022-5-20 15:49 编辑

ZJKUSO 发表于 2022-5-20 15:03
可以增加后缀吗？

https://atlisp.cn/package-info/at-block-stable.html

如果无法播放，请点击此处在新窗口打开

https://atlisp.cn/package-info/at-pm-stable.html

ZJKUSO · 发表于 2022-5-20 15:49:28

vitalgg 发表于 2022-5-20 15:47
https://atlisp.cn/package-info/at-block-stable.html

https://atlisp.cn/package-info/at-pm-stable ...

谢谢，之前用过了，功能很丰富，我想找个离线的编号就好

账号		自动登录	找回密码
密码			注册

[讨论] 修改批量改页码插件

最佳答案

本帖子中包含更多资源