Topic: 3d array code error

[dussla]

hi
friend

always thank you for good answer
i made short lisp
but there is problem
can you check pls ?


( defun c:test(   /  )
      
   (setq ss (ssget ))
   
   
   (setq per (getint "\number :"))
   (setq  newss (ssadd))
   (setq index 0)
   (repeat (sslength ss)
             (setq ent1 (ssname ss index))
              (command "3darray" ent1 "" "r"  1 1  per   500  "" )
      
          
              (setq index (+ index 1 ))
   )
   
   )
   

[alanjt]

It's a Lisp routine, so you can't call it with command.

This is janky, but it will work...

Code: [Select]

(defun c:Test (/ num)
  (and (setq ss (ssget "_:L"))
       (setq num (getint "\nNumber: "))
       (vla-sendcommand
         (vla-get-activedocument (vlax-get-acad-object))
         (strcat "(r-array) 1 1 "
                 (vl-princ-to-string num)
                 " 500 "
         ) ;_ strcat
       ) ;_ vla-sendcommand
  ) ;_ and
  (princ)
) ;_ defun

You might want to add a (load "3darray.lsp" nil)

[Lee Mac]

It's a Lisp routine, so you can't call it with command.

This is janky, but it will work...

Code: [Select]

(defun c:Test (/ num)
  (and (setq ss (ssget "_:L"))
       (setq num (getint "\nNumber: "))
       (vla-sendcommand
         (vla-get-activedocument (vlax-get-acad-object))
         (strcat "(r-array) 1 1 "
                 (vl-princ-to-string num)
                 " 500 "
         ) ;_ strcat
       ) ;_ vla-sendcommand
  ) ;_ and
  (princ)
) ;_ defun

You might want to add a (load "3darray.lsp" nil)

I see you getting hooked on that sendcommand.... 

[alanjt]

Only when it applies to the situation. I've only used it a couple time myself and only when I needed a way to paste a value to the command line for transparent calculations.

This was just a solution to avoid reinventing the wheel.

It's a Lisp routine, so you can't call it with command.

This is janky, but it will work...

Code: [Select]

(defun c:Test (/ num)
  (and (setq ss (ssget "_:L"))
       (setq num (getint "\nNumber: "))
       (vla-sendcommand
         (vla-get-activedocument (vlax-get-acad-object))
         (strcat "(r-array) 1 1 "
                 (vl-princ-to-string num)
                 " 500 "
         ) ;_ strcat
       ) ;_ vla-sendcommand
  ) ;_ and
  (princ)
) ;_ defun

You might want to add a (load "3darray.lsp" nil)

I see you getting hooked on that sendcommand.... 

[dussla]

thank you  alanjt

i need more hep ~~

this part 

  (repeat (sslength ss)

(setq ent1 (ssname ss index))
              ( command "extrude"  ent1  100 )
              (setq ent2 (entlast)
              (command "3darray" ent2 "" "r"  1 1  per   500  "" )

 (setq index (+ index 1 ))
   )


i have to make this code
but some difficult to me ~
can you help me again pls

[alanjt]

Code: [Select]

(defun c:Test (/ ss1 num)
  (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
  (and (setq ss1 (ssget "_:L"))
       (setq num (getint "\nNumber: "))
       (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))
         (vl-cmdf "_.extrude" x "" 100)
         (setq ss nil)
         (setq ss (ssadd (entlast)))
         (vla-sendcommand
           *AcadDoc*
           (strcat "(r-array) 1 1 "
                   (vl-princ-to-string num)
                   " 500 "
           ) ;_ strcat
         ) ;_ vla-sendcommand
       ) ;_ foreach
  ) ;_ and
  (princ)
) ;_ defun

This is getting worse by the minute. 

[fixo]

thank you  alanjt

i need more hep ~~

this part 

  (repeat (sslength ss)

(setq ent1 (ssname ss index))
              ( command "extrude"  ent1  100 )
              (setq ent2 (entlast)
              (command "3darray" ent2 "" "r"  1 1  per   500  "" )

 (setq index (+ index 1 ))
   )


i have to make this code
but some difficult to me ~
can you help me again pls

Try this one instead
Guess you want to get a number of newly created object
in 3d array

Code: [Select]

(defun c:test(/ acsp adoc objs obj_list per pfs)
  (setq adoc (vla-get-activedocument
     (vlax-get-acad-object)
     )
      acsp (vla-get-block
     (vla-get-activelayout adoc))
      )
  (setq per (getint "\n   Number of levels: "))
 
  (setq pfs (vla-get-pickfirstselectionset adoc))
  (vlax-invoke-method pfs 'Clear)
  (vla-selectonscreen pfs)

  (vlax-for obj pfs
   (setq objs  (vla-arrayrectangular obj
1 ;number of rows
1 ;number of columns
per;number of levels
0 ;distance between rows
0;distance between columns
500;distance between levels
)
objs (vlax-safearray->list (vlax-variant-value objs))
;; collect objects :
obj_list (append objs obj_list)
;; add parent object :
obj_list (append (list obj) obj_list);<-- comment this if you no need to add a parent object
)
   )
  (alert (strcat "Total objects in all arrays: " (itoa (length obj_list))))
  (princ)
  )
(vl-load-com)

~'J'~

[dussla]

alja    thank you  help
but ther is problem 
can you see attached file ?
that code don't work   well   when i select many objects




fixo :
your code is good also
1.can you add extrude code  pls .
2.  can i use    (setq ss1 (ssget "_:L"))      instead  (setq pfs (vla-get-pickfirstselectionset adoc))    ?

[alanjt]

Well sure, if you want to do it the right way. 

thank you  alanjt

i need more hep ~~

this part 

  (repeat (sslength ss)

(setq ent1 (ssname ss index))
              ( command "extrude"  ent1  100 )
              (setq ent2 (entlast)
              (command "3darray" ent2 "" "r"  1 1  per   500  "" )

 (setq index (+ index 1 ))
   )


i have to make this code
but some difficult to me ~
can you help me again pls

Try this one instead
Guess you want to get a number of newly created object
in 3d array

Code: [Select]

(defun c:test(/ acsp adoc objs obj_list per pfs)
  (setq adoc (vla-get-activedocument
     (vlax-get-acad-object)
     )
      acsp (vla-get-block
     (vla-get-activelayout adoc))
      )
  (setq per (getint "\n   Number of levels: "))
 
  (setq pfs (vla-get-pickfirstselectionset adoc))
  (vlax-invoke-method pfs 'Clear)
  (vla-selectonscreen pfs)

  (vlax-for obj pfs
   (setq objs  (vla-arrayrectangular obj
1 ;number of rows
1 ;number of columns
per;number of levels
0 ;distance between rows
0;distance between columns
500;distance between levels
)
objs (vlax-safearray->list (vlax-variant-value objs))
;; collect objects :
obj_list (append objs obj_list)
;; add parent object :
obj_list (append (list obj) obj_list);<-- comment this if you no need to add a parent object
)
   )
  (alert (strcat "Total objects in all arrays: " (itoa (length obj_list))))
  (princ)
  )
(vl-load-com)

~'J'~

[alanjt]

I figured you would have problems with it, but I didn't have time to dig in to rewriting the entire thing.
It appears Fixo is going in the right direction.

alja    thank you  help
but ther is problem 
can you see attached file ?
that code don't work   well   when i select many objects




fixo :
your code is good also
1.can you add extrude code  pls .
2.  can i use    (setq ss1 (ssget "_:L"))      instead  (setq pfs (vla-get-pickfirstselectionset adoc))    ?

[Lee Mac]

Nice method Fixo, but why:

Code: [Select]

  (setq pfs (vla-get-pickfirstselectionset adoc))
  (vlax-invoke-method pfs 'Clear)
  (vla-selectonscreen pfs)

Over:

Code: [Select]

(if (setq ss (ssget "_:L"))
  (vlax-for obj (setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
  ...


?

[alanjt]

Pants on right leg before left.

Nice method Fixo, but why:

Code: [Select]

  (setq pfs (vla-get-pickfirstselectionset adoc))
  (vlax-invoke-method pfs 'Clear)
  (vla-selectonscreen pfs)

Over:

Code: [Select]

(if (setq ss (ssget "_:L"))
  (vlax-for obj (setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
  ...


?

[fixo]

alja    thank you  help
but ther is problem 
can you see attached file ?
that code don't work   well   when i select many objects




fixo :
your code is good also
1.can you add extrude code  pls .
2.  can i use    (setq ss1 (ssget "_:L"))      instead  (setq pfs (vla-get-pickfirstselectionset adoc))    ?

Will be back in hour or less

~'J'~

[fixo]

alja    thank you  help
but ther is problem 
can you see attached file ?
that code don't work   well   when i select many objects




fixo :
your code is good also
1.can you add extrude code  pls .
2.  can i use    (setq ss1 (ssget "_:L"))      instead  (setq pfs (vla-get-pickfirstselectionset adoc))    ?

Here is quick edition

If you have more questions personally to me -
I will be busy entire next hour

Code: [Select]




(defun c:test(/ acsp adoc en obj objs obj_list per reg solid sset)
  (setq adoc (vla-get-activedocument
     (vlax-get-acad-object)
     )
      acsp (vla-get-block
     (vla-get-activelayout adoc))
      )
  (setq per (getint "\n   Number of levels: "))
 
  (setq sset (ssget "_:L" (list (cons 0 "LWPOLYLINE")(cons 70 1))))
  (while (setq en (ssname sset 0))
  (setq obj (vlax-ename->vla-object en))
  (setq reg (car
  (vlax-invoke acsp 'AddRegion (list obj)
  )
)
)

(setq solid (vla-addextrudedsolid acsp reg 100 0))
   (setq objs  (vla-arrayrectangular solid
1 ;number of rows
1 ;number of columns
per;number of levels
0 ;distance between rows
0;distance between columns
500;distance between levels
)
objs (vlax-safearray->list (vlax-variant-value objs))
;; collect objects :
obj_list (append objs obj_list)
;; add parent object :
obj_list (append (list obj) obj_list);<-- comment this if you no need to add a parent object
)
    (ssdel en sset)
   )
  (alert (strcat "Total objects in all arrays: " (itoa (length obj_list))))
  (princ)
  )
(vl-load-com)
~'J'~

[dussla]

thank you   very very very very much
code is very perpect
always thank you ~~~