[求助]：想标出1a,1b,1c……1z这样的序号，不知有没有办法？

ywx0576

想标出1a,1b,1c……1z这样的序号，不知有没有办法？

jinsa_888

好像办不到

lsjjm

最初由 ywx0576 发布
[B]想标出1a,1b,1c……1z这样的序号，不知有没有办法？ [/B]

不知你的其他条件和要求是什么? 请参考这个:
(defun c:test ()
  (if inum nil (setq inum "1a"))
  (setq s (getvar "dimscale"))
  (while inum
    (setq pe (getpoint "\nPick End Point"))
    (vl-cmdf "circle" pe (* s 0.32))
    (vl-cmdf "text" "j" "m" pe (* s 1.5 0.18) 0 inum "")
    (setq inum (strcat (substr inum 1 1)(chr (1+ (ascii (substr inum 2 1))))))
  )
)

coolzhb

我的文字修改大师中的自动编号可以！

ywx0576

谢谢3楼楼主sjjm的帮忙，我想要的效果是给已经存在的多个文字如“1,1，1……”加上前缀或后缀，前缀或后缀分别为a,b,c,d……,x,y,z，最后得到“1a,1b,1c,1d……,1x,1y,1z”或“a1,b1,c1,d1……,x1,y1,z1”。
4楼楼主coolzhb 说的文字修改大师中的自动编号，我试过了，只能编数字的序号a1，a2，a3……，而不能编字母的序号1a,1b,1c,1d……。

lsjjm

最初由 ywx0576 发布
[B]谢谢3楼楼主sjjm的帮忙，我想要的效果是给已经存在的多个文字如“1,1，1……”加上前缀或后缀...[/B]

编程最怕已知条件不完全. 那么多,1,1,1... 你是一个个的点击来决定顺序呢? 还是按什么规律? 哪个要求前缀? 哪个后?

coolzhb

最初由 ywx0576 发布
[B]谢谢3楼楼主sjjm的帮忙，我想要的效果是给已经存在的多个文字如“1,1，1……”加上前缀或后缀，前缀或后缀分别为a,b,c,d……,x,y,z，最后得到“1a,1b,1c,1d……,1x,1y,1z”或“a1,b1,c1,d1……,x1,y1,z1”。
4楼楼?.. [/B]

程序升级了，现在可以了！

ywx0576

谢谢文字修改大师9.1帮我解决了这个难题。如果能对多行文字mtext、属性、标注实现“自动编号”那就更好了。同样文字修改大师的其他命令对多行文字mtext、属性、标注也不支持，希望 coolzhb 考虑一下。

coolzhb

最初由 ywx0576 发布
[B]谢谢文字修改大师9.1帮我解决了这个难题。如果能对多行文字mtext、属性、标注实现“自动编号”那就更好了。同样文字修改大师的其他命令对多行文字mtext、属性、标注也不支持，希望 coolzhb 考虑一下。 [/B]

一直在考虑，但程序已经成形，再改工作量很大，最近工作特别忙，估计大家还得等一段时间，以后这个肯定是我追求的目标！