高手能不能举几个有关正则表达式在和lisp的简单应用

print1985

再来个简单的吧 已经很简单了啊
;;;;文本数字刷 只保留数字（含小数点） 去掉非数字
(defun c:fas (/ regex sel i ent ob s)
  (setq regex (vlax-create-object "Vbscript.RegExp"));引用正则表达式控件
  (vlax-put-property regex "IgnoreCase" 0); 不忽略大小写
  (vlax-put-property regex "Global" 1);全文匹配，而不是只匹配第一处
        (if (setq sel (ssget '((0 . "TEXT,MTEXT"))))
        (progn
  (setq i 0)
  (repeat (sslength sel)
    (setq ent (ssname sel i))
    (setq ob (vlax-ename->vla-object ent)) ;转换
    (setq s (vla-get-TextString ob));文字内容
  ;正在表达式提取数字和小数点
  (vlax-put-property regex "Pattern" "[^0-9\\.]")
  (setq s (vlax-invoke-method  regex "Replace" s ""))
  (vlax-put-property ob 'TextString s) ;改变text特性
  (setq i (1+ i))
  )
        ))
(princ)
)

YAOSHIWEI

print1985 发表于 2012-5-30 20:20
再来个简单的吧 已经很简单了啊
;;;;文本数字刷 只保留数字（含小数点） 去掉非数字
(defun c:fas (/ reg ...

这个也配个图，小弟求您了，拜托了

YAOSHIWEI

YAOSHIWEI

print1985 发表于 2012-5-30 20:03
我来给你贴一段
(defun C:js2 (/ dwmjgl ss n i ent ob mianji gonglv regex)
  (setq regex (vlax-creat ...

(if (setq dwmjgl  (getreal "\n请输入单位面积功率<默认0.08>(kW)"))
           (setq dwmjgl dwmjgl)
           (setq dwmjgl 0.08)
          )
这一段不是太清楚， 能不能讲解一下

zhong879

YAOSHIWEI 发表于 2012-5-31 19:42
(if (setq dwmjgl  (getreal "\n请输入单位面积功率(kW)"))
           (setq dwmjgl dwmjgl)
         ...

如果没有输入 dwmjgl 的值，默认设置为0.08