[编程交流] 检索文本或随机属性

; tot allows user to select numbers on a drawing and it will add them all up and give you a total.
; The numbers must be in text format (not attributes or blocked) and can be selected with a window
; This is useful for summing up masses of components listed in a parts list.
;
; by FPr  Sept-1996
;edited by flower 15 jan
;;;*===========================================================
(defun initerr ()
(graphscr)
 (setq oldlayer (getvar "clayer"))
 (setq oldsnap (getvar "osmode"))
 (setq oldpick (getvar "pickbox"))
 (setq temperr *error*)
 (setq *error* trap)
 (command "dimsah" "off")
 (command "dimse2" "off")
 (command "dimblk2" "")
 (princ)
)                    ;defun
;;;*===========================================================
(defun trap (errmsg)
 (command nil nil nil)
 (if (not (member errmsg '("console break" "Function Cancelled"))
     )
   (princ (strcat "\nError: " errmsg))
 )                    ;                 
 (setvar "clayer" oldlayer)
 (setvar "blipmode" 0)
 (setvar "menuecho" 0)
 (setvar "highlight" 1)
 (setvar "osmode" oldsnap)
 (setvar "pickbox" oldpick)
 (command "dimsah" "off")
 (command "dimse2" "off")
 (command "dimblk2" "")
 (princ "\nError Resetting Enviroment ")
 (terpri)
 (setq *error* temperr)
 (princ)
)                    ;defun
;;;*===========================================================
(defun reset ()
 (setq *error* temperr)
 (setvar "clayer" oldlayer)
 (setvar "blipmode" 0)
 (setvar "menuecho" 0)
 (setvar "highlight" 1)
 (setvar "osmode" oldsnap)
 (setvar "pickbox" oldpick)
 (princ)
)    
(defun c:tot (/ CT IN NM ST SM)
(initerr)
 (setq ST (ssget))
 (setq CT 0)
 (setq SM 0)
 (while (< CT (sslength ST))
   (setq NM(ssname ST CT))
   (COND (OR (= "TEXT") (=  "MTEXT")) (cdr (assoc 0(entget NM)))
     (princ)
     (progn
       (ssdel NM ST)
       (setq CT(1- CT))
     )
   )
   (setq CT(1+ CT))
 )
 (setq CT 0)
 (if (= nil ST)
   (princ)
   (while (< CT (sslength ST))
     (setq NM(ssname ST CT))
     (setq IN (atoi (cdr (assoc 1 (entget NM)))))
     (princ IN)
     (setq SM (+ IN SM))
     (princ "\n")(princ)
     (setq CT(1+ CT))
   )
 )
 (princ (strcat "Total = " (rtos SM)))
 (princ)
)
               ;defun
;;;*===========================================================

Newpitname = "1"   'dummy to pass then return changed
pitname = Getpitname(Newpitname)
'Call Getpitname(pitname)
MsgBox "pitname selected is " & pitname
Function Getpitname(Newpitname As String) As String
Dim PitNameSelect As AcadObject
Dim pitattribs As Variant
ThisDrawing.Utility.GetEntity PitNameSelect, basepnt, "pick pit name : "
If PitNameSelect.ObjectName = "AcDbText" Then
 Getpitname = PitNameSelect.TextString
End If
If PitNameSelect.ObjectName = "AcDbBlockReference" Then
 pitblname = PitNameSelect.Name   ' RETURNS BLOCK NAME
 pitattribs = PitNameSelect.GetAttributes
 Getpitname = pitattribs(0).TextString
End If
End Function

attribs(7).TextString = pitsurfRL
attribs(.TextString = pitILin
attribs(.Update
attribs(7).Update