cad lsp插件问题

(DEFUNC:TXT(/COUNTORSELECTIONDIMSEENTGRPCOUNTENTNAMEENT)(COMMAND"_.UNDO""M")(SETQCOUN... (DEFUN C:TXT(/ COUNTOR SELECTION DIMSE ENTGRP COUNT ENTNAME ENT )
(COMMAND "_.UNDO" "M")

(SETQ COUNTOR 0)
(PRINC "\nふ畖弧!!!(WRITEN BY MR Q.Z.H ,1999/5/31 AM 11:25)!")
(SETQ ENT (ENTSEL "\n叫匡拒で皌蛾:"))
(SETQ ENT (ENTGET (CAR ENT)))
(SETQ DIMSE (CDR (ASSOC 40 ENT)))
(SETQ DIMSTRING (GETSTRING "\n叫块弧ゅ:"))
(PROMPT "\n叫匡拒巨跋办:")
(SETVAR "OSMODE" 0)(SETVAR "ORTHOMODE" 0)
(COMMAND "UCS" "W")
(SETQ ENTGRP (SSGET))
(SETQ COUNT 0)
(REPEAT (SSLENGTH ENTGRP)
(SETQ ENTNAME (SSNAME ENTGRP COUNT))
(SETQ ENT (ENTGET ENTNAME))
(IF (AND (EQUAL (CDR (ASSOC 0 ENT)) "CIRCLE") ;摸で皌,CIRCLE
(EQUAL (CDR (ASSOC 40 ENT)) DIMSE 0.005)) ;ふ畖で皌,弘0.005
(PROGN
(SETQ CENPT (CDR (ASSOC 10 ENT)))
(SETQ TXTPT (POLAR CENPT (/ PI 4) (* 1.5 DIMSE))) ;砞﹚ゅ夹爹翴
(PRINC "HERE")
(SETQ OLDLAYER (GETVAR "CLAYER"))
(COMMAND "-LAYER" "S" "0" "")
(COMMAND "_.TEXT" "J" "BL" TXTPT (* 2.5 (GETVAR "DIMSCALE")) "" (strcase DIMSTRING T))
(COMMAND "-LAYER" "S" OLDLAYER "")
(SETQ COUNTOR (1+ COUNTOR)) ;璸计竟
)
)
(SETQ COUNT (1+ COUNT))
)
(COMMAND "_UCS" "P")

(PRINC "\n璸弧ふ")(PRINC COUNTOR) (PRINC "!!!")
(PRINC "\n-----------OK-------------")
(PRINC)
)
---------------------------------------------------------
为什么我不论输入大写还是小写英文，都显示小写的。可以改下吗？展开

 我来答