求帮忙修改一段论坛里的代码，修改成不分英文大小写

wgij007

求帮忙修改一段论坛里的代码，修改成不分英文大小写


(defun c:cz ( / EN ENT GETPT I MAXP MINP PT S1 SS STXT)
(setvar "cmdecho" 0)
(command "undo" "be")
(setq stxt (getstring "\n输入查找的文字 :"))

(if (and (= stxt "")
          (setq s1 (entsel "\n选择要查找的文字 :"))
          (setq ent (entget(car s1)))
          (= (cdr(assoc 0 ent)) "TEXT,MTEXT"))
  (setq stxt (cdr(assoc 1 (entget(car s1)))))
)
(if (and  (setq ss (ssget (list '(0 . "TEXT,MTEXT") (cons 1 (strcat "*" stxt "*")))))
          (setq getpt(getpoint "\n指定线的起点："))
         )
  (progn
  (setq i 0)
  (repeat (sslength ss)
   (setq en (ssname ss i))
   (vla-getboundingbox(vlax-ename->vla-object en) 'minp 'maxp)
   (setq minp (vlax-safearray->list minp)
         maxp (vlax-safearray->list maxp))
   (setq pt (polar minp (angle minp maxp) (/ (distance minp maxp) 2)))
   (entmake (list '(0 . "LINE") (cons 8 "FindText")(cons 10 getpt) (cons 11 pt)(cons 62 6) ))
   (setq i (1+ i))
  )
  (princ)
))
(command "undo" "end")
(setvar "CMDECHO" 1)
(princ)
)

taoyi0727

(defun c:cz ( / EN ENT GETPT I MAXP MINP PT S1 SS STXT)
        (setvar "cmdecho" 0)
        (command "undo" "be")
        (setq stxt (getstring "\n输入查找的文字 :"))
        (if (and
                                (= stxt "")
                                (setq s1 (entsel "\n选择要查找的文字 :"))
                                (setq ent (entget(car s1)))
                                (= (cdr(assoc 0 ent)) "TEXT,MTEXT")
                        )
                (setq stxt (cdr(assoc 1 (entget(car s1)))))
        )
        (if (and
                                (setq ss (ssget (list
                                                                                                        '(0 . "TEXT,MTEXT")
                                                                                                        '(-4 . "<or")
                                                                                                        (cons 1 (strcat "*" (strcase stxt) "*"))
                                                                                                        (cons 1 (strcat "*" (strcase stxt t) "*"))
                                                                                                        '(-4 . "or>")
                                                                                                )
                                                                 )
                                )
                                (setq getpt(getpoint "\n指定线的起点："))
                        )
                (progn
                        (setq i 0)
                        (repeat (sslength ss)
                                (setq en (ssname ss i))
                                (vla-getboundingbox (vlax-ename->vla-object en) 'minp 'maxp)
                                (setq
                                        minp (vlax-safearray->list minp)
                                        maxp (vlax-safearray->list maxp)
                                )
                                (setq pt (polar minp (angle minp maxp) (/ (distance minp maxp) 2)))
                                (entmake (list
                                                                         '(0 . "LINE")
                                                                         (cons 8 "FindText")
                                                                         (cons 10 getpt)
                                                                         (cons 11 pt)
                                                                         (cons 62 6)
                                                                 )
                                )
                                (setq i (1+ i))
                        )
                        (princ)
                )
        )
        (command "undo" "end")
        (setvar "CMDECHO" 1)
        (princ)
)

尘缘一生

• (defun c:cz ( / en ent getpt i maxp minp pt s1 ss stxt)
• (setvar "cmdecho" 0)
• (command "undo" "be")
• (setq stxt (getstring "\n输入查找的文字 :"))
• (if (and (= stxt "")
•            (setq s1 (entsel "\n选择要查找的文字 :"))
•            (setq ent (entget(car s1)))
•            (= (cdr(assoc 0 ent)) "text,mtext"))
•    (setq stxt (cdr(assoc 1 (entget(car s1)))))
• )
• (if (and  (setq ss (ssget (list '(0 . "text,mtext") (cons 1 (strcat "*" stxt "*")))))
•            (setq getpt(getpoint "\n指定线的起点："))
•           )
•    (progn
•    (setq i 0)
•    (repeat (sslength ss)
•     (setq en (ssname ss i))
•     (vla-getboundingbox(vlax-ename->vla-object en) 'minp 'maxp)
•     (setq minp (vlax-safearray->list minp)
•           maxp (vlax-safearray->list maxp))
•     (setq pt (polar minp (angle minp maxp) (/ (distance minp maxp) 2)))
•     (entmake (list '(0 . "line") (cons 8 "findtext")(cons 10 getpt) (cons 11 pt)(cons 62 6) ))
•     (setq i (1+ i))
•    )
•    (princ)
• ))
• (command "undo" "end")
• (setvar "cmdecho" 1)
• (princ)
• )
  

尘缘一生

请下载这个工具，

wgij007

taoyi0727 发表于 2019-12-17 23:34
(defun c:cz ( / EN ENT GETPT I MAXP MINP PT S1 SS STXT)
        (setvar "cmdecho" 0)
        (command "undo" "be ...

感激~~~~~~~~~~~~~~~~~~~