wgij007 发表于 2019-12-17 23:22:42

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

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


(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 发表于 2019-12-17 23:22:43

(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)
)

尘缘一生 发表于 2019-12-17 23:31:29


[*]
[*](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)
[*] )

尘缘一生 发表于 2019-12-17 23:33:37

请下载这个工具，


wgij007 发表于 2019-12-18 15:53:22

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 ...

感激~~~~~~~~~~~~~~~~~~~
页: [1]
查看完整版本: 求帮忙修改一段论坛里的代码，修改成不分英文大小写