[LISP程序]：LISP不容易额，对我来说老复杂额

easy7

最近有大量图要QAQC。。无奈。。帮帮我吧，顺便挑战下自己

1。整个图内搜索 BLOCK
如何区分BLOCK 和 XREF和 属性块
看了许多程序，都么有。。是用
SSGET "X" '((0 . "INSERT") ) 嘛？ 好像有人用VBA编的。看不太懂

2。在所有BLOCK中依次 编辑BLOCK。替换其中线型文字的图层。然后保存。依次[/COLOR] 。。

大家帮我想想。。先谢了

carrot1983

替换其中线型文字的图层，
在VLisp里面是可以做到修改带属性块的文字。
但如果是单纯的块的话，或是多重块的话。。。不知道去改。用nentsel，谁会用？？
来一个以前论坛上别人发的
[php]
(defun change-subobject-property (/ subentp subent ent lst oldlyr subentp2 newlyr)
  (setq subentp (nentsel "\nSelect the Subobject u wanna change:"))
  (if (and subentp (= 4 (length subentp)))
      (progn
        (setq subent (car subentp)
              ent (car (nth 3 subentp))
              lst (entget subent)
              oldlyr (assoc 8 lst))
        (setq subentp2 (nentsel "\nSelect the Object u wanna change to:"))
        (if subentp2
            (setq newlyr (assoc 8 (entget (car subentp2)))
                  lst (subst newlyr oldlyr lst)))
        (entmod lst)
        (entupd ent))
    (prompt "\nSelect a complex entity."))
  (princ))

[/php]

zml84

关于nentsel函数的解释见：http://okok.org/lisp/lisp173.htm