如何提取块中块列表，并对嵌套的子块进行处理????

挚友01

在不分解主块的前题下如何提取块中块列表，并对嵌套的子块进行处理????

newer

tblsearch 搜索块表指定块名
然后一直entnext,如果遇到INSERT，递归搜索

WhoCanSay

highflybird写了一个块变色，看了之后，块的一切处理就会了

挚友01

改造了一下，但没好使
(defun c:tt (/ e cc)
(setq cc 0)
(if (and (setq e (car (entsel "\n选择块:")))(= "INSERT" (cdr (assoc 0 (entget e)))))
(progn
   (cbc e)
   (entupd e)
) )
(princ)
)
; (entmod (subst (cons (car (assoc 8 (entget (entlast)))) "DX-DL")(assoc 8 (entget (entlast))) (entget (entlast))))
(defun cbc(e / b bb e c)
(setq cc (+ cc 1))   
(setq e (tblobjname "block" (cdr (assoc 2 (setq bb (entget e)))))
)
(entmod (subst (cons (car (assoc 2 bb)) "GY_DL")(assoc 2 bb) bb))
(entupd e)  更新后图块并没有什么变化???????????
(while (setq e (entnext e))
  (if (= "INSERT" (cdr (assoc 0 (setq el (entget e)))))
    (cbc e)
    (if (= "ATTDEF" (cdr (assoc 0 (setq el (entget e)))))
      (progn       
        (entmod (subst (cons (car (assoc 3 e1)) cc)(assoc 3 e1) e1))
        (entupd e)  更新后图块并没有什么变化???????????
    ) )
  )
)
)

st788796

不是什么组码都可以修改的
写的太随便了

挚友01

我就想修改块中的块，类似于将子块替换，属性值也没替换成啊，是(entupd  的事，如何修改，请高手指教一二,多谢！

st788796

挚友01 发表于 2016-6-12 23:23
我就想修改块中的块，类似于将子块替换，属性值也没替换成啊，是(entupd  的事，如何修改，请高手指教一二, ...

块中块的修改需要修改块定义，用vlax-for，先删除vla-delete旧的引用，然后vla-insertblock新的，最后regen

挚友01

我只会lisp,对vlisp不熟，帮助写段函数，要万分的感谢。。。

挚友01

主块的插入点和子块的(10 xx xx)是个什么对应关系？

st788796

块定义的原点始终是（0 0 0），块定义内部引用其它块定义和在模型空间插入块并无两样，插入嵌套块时插入点相对坐标和块定义内部一样的，当然有比例和旋转的需要进行变换

挚友01

((-1 . <图元名: 796f1c38>) (0 . "INSERT") (330 . <图元名:
796f16d8>) (5 . "28F") (100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 3) (100 .
"AcDbBlockReference") (2 . "JXT_1_1") (10 -1.44501e-006 -122.63 0.0) (41 . 1.0)
(42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210
0.0 0.0 1.0))


我是在(0 0 0)点插入的主块，其它的块都是正常定义的，怎么偏到很远的地方了？
defun block_SBTH_P(e / bb e c el)
(setq cc (+ cc 1))   
(setq e (tblobjname "block" (cdr (assoc 2 (setq bb (entget e))))))
(while (setq e (entnext e))
  (if (and (= "INSERT" (cdr (assoc 0 (setq bb (entget e)))))(= "JXT_1_1" (cdr (assoc 2 bb))))
    (progn
      (setq pnt (cdr (assoc 10 bb)))

(prin1 bb)(grdraw '(0 0) pnt 2)(getpoint)(redraw)

st788796

挚友01 发表于 2016-6-14 08:25
((-1 . ) (0 . "INSERT") (330 . ) (5 . "28F") (100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 3) (100 . ...

搞不懂你要做什么

挚友01

((-1 . <图元名: 796f1c38>) (0 . "INSERT") (330 . <图元名:
796f16d8>) (5 . "28F") (100 . "AcDbEntity") (67 . 0) (8 . "0") (62 . 3) (100 .
"AcDbBlockReference") (2 . "JXT_1_1") (10 -1.44501e-006 -122.63 0.0) (41 . 1.0)
(42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210
0.0 0.0 1.0))
子块的插入点并不是子块实际的插入的位置点，主块插入点为'(100 100) 主块大小为50x50(长x宽)
可子块返回的位置点为(10 -1.44501e-006 -122.63 0.0),怎么理解??(所有建块都是块中心点,包括子块的建立)

tanjurun

你的嵌套块问题解决了没有？