[LISP程序]：文 字 加 括 号

ruan_gdqf

原码-----文字合并

强---就顶

;字符串前后加括号
;2004.10.21
;

;----------------------------------------------------------------------------------
(defun c:r_jkh()
　(princ "  字加括号  --> 阮春辉　Email:ruan_gdqf@sina.com")
  (setq a (entsel "\n请选择文字：")
        a1 (entget(car a))
        a2 (assoc 1 a1)
        string1 (cdr a2)
  )
  (setq string (strcat "(" string1 ")")
        a1 (subst (cons 1 string) a2 a1)
  )
  (entmod a1)
  (princ)
)

[I]字符串前后加括号字符串前后加括号

自由的鱼

不错，支持楼主，继续发好的程序！

xyp1964

不知有何用？
[php]
;加括号
(defun c:jkh (/ a1 el str)
  (setq        a1  (car (entsel "\n请选择文字 : "))
        el (entget a1)
        str (dxf 1 el)
  )
  (setq        str (strcat "(" str ")")
        a1  (subst (cons 1 str) (ASSOC 1 el) el)
  )
  (entmod a1)
  (princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))
[/php]

ruan_gdqf

给一个需要加括号的字串加上括号。用这个程序可以提高工作效率。
当然这一程序还需要进一步改进。

它山之石

　　你的那个简单了点。看看俺的。
　　1、可以保持文字位置不变，
　　2、可以加几种不同括号，
　　3、可以删除括号，
　　4、可以用于R14以上版本。
　　定义的命令如下：

(defun C:kh () (&skh "（" "）"));;加全角小括号
(defun C:hkh () (&skh "(" ")"));;加小括号
(defun C:khh () (&skh "[" "]"));;加中括号
(defun C:kkh () (&skh "{" "}"));;加大括号
(defun C:khk () (&skh "!" ""));;;删除括号。

gdczm60

还不能下载?

ruan_gdqf

5楼你好

  你的和我的差不多了，只是分别换了括号的形式。最好的是把它们放在一个程序里，加上选择就不错。

它山之石

　　我不喜欢做出几个选项来，因为那样要选择的话就慢了。当然从程序的易用性上来说是可以的。

ruan_gdqf

各有想法，各有习惯，各有爱好，各有道理。适合自己的好用的就是最好的。
你说是吗？

xyp1964

最初由 ruan_gdqf 发布
[B]5楼你好

  你的和我的差不多了，只是分别换了括号的形式。最好的是把它们放在一个程序里，加上选择就不错。 [/B]

可以有多种变化：
[php]
;;;加括号
;;;c:jkh
(defun c:test020 (/ a1 el str)
  (setq        txt5 (ukword
               1
               "1 2 3 4 5 6 7 8 9"
               "\n请选择括号形式：1-()/2-（）/3-{}/4-[]/5-〔〕/6-「」/7-『』/8-〖〗/9-【】"
               txt5
             )
        a1   (car (entsel "\n请选择文字 : "))
        el   (entget a1)
        str  (dxf 1 el)
  )
  (khxs)
  ;;(setq    str (strcat "(" str ")"))
  (setq        a1 (subst (cons 1 str) (ASSOC 1 el) el)
  )
  (entmod a1)
  (princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))

(defun khxs ()
  (cond        ((= txt5 "1") (setq str (strcat "(" str ")")))
        ((= txt5 "2") (setq str (strcat "（" str "）")))
        ((= txt5 "3") (setq str (strcat "{" str "}")))
        ((= txt5 "4") (setq str (strcat "[" str "]")))
        ((= txt5 "5") (setq str (strcat "〔" str "〕")))
        ((= txt5 "6") (setq str (strcat "「" str "」")))
        ((= txt5 "7") (setq str (strcat "『" str "』")))
        ((= txt5 "8") (setq str (strcat "〖" str "〗")))
        ((= txt5 "9") (setq str (strcat "【" str "】")))
        (t (setq str (strcat "(" str ")")))
  )
)
(defun ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ":"))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp
    inp
    def
  )
)
(defun c:jkh()(c:test020))
[/php]

andyhua5240

不如文字修改大师吧，那才是强！

ruan_gdqf

我看文字修改大师里面有太多不实用的东西。用了一段时间觉得它还要改进才好。

zxcvbnm-cad

xyp1964
能不能做到晓东工具箱里文字加括号

http://www.xdcad.net/forum/showt ... d=393661#post393661

ruan_gdqf

晓东工具箱不错，但是有太多BUG，不够完美。就说文字加括号吧，如果你点的两点顺序颠倒，结果你就明白了，哈哈。

xyp1964

最初由 zxcvbnm-cad 发布
[B]xyp1964
能不能做到晓东工具箱里文字加括号

http://www.xdcad.net/forum/showt ... d=393661#post393661 [/B]

就用“晓东工具箱里文字加括号”就得。