(entget (car (entsel)))小疑惑求解

brbright

dingtiedt 发表于 2015-7-23 17:23
现在想要修改多重引线里第二个10的组码值，如果是第一个10或最后一个10，用subst或cons，能替换修改，但是 ...

用笨方法。标记你要修改的列表元素序号，再修改相应序号的元素即可。
下面是将l列表中第n个元素变为a的代码。
;;---------------------=={ Subst Nth }==----------------------;;
;;                                                            ;;
;;  Substitutes an item at the nth position in a list.        ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright  2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  a - item to substitute                                    ;;
;;  n - position in list to make the substitution             ;;
;;  l - list in which to make the substitution                ;;
;;------------------------------------------------------------;;
;;  Returns:  Resultant list following the substitution       ;;
;;------------------------------------------------------------;;

(defun LM:SubstNth ( a n l / i )
    (setq i -1)
    (mapcar '(lambda ( x ) (if (= (setq i (1+ i)) n) a x)) l)
)

dingtiedt

brbright 发表于 2015-7-27 16:58
用笨方法。标记你要修改的列表元素序号，再修改相应序号的元素即可。
下面是将l列表中第n个元素变为a的代 ...

谢谢你的解答，刚开始的时候也用类似的方法，最基础的那种，nth，但测试时，有时成功，有时不成功，检查才发现，图元的dxf列表的数量有的时候不一样多，按序查找就不行了。现在用的是while查询，就是步骤多一点。再次谢谢你！