获取对象用arrayRECT阵列后的信息

菜卷鱼

1. (defun nthcdr (n lst)
   
2.   (repeat n
   
3.     (setq lst (cdr lst))
   
4.   )
   
5.   lst
   
6. )
   
7. (defun arrayinfo (obj / info lst)
   
8.   (setq info (entget (cdr (assoc 330 (entget (asscc 330 (entget obj)))))))
   
9.   (while (/= (car (car info)) 1)
   
10.     (setq info (cdr info))
    
11.   )
    
12.   (repeat 9
    
13.     (setq lst (cons (cons (cdr (nth 0 info)) (cdr (nth 3 info))) lst))
    
14.     (setq info (nthcdr 7 info))
    
15.   )
    
16.   lst
    
17. )

(defun nthcdr (n lst)<br />   (repeat n<br />     (setq lst (cdr lst))<br />   )<br />   lst<br /> )<br /> (defun arrayinfo (obj / info lst)<br />   (setq info (entget (cdr (assoc 330 (entget (asscc 330 (entget obj)))))))<br />   (while (/= (car (car info)) 1)<br />     (setq info (cdr info))<br />   )<br />   (repeat 9<br />     (setq lst (cons (cons (cdr (nth 0 info)) (cdr (nth 3 info))) lst))<br />     (setq info (nthcdr 7 info))<br />   )<br />   lst<br /> )

用arrayrect阵列对象之后，除了查看属性表，没有直接的api获得阵列信息
用法(arrayinfo obj)
返回(("Rows" . 3) ("RowSpacing" . 954.27) ("RowElevation" . 0.0) ("Levels" . 1) ("LevelSpacing" . 1.0) ("Items" . 4) ("ItemSpacing" . 1652.84) ("AxesAngle" . 1.5708) ("AlignItems" . 0))
注意：没有验证严谨性，不一定是正确的

liuhe

少函数吧  asscc

guosheyang

高版本也可用(dumpallproperties en) 在命令行显示中查询属性项
getpropertyvalue 获取属性     setpropertyvalue  设置属性