Question

Lisp修改CASS扩展属性

哪们大神帮忙写一小段代码，来修改南方CASS界址线的属性

背景：要把所有界址线的扩展属性宗地号513401212200JC00348改为513401212201JC00348
选择具有扩展属性宗地号的代码如下：
;;获得闭合线选择集，必须带有扩展数据("SOUTH" (1000 . "300000"))。
(setq SS (ssget "x"
'((0 . "*LINE")
(-4 . "&=")
(70 . 1)
(-3 ("SOUTH" (1000 . "300000")))
)
)
)
具体要求如下：
选择所有界址线，修改扩展属性宗地号的一位，如200全部改为201，注意的是并不是把宗地号整个改为统一值

Answer 1

应该上传一幅示例图(*.dwg)以供测试

追问

只能传图片，不能传附件。我放在这里http://pan.baidu.com/s/1pQ8qy，帮忙哈，还可以给很多财富值

追答

用附件试试，加载后命令名为gqsbh。

追问

您传的附件在哪里，用hi百度发的链接吗

我试了一下，不行

l

你是把宗地号前面加了32443，我想要用户输入替换宗地号第几个数字为x,例如宗地号543212，用户输入2,31表示从第二个数开始替换为31即43变31，帮忙解决一下

追答

用附件试试，加载后命令名为gqsbh1。

追问

这个是怎么使用的哦。我输入gqsbh1，没有任何反应
什么时候输入起始序号及字符
加载后的提示是：按输入替换起始序号及字符(起始序号,字符) --> gqsbh1

追答

使用方法：加载gqsbh.vlx，在命令行中键入gqsbh1。

当图中没有找到符合要求的图元，它就什么也不做。

又改了一下，当没有找到时给出提示。

追问

好像可以了，可不可以把lisp或vba的源代码私信发给我学习一下，使我可以随机应变，万分感谢！！我还可以追加很多财富值……