数量统计

hphkjz · 发表于 2013-11-27 21:11:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求大哥给编个代码能够统计指定文本或符号的数量
要求:1:请在屏幕上点击被查数量的指定文本<或输入指定文本T>
2:框选要查询的范围
3:选择要插入结果的位置
4:然后显示“指定文本num个”

QiaoCheng · 发表于 2013-11-27 21:47:14

别麻烦人家，自己动手丰衣足食，象这样功能的源码论坛好像大把

Lisphk · 发表于 2013-11-27 22:10:46

直接用FIND命令不就可以吗？

st788796 · 发表于 2013-11-27 22:38:50

Qselect 也可以

hphkjz · 发表于 2013-11-28 06:38:11

st788796 发表于 2013-11-27 22:38
Qselect 也可以

嗯，好的，谢谢哥。

hphkjz · 发表于 2013-11-28 21:05:00

st788796 发表于 2013-11-27 22:38
Qselect 也可以

哥，下面这个代码是你以前给我做的，如何修改一下改成另一个代码呢？其他不变，就是要求在(rtos d 2 0)中的d做一下修改。在d中插入公式d=num+直锚长度×锚固倍数×钢筋直径 num是直线长度，“直锚长度”“锚固倍数”“钢筋直径”需要键盘提示键入。

(defun XD::String:ActualWidth (str sty h scl)
(and
(or
(not sty)
(= sty "")
(not (tblsearch "style" sty))
)
(setq sty (getvar "textstyle"))
)
(abs (car (apply
'mapcar
(cons '-
(textbox (list (cons 1 str)
(cons 7 sty)
(cons 40 h)
(cons 41 scl)
)
)
)
)
)
)
)
(defun c:tt (/ ss zh)
(if
(and (setq ss (ssget '((0 . "*line,arc,ellipse"))))
(progn
(if (= (setq
zh (getstring (strcat "\n字高<"
(rtos (getvar "textsize") 2 2)
">: "
)
)
)
""
)
(setq zh (getvar "textsize"))
(setvar "textsize" (distof zh))
)
(setq zh (getvar "textsize"))
)
)
(mapcar
'(lambda (x / d pmid an txt2)
(setq d (xdrx_curve_getdistatpoint
x
(xdrx_curve_getendpoint x)
)
pmid (cadr (xdrx_curve_getpoint x))
an (XD::Geom:AngleFormat
(angle '(0. 0. 0.) (xdrx_curve_getfirstderiv
x (xdrx_curve_getparamatpoint x pmid)
)
)
)
txt2 (xdrx_text_make
pmid
(rtos d 2 0)
zh
an
)
)
(xdrx_text_setvermode txt2 1) ;_顺序不同会自动调整位置
(xdrx_text_sethozmode txt2 1)
(xdrx_text_make
(polar pmid
pi
(+ (/ d 2.) (XD::String:ActualWidth "长度是" "" zh 1.))
)
"长度是"
zh
an
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

(defun XD::String:ActualWidth (str sty h scl) 
  (and 
(or 
(not sty) 
(= sty "") 
(not (tblsearch "style" sty)) 
) 
(setq sty (getvar "textstyle")) 
) 
(abs (car (apply 
'mapcar 
(cons '- 
(textbox (list (cons 1 str) 
(cons 7 sty) 
(cons 40 h) 
(cons 41 scl) 
) 
) 
) 
) 
) 
) 
) 
(defun c:tt (/ ss zh) 
(if 
(and (setq ss (ssget '((0 . "*line,arc,ellipse")))) 
(progn 
(if (= (setq 
zh (getstring (strcat "\n字高<" 
(rtos (getvar "textsize") 2 2) 
">: " 
) 
) 
) 
"" 
) 
(setq zh (getvar "textsize")) 
(setvar "textsize" (distof zh)) 
) 
(setq zh (getvar "textsize")) 
) 
) 
(mapcar 
'(lambda (x / d pmid an txt2) 
(setq d (xdrx_curve_getdistatpoint 
x 
(xdrx_curve_getendpoint x) 
) 
pmid (cadr (xdrx_curve_getpoint x)) 
an (XD::Geom:AngleFormat 
(angle '(0. 0. 0.) (xdrx_curve_getfirstderiv 
x (xdrx_curve_getparamatpoint x pmid) 
) 
) 
) 
txt2 (xdrx_text_make 
pmid 
(rtos d 2 0) 
zh 
an 
) 
) 
(xdrx_text_setvermode txt2 1) ;_顺序不同会自动调整位置 
(xdrx_text_sethozmode txt2 1) 
(xdrx_text_make 
(polar pmid 
pi 
(+ (/ d 2.) (XD::String:ActualWidth "长度是" "" zh 1.)) 
) 
"长度是" 
zh 
an 
) 
) 
(xdrx_pickset->ents ss) 
) 
) 
(princ) 
)

cable2004 · 发表于 2014-3-5 00:10:33

{:soso_e134:}

桥云山 · 发表于 2014-3-5 13:14:48

论坛里好像很多呢

liuchong1988 · 发表于 2014-10-18 18:24:10

有吗？？？

账号		自动登录	找回密码
密码			立即注册

[求助] 数量统计

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评