Topic: LISP to access Block level outside of another block of a clicked entity?

[ctrlaltdel]

As per topic, I am looking for a LISP to do this:-

Block 1 (Outer most block)<<<<Block 2<<<<Block 3<<<<Block 4<<<<Block 5<<<<Block 6<<<<Block 7 (inner/deepest most block)

When run the lisp, cadder will click on an entity (which happens to be in Block 6) & the lisp will bring the cadder to Block 5 in the Block In-Place command.

Cheers

[ctrlaltdel]

This will best explain my requirement

Attached is a simplified drawing. All are blocks. The 4 square share the same block name but are nested in different block.

I need to
- get into the correct block level
- explode lower right square block
- move the lower right side square just below the upper right square
- delete the lower entity of the square as per in the photo
*All blocks still need to remain as per their original block integrity except 1 of the square block that was exploded

I have tried -refedit in the below drawing for at least 30 minutes but still unable to go to the right block level to do the above.

That is why I would be glad for a LISP that can get me straight into the correct block level.

Thanks

[Lee Mac]

Block 1 (Outer most block)<<<<Block 2<<<<Block 3<<<<Block 4<<<<Block 5<<<<Block 6<<<<Block 7 (inner/deepest most block)

When run the lisp, cadder will click on an entity (which happens to be in Block 6) & the lisp will bring the cadder to Block 5 in the Block In-Place command.

Perhaps something like this?

Code - Auto/Visual Lisp: [Select]

1. (defun c:myblockedit ( / lst )
2.     (if (setq lst (cadddr (nentsel)))
3.         (command "_.bedit" (cdr (assoc 2 (entget (cond ((cadr lst)) ((car lst)))))))
4.     )
5.     (princ)
6. )

[ctrlaltdel]

Block 1 (Outer most block)<<<<Block 2<<<<Block 3<<<<Block 4<<<<Block 5<<<<Block 6<<<<Block 7 (inner/deepest most block)

When run the lisp, cadder will click on an entity (which happens to be in Block 6) & the lisp will bring the cadder to Block 5 in the Block In-Place command.

Perhaps something like this?

Code - Auto/Visual Lisp: [Select]

1. (defun c:myblockedit ( / lst )
2.     (if (setq lst (cadddr (nentsel)))
3.         (command "_.bedit" (cdr (assoc 2 (entget (cond ((cadr lst)) ((car lst)))))))
4.     )
5.     (princ)
6. )

Thanks Lee Mac.

Yes & No.

Yes, it got into the correct block, But No, cause I need to be in the "Block in-place"/refedit mode cause I need to see All the other block as a reference for me.

I hope you know what I am getting at & have a solution?

Crossing Fingers.

[roy_043]

Maybe this:

Code: [Select]

(defun c:test ( / nentselLst nestLevel)
  (if
    (and
      (setq nentselLst (nentsel))
      (= 4 (length nentselLst))
      (<= 0 (setq nestLevel (- (length (cadddr nentselLst)) 2)))
    )
    (progn
      (setvar 'cmdecho 0)
      (command "_.-refedit" (list (last (cadddr nentselLst)) (cadr nentselLst)))
      (repeat nestLevel (command "_next"))
      (command "_ok" "_all" "_yes")
      (setvar 'cmdecho 1)
    )
  )
  (princ)
)

[ctrlaltdel]

Thanks roy_043.

Ran the LISP but an error occur

Command: test
Select object:
*Invalid selection*
Expects a single object.
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.
Select reference: *Cancel*
Command: *Cancel*

[roy_043]

The code works fine on BricsCAD. Because command calls are used it may need to be tweaked to run on AutoCAD. Since I do not have an AC license I cannot help with that.

[ctrlaltdel]

The code works fine on BricsCAD. Because command calls are used it may need to be tweaked to run on AutoCAD. Since I do not have an AC license I cannot help with that.

 

Regardless, still thousands thanks for the help roy_043

 

[ctrlaltdel]

Block 1 (Outer most block)<<<<Block 2<<<<Block 3<<<<Block 4<<<<Block 5<<<<Block 6<<<<Block 7 (inner/deepest most block)

When run the lisp, cadder will click on an entity (which happens to be in Block 6) & the lisp will bring the cadder to Block 5 in the Block In-Place command.

Perhaps something like this?

Code - Auto/Visual Lisp: [Select]

1. (defun c:myblockedit ( / lst )
2.     (if (setq lst (cadddr (nentsel)))
3.         (command "_.bedit" (cdr (assoc 2 (entget (cond ((cadr lst)) ((car lst)))))))
4.     )
5.     (princ)
6. )

Thanks Lee Mac.

Yes & No.

Yes, it got into the correct block, But No, cause I need to be in the "Block in-place"/refedit mode cause I need to see All the other block as a reference for me.

I hope you know what I am getting at & have a solution?

Crossing Fingers.

Lee Mac Sir, you have solution for LISP to enter "Block in-place"/refedit mode instead of bedit?

[ctrlaltdel]

I amended the code in this manner

Code: [Select]

    (defun c:myblockedit ( / lst )
        (if (setq lst (cadddr (nentsel)))
            (command "_.refedit" (cdr (assoc 2 (entget (cond ((cadr lst)) ((car lst)))))))
        )
        (princ)
    )But encounter this error after clicking the entity

Command: MYBLOCKEDIT

Select object: _.refedit
Select reference: 5 Reference not found

How to make it work correctly?

[danallen]

what is returned when you enter at command and select the block?

Code - Auto/Visual Lisp: [Select]

1. (nentsel)

[/code]

[ctrlaltdel]

what is returned when you enter at command and select the block?

Command: MYBLOCKEDIT

Select object: _.refedit
Select reference: 5 Reference not found
Select reference:    <<<<it went straight to a usual refedit command, cause when i click the same entity, the reference edit dialog box appear

[danallen]

I'll try again, what happens when you type (nentsel) and pick the block? This would tell you/us how many nested entities exist

Code - Auto/Visual Lisp: [Select]

1. (nentsel)

[ctrlaltdel]

I'll try again, what happens when you type (nentsel) and pick the block? This would tell you/us how many nested entities exist

Code - Auto/Visual Lisp: [Select]

1. (nentsel)

Command: (nentsel)

Select object: (<Entity name: 7ffffb163e0> (33695.0 17995.0 0.0) ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0) (5119.0 -5582.0 0.0)) (<Entity name: 7ffffb16470> <Entity name: 7ffffb164e0> <Entity name: 7ffffb165a0> <Entity name: 7ffffb165c0>))

Command:

Command: MYBLOCKEDIT

Select object: _.refedit
Select reference: 5 Reference not found.

Select reference:
Select reference: (nentsel)

Select object: (<Entity name: 7ffffb163e0> (33924.0 17992.0 0.0) ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0) (5119.0 -5582.0 0.0)) (<Entity name: 7ffffb16470> <Entity name: 7ffffb164e0> <Entity name: 7ffffb165a0> <Entity name: 7ffffb165c0>))
<Bad Entity name: FFB163E0>

[ctrlaltdel]

Hi dan allen.  Any further clues on how to get the lisp to get into "Block in-place"/refedit mode instead of bedit mode?