[编程申请]：两列文字对应替换

dhxf

两列文字,数字个数相同;
一个命令后第一列的变成第二列
如:
1                  6
2                  7
3                  8
命令后第一列变成
6
7
8

xyp1964

觉得有点偏执，直接移动就可以了，命令：move！

自由的鱼

这不就是文字变换位置嘛，移动一下不是更简单？

lsjjm

最初由 dhxf 发布
[B]两列文字,数字个数相同;
一个命令后第一列的变成第二列...[B]

命题已知条件不充分. 简单情况下可以:
[php]
(defun c:test ()
  (prompt "\nSelect First column Text: ")
  (setq ss1 (ssget))
  (prompt "\nSelect Second column Text: ")
  (setq ss2 (ssget))
  (setq ss1 (acet-ss-sort ss1 'gety))
  (setq ss2 (acet-ss-sort ss2 'gety))
  (setq ip1 (cdr (assoc 10 (entget (ssname ss1 0)))))
  (setq ip2 (cdr (assoc 10 (entget (ssname ss2 0)))))
  (vl-cmdf "move" ss1 "" ip1 ip2 "")
  (vl-cmdf "move" ss2 "" ip2 ip1 "")
)
(defun gety (ent)
  (cadr (cdr (assoc 10 ent)))
)
[/php]

dhxf

多谢,LSJJM
是我没说明白问题----变换后变成
6              6
7              7
8              8

一列二列的文字大小不一样,文字间隔不一样,
刷后的文字大小间隔以第一列的为准;

lsjjm

试试这个:
[php]
(defun c:test ()
  (prompt "\nSelect First column Text: ")
  (setq ss1 (ssget))
  (prompt "\nSelect Second column Text: ")
  (setq ss2 (ssget))
  (setq ss1 (acet-ss-sort ss1 'gety))
  (setq ss2 (acet-ss-sort ss2 'gety))
  (setq n 0)
  (while (< n (sslength ss1))
    (setq obj1 (vlax-ename->vla-object (ssname ss1 n)))  
    (setq obj2 (vlax-ename->vla-object (ssname ss2 n)))
    (vla-put-textstring obj1 (vla-get-textstring obj2))
    (setq n (1+ n))
  )
)
(defun gety (ent)
  (cadr (cdr (assoc 10 ent)))
)
[/php]

dhxf

绘制系统图的一个革命呐----------------
太感谢了~~~~~~~~~
LSJJM-----

又错了

本人也用了，非常好用，谢谢

lmt112233

在r14已經加載,怎麼不能用

popsun

运行时出现下面的窗口，是哪里出了问题呀？

已经好了，只要命令的名字是"test"就会出现这个错误，改个名字就好了。这是什么原因啊？

ljwy520

CAD出现了致命错误，不能用呀

自由的鱼

国产正版？有这样的错误？

dhxf

用的时间长了 有一个问题;
defun error:no function acet-ss-sort
运行的时候需要别的什么么

lsjjm

acet- AutoCAD内部函数，2000+版本均支持。

ll_j

最初由 lsjjm 发布
[B]acet- AutoCAD内部函数，2000+版本均支持。 [/B]

acet- 应该是R2000以上的ET扩展函数，安装ET后才可以支持，R14的Bonus为ac-函数，与acet-函数不完全相同。