[编程申请]：求LSP程序：点击字符，则被点击字符变成MG4 V2[14

lengliqun · 发表于 2004-7-9 17:33:18

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

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

×

求LSP程序：点击字符，则被点击字符变成MG4 V2[14

自由的鱼 · 发表于 2004-7-9 18:13:50

用替换程序不就可以了嘛

lsjjm · 发表于 2004-7-10 12:54:51

最初由 lengliqun 发布
[B]求LSP程序：点击字符，则被点击字符变成MG4 V2[14 [/B]

你这几天连发了几个申请关于编辑文本字符编程的贴子. 其实内容大同小异, 第一贴已经有回应. 为何不举一反三自己试着修改或编编那? 这样可能你的收获更大!

lengliqun · 发表于 2004-7-13 12:34:44

不好意思，我是个程序盲，给我个LSP给我加载一下倒可以，修改程序可不行了，错个字符就可能不能运行。
至于用CAD的查找替换，当然，在各位大侠高人还没帮我弄出LSP程序前，我也只能用它啦。只是FIND命令总弹
出对话框，不同时间查找替换相同内容还得重新输入较烦。
顺便说一下，我的大量工作是在CAD中处理字符，所以提出的文字处理的无理要求比较多，请各位大侠帮帮我，特别
请lsjjm长老谅解。谢谢。

自由的鱼 · 发表于 2004-7-13 13:06:13

原来是这样，没有关系的，你有需要就说，有时间一定帮你~~

guizhicheng · 发表于 2004-7-26 16:25:14

我写了一个LSP给你，程序加载后，鼠标左键选择（可选择一个或多个字符串），再右键即可。

(defun c:xg()
      (setq s (ssget))
      (setq i 0)
      (setq l (sslength s))
      (while (< i l)
            (setq mc1 (ssname s i))
            (setq mc2 (entget mc1))
            (setq bb (assoc 1 mc2))
            (if (/= bb nil)
                  (progn
(setq text "MG4 V2[14")
                  (setq mc2 (subst (cons 1 text) (assoc 1 mc2) mc2))
                  (entmod mc2)
                  )
               )
            (setq i (+ i 1))
      )
)

以后如果需要变化成其它字符，只要把程序里的（setq text "MG4 V2[14"）修改一下即可。

lengliqun · 发表于 2004-7-27 12:37:26

能用，非常感谢。

lsy · 发表于 2004-7-27 14:04:28

能不能把“MG4 V2[14”改变为屏幕提示后，然后由键盘输入

guizhicheng · 发表于 2004-7-27 14:46:47

不太懂楼上的意思。
如果改为屏幕提示由键盘输入，只要把（setq text "MG4 V2[14"）改为：(setq text (getstring "\n请输入字符串： "))即可。但是这样一来，不能实现批量自动修改，而变成人工交互，这样程序有何意义？

自由的鱼 · 发表于 2004-7-27 17:25:14

最初由 guizhicheng 发布
[B]不太懂楼上的意思。
如果改为屏幕提示由键盘输入，只要把（setq text "MG4 V2[14"）改为：(setq text (getstring "\n请输入字符串： "))即可。但是这样一来，不能实现批量自动修改，而变成人工交互，这样程序有何意... [/B]

还是批量替换，只是把替换值改变而已！

saltxf · 发表于 2004-7-27 17:47:59

人家喜欢就行了，这两种各有各的好处，又时不想老改LISP,因为那很麻烦啊。

holywind · 发表于 2004-9-6 16:51:23

可以编写给替换文字定义，在选择的键入字符链接更改替换文字

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

[编程申请]：求LSP程序：点击字符，则被点击字符变成MG4 V2[14

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

相关帖子

Re: [编程申请]：求LSP程序：点击字符，则被点击字符变成MG4 V2[14

浏览过的版块