这个块是不是"肿瘤"呀，没法下手

龙龙仔

(entget
  (entnext
    (cdr
      (assoc -2
      (tblsearch "block"
   (cdr (assoc 2 (entget (ssname (ssget) 0))))
      )
      )
    )
  )
)

龙龙仔

你的程序是查屬性定義(attdef),组码1的預設值=空

你要改查圖塊參考中的屬性(attrib)才行

指令: (SETQ A (CAR(ENTSEL)))

選取物件: <圖元名稱: 7edc0010>

指令: (SETQ A1(ENTNEXT A))
<圖元名稱: 7edc0050>

指令: (ENTGET A1)
((-1 . <圖元名稱: 7edc0050>) (0 . "ATTRIB") (330 . <圖元名稱: 7edc0010>) (5 . "82")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10
3.55895e+008 5.49317e+008 0.0) (40 . 1500.0) (1 . "Y=355912.844") (50 . 0.0)
(41 . 0.8) (51 . 0.0) (7 . "_DIMFONT") (71 . 0) (72 . 4) (11 3.55901e+008
5.49318e+008 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "X=") (70 . 0)
(73 . 0) (74 . 0) (280 . 0))

jxlsp

版主就是版主,

jxlsp

(setq a (entget (entnext (entnext (car (entsel))))))

OK

龙龙仔

;;By LUCAS
(defun C:READATTRIB (/ TMP M2)
  (setq TMP (entsel "\n選取帶屬性圖塊: "))
  (if (and (/= TMP NIL)
    (setq TMP (vlax-ename->vla-object (car TMP)))
    (= (vla-get-objectname TMP) "AcDbBlockReference")
    (= (vla-get-hasattributes TMP) :vlax-true)
      )
    (foreach M2 (vlax-safearray->list
    (vlax-variant-value
      (vla-getattributes TMP)
    )
  )
      (print (vla-get-textstring M2))
    )
    (prompt "\n所選物件不帶屬性")
  )
  (princ)
)

(entmake (list '(0 . "TEXT")
        '(10 0.0 0.0 0.0)
        '(40 . 5)
        '(1 . "SDFSD")
  )
)