lisp问题

龙猫牛逼 · 发表于 2013-12-26 19:51:43

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

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

×

在处理梁箍筋值时，例如g1.0-0.5。怎么通过lisp语言将1.0和0.5分别提取出来

newer · 发表于 2013-12-26 20:05:34

命令: (XD::STRING:REGEXPS "[0-9]+[^-]+" "G1.0-0.5" "")
("1.0" "0.5")

函数XD::STRING:REGEXPS源码在 “函数发布”里面，自己去找下。

龙猫牛逼 · 发表于 2013-12-27 15:37:21

newer 发表于 2013-12-26 20:05
命令: (XD::STRING:REGEXPS "[0-9]+[^-]+" "G1.0-0.5" "")
("1.0" "0.5")

我想要的效果是能把这两个数字提取出来，分别将他们赋值给两个变量

newer · 发表于 2013-12-27 16:17:08

龙猫牛逼发表于 2013-12-27 15:37
我想要的效果是能把这两个数字提取出来，分别将他们赋值给两个变量

上面不是把 1.0 ,0.5提出来了嘛。

st788796 · 发表于 2013-12-27 16:28:19

(mapcar 'set '(dat1 dat2) (mapcar 'distof (XD::STRING:REGEXPS "[0-9]+[^-]+" "G1.0-0.5" "")))

龙猫牛逼 · 发表于 2013-12-30 11:42:40

st788796 发表于 2013-12-27 16:28
(mapcar 'set '(dat1 dat2) (mapcar 'distof (XD::STRING:REGEXPS "[0-9]+[^-]+" "G1.0-0.5" "")))

(defun XD::String:RegExpS (pat str key / end keys matches x)
  (if (not *xxvbsexp)
(setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))
)
(vlax-put *xxvbsexp 'Pattern pat)
  (if (not key)
(setq key "")
  )
  (setq key (strcase key))
  (setq keys '(("I" "IgnoreCase") ("G" "Global")
      ("M" "Multiline")
      )
  )
  (mapcar
'(lambda (x)
   (if (wcmatch key (strcat "*" (car x) "*"))
      (vlax-put *xxvbsexp (read (cadr x)) 0)
      (vlax-put *xxvbsexp (read (cadr x)) -1)
   )
   )
keys
  )
  (setq matches (vlax-invoke *xxvbsexp 'Execute str))
  (vlax-for x matches (setq end (cons (vla-get-value x) end)))
  (reverse end)
)
(defun c:gj (/ f2-layer-0 f2-layer ss i n f2-ss f2-ir)
  (setq f2-layer-0 (car (entsel "\n请选择对象图层：")))
  (setq f2-layer (cdr (assoc 8 (entget f2-layer-0))))
  (princ "\n请选择对象:")
  (setq ss (ssget (list '(0 . "text") (cons 8 f2-layer))))
  (setq       i    0
      n    (sslength ss)
      f2-ss (ssadd)
  )
  (setq da1 (getreal "请输入小于的数值："))
  (setq da2 (getreal "请输入小于的数值："))
  (while (< i n)
(setq f2-real (ssname ss i))
(mapcar 'set'(dat1 dat2)(mapcar'distof (XD::string:regexps"[0-9]+[^-]+" f2-real)))
(if       (and(<= (atof dat1) da1) (<= (atof dat2) da2))
   (setq f2-ss (ssadd (ssname ss i) f2-ss))
)
(setq i (1+ i))
  )
  (command "erase" f2-ss "")
)

大神。。这是我按你的帮助编的。。可是不能用啊。。您能不能给看下

st788796 · 发表于 2013-12-30 13:58:11

龙猫牛逼发表于 2013-12-30 11:42
(defun XD::String:RegExpS (pat str key / end keys matches x)
(if (not *xxvbsexp)
(setq *xx ...

(defun c:gj (/ e ss da1 da2 l)
(if
(and (setq e (car (xdrx_entsel "\n请选择对象图层：" '((0 . "text")))))
(progn (princ "\n请选择对象:")
(setq ss (ssget (list '(0 . "text") (xdrx_getentdxf 8))))
)
(setq da1 (getreal "请输入小于的数值："))
(setq da2 (getreal "请输入小于的数值："))
(setq l (list da1 da2))
)
(mapcar '(lambda (x / str lst)
(setq str (xdrx_getpropertyvalue x "Textstring")
lst (mapcar 'distof (XD::string:regexps "[0-9]+[^-]+" str))
)
(if (vl-every '<= lst l)
(xdrx_entity_delete x)
)
)
(xdrx_pickset->ents ss)
)
)
(princ)
)

龙猫牛逼 · 发表于 2013-12-30 15:36:06

st788796 发表于 2013-12-30 13:58

你好。。。你编的这个运行不了啊。我想实现的是。。cad中一个图层中有很多“g1.0-0.5”这类的文本。。提取出数字与输入的数字比大小。。。如果小就删掉文本。。。我之前编的应该有很多问题。。我是菜鸟。。还望指导

龙猫牛逼 · 发表于 2013-12-30 16:01:30

st788796 发表于 2013-12-30 13:58

我之前编写的问题应该在于cad文本怎么转化成字符串用于XD::String:RegExpS函数，然后再怎么将输入的数与XD::String:RegExpS 提取出的数字进行比较

st788796 · 发表于 2013-12-30 16:20:42

龙猫牛逼发表于 2013-12-30 15:36
你好。。。你编的这个运行不了啊。我想实现的是。。cad中一个图层中有很多“g1.0-0.5”这类的文本。。提 ...

需要加载 XDRXAPI

龙猫牛逼 · 发表于 2013-12-30 16:50:44

st788796 发表于 2013-12-30 16:20
需要加载 XDRXAPI

加载后。处于选择图层和对象的循环中

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

[求助] lisp问题

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

点评

点评

点评

点评

点评

点评