[LISP程序]：文字加括号

自由的鱼 · 发表于 2004-12-25 17:50:02

条条大路通罗马，：）

ruan_gdqf · 发表于 2005-1-10 22:39:20

对晓东工具箱又爱又恨。

li809 · 发表于 2005-3-2 13:48:21

好，但作用不大，没有编程的必要吧

ruan_gdqf · 发表于 2005-4-3 23:16:24

全是个人喜好，平时没有事，学了点东西就编了这些东西。

zhitu · 发表于 2005-4-3 23:30:48

各有各的优点，适用的就是好的！

bsq · 发表于 2005-4-4 09:01:46

晓东的有BUG，CTT的功能简单了点

glmyyy · 发表于 2005-4-19 12:22:28

XD里面好像有啊

ruan_gdqf · 发表于 2005-6-6 20:25:30

适用的就是最好的，我喜欢这样。
方便好用是最一的

贱人 · 发表于 2005-6-6 22:51:01

试试这个，想加什么自己决定

(defun c:88 (/ ss idx txtent newstr k)
  (setq
fx_pre (if fx_pre fx_pre "")
fx_pos (if fx_pos fx_pos "")
  )
  (princ (strcat "\n当前前缀：" fx_pre "  当前后缀：" fx_pos ""))
  (initget "O S")
  (setq
k (getkword "  [设置(O)]: ")
k (if k k "S")
  )
  (if
(= k "O")
(setq
   fx_pre (getstring 1 "\n请输入前缀: ")
   fx_pos (getstring 1 "\n请输入后缀: ")
)
  )
  (setq ss (ssget '((0 . "text"))) idx 0)
  (if ss
(repeat (sslength ss)
   (setq
      txtent (entget (ssname ss idx))
      newstr (strcat fx_pre (cdr (assoc 1 txtent)) fx_pos)
   )
   (entmod (subst (cons 1 newstr) (assoc 1 txtent) txtent))
   (setq idx (1+ idx))
)
  )
  (princ)
)

RBJZAQ · 发表于 2005-6-8 10:12:01

文修大师就有这个功能。

斑斑 · 发表于 2005-6-8 14:06:22

很不错啊，我感觉挺好用的！！

binggege1 · 发表于 2005-6-9 15:25:57

24楼,太牛了你

wwwdh · 发表于 2005-11-30 18:50:28

把(setq string (strcat "<" string1 ">") 改为(setq string (strcat "<" ">")，就成了把尺寸值改回原值得命令了，不信试试。如果你用ddedit 修改过尺寸值，可以用此命令该回原值。

qjcpj · 发表于 2005-12-1 00:03:40

各位好像都没有对尺寸标注文字加括号的功能，哪位编一个？

kfxz · 发表于 2005-12-6 11:09:36

是好东西，不过，哪位高手能不能帮我改一改，改成可以框选文字（如果包含不是文字可以不作改动）的，那就更好了，谢谢。

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

[LISP程序]：文 字 加 括 号

[LISP程序]：文字加括号