求把一串文字中的空格替换为逗号，把乘号x替换为*

664571221

664571221 发表于 2018-7-9 14:32
可以了大侠，两个有啥不同呀，非常感谢

大侠可以加你QQ吗

bluefcc1

剪贴版函式来自
http://bbs.mjtd.com/forum.php?mo ... hlight=%D7%A2%B2%E1

bluefcc1

664571221 发表于 2018-7-9 14:34
大侠可以加你QQ吗

不好意思!我沒有QQ

664571221

bluefcc1 发表于 2018-7-9 15:50
不好意思!我沒有QQ

大侠看下这段程序最后生成的文字如何复制到粘贴板
(defun c:ss( / ss osmode i name ent size size_new size_all bak_cecolor)
  (setvar "cmdecho" 0)
  ;(setq osmode (getvar "osmode"))
   
  (setq i 0)
  (princ "\n选择尺寸")
  (if(setq ss(ssget '((0 . "DIMENSION"))))
    (progn
      (setq bak_dimzin(getvar 'dimzin))
      (setvar 'dimzin 8)
      (while (setq name (ssname ss 0))
        (setq i (1+ i))
        (setq ent (entget name))
        (setq size (cdr (assoc 42 ent)))
        (if (= i 1)
          (setq num_all size)
          (setq num_all (+ num_all size))
          )
        (setq size_new (rtos(* size 0.001) 2 3))
        (if (= i 1)
          (setq size_all size_new)
          (setq size_all (strcat size_all "+" size_new ))
          )
        (setq ss(ssdel name ss))
        )      
      (setq bak_cecolor(getvar 'cecolor))
      (setvar 'cecolor "1")
      (setq size_all(strcat "(" size_all ")"))
      (vl-cmdf "_.text" "j" "mc" (getpoint "\n文本放置点") "250" "0" size_all)
      (and bak_cecolor (setvar 'cecolor bak_cecolor))
      (and bak_dimzin (setvar 'dimzin bak_dimzin))
      )
    )
  ;(setvar "osmode" osmode)
  (setvar "cmdecho" 1)
  (princ)

  )

bluefcc1

(defun c:ss( / ss osmode i name ent size size_new size_all bak_cecolor)
   (setvar "cmdecho" 0)
   ;(setq osmode (getvar "osmode"))
   
   (setq i 0)
   (princ "\n選擇尺寸")
   (if(setq ss(ssget '((0 . "DIMENSION"))))
     (progn
       (setq bak_dimzin(getvar 'dimzin))
       (setvar 'dimzin 8)
       (while (setq name (ssname ss 0))
         (setq i (1+ i))
         (setq ent (entget name))
         (setq size (cdr (assoc 42 ent)))
         (if (= i 1)
           (setq num_all size)
           (setq num_all (+ num_all size))
           )
         (setq size_new (rtos(* size 0.001) 2 3))
         (if (= i 1)
           (setq size_all size_new)
           (setq size_all (strcat size_all "+" size_new ))
           )
         (setq ss(ssdel name ss))
         )      
       (setq bak_cecolor(getvar 'cecolor))
       (set-clip-string size_all)  ;複製到剪貼簿 (不含括號)
       (setvar 'cecolor "1")
       (setq size_all(strcat "(" size_all ")"))
       (vl-cmdf "_.text" "j" "mc" (getpoint "\n文本放置點") "250" "0" size_all)
       (and bak_cecolor (setvar 'cecolor bak_cecolor))
       (and bak_dimzin (setvar 'dimzin bak_dimzin))
       )
     )
   ;(setvar "osmode" osmode)
   (setvar "cmdecho" 1)
   (princ)

   )

;;剪貼簿函數
(defun set-clip-string (str / html result)
  (and
    (= (type str) 'str)
    (setq html (vlax-create-object "htmlfile"))
    (setq result (vlax-invoke (vlax-get (vlax-get html 'parentwindow)
                                        'clipboarddata
                              ) 'setdata "Text" str
                 )
    )
    (vlax-release-object html)
  )
)

664571221

bluefcc1 发表于 2018-7-9 16:09
(defun c:ss( / ss osmode i name ent size size_new size_all bak_cecolor)
   (setvar "cmdecho" 0)
   ...

谢谢大侠，非常感谢.

cabinsummer

无需编程，CAD命令行的FIND就实现了

evayleung

直接用CAD的FIND命令不好么？一样的好用啊。

ghgh0130

(vl-string-translate " X" ",*" "我好 你好X他好")

664571221

ghgh0130 发表于 2018-7-15 20:05
(vl-string-translate " X" ",*" "我好 你好X他好")

我只是举例，不是指针对这个