Change rectangular array Number of Columns and Rows

[handasa]

Hello Everyone

How can i change A rectangular array properties such as Number of Columns , Rows , Column Spacing and row spacing through without using the (command "_arrayedit") method

thanks in advance

 

Edited October 3, 2020 by handasa

[Roy_043]

This topic may provide some clues:

https://www.cadtutor.net/forum/topic/64705-select-all-arrays-from-selection/

Edited October 3, 2020 by Roy_043

[handasa]

18 hours ago, Roy_043 said:

This topic may provide some clues:

https://www.cadtutor.net/forum/topic/64705-select-all-arrays-from-selection/

Thanks Roy.but this doesn't do what i want

[Roy_043]

If you examine the code in KGA_Sys_ArrayType, and look at the elst variable, you will find that its last content is quite interesting. I would say it is probably very useful for your task. Note that [uu] should be replaced by [uU] in the function.

(
  (-1 . <Entity name: 2bc69980>)
  (0 . "ACDBASSOCACTION")
  (5 . "8E")
  (330 . <Entity name: 2bc69140>)
  (100 . "AcDbAssocAction")
  (90 . 2)
  (90 . 0)
  (330 . <Entity name: 2bc69140>)
  (360 . <Entity name: 2bc690c0>)
  (90 . 1)
  (90 . 3)
  (90 . 3)
  (360 . <Entity name: 2bc69740>)
  (360 . <Entity name: 2bc69ac0>)
  (360 . <Entity name: 2bc697c0>)
  (90 . 0)
  (90 . 4)
  (360 . <Entity name: 2bc69580>)
  (360 . <Entity name: 2bc69600>)
  (360 . <Entity name: 2bc69480>)
  (360 . <Entity name: 2bc69180>)
  (90 . 0)
  (90 . 8)
  (90 . 0)
  (1 . "ItemSpacing")
  (90 . 1)
  (90 . 1)
  (40 . 179.081137259194)
  (90 . 0)
  (1 . "RowSpacing")
  (90 . 1)
  (90 . 1)
  (40 . 179.081137259194)
  (90 . 0)
  (1 . "LevelSpacing")
  (90 . 1)
  (90 . 1)
  (40 . 1.0)
  (90 . 0)
  (1 . "Items")
  (90 . 0)
  (90 . 1)
  (90 . 4)
  (90 . 0)
  (1 . "Rows")
  (90 . 0)
  (90 . 1)
  (90 . 3)
  (90 . 0)
  (1 . "Levels")
  (90 . 0)
  (90 . 1)
  (90 . 1)
  (90 . 0)
  (1 . "RowElevation")
  (90 . 1)
  (90 . 1)
  (40 . 0.0)
  (90 . 0)
  (1 . "AxesAngle")
  (90 . 2)
  (90 . 1)
  (40 . 1.5707963267949)
)

 

[handasa]

12 hours ago, Roy_043 said:

12 hours ago, Roy_043 said:

If you examine the code in KGA_Sys_ArrayType, and look at the elst variable, you will find that its last content is quite interesting. I would say it is probably very useful for your task. Note that [uu] should be replaced by [uU] in the function.

i used this code to edit the entity data got from entget

(defun c:chr ()
(setq itm (car (entsel "select Array")))
(setq cols (getint "Number of columns"))

(setq ed (entget itm))
(setq ed2 (entget (cdr (assoc 330 ed))))
(setq ed3 (entget (cdr (assoc 330 ed2))))
(setq xs (split ed3 (vl-position (cons 1 "Items") ed3)))
(setq ed3 (append (car xs) (replace_element 3 (cons 90 cols) (cadr xs))))

(entupd (cdr (assoc -1 (entmod ed3))))
)


(defun split (lst n / rslt)
(setq rslt (cons (sublst lst 1 n) rslt))
(if (setq xn (sublst lst (1+ n) (length lst))) (setq rslt (cons  xn rslt)))
(reverse rslt)
)

(defun replace_element (index newelement lst)
(subst newelement (nth index lst) lst)
)

but the entmod and entupd function don't seem to work to update and reflect changes on the screen

[Roy_043]

It seems you are right. I use BricsCAD, but there it also seems impossible to entmod a parametric array. I did not know that. It could also be that we need to change other entities as well.

 

Note that your replace_element function is flawed. And you have not provide the sublst function. But in my test I have not used your code.

 

I would also strongly advise against un-indented code. I know that a certain frequent poster has adopted this as his personal style, but at the end of the day it is just bad practice.

Edited October 5, 2020 by Roy_043

[handasa]

3 hours ago, Roy_043 said:

It seems you are right. I use BricsCAD, but there it also seems impossible to entmod a parametric array. I did not know that. It could also be that we need to change other entities as well.

the lisp change the number of rows and columns successfully in the properties palette.but it doesn't reflect the changes graphically unless i change them manually

Edited October 5, 2020 by handasa

[BIGAL]

Not sure about this but it may be the enties are stored as individual in a array rather than a simple row column factor so if went to 4 rather than 3 need to add entities.

 

(90 . 3) 3 rows ?
  (360 . <Entity name: 2bc69740>)
  (360 . <Entity name: 2bc69ac0>)
  (360 . <Entity name: 2bc697c0>)

new entity here.

 

You can get all the values as per the code above the only answer may be use -arrayedit.

Edited October 5, 2020 by BIGAL