源程序（含注释）

jdhszh

2. 我做的LISP程序
3. ;;命令：JZD 查找形如“J004”重复注记
4. (defun c:jzd(/ j_lay ss a j_d j_n n entname j_s j_z j_dd j_h pt)
5. (setvar "cmdecho" 0)
6. (command "undo" "be")
7. (setq j_lay(getstring "\n界址点所在层："));;输入层名
8. (setq ss(ssget "x" (list (cons 0 "TEXT")(cons 8 j_lay))));;选取图幅内所有j_lay层的文字集合
9.   (setq a 0 j_d '())
10.   (repeat (sslength ss);;循环处理选择集ss每一图元
11.   (setq entname(ssname ss a));;选择ss一图元名
12.   (setq j_n(cdr (assoc 1 (entget entname))));;获取文字内容字符串
13.   (setq n(strlen j_n)) ;;获取该文字字符串个数
14.   (setq j_s(substr j_n 2));;获取该文字字符串子串编号(去J)
15.   (setq j_z(atoi j_s)) ;;字符串转变为整数
16.   (setq j_dd(cons j_z j_n));;构造一个点对
17.   (setq j_h(assoc j_z j_d));;从关联表中搜索j_z(点号)元素
18.   (if j_h
19.     (progn ;;若j_h不为空,说明已有该编号
20.      (setq pt(cdr (assoc 10 (entget entname))));;获取该文字所在位置坐标
21.      (command "PLINE" PT '(0 0) "");;画一条从原点到该文字位置的线
22.     );;end progn
23.   (setq j_d(cons j_dd j_d));;若为空把该点对加入表
24.   );; end if
25.   (setq a(1+ a));;循环加一
26. );;end repeat
27. (command "undo" "e")
28. (setvar "cmdecho" 1)
29. )
30. ;;命令：CHZ 查找字符串所在位置
31. (defun c:chz(/ tr s num pt1 nm rq ct)
32. (setvar "CMDECHO" 0)
33. (setq tr(getstring "\n输入字符串"))
34. (setq s(ssget "x" (list (cons 0  "text") (cons 1  tr))))
35. (if s
36. (progn
37. (setq num 0)
38. (repeat (sslength s)
39.   (setq pt1(cdr(assoc '10 (entget (ssname s num)))))
40.   (command "pline" pt1 '(0 0) "")
41. ;;(command "zoom" "1.5x")
42. (if (> (sslength s) 1)(progn
43.   (initget 2 "n y")
44.   (setq nm (getstring "下一个? N(不)/Y(是)/:<Y>"))
45.   (if (eq nm "") (setq nm "y"))
46.   (if (or (eq nm "n") (eq nm "N")) (exit))
47.   (if (or (eq nm "y") (eq nm "Y")) (setq num (1+ num)))
48.   ))
49. )
50. )(alert "本图没有该文字或文字大小写错误"))
51. (setvar "CMDECHO" 1)
52. )

我做的LISP程序 ;;命令：JZD 查找形如“J004”重复注记 (defun c:jzd(/ j_lay ss a j_d j_n n entname j_s j_z j_dd j_h pt) (setvar "cmdecho" 0) (command "undo" "be") (setq j_lay(getstring "\n界址点所在层："));;输入层名 (setq ss(ssget "x" (list (cons 0 "TEXT")(cons 8 j_lay))));;选取图幅内所有j_lay层的文字集合   (setq a 0 j_d '())   (repeat (sslength ss);;循环处理选择集ss每一图元   (setq entname(ssname ss a));;选择ss一图元名   (setq j_n(cdr (assoc 1 (entget entname))));;获取文字内容字符串   (setq n(strlen j_n)) ;;获取该文字字符串个数   (setq j_s(substr j_n 2));;获取该文字字符串子串编号(去J)   (setq j_z(atoi j_s)) ;;字符串转变为整数   (setq j_dd(cons j_z j_n));;构造一个点对   (setq j_h(assoc j_z j_d));;从关联表中搜索j_z(点号)元素   (if j_h     (progn ;;若j_h不为空,说明已有该编号      (setq pt(cdr (assoc 10 (entget entname))));;获取该文字所在位置坐标      (command "PLINE" PT '(0 0) "");;画一条从原点到该文字位置的线     );;end progn   (setq j_d(cons j_dd j_d));;若为空把该点对加入表   );; end if   (setq a(1+ a));;循环加一 );;end repeat (command "undo" "e") (setvar "cmdecho" 1) ) ;;命令：CHZ 查找字符串所在位置 (defun c:chz(/ tr s num pt1 nm rq ct) (setvar "CMDECHO" 0) (setq tr(getstring "\n输入字符串")) (setq s(ssget "x" (list (cons 0  "text") (cons 1  tr)))) (if s (progn (setq num 0) (repeat (sslength s)   (setq pt1(cdr(assoc '10 (entget (ssname s num)))))   (command "pline" pt1 '(0 0) "") ;;(command "zoom" "1.5x") (if (> (sslength s) 1)(progn   (initget 2 "n y")   (setq nm (getstring "下一个? N(不)/Y(是)/:<Y>"))   (if (eq nm "") (setq nm "y"))   (if (or (eq nm "n") (eq nm "N")) (exit))   (if (or (eq nm "y") (eq nm "Y")) (setq num (1+ num)))   )) ) )(alert "本图没有该文字或文字大小写错误")) (setvar "CMDECHO" 1) )

monkeylzx

感谢楼主!!支持楼主!!

LONGXIN

Cad 不是有FIND命令吗？

happy336

谢谢分享，支持