谁有交换单行文字内容的程序？

半听可乐 · 发表于 2012-7-13 11:36:47

具体要求：交换单行文字内容以及文字的所有属性

hao3ren · 发表于 2012-7-13 11:36:48

(defun C:hh (/ a b a1 b1)
  (setq a (entsel "\n选择第一个文本"))
  (setq b (entsel "\n选择第二个文本"))
  (setq a1 (cdr (assoc 10 (entget (car a)))))
  (setq b1 (cdr (assoc 10 (entget (car b)))))
(command "move" a "" a1 b1)
(command "move" b "" b1 a1)
(princ)
)

hao3ren · 发表于 2012-7-13 12:36:57

(defun C:hh (/ a b a1 b1)
  (setq a (entget (car (entsel "\n选择第一个文本"))))
  (setq b (entget (car (entsel "\n选择第二个文本"))))
  (setq a1 (cdr (assoc 1 a)))
  (setq b1 (cdr (assoc 1 b)))

  (setq a (SUBST (cons 1 b1)
   (ASSOC 1 a)
   a

   )
  )
  (setq b (SUBST (cons 1 a1)
   (ASSOC 1 b)
   b
   )
  )

  (ENTMOD a)
  (ENTMOD b)
(princ)
)

半听可乐 · 发表于 2012-7-13 13:13:20

本帖最后由半听可乐于 2012-7-13 13:13 编辑

hao3ren 发表于 2012-7-13 12:36
(defun C:hh (/ a b a1 b1)
(setq a (entget (car (entsel "\n选择第一个文本"))))
(setq b (entget ...

只能换内容，文字样式、图层等信息不能交换吗？

xyp1964 · 发表于 2012-7-13 13:39:41

直接相互移动交换位置

vormittag · 发表于 2012-7-13 14:04:18

呵呵，院长的解答是最好的。

半听可乐 · 发表于 2012-7-13 15:37:19

xyp1964 发表于 2012-7-13 13:39
直接相互移动交换位置

怎么实现呢？

半听可乐 · 发表于 2012-7-13 17:09:06

感谢好人兄！程序很好用

xyp1964 · 发表于 2012-7-13 18:54:34

;; 交换单行文字内容伪源码需要e派工具箱(XCAD)的支持
(defun c:tt ()
(if (and (setq s1 (car (entsel "\n选择第1个文本: ")))
(setq s2 (car (entsel "\n选择第2个文本: ")))
(not (equal s1 s2))
(xyp-etype s1 "text")
(xyp-etype s2 "text")
)
(progn
(setq p1 (xyp-get-9pt s1 1)
p2 (xyp-get-9pt s2 1)
)
(xyp-move s1 p1 p2)
(xyp-move s2 p2 p1)
)
)
(princ)
)

tianyi1230 · 发表于 2012-7-14 20:32:22

院长的是伪源码啊

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

谁有交换单行文字内容的程序？

最佳答案

相关帖子

点评