[LISP函数]：块属性提取编程（求助）

hustluo93

我现在正在编写一个快属性提取的程序，水平有限，用LISP的entnext命令提取。
但是当我的块属性改为固定值的时候就提取不上来了。怎么回事？
(defun test()
  (setq ss1 (ssadd))
  (setq ss1 (ssget))
  (setq en (ssname ss1 0)
        x (entget en))
  (setq a (entget (setq en (entnext en))))
  (setq b (entget (setq en (entnext en))))
  (setq c (entget (setq en (entnext en))))
  (setq d (entget (setq en (entnext en))))
;;;  (setq e (entget (setq en (entnext en))))
;;;  (setq f (entget (setq en (entnext en))))
  )
上面程序运行的对象是四个属性的块，其中一个是固定的块属性，怎么读上来的是三个?
第四个d就已经是(0 . "SEQEND")了。

求助：
1、有什么方法可以提取固定的块属性？
2、块中块的属性在编程的时候怎么提取?

LUCAS

(defun C:TEST (/ EN ENN)
  (setq EN (car (entsel "\n選屬性塊: ")))
  (setq ENN EN)
  (while (and (setq EN (entnext EN))
              (not (equal (cdr (assoc 0 (entget EN))) "SEQEND"))
         )
    (print (entget EN))
  )
  (TEST ENN)
  (princ)
)


(defun TEST (ENN / NAME)
  (setq NAME (cdr (assoc 2 (entget ENN))))
  (setq ENN (cdr (assoc -2 (tblsearch "block" NAME))))
  (while ENN
    (if        (or (= 2 (cdr (assoc 70 (entget ENN))))
            (= "ATTRIB" (cdr (assoc 0 (entget ENN))))
        )
      (print (entget ENN))
    )
    (if        (= "INSERT" (cdr (assoc 0 (entget ENN))))
      (TEST ENN)
    )
    (setq ENN (entnext ENN))
  )
  (princ)
)

leeyuan

龙版主的代码好像只是显示而已，没有修改哦

hustluo93

谢谢！我调试了可以用。正在理解！

lj154864041

这些代码对我有帮助

destnity

不放过任何一个感兴趣的小片段。学习学习再学习。积少成多。

angel_001

说的对，学习最重要！

chumo

学习下这东西了

abcabcxyz

很好的示例，谢谢分享

神秘将军

受教了，很有用。感谢。。。。

st788796

还可以这样写

1. (defun Insert:GetAttributes (obj)
   
2.   (if (= (vlax-get obj 'hasattributes) -1)
   
3.     (mapcar '(lambda (x)
   
4.                (list x
   
5.                      (vlax-get x 'Tagstring)
   
6.                      (vlax-get x 'Textstring)
   
7.                )
   
8.              )
   
9.             (vlax-invoke obj 'getattributes)
   
10.     )
    
11.   )
    
12. )

(defun Insert:GetAttributes (obj)<br />   (if (= (vlax-get obj 'hasattributes) -1)<br />     (mapcar '(lambda (x)<br />                (list x<br />                      (vlax-get x 'Tagstring)<br />                      (vlax-get x 'Textstring)<br />                )<br />              )<br />             (vlax-invoke obj 'getattributes)<br />     )<br />   )<br /> )

77077

leeyuan 发表于 2008-5-15 23:18
龙版主的代码好像只是显示而已，没有修改哦

修改需要另外的函数,楼主只是要提取函数~

zxc001975cvb

很好的东东，感谢分享！