[求助]希望高手对FIND命令做个扩展？

sailorcwx

那个是你的操作错误，当你的回车次数等于查找的文字的个数的时候，程序结束退出了。而你此时再按回车，就是重复上一次命令，就再度启动程序。

phoenixdjq

我的程序仅用于这样的编号<1> <2> <3>.......

(defun zhao()
(setq nn (nth 0 zuixiao))
(setq jg (strcat "您所选择的最小杆件号是" (itoa nn)))
(alert jg)
(setq xunhuan (nth 0 zuida))
(setq jg1 (strcat "您所选择的最大杆件号是" (itoa xunhuan)))
(alert jg1)
(while (<= nn xunhuan)
(setq len2 (vl-list-length biao))
(setq biao1 (vl-remove nn biao))
(setq len3 (vl-list-length biao1))
(setq jieguo (- len2 len3))
(cond

((= jieguo 0)
(progn
(setq mm (strcat "件号" (itoa nn) "是空号"))
(prompt "\n" )
(prompt mm )

)  ;end progn

)

((= jieguo 1) (princ))

(t
(progn
(setq mm (strcat "件号" (itoa nn) "有" (itoa jieguo) "件重号" ))
(prompt "\n" )
(prompt mm )
)   ;end progn
)   ;end

)   ;end cond
(setq nn (+ 1 nn))
)   ;end repeat
(princ)

)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun zhao1()
(setq nn (nth 0 zuixiao))
(setq jg (strcat "您所选择的最小杆件号是" "PG" (itoa nn)))
(alert jg)
(setq xunhuan (nth 0 zuida))
(setq jg1 (strcat "您所选择的最大杆件号是" "PG" (itoa xunhuan)))
(alert jg1)
(while (<= nn xunhuan)
(setq len2 (vl-list-length biao))
(setq biao1 (vl-remove nn biao))
(setq len3 (vl-list-length biao1))
(setq jieguo (- len2 len3))
(cond

((= jieguo 0)
(progn
(setq mm (strcat "件号" "PG" (itoa nn) "是空号"))
(prompt "\n" )
(prompt mm )

)  ;end progn
)

((= jieguo 1) (princ))

(t
(progn
(setq mm (strcat "件号" "PG" (itoa nn) "有" (itoa jieguo) "件重号" ))
(prompt "\n" )
(prompt mm )
)   ;end progn
)   ;end

)   ;end cond
(setq nn (+ 1 nn))
)   ;end repeat
(princ)
)

(defun c:chpgl()
(vl-load-com)
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(setq len (sslength ss))
(setq n 0)

(if (/= biao nil)
(setq biao nil)
)
(repeat len
(setq ent (ssname ss n))
(setq dxf (entget ent))
(setq wenzi (cdr (assoc 1 dxf)))
(setq zitou (substr wenzi 1 3))
(if (= zitou "<G")
(progn
(setq zifu (substr wenzi 4))
(setq shishu (atoi zifu))
(setq biao (cons shishu biao))
)  ;end progn
)   ;end if

(setq n (+ 1 n))
)    ;end repeat
(setq zuixiao (vl-sort biao '<))
(setq zuida (vl-sort biao '>))
(setq len1 (vl-list-length biao))
(zhao1)
(textscr)
(princ)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:ch()
(vl-load-com)
(prompt "请选择您要查询的杆件号,但不要选择说明中的文字:")
(setq ss (ssget '((0 . "TEXT,MTEXT"))))
(setq len (sslength ss))
(setq n 0)

(if (/= biao nil)
(setq biao nil)
)
(repeat len
(setq ent (ssname ss n))
(setq dxf (entget ent))
(setq wenzi (cdr (assoc 1 dxf)))
(setq zitou (substr wenzi 1 1))
(setq dier (substr wenzi 2 1))
(setq shishu1 (atoi dier))
(setq pg (substr wenzi 1 3))
(if (and (= zitou "<") (/= shishu1 0))
(progn
(setq zifu (substr wenzi 2))
(setq shishu (atoi zifu))
(setq biao (cons shishu biao))
)  ;end progn
)   ;end if

(setq n (+ 1 n))
)    ;end repeat
(setq zuixiao (vl-sort biao '<))
(setq zuida (vl-sort biao '>))
(setq len1 (vl-list-length biao))
(zhao)
(textscr)
(princ)

)
(prompt "\n 查询普通杆件用ch命令,查询组合梁用chpgl")
(prompt "\n 普通梁杆件号仅限<*>格式,组合梁仅限<G*>格式, *为任意数字")
(prompt "\n 本程序作者:窦俊强,如有问题请与作者联系qq :53124174")

dengken204

我选择了“KLA9-2(1)”

结果是：

命令: CH 请选择您要查询的杆件号,但不要选择说明中的文字:
选择对象: 找到 1 个

选择对象:  ; 错误: 参数类型错误: consp nil

问题出在哪里？

phoenixdjq

当然是文字特性的问题了

我的程序是因为我工作中需要而为自己编的

仅用于<1> <2> <3>....这样的类型的

我的程序不适合你这样的类型

sailorcwx

3. ;find扩展 by weltion chen
4. ;全选输入all
5. ;*匹配模糊查找
6. ;查找字符a，输入a
7. ;查找字符a开头的字符串，输入a*
8. ;查找字符a结尾的字符串,输入*a
9. ;查找带字符a的字符串,输入*a*
10. (defun c:finde( / ACADAPP ACADDOC ENT FINDSTR INDEX LEFTDOWNPOINT NEWSTR OBJ RIGHTUPPOINT SLTOPL SLTSET)
11.   ;加载Vlisp函数
12.   (vl-load-com)
13.   (setq
14.     ;AutoCAD
15.     acadapp (vlax-get-acad-object)
16.     ;当前文档
17.     acaddoc (vla-get-activedocument acadapp)
18.     )
19.   ;定义关键字
20.   (initget "I")
21.   ;带选项的选择
22.   (setq SltOpl (entsel "\n选择查找的文字对象或[手工输入(I)]："))
23.   ;是否空选
24.   (if SltOpl
25.     ;进行操作判断
26.     (progn
27.       (if (= SltOpl "I")
28. ;手工输入
29. (setq findstr (getstring "\n输入查找字符串，输入*匹配搜索: "))
30. ;拾取TEXT
31. (progn
32.    ;图元名称
33.    (setq ent (car SltOpl)
34.   ;转化成VLA对象名称
35.   obj (vlax-ename->vla-object ent)
36.   )
37.    ;判断是否为TEXT对象
38.    (if (= (vla-get-objectname obj) "AcDbText")
39.      ;OK，把字符串提出来吧
40.      (setq findstr (vla-get-textstring obj))
41.      )
42.    )
43. )
44.       ;不管哪种方式取值，只要有值就执行查找
45.       (if findstr
46. (progn
47.    ;获取满足条件的TEXT选集
48.    (setq sltset (ssget (list '(0 . "TEXT") (cons 1 findstr)))
49.    ;定义一个索引号
50.   index 0
51.   
52.   )
53.    ;遍历选集一个个显示或修改
54.    (repeat (sslength sltset)
55.      ;提取图元对象
56.      (setq ent (ssname sltset index)
57.     ;转化为VLA对象名称
58.     obj (vlax-ename->vla-object ent)
59.     )
60.      ;获取外框
61.      (vla-getboundingbox obj 'leftdownpoint 'rightuppoint)
62.      ;锁定目标
63.      (vla-zoomwindow acadapp leftdownpoint rightuppoint)
64.      ;扩大视图范围
65.      (vla-zoomscaled acadapp 0.5 acZoomScaledRelative)
66.      ;修改内容
67.      (setq newstr (getstring 0 "\n输入修改内容或<回车查找下一个,ESC退出>: "))
68.      (if (/= newstr "")
69.        ;替换文字内容
70.        (vla-put-textstring obj newstr)
71.       
72.        )
73.      ;next one
74.      (setq index (1+ index))
75.      )
76.    )
77. )
78.       )
79.     )
80.   ;静默退出
81.   (princ)
82.   )

;find扩展 by weltion chen ;全选输入all ;*匹配模糊查找 ;查找字符a，输入a ;查找字符a开头的字符串，输入a* ;查找字符a结尾的字符串,输入*a ;查找带字符a的字符串,输入*a* (defun c:finde( / ACADAPP ACADDOC ENT FINDSTR INDEX LEFTDOWNPOINT NEWSTR OBJ RIGHTUPPOINT SLTOPL SLTSET)   ;加载Vlisp函数   (vl-load-com)   (setq     ;AutoCAD     acadapp (vlax-get-acad-object)     ;当前文档     acaddoc (vla-get-activedocument acadapp)     )   ;定义关键字   (initget "I")   ;带选项的选择   (setq SltOpl (entsel "\n选择查找的文字对象或[手工输入(I)]："))   ;是否空选   (if SltOpl     ;进行操作判断     (progn       (if (= SltOpl "I") ;手工输入 (setq findstr (getstring "\n输入查找字符串，输入*匹配搜索: ")) ;拾取TEXT (progn    ;图元名称    (setq ent (car SltOpl)   ;转化成VLA对象名称   obj (vlax-ename->vla-object ent)   )    ;判断是否为TEXT对象    (if (= (vla-get-objectname obj) "AcDbText")      ;OK，把字符串提出来吧      (setq findstr (vla-get-textstring obj))      )    ) )       ;不管哪种方式取值，只要有值就执行查找       (if findstr (progn    ;获取满足条件的TEXT选集    (setq sltset (ssget (list '(0 . "TEXT") (cons 1 findstr)))    ;定义一个索引号   index 0      )    ;遍历选集一个个显示或修改    (repeat (sslength sltset)      ;提取图元对象      (setq ent (ssname sltset index)     ;转化为VLA对象名称     obj (vlax-ename->vla-object ent)     )      ;获取外框      (vla-getboundingbox obj 'leftdownpoint 'rightuppoint)      ;锁定目标      (vla-zoomwindow acadapp leftdownpoint rightuppoint)      ;扩大视图范围      (vla-zoomscaled acadapp 0.5 acZoomScaledRelative)      ;修改内容      (setq newstr (getstring 0 "\n输入修改内容或<回车查找下一个,ESC退出>: "))      (if (/= newstr "")        ;替换文字内容        (vla-put-textstring obj newstr)               )      ;next one      (setq index (1+ index))      )    ) )       )     )   ;静默退出   (princ)   )

sailorcwx

 默认全选把
(setq sltset (ssget (list '(0 . "TEXT") (cons 1 findstr)))
改成
(setq sltset (ssget "X" (list '(0 . "TEXT") (cons 1 findstr)))