字符串处理——已解决

yinchuan99001 · 发表于 2019-6-26 11:35:48

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

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

×

本帖最后由 yinchuan99001 于 2019-7-3 13:52 编辑

;;;;;;;;;;;;;;;;;;;;;
字符串
20.00Tx516.0Wx200.0H
怎样用lisp语言得到
20x516x200
;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:ttt(/ text nam tsel)
(setq text (entget(car(entsel))))
(setq nam (assoc 1 text))
(setq tsel (cdr nam))
后面怎样处理，请教各位老师。

pxr201419 · 发表于 2019-6-26 17:50:37

(setq tsel (cdr nam) gs nil st "1")
(while (setq wd (vl-string-search "." tsel) wx (vl-string-search "x" tsel))
(setq gs (cons (substr tsel 1 wd) gs) tsel (substr tsel (+ 2 wx))) )
(foreach x (reverse gs) (setq st (strcat st x "x")))
(setq tsel (substr (strcat st (substr tsel 1 (vl-string-search "." tsel))) 2))

yinchuan99001 · 发表于 2019-6-27 10:03:28

pxr201419 发表于 2019-6-26 17:50
(setq tsel (cdr nam) gs nil st "1")
(while (setq wd (vl-string-search "." tsel) wx (vl-string-sear ...

万分感谢您的解答，谢谢您！
(defun C:ttt ()
  (setq text (entget (car (entsel))))
  (setq nam (assoc 1 text))
  (setq tsel (cdr nam) gs nil st "1"  )
  (while (setq wd (vl-string-search "." tsel)
         wx (vl-string-search "x" tsel)
   )
(setq gs (cons (substr tsel 1 wd) gs)
   tsel (substr tsel (+ 2 wx))
)
  )
  (foreach x (reverse gs)
(setq st (strcat st x "x"))
  )
  (setq tsel (substr (strcat st (substr tsel 1 (vl-string-search "." tsel)))
      2
      )
  )
)

yinchuan99001 · 发表于 2019-7-9 14:25:52

本帖最后由 yinchuan99001 于 2019-7-9 14:29 编辑

(defun c:tttt ()
  (setq character (entget (car (entsel))))
  (setq character_en (assoc 1 character))
  (setq  string (cdr character_en)  str_dat nil  st "1" )
  (setq num (vl-string-search "." string))
  (if (> num 0)
(progn
   (while
      (setq num (vl-string-search "." string) tex (vl-string-search "x" string))
      (setq str_dat (cons (substr string 1 num) str_dat) string (substr string (+ 2 tex)))
   ) ; while end
   (foreach x (reverse str_dat)(setq st (strcat st x "x")))
   (setq string (substr (strcat st (substr string 1 (vl-string-search "." string))) 2))
   (setq character_en_n (cons 1 string))
   (setq character (subst character_en_n character_en character))
   (entmod character)
);progn end
(progn
   (while
   (setq num (vl-string-search "." string) tex (vl-string-search "x" string))
   (setq str_dat (cons (substr string 1 num) str_dat))
   (setq string (substr string (+ 2 tex) num))); while end
   (foreach x (reverse gs)(setq st (strcat st x "x")))
   (setq tsel (substr (strcat st (substr tsel 1 (vl-string-search "." tsel))) 2))
   (setq character_en_n (cons 1 string))
   (setq character (subst character_en_n character_en character))
   (entmod character)
);progn end
  )
)

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

[已解决] 字符串处理——已解决

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

相关帖子