比较相同文字

cz78873559 · 发表于 2013-5-9 18:17:31

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

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

×

谁能帮我看看以下这段代码，怎样比较选中文字，如果有相同的，则变成绿色。

cz78873559 · 发表于 2013-5-9 18:18:03

本帖最后由 cz78873559 于 2013-5-9 20:58 编辑

;判断同名
(defun c:tm()
(setvar "CMDECHO" 0)
(setq ys (ssget "X"(list '(0 . "*TEXT"))))
(command "change" ys "" "p" "C" "BYLAYER" "");先变颜色为随层
(prompt "请选择需要比较的文本!!!")
(if (setq sst ((list '(0 . "*TEXT"))))
(if setq ss (ssget (list '(0 . "*TEXT")(cons 1 sst))));判断是否包含
(if (/= ss nil)
(command "change" sst "" "p" "C" "3" ""));条件成立则变色
(setvar "CMDECHO" 1)
(princ)
)

Lispboy · 发表于 2013-5-9 21:08:41

(prompt "请选择需要比较的文本!!!")
(if (setq sst ((list '(0 . "*TEXT"))))

这个地方你本意是想做什么？

cz78873559 · 发表于 2013-5-9 21:12:03

我的本意是，框选出需要比较的（单行）文字后，然后进行比较，如果内容有相同的，则变成绿色。

cz78873559 · 发表于 2013-5-9 21:13:39

麻烦给我指点指点，我是菜鸟。

zxq0220 · 发表于 2013-5-9 21:20:49

本帖最后由 zxq0220 于 2013-5-9 22:05 编辑

[pcode=lisp,true]
;全图判断相同的单行文字
(defun c:tm()
(setvar "CMDECHO" 0)
(if (setq ss (ssget "X" '((0 . "TEXT")))) (progn
  (command "chprop" ss "" "C" "BYLAYER" "");先变颜色为随层
  (setq i -1)
  (repeat (sslength ss)
(setq txt (assoc 1 (entget(ssname ss (setq i (1+ i))))))
(if (and (setq ss1 (ssget "X" (list '(0 . "TEXT") txt))) (> (sslength ss1) 1));判断是否包含
(command "chprop" ss1 "" "C" "3" "");条件成立则变色
)
  )
))
(setvar "CMDECHO" 1)
(princ)
)
[/pcode]
[pcode=lisp,true]
;框选区域内判断相同的单行文字
(defun c:tm()
(setvar "CMDECHO" 0)
(setq pt1 (getpoint "\n第一角点 :"))
(setq pt2 (getcorner pt1 "\n第二角点 :"))
(if (setq ss (ssget "W" pt1 pt2 '((0 . "TEXT")))) (progn
(command "chprop" ss "" "C" "BYLAYER" "");先变颜色为随层
(setq i -1)
(repeat (sslength ss)
(setq txt (assoc 1 (entget(ssname ss (setq i (1+ i))))))
(if (and (setq ss1 (ssget "W" pt1 pt2 (list '(0 . "TEXT") txt))) (> (sslength ss1) 1));判断是否包含
(command "chprop" ss1 "" "C" "3" "");条件成立则变色
)
)
))
(setvar "CMDECHO" 1)
(princ)
)
[/pcode]

cz78873559 · 发表于 2013-5-9 21:53:03

zxq0220 厉害！果然是高手，成功实现了

cz78873559 · 发表于 2013-5-9 21:54:10

[pcode=c,true](defun c:tm=()
(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "TEXT")))) (progn
  (command "chprop" ss "" "C" "BYLAYER" "");先变颜色为随层
  (setq i -1)
  (repeat (sslength ss)
(setq txt (assoc 1 (entget(ssname ss (setq i (1+ i))))))
(if (and (setq ss1 (ssget "X" (list '(0 . "TEXT") txt))) (> (sslength ss1) 1));判断是否包含
(command "chprop" ss1 "" "C" "3" "");条件成立则变色
)
  )
))
(setvar "CMDECHO" 1)
(princ)
)[/pcode]

cz78873559 · 发表于 2013-5-9 21:55:12

(setq txt (assoc 1 (entget(ssname ss (setq i (1+ i))))))
为什么不能实现框选呢？

cz78873559 · 发表于 2013-5-9 22:13:21

能实现了。谢谢你！

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

[求助] 比较相同文字

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

相关帖子