截去某个字符后面的文字，留下前面的字符

adc

自贡黄明儒 发表于 2014-1-14 08:20
(atoi (VL-STRING-LEFT-TRIM "N=" "N=45808,M=2547"))=>45808

mark一下~~~

xyp1964

2. ;; (aaa "N=45808,M=2547" "=" ",")
   
3. (defun aaa (str str1 str2 / m)
   
4.   (setq m (vl-string-search str1 str))
   
5.   (substr str (+ m 2) (- (vl-string-search str2 str) m 1))
   
6. )

;; (aaa "N=45808,M=2547" "=" ",")<br /> (defun aaa (str str1 str2 / m)<br />   (setq m (vl-string-search str1 str))<br />   (substr str (+ m 2) (- (vl-string-search str2 str) m 1))<br /> )

ZZXXQQ

1. (atoi(substr "N=45808,M=2547" 3))

复制代码

q3_2006

(substr "N=45808,M=2547" 3 5)

q3_2006

xyp1964 发表于 2014-1-30 08:45

如果要返回2547呢...

xyp1964

(xyp-Get-HzEngNum "N=45808,M=2547" 3) → ‘("45808" "2547")

zzl9105

lyqiezi 发表于 2014-1-18 17:26
献丑了，自己平时用的别的lsp改的，因为水瓶有限，所以源码就不放了
图层是根据ftarget文件的，如果文字的 ...

谢谢你，能处理了
可否把源码发我邮箱，363361560@qq.com。
我好用你这个改吧改吧，自已再倒腾一下。
谢谢

lyqiezi

……换了公司，有些没拷回来，不过我的都挺简单的，重新弄一个再发给你了

lyqiezi

(defun c:smn()
  (setq tc (cdr (assoc 8 (entget (car (entsel "\n 选择要处理的图层")))))) ;取图层
  (setq ti% 0)
  (princ "\n 选择处理的文字")
    (if (setq s1 (ssget (list (cons 0 "text") (cons 1 "*,M=*") (cons 8 tc))))
     (progn
       (while
        (<=
                ti%
                (- (sslength s1) 1)
        )
        (setq ename (ssname s1 ti%))
        (setq e (entget ename))                ;取实体表e
        (setq ol (assoc 1 e))                ;获取字体列表
        (setq str1 (cdr ol))           ;获取字体内容
        (setq sl (strlen str1))        ;获取字体长度
        (setq str2 (substr str1 3 (- sl (+ (vl-string-search ",M=" str1) 2))));最终文字
        (setq nl (cons 1 str2))
        (setq e (subst nl ol e))  
        (entmod e)
        (setq ti% (+ 1 ti%))
         )  ;end while
      ) ;endprogn s1/=nil
    )  ;endif  s1 /= nil
    (prin1)
)

应该比原先的好，原先写的时候刚学没多久

lyqiezi

循环还能再简单一点，你自己改吧，这循环是刚开始学的时候套用别人的