第二次发贴，逛到有人求助属性块递增

you_zy

今天逛明经，发现有人求助属性块递增的插件，手痒临时写了一个
可以支持连续复制属性块时，对数值的递增、递减和不变处理
第二次发贴，同样不收币

xj6019

you_zy 发表于 2020-4-16 16:12
不是重新写块，是复制的前一个块，只是改了属性而已
预览的功能要高端一点，还没写过，有空了研究一下

可以不预览，但是可不可以，新的能有个同向的约束，其实最简单就是用复制命令嘛，打开正交就可以保持同向了，我主要想复制出来的新的，能和原来的保持方向的一致性，不要复制后位置不统一，还得用其他对齐工具，就麻烦了。


你好不好研究一下我那个代码，把你的功能整合进去啊，如果能整合进去，那就太完美了。
那个递增的已经非常完美了，基本考虑了各种情况了，也能批量递增，我用的是老得劲了。
就想着能来个大佬，给优化整合一下。你这代码，看看拼到那个里面吧，谢谢了

xj6019

you_zy 发表于 2020-4-16 14:24
是不是没有用我发的示例图块呢？我试了是可以的啊

(PutAttrib newBlock (list (list "TAG" (itoa num))));给新块赋新值，默认该属性的标记为"TAG"
您一点才明白，我开始以为是通用的，没往这方面想，把这个TAG改成自己的属性名称就可以用了。

但是还是刚才的一个问题，可以不要重新写块吗，直接用复制的命令可以不，能使新递增出来的和原始块保持统一的方向。
还一点，希望可以新块随鼠标预览，就是能跟谁光标移动，并能看出下一个放置的号是多少，这样更直观一些。

xj6019

      很好，很好，可以了，我还是有点最初的奢望，可否把你的函数整合到我那个递增代码里面呀，就麻烦您帮弄一下吧，功能都有了应该可以整合吧，我代码水平还不怎么样，还做不了这个整合工作。
      提一个思路您看看，主函数用您的，增加个判断条件，如果是普通文字（单行/多行）就执行那个代码，如果是属性块就执行当前代码
(defun C:TT ()
if 文字
（C:CFF）
if属性块
（当前代码）

整合后代码回复到那个帖子里，我直接把50个币，付给你。您看可以吗，谢谢！

hf423

今天走运了，谢谢分享~~~~

xj6019

谢谢你的热心，不过好像不行呢，不知道为啥，递增递减暂停都无效呀，你这个是读取选取的数值，然后重新写块吧，这样就不能用正交，让复制的所有的都保持同一方向了是吧。
你再看看代码，确认一下，我试了试，确实没反应

e2002

居然还看到了日文版用户...

xj6019

e2002 发表于 2020-4-16 12:42
居然还看到了日文版用户...

版主好眼力，确实日文版

start4444

xj6019 发表于 2020-4-16 12:47
版主好眼力，确实日文版

你是在日企上班的吗？

start4444

xj6019 发表于 2020-4-16 12:47
版主好眼力，确实日文版

你是在日企上班的吗？

Sonnenblumen

感谢您的分享，测试了可以复制，但是不能递增递减，求楼主优化，希望楼主能实现数字、字母都能递增递减

you_zy

xj6019 发表于 2020-4-16 11:53
谢谢你的热心，不过好像不行呢，不知道为啥，递增递减暂停都无效呀，你这个是读取选取的数值，然后重新写块 ...

我程序里面用的是我发的示例图块哦，应该是你用的属性块标签和程序里面的不一样吧，我试了是可以的啊

you_zy

Sonnenblumen 发表于 2020-4-16 14:03
感谢您的分享，测试了可以复制，但是不能递增递减，求楼主优化，希望楼主能实现数字、字母都能递增递减

是不是没有用我发的示例图块呢？我试了是可以的啊