如何修改带属性块中的属性呢

yuhaibotao

现在有个块，块里面有3个（或更多）属性，属性标记及值分别为：1， 1；2 ， 1；3，  10  
高手能否写个lisp程序是实现以下功能：
复制这个块后，块里面的所有属性值自动增加x，这个x值可以通过键盘给定。
如输入这个命令后，
cad要求选择对象
选择完对象后，要求输入增加的数字，例如3
点确认后，要求选择复制基点
然后点击另外一处，将此块复制到那里
块中属性值自动变成：4；4；13

望高手赐教！！！！
谢谢