[编程交流] 从中获取文本字符串的值

 
;; <-- Step through
 (if (= "AcDbText" (vla-get-objectname [i][color=blue]<Object>[/color][/i]))
   (setq TextString (vla-get-textstring [i][color=#0000ff]<Object>[/color][/i])))

 
(progn
;;SET VARIABLES
(setvar "cmdecho" 0)
(setvar "attdia" 0)
(setvar "attreq" 0)
(setvar "filedia" 0)
(command "ucsicon" "off")
(command "style" "standard" "simplex" "" "" "22.5" "" "" "")
;
;
;
;
;
;DEFINED FUNCTION - CHOOSES STUFF FROM HYDRO PULLDOWN MENU PICKS AND SETS VARIABLES
(defun tbupdate ()
   (setq b1 (ssname sset1 0))
     (setq e1 (entnext b1) e2 (entnext e1) e3 (entnext e2)
           e4 (entnext e3) e5 (entnext e4) e6 (entnext e5)
           e7 (entnext e6) e8 (entnext e7) e9 (entnext e8)
           e10 (entnext e9) e11 (entnext e10) e12 (entnext e11)
           e13 (entnext e12) e14 (entnext e13) e15 (entnext e14)
           e16 (entnext e15) e17 (entnext e16) e18 (entnext e17)
           e19 (entnext e18) ep1 (entnext e19) ep2 (entnext ep1)
      )
;
;
   (setq fg (strlen (getvar "dwgname")))
   (setq fg2 (- fg 4))
   (setq ofile (substr (getvar "dwgname") 1 fg2))
;
;
   (setq nfile (entget e1))
      (setq nfile (subst (cons 1 ofile)(assoc 1 nfile)nfile))
      (entmod nfile)
   (setq nnam (entget e2))
      (setq nnam (subst (cons 1 nam)(assoc 1 nnam)nnam))
      (entmod nnam)
   (setq nmcode (entget ep2))
      (setq nmcode (subst (cons 1 mcode)(assoc 1 nmcode)nmcode))
      (entmod nmcode)
   (setq ndamloc (entget e7))
      (setq ndamloc (subst (cons 1 damloc)(assoc 1 ndamloc)ndamloc))
      (entmod ndamloc)
      (command "regen")
);defun
;
;
;;START VISUAL LISP
(vl-load-com)
(vla-startundomark (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))
;
;
;;SET AUTOLISP SYMBOL ASSIGNMENTS
(setq asize "A")
(setq bsize "B")
(setq csize "C")
(setq dsize "D")
(setq esize "E")
(setq style "HYDRO-DEC-DIM")
(setq p1 "0,0")
;
;
;;FREEZE UNNEEDED LAYERS
(command "layer" "s" "scale" "f" "*" "")
;
;
;;FIND SOLIDWORKS SCALE-OBJECT
(setq ss1 (ssget "_X" '((8 . "SCALE")(0 . "MTEXT")(1 . "SCALE:*"))))
;
;
;;CHANGE SCALE-OBJECT TO REPLACE UNNEEDED DATA WITH NOTHING AND GET REMAINING DATA
(setq patt "SCALE: 1:")
(setq newpatt "")
(setq count -1)
 (while (< (setq count (1+ count))(sslength ss1))
   (setq ent1 (entget (ssname ss1 count))
         obj1 (vlax-ename->vla-object (cdr (car ent1)))
         str1 (vla-get-textstring obj1))
   (while (setq match? (vl-string-search patt str1))
   (setq str1 (vl-string-subst newpatt patt str1))
   (vla-put-textstring obj1 str1)
   );while
 );while
;
;
;;GET VALUE OF SCALE-OBJECT DATA
(setq scale str1)
;
;
;;DELETE SCALE-OBJECT
(vla-delete obj1)
;
;
;;FIND SOLIDWORKS TITLEBLOCK SIZE-OBJECT
(setq ss2 (ssget "_X" '((8 . "SCALE")(0 . "MTEXT"))))
(setq count2 -1)
(setq count2 (1+ count2))
(sslength ss2)
(setq ent2 (entget (ssname ss2 count2)))
(setq obj2 (vlax-ename->vla-object (cdr (car ent2))))
;
;
;;GET VALUE OF TB SIZE-OBJECT
(setq str2 (vla-get-textstring obj2))
;
;
;;DELETE TB SIZE-OBJECT
(vla-delete obj2)
;
;
;;MATCH VALUE OF TB SIZE-OBJECT TO CHOOSE AUTOCAD TITLEBLOCK SIZE AND SET POINT FOR SCALE-BAR INSERT
(if (eq asize str2)
(setq tb "HEDTBA" p5 (* (read str1) 3) p6 (* (read str1) 3.25)))
(if (eq bsize str2)
(setq tb "HEDTBB" p5 (* (read str1) 4.75) p6 (* (read str1) 0.5)))
(if (eq csize str2)
(setq tb "HEDTBC" p5 (* (read str1) 10.75) p6 (* (read str1) 0.5)))
(if (eq dsize str2)
(setq tb "HEDTBD" p5 (* (read str1) 21.75) p6 (* (read str1) 0.5) x1 (* (read str1) 25.5)))
(if (eq esize str2)
(setq tb "HEDTBE" p5 (* (read str1) 27.25) p6 (* (read str1) 0.5)))
;
;
;
;
;
;
;;INSERT, DELETE AND PURGE AUTOCAD TEMPLATE BLOCK TO GET DIMENSION STYLE
(command "insert" "template" "0,0" "" "" "")
(command "erase" "l" "")
(command "purge" "b" "template" "n")
;
;
;;THAW ALL LAYERS, SET LAYER 0 TO CURRENT AND ADD LAYER BASE
(command "layer" "t" "*" "s" "0" "n" "BASE" "")
;
;
;;CHANGE ALL SOLIDWORKS ENTITIES TO BASE LAYER
(command "change" "all" "" "p" "la" "BASE" "")
;
;
;;PURGE ALL UNUSED LAYERS
(command "purge" "la" "" "n")
;
;
;;SET "HYDRO-DIM-DEC" AS CURRENT DIMSTYLE, CHANGE DIMSCALE TO RETRIEVED SCALE VALUE & SAVE THE CHANGE TO "HYDRO-DIM-DEC" 
(setq activedoc(vlax-get-property(vlax-get-acad-object)'activedocument))
(vlax-put-property activedoc 'ActiveDimStyle (vla-item(vla-get-dimstyles activedoc)style))
(setvar "dimscale" (read scale))
(command "dimstyle" "s" "HYDRO-DEC-DIM" "y")
;
;
;;SCALE SOLIDWORKS ENTITIES PER RETRIEVED SCALE VALUE
(command "scale" "all" "" "0,0" scale)
;
;
;;CHANGE ALL SOLIDWORKS DIMESIONS TO HYDRO DIMSTYLE
(command "dimstyle" "a" "all" "")
(command "zoom" "a" "zoom" "e" "zoom" "a")
;
;
;;MOVE SOLIDWORKS ENTITIES TO BASE POINT
(setq p2 (getvar "extmin"))
(setq p3 (list (* 0.5 (read scale))(* 0.5 (read scale))))
(command "move" "all" "" p2 p3)
;
;
;;PURGE UNUSED DIMENSION STYLES
(command "purge" "d" "" "n")
;
;
;;PURGE UNUSED TEXT STYLES
(command "purge" "st" "" "n")
;
;
;;SET OTHER AUTOCAD VARIABLES PER RETRIEVED SCALE VALUE
(setvar "ltscale" (read scale))
(setvar "dimscale" (read scale))
(setvar "textsize" (* 0.125 (read scale)))
;
;
;;INSERT SCALEBAR PER RETRIEVED SCALE VALUE
(SETQ bar (strcat str1 "BAR"))
(command "insert" bar (list p5 p6) 1 1 0)
;
;
;;PURGE
(command "purge" "a" "" "n")
;
;
;;INSERT THE MADE IN SOLIDWORKS BLOCK
(setq Y1 0)
(command "insert" "madeinsw" (list x1 y1) scale scale 0)
;
;
;;INSERT TITLEBLOCK PER RETRIEVED SCALE VALUE
(command "insert" tb "0,0" (read scale) "" "")
;
;
;;GETS HYDRO TITLEBLOCK AND PREPARES FOR THE DEFINED FUNCTION TO RUN
(setq sset1 (ssget "x" (list (cons 2 "hedtb*"))))
;
;
;;SET DWG LIMITS
(command "zoom" "a")
(setq p4 (getvar "extmax"))
(command "limits" p1 p4)
(command "zoom" "a")
;
;
;;RUNS THE DEFINED FUNCTION
(tbupdate)
;
;
;SET BASE LAYER TO CURRENT
(command "layer" "s" "base" "")
;
;
);progn
(setvar "cmdecho" 1)
(setvar "attdia" 1)
(setvar "attreq" 1)
(setvar "filedia" 1)
(setvar "lunits" 2)
(command "ddatte" "l")