Jump to content

How to edit anonymous blocks?


Siberian

Recommended Posts

I'm trying to edit a view-block for a multi-view part. But when looking at the different views in the multi-view part style dialog the view-blocks are all named U345 or some other number. This name can't be found in the list of blocks in the drawing, and so I'm not able to edit it. I've googled that blocks with this sort of name are called "anonymous blocks", but I still have no idea what to do about it to enable me to edit them....any ideas?

Link to comment
Share on other sites

Can you attach a copy of one of the blocks to your next post?

 

*U### uniformly scaled blocks can be exploded with the EXPLODE command.

Edited by ReMark
Link to comment
Share on other sites

I just tried What you are looking to do. I tried it with stock content and custom content. I was able to edit the view blocks that I tried, so I am not sure why it is not working for you?

 

In the edit style dialog box, I looked for the different view blocks that were used by the part. They all started with the part name and ended with Uxxx view block name. I left that dialog box and typed BE to open the block editor. I chose the view block I wanted to edit from the list, and had no problem editing it.

 

For the two MVparts I tried, I could not find the name of the top view block for plan view. I used the name of the view block for two line. I block edit that block by drawing an x across it, and saved it. It was not evident that I changed anything until I selected it and in the display tab of the properties pallet, changed it back and forth to "By object". It took to the update. it would not do that with a regen. Sometimes that happens with regular blocks where you have to switch it out with another block and back to notice a change. I have noticed that with Tags that use MVBlocks.

 

I tried it with other top view blocks and the X only showed up when I did it to the two line block as above. The X also showed up without manipulation of the properties pallet when I changed the display rep to MEP two line.

 

So the only thing I see as being weird is that the MVPart has no block listed as being the top view block for plan View in the edit style Dialog box, and I had to try several before it made a change.

Link to comment
Share on other sites

Can you attach a copy of one of the blocks to your next post?

 

*U### uniformly scaled blocks can be exploded with the EXPLODE command.

 

These are screens of two different parts where one is OK, and the other is as I described.

I have no idea why one behaves differently from the other...

You see the part name at the top - they are both out of the box parts.

 

Pic2.PNG

Pic1.PNG

Link to comment
Share on other sites

  • 2 years later...
I'm trying to edit a view-block for a multi-view part. But when looking at the different views in the multi-view part style dialog the view-blocks are all named U345 or some other number. This name can't be found in the list of blocks in the drawing, and so I'm not able to edit it. I've googled that blocks with this sort of name are called "anonymous blocks", but I still have no idea what to do about it to enable me to edit them....any ideas?

 

I have collect a lisp.


;=============================================== 
;    UnAnon.Lsp                                   Jul 05, 1998 
;====================================== 
(princ "\nCopyright © 1998, Fabricated Designs, Inc.")
(princ "\nLoading UnAnon v1.0 ")
(setq uan_     nil
     lsp_file "UnAnon"
)

; ================== For Automated Calling From Another Program
; =========
(defun uan_auto (ar1) (UnAnon ar1))

; ================== Macros
; =============================================
(defun PDot () (princ "."))

(PDot)
; ++++++++++++ Set Modes & Error
; ++++++++++++++++++++++++++++++++++
(defun uan_smd ()
 (SetUndo)
 (setq	olderr	*error*
*error*	(lambda	(e)
	  (and (/= e "quit / exit abort")
	       (princ (strcat "\nError: *** " e " *** "))
	  )
	  (command "_.UNDO" "_END" "_.U")
	  (uan_rmd)
	)
uan_var	'(
	  ("CMDECHO" . 0)
	  ("MENUECHO" . 0)
	  ("MENUCTL" . 0)
	  ("MACROTRACE" . 0)
	  ("OSMODE" . 0)
	  ("SORTENTS" . 119)
	  ("MODEMACRO" . ".")
	  ("BLIPMODE" . 0)
	  ("EXPERT" . 0)
	  ("SNAPMODE" . 1)
	  ("PLINEWID" . 0.0)
	  ("ORTHOMODE" . 1)
	  ("GRIDMODE" . 0)
	  ("ELEVATION" . 0)
	  ("THICKNESS" . 0)
	  ("FILEDIA" . 0)
	  ("FILLMODE" . 0)
	  ("SPLFRAME" . 0)
	  ("UNITMODE" . 0)
	  ("TEXTEVAL" . 0)
	  ("ATTDIA" . 0)
	  ("AFLAGS" . 0)
	  ("ATTREQ" . 1)
	  ("ATTMODE" . 1)
	  ("UCSICON" . 1)
	  ("HIGHLIGHT" . 1)
	  ("REGENMODE" . 1)
	  ("COORDS" . 2)
	  ("DRAGMODE" . 2)
	  ("DIMZIN" . 1)
	  ("PDMODE" . 0)
	  ("CECOLOR" . "BYLAYER")
	  ("CELTYPE" . "BYLAYER")
	 )
 )
 (foreach v uan_var
   (setq m_v (cons (getvar (car v)) m_v)
  m_n (cons (car v) m_n)
   )
   (setvar (car v) (cdr v))
 )
 (princ (strcat (getvar "PLATFORM")
	 " Release "
	 (substr (ver) 18 2)
	 " -  Convert To Anonymous Blocks ....\n"
 )
 )
 (princ)
)

(PDot)
; ++++++++++++ Return Modes & Error
; +++++++++++++++++++++++++++++++
(defun uan_rmd ()
 (setq *error* olderr)
 (mapcar 'setvar m_n m_v)
 (command "_.UNDO" "_END")
 (prin1)
)

(PDot)
; ++++++++++++ Set And Start An Undo Group
; ++++++++++++++++++++++++
(defun SetUndo ()
 (and (zerop (getvar "UNDOCTL"))
      (command "_.UNDO" "_ALL")
 )
 (and (= (logand (getvar "UNDOCTL") 2) 2)
      (command "_.UNDO" "_CONTROL" "_ALL")
 )
 (and (= (logand (getvar "UNDOCTL")  8)
      (command "_.UNDO" "_END")
 )
 (command "_.UNDO" "_GROUP")
)

(PDot)
; ++++++++++++ Get Entity Name
; ++++++++++++++++++++++++++++++++++++
(defun GetOne (/ st os)
 (setq	os (getvar "SNAPMODE")
s  nil
 )
 (setvar "SNAPMODE" 0)
 (while (not st)
   (setq st (ssget))
 )
 (while (> (sslength st) 1)
   (setq st nil)
   (princ "\nOnly 1 At A Time Please\n")
   (while (not st)
     (setq st (ssget))
   )
 )
 (setvar "SNAPMODE" os)
 (setq s (ssname st 0))
)

(PDot)
; ++++++++++++ Convert An Anonymous Block To Named Block
; ++++++++++
(defun UnAnon (b / tdef en ed bc bn bd in) ;Supply ename 
 (setq	bn "TEMP1"
bc 1
 )
 (while (tblsearch "BLOCK" bn)
   (setq bc (1+ bc)
  bn (strcat "TEMP" (itoa bc))
   )
 )
 (and (= (type B) 'ENAME)
      (setq bd	(entget B)
     in	(cdr (assoc 2 bd))
      )
 )
 (if (or (not bd)
  (not in)
  (/= "INSERT" (cdr (assoc 0 bd)))
  (/= "*U" (substr in 1 2))
  (= (logand (cdr (assoc 70 (tblsearch "BLOCK" in))) 4) 4)
  (= (logand (cdr (assoc 70 (tblsearch "BLOCK" in))) 16) 16)
  (= (logand (cdr (assoc 70 (tblsearch "BLOCK" in))) 32) 32)
     )
   (progn
     (princ "*** Not An Anonomymous Block *** ")
     (setq bn nil
    bc nil
    bd nil
    in nil
    b  nil
     )
     (exit)
   )
 )
 (setq	tdef (tblsearch "BLOCK" in)
en   (cdr (assoc -2 tdef))
ed   (entget en)
 )
 (entmake (list (cons 0 "BLOCK")
	 (cons 2 bn)
	 (cons 70 0)
	 (cons 10 (cdr (assoc 10 tdef)))
   )
 )
 (entmake ed)
 (while (setq en (entnext en))
   (setq ed (entget en))
   (entmake ed)
 )
 (entmake (list (cons 0 "ENDBLK")))
 (setq bd (subst (cons 2 bn) (assoc 2 bd) bd))
 (entmod bd)
 (entupd B)
 (princ (strcat "\n" bn))
)

(PDot)
; ************ Main Program
; ***************************************
(defun uan_ (/ m_v m_n olderr uan_var s)
 (uan_smd)
 (GetOne)
 (UnAnon s)
 (uan_rmd)
)

(defun c:UnAnonall (/ ss i)
 (setq	ss (ssget "X"
	  (list	(cons 0 "INSERT")
		(cons 67
		      (if (= (getvar "TILEMODE") 1)
			0
			1
		      )
		)
	  )
   )
 )
 (and ss
      (setq i (sslength ss))
      (while (not (minusp (setq i (1- i))))
 (setq en (ssname ss i))
 (if (= "*U" (substr (cdr (assoc 2 (entget en))) 1 2))
   (UnAnon en)
 )
      )
 )
 (prin1)
)

(PDot)
; ************ Load Program
; ***************************************
(defun C:UnAnon () (uan_))
(if uan_
 (princ "\nUnAnon Loaded\n")
)
(prin1)
; ================== End Program
; ========================================

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...