[编程申请]：求ACAD R14之lisp程序，选择两串字符，回车，则这两串字符交换位置。

lengliqun

求ACAD　R14之lisp程序，选择两串字符，回车，则这两串字符交换位置。

eachy

最初由 lengliqun 发布
[B]求ACAD　R14之lisp程序，选择两串字符，回车，则这两串字符交换位置。 [/B]

[PHP]
(defun c:test (/ e1 e2 oldos p1 p2)
  (if (and (setq e1 (entsel "\nFirst Text: "))
           (setq e2 (entsel "\nSecond Text: "))
      )
    (progn
      (setq oldos (getvar "osmode"))
      (setvar "osmode" 0)
      (setq p1 (osnap (cadr e1) "ins")
            p2 (osnap (cadr e2) "ins")
      )
      (command ".move" e1 "" p1 p2)
      (command ".move" e2 "" p2 p1)
      (setvar "osmode" oldos)
    )
  )
  (princ)
)
[/PHP]

lengliqun

R14、R2002不可用。

krjcxc321

好，好用，我试了能用于R14

ywx0576

eachy  的这段LSP很好，我在2005下试了一下，对单行、多行文字都有效!

陌生人

发一个改dxf的

2. 
   
3. (defun c:rep ()
   
4.   (setq ent1 (entget(car(entsel "\n选第一个实体：")))
   
5.         ent2 (entget(car(entsel "\n选第二个实体："))))
   
6.   (entmod (subst (assoc 10 ent2) (assoc 10 ent1) ent1))
   
7.   (entmod (subst (assoc 10 ent1) (assoc 10 ent2) ent2))
   
8.   (princ)
   
9. )

<br /> (defun c:rep ()<br />   (setq ent1 (entget(car(entsel "\n选第一个实体：")))<br />         ent2 (entget(car(entsel "\n选第二个实体："))))<br />   (entmod (subst (assoc 10 ent2) (assoc 10 ent1) ent1))<br />   (entmod (subst (assoc 10 ent1) (assoc 10 ent2) ent2))<br />   (princ)<br /> )

lengliqun

部分总算机上可用，部分计算机上提示错误：


exception in intocad arx command
   ! exceptin:Access violation at address 6dab31h

ywx0576

又试了一下，在2005中，eachy的lsp对尺寸标注和块也有效，陌生人的只对单行文字有效，对多行文字和标注都无效。

lsjjm

贴个VLA的
(defun c:test ()
  (vl-load-com)
  (setq e1 (car (entsel "\nSelect First: "))
        e2 (car (entsel "\nSelect Second:"))
        p1 (vla-get-insertionpoint (vlax-ename->vla-object e1))
        p2 (vla-get-insertionpoint (vlax-ename->vla-object e2)))
  (vla-put-insertionpoint (vlax-ename->vla-object e1) p2)
  (vla-put-insertionpoint (vlax-ename->vla-object e2) p1)
)

eachy

最初由 lsjjm 发布
[B]贴个VLA的
(defun c:test ()
  (vl-load-com)
  (setq e1 (car (entsel "\nSelect First: "))
        e2 (car (entsel "\nSelect Second:"))
        p1 (vla-get-insertionpoint (vlax-ename->vla-object e1))
    ... [/B]

对属性块有效吗?

lsjjm

最初由 eachy 发布
对属性块有效吗?[/B]

稍微改动一下:
交换两个属性位置:
(defun c:test ()
  (vl-load-com)
  (setq e1 (car (nentsel "\nSelect First: "))
           e2 (car (nentsel "\nSelect Second:"))
           p1 (vla-get-textstring (vlax-ename->vla-object e1))
           p2 (vla-get-textstring (vlax-ename->vla-object e2)))
  (vla-put-textstring (vlax-ename->vla-object e1) p2)
  (vla-put-textstring (vlax-ename->vla-object e2) p1)
)

flowerson

11楼主的我试了，不错的。