[分享]：■对文本复制编辑的程序■也许没用

zhuquanmao · 发表于 2004-10-18 21:56:40

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

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

×

经常用现成的文字拷贝然后再点击编辑新的文本现在合成了一步也不只有用没

[PHP](defun c:CPEDIT (/ origent origedntdata toedit txt pt1 pt2)
  (while (= origent nil)
(setq origent (entsel "\nplease select block or text:"))
  )
  (setq origentdata (cdr (entget (car origent))))
  (setq toedit (car origent))
  (setq pt1 (getpoint "\nbasic point:"))
  (setq pt2 (getpoint pt1 "\ncopy to:"))
  (command "copy" toedit "" pt1 pt2)

  (cond
((= (cdr (assoc 0 origentdata)) "TEXT")
   (command "ddedit" (cdr (car (entget (entlast)))))
)
((= (cdr (assoc 0 origentdata)) "INSERT")
   (command "eattedit" (cdr (car (entget (entlast)))))
)
((= (cdr (assoc 0 origentdata)) "MTEXT")
   (command "ddedit" (cdr (car (entget (entlast)))))
)
(t
   nil
)

  )
  (princ)
)[/PHP]

andyhua5240 · 发表于 2004-10-19 20:19:25

很好用，有用处的。不过有个缺点：就是在程序出现SELECT BLOCK OR TEXT时，要是什么也不选的话，用右键或空格退出不了！
希望能改改！
谢谢！

zhuquanmao · 发表于 2004-10-19 21:02:24

我一般都按ESC键呵呵我的宗旨：能用就成！

andyhua5240 · 发表于 2004-10-19 21:32:31

和我的习惯一样，不过也最好照顾一下其它的兄弟姐妹们呀？
你说呢？
谢谢！

自由的鱼 · 发表于 2004-10-19 22:24:14

这是一个很有用的程序啊，在面对大量分散的文字时很有用！

cq_qg · 发表于 2004-10-20 10:36:26

还是有用的，楼主真的提供了一些好东西！那个文本内容刷也挺好用的，不过要是能改成可以使用于多行文本的也行的话，就太好了！

andyhua5240 · 发表于 2004-10-20 10:55:11

最初由 cq_qg 发布
[B]还是有用的，楼主真的提供了一些好东西！那个文本内容刷也挺好用的，不过要是能改成可以使用于多行文本的也行的话，就太好了！ [/B]

你到这里看看：
www.mingsoft.net
有你想要的！

zhuquanmao · 发表于 2004-10-20 11:19:08

WWW.MINGSOFT.NET提供的程序不错推荐大家使用

urljit · 发表于 2004-10-23 10:59:40

madman:关于二楼提出的问题，去掉while函数就可以了，为什么不呢？另外，增加个错误处理函数吧，省得出现异常信息。
以上建议仅供参考。
[PHP]
(defun cpediterr (s)
  (command "undo" "e")
  (setq *error* olderr) ; Restore old *error* handler
  (princ)
)
(defun c:CPEDIT (/ origent origedntdata toedit txt pt1 pt2)
  (command "undo" "be")
  (setq olderr *error*
*error* cpediterr
  )
;;;  (while (= origent nil)
(setq origent (entsel "\n请选择块or文字:"))
;;;  )
  (setq origentdata (cdr (entget (car origent))))
  (setq toedit (car origent))
  (setq pt1 (getpoint "\n起始点:"))
  (setq pt2 (getpoint pt1 "\ncopy to:"))
  (command "copy" toedit "" pt1 pt2)
  (cond
((= (cdr (assoc 0 origentdata)) "TEXT")
   (command "ddedit" (cdr (car (entget (entlast))))"")
)
((= (cdr (assoc 0 origentdata)) "INSERT")
   (command "eattedit" (cdr (car (entget (entlast)))))
)
((= (cdr (assoc 0 origentdata)) "MTEXT")
   (command "ddedit" (cdr (car (entget (entlast))))"")
)
(t
   nil
)

  )
  (setq *error* olderr)
  (command "undo" "e")
  (princ)
)
[/PHP]

andyhua5240 · 发表于 2004-10-23 15:51:03

谢谢楼主，不错，顶先！

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

[分享]：■对文本复制编辑的程序■也许没用

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

相关帖子