显示实体数据

newer · 发表于 2021-1-17 04:23:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

The routine will let you select an entity and print the data (what is returned by 'entget') to a window.  From there you can select other enames, and their data will show up in the dialog box.  It is useful when looking for nested items, maybe in the extension dictionary of an entity (first 360 ename).  I still use it sometimes just to see what is happening with an entity.

The sub-routine does all the work, so you can use it also with 'nentsel', as it only cares about an ename.

I will add a second command 'ChaseData2' that appears to work with nested entities.  It will allow the use to select which item they want to chase.  I don't use it that often, so I hope it works well for others.

Make sure the dialog box file is in the search path.

The 'Definition' button will take you to the block table record of an insert.  If you are not looking at an insert, it will just stop the program.

You can either double click on the ename, or once it is selected hit the 'Ok' button to view that entity's data.

The 'Next Entity' button is used mostly for blocks to see the attributes, as they are the next entity or with old style polylines to see the vertex entity.

'Print Data' will just output the current data to the command line, but leave the dialog box open.

Hope others find it useful.  Hope I got all the sub-routines.

(defun c:ChaseEntData (/ Sel)
(if (setq Sel (entsel))
(ChaseEntData (car Sel))
)
(princ)
)
(defun c:ChaseEntData2 ( / sel tList diaRtn )
(if (setq sel (nentsel))
(if (> (length sel) 2)
(if
(setq diaRtn
(SingleSelect
(mapcar
(function
(lambda ( a / data tType name )
(setq data (entget a))
(setq tType (cdr (assoc 0 data)))
(strcat
tType
(if (= tType "INSERT")
(progn
(setq name (cdr (assoc 2 data)))
(if (equal (logand (cdr (assoc 70 (entget (tblobjname "block" name)))) 4) 4)
(strcat " ( XREF ) [ " name " ]")
(strcat " [ " name " ]")
)
)
""
)
)
)
)
(setq tList (append (list (car sel)) (last sel)))
)
"Select entity to chase"
nil
)
)
(ChaseEntData (nth (car diaRtn) tList))
)
(ChaseEntData (car sel))
)
)
(princ)
)
;-----------------------------------------
(defun ChaseEntData (Ent / DiaRtn DataList data)
(while
(and
Ent
(setq DiaRtn
(SingleSelectWide
(mapcar
'(lambda (x / tempType)
(if
(and
(equal (type (cdr x)) 'ENAME)
(setq tempType (cdr (assoc 0 (entget (cdr x)))))
)
(strcat
(vl-princ-to-string (car x))
"\t\t"
(vl-princ-to-string (cdr x))
" [ "
tempType
" ]"
)
(strcat
(vl-princ-to-string (car x))
"\t\t"
(vl-princ-to-string (cdr x))
)
)
)
(setq DataList (entget Ent '("*")))
)
"Select entity name to chase."
nil
)
)
)
(cond
((equal (type DiaRtn) 'LIST)
(if (not (equal (type (setq Ent (cdr (nth (car DiaRtn) DataList)))) 'ENAME))
(setq Ent nil)
)
)
((equal (type DiaRtn) 'INT)
(cond
((equal DiaRtn 2)
(setq Ent (entnext ent))
)
((equal DiaRtn 3)
(pedata Ent)
)
((equal DiaRtn 4)
(setq Ent
(if (= (cdr (assoc 0 (setq data (entget ent)))) "INSERT")
(tblobjname "block" (cdr (assoc 2 data)))
)
)
)
)
)
)
)
)
;---------------------------------------------------------------------
(defun SingleSelect (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList)
(setq DiaLoad (load_dialog "MyDialogs.dcl"))
(if (new_dialog "SingleSelect" DiaLOad)
(progn
(start_list "listbox" 3)
(mapcar 'add_list Listof)
(end_list)
(if Message
(set_tile "text1" Message)
)
(if (not Toggle)
(mode_tile "toggle1" 1)
)
(action_tile "listbox"
"(if (= $reason 4)
(progn
(setq tmpStr (get_tile \"listbox\"))
(if Toggle
(setq tmpTog (get_tile \"toggle1\"))
)
(done_dialog 1)
)
)"
)
(action_tile "accept"
"(progn
(setq tmpStr (get_tile \"listbox\"))
(if Toggle
(setq tmpTog (get_tile \"toggle1\"))
)
(done_dialog 1)
)"
)
(action_tile "cancel" "(done_dialog 0)")
(if (= (start_dialog) 1)
(progn
(setq tmpList (read (strcat "(" tmpStr ")")))
(if (= tmpTog "1")
(cons T tmpList)
tmpList
)
)
)
)
)
)
;---------------------------------------------------------------------------------
(defun SingleSelectWide (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList diaOpt )
(setq DiaLoad (load_dialog "MyDialogs.dcl"))
(if (new_dialog "SingleSelectWide" DiaLOad)
(progn
(start_list "listbox" 3)
(mapcar 'add_list Listof)
(end_list)
(if Message
(set_tile "text1" Message)
)
(if (not Toggle)
(mode_tile "toggle1" 1)
)
(action_tile "entNext" "(done_dialog 2)")
(action_tile "print" "(done_dialog 3)")
(action_tile "blkDef" "(done_dialog 4)")
(action_tile "listbox"
"(if (= $reason 4)
(progn
(setq tmpStr (get_tile \"listbox\"))
(if Toggle
(setq tmpTog (get_tile \"toggle1\"))
)
(done_dialog 1)
)
)"
)
(action_tile "accept"
"(progn
(setq tmpStr (get_tile \"listbox\"))
(if Toggle
(setq tmpTog (get_tile \"toggle1\"))
)
(done_dialog 1)
)"
)
(action_tile "cancel" "(done_dialog 0)")
(setq diaOpt (start_dialog))
(setq temp diaOpt)
(cond
((= diaOpt 1)
(setq tmpList (read (strcat "(" tmpStr ")")))
(if (= tmpTog "1")
(cons T tmpList)
tmpList
)
)
((> diaOpt 1)
diaOpt
)
)
)
)
)
;-------------------------------------------------------
(defun PEData (EntData)
(if (equal (type EntData) 'ENAME)
(setq EntData (entget EntData '("*")))
)
(foreach lst EntData
(if (equal (car lst) -3)
(progn
(princ "\n(-3")
(foreach i (cdr lst) (print i))
(princ "\n)")
)
(print lst)
)
)
(princ)
)

(defun c:ChaseEntData (/ Sel) 
    (if (setq Sel (entsel)) 
        (ChaseEntData (car Sel)) 
    ) 
    (princ) 
) 
 
(defun c:ChaseEntData2 ( / sel tList diaRtn ) 
    (if (setq sel (nentsel)) 
        (if (> (length sel) 2) 
            (if 
                (setq diaRtn 
                    (SingleSelect 
                        (mapcar 
                            (function 
                                (lambda ( a / data tType name ) 
                                    (setq data (entget a)) 
                                    (setq tType (cdr (assoc 0 data))) 
                                    (strcat 
                                        tType 
                                        (if (= tType "INSERT") 
                                            (progn 
                                                (setq name (cdr (assoc 2 data))) 
                                                (if (equal (logand (cdr (assoc 70 (entget (tblobjname "block" name)))) 4) 4) 
                                                    (strcat " ( XREF ) [ " name " ]") 
                                                    (strcat " [ " name " ]") 
                                                ) 
                                            ) 
                                            "" 
                                        ) 
                                    ) 
                                ) 
                            ) 
                            (setq tList (append (list (car sel)) (last sel))) 
                        ) 
                        "Select entity to chase" 
                        nil 
                    ) 
                ) 
                (ChaseEntData (nth (car diaRtn) tList)) 
            ) 
            (ChaseEntData (car sel)) 
        ) 
    ) 
    (princ) 
) 
;----------------------------------------- 
(defun ChaseEntData (Ent / DiaRtn DataList data) 
    
    (while 
        (and 
            Ent 
            (setq DiaRtn 
                (SingleSelectWide 
                    (mapcar 
                        '(lambda (x / tempType) 
                            (if 
                                (and 
                                    (equal (type (cdr x)) 'ENAME) 
                                    (setq tempType (cdr (assoc 0 (entget (cdr x))))) 
                                ) 
                                (strcat 
                                    (vl-princ-to-string (car x)) 
                                    "\t\t" 
                                    (vl-princ-to-string (cdr x)) 
                                    "  [ " 
                                    tempType 
                                    " ]" 
                                ) 
                                (strcat 
                                    (vl-princ-to-string (car x)) 
                                    "\t\t" 
                                    (vl-princ-to-string (cdr x)) 
                                ) 
                            ) 
                        ) 
                        (setq DataList (entget Ent '("*"))) 
                    ) 
                    "Select entity name to chase." 
                    nil 
                ) 
            ) 
        ) 
        (cond 
            ((equal (type DiaRtn) 'LIST) 
                (if (not (equal (type (setq Ent (cdr (nth (car DiaRtn) DataList)))) 'ENAME)) 
                    (setq Ent nil) 
                ) 
            ) 
            ((equal (type DiaRtn) 'INT) 
                (cond 
                    ((equal DiaRtn 2) 
                        (setq Ent (entnext ent)) 
                    ) 
                    ((equal DiaRtn 3) 
                        (pedata Ent) 
                    ) 
                    ((equal DiaRtn 4) 
                        (setq Ent 
                            (if (= (cdr (assoc 0 (setq data (entget ent)))) "INSERT") 
                                (tblobjname "block" (cdr (assoc 2 data))) 
                            ) 
                        ) 
                    ) 
                ) 
            ) 
        ) 
    ) 
) 
 
;--------------------------------------------------------------------- 
 
(defun SingleSelect (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList) 
 
        (setq DiaLoad (load_dialog "MyDialogs.dcl")) 
        (if (new_dialog "SingleSelect" DiaLOad) 
                (progn 
                        (start_list "listbox" 3) 
                        (mapcar 'add_list Listof) 
                        (end_list) 
                        (if Message 
                        (set_tile "text1" Message) 
                        ) 
                        (if (not Toggle) 
                                (mode_tile "toggle1" 1) 
                        ) 
                        (action_tile "listbox" 
                                "(if (= $reason 4) 
                                        (progn 
                                                 (setq tmpStr (get_tile \"listbox\")) 
                                                 (if Toggle 
                                                        (setq tmpTog (get_tile \"toggle1\")) 
                                                 ) 
                                                 (done_dialog 1) 
                                        ) 
                                )" 
                        )      
                        (action_tile "accept" 
                                "(progn 
                                        (setq tmpStr (get_tile \"listbox\")) 
                                        (if Toggle 
                                                (setq tmpTog (get_tile \"toggle1\")) 
                                        ) 
                                        (done_dialog 1) 
                                )" 
                        ) 
                        (action_tile "cancel" "(done_dialog 0)") 
                        (if (= (start_dialog) 1) 
                                (progn 
                                (setq tmpList (read (strcat "(" tmpStr ")"))) 
                                (if (= tmpTog "1") 
                                         (cons T tmpList) 
                                         tmpList 
                                ) 
                                ) 
                        ) 
                ) 
        ) 
) 
 
;--------------------------------------------------------------------------------- 
 
(defun SingleSelectWide (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList diaOpt ) 
 
        (setq DiaLoad (load_dialog "MyDialogs.dcl")) 
        (if (new_dialog "SingleSelectWide" DiaLOad) 
                (progn 
                        (start_list "listbox" 3) 
                        (mapcar 'add_list Listof) 
                        (end_list) 
                        (if Message 
                        (set_tile "text1" Message) 
                        ) 
                        (if (not Toggle) 
                                (mode_tile "toggle1" 1) 
                        ) 
            (action_tile "entNext" "(done_dialog 2)") 
            (action_tile "print" "(done_dialog 3)") 
            (action_tile "blkDef" "(done_dialog 4)") 
                        (action_tile "listbox" 
                                "(if (= $reason 4) 
                                        (progn 
                                                 (setq tmpStr (get_tile \"listbox\")) 
                                                 (if Toggle 
                                                        (setq tmpTog (get_tile \"toggle1\")) 
                                                 ) 
                                                 (done_dialog 1) 
                                        ) 
                                )" 
                        )      
                        (action_tile "accept" 
                                "(progn 
                                        (setq tmpStr (get_tile \"listbox\")) 
                                        (if Toggle 
                                                (setq tmpTog (get_tile \"toggle1\")) 
                                        ) 
                                        (done_dialog 1) 
                                )" 
                        ) 
                        (action_tile "cancel" "(done_dialog 0)") 
            (setq diaOpt (start_dialog)) 
            (setq temp diaOpt) 
                        (cond 
                ((= diaOpt 1) 
                    (setq tmpList (read (strcat "(" tmpStr ")"))) 
                    (if (= tmpTog "1") 
                         (cons T tmpList) 
                         tmpList 
                    ) 
                                ) 
                ((> diaOpt 1) 
                    diaOpt 
                ) 
                        ) 
                ) 
        ) 
) 
;------------------------------------------------------- 
(defun PEData (EntData) 
    
    (if (equal (type EntData) 'ENAME) 
        (setq EntData (entget EntData '("*"))) 
    ) 
    (foreach lst EntData 
        (if (equal (car lst) -3) 
            (progn 
                (princ "\n(-3") 
                (foreach i (cdr lst) (print i)) 
                (princ "\n)") 
            ) 
            (print lst) 
        ) 
    ) 
    (princ) 
)

dnbcgrass · 发表于 2021-1-17 08:45:57

还差一个DCL文件

yuren008 · 发表于 2021-1-17 10:31:25

做个对论坛有益的人。

dmxcs · 发表于 2021-1-17 10:39:42

做个对论坛有益的人。

账号		自动登录	找回密码
密码			立即注册

[每日一码] 显示实体数据

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。