匹配源文字和目标文字内容

huangyusen2000 · 发表于 2013-11-30 18:56:29

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

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

×

(defun C:pp ()
(princ "匹配源文字和目标文字内容")
  (setq xzj (entsel "选取源对象"))
  (if xzj
(prin1 "成功")
  )
  (setq xzjmz (car xzj))

  (setq dglb (entget xzjmz)) ;列表
  (setq dgwz1 (cdr (assoc 1 dglb))) ;文字1
(repeat 10
  (setq xzj2 (entsel "被匹配对象"))
  (setq xzjmz2 (car xzj2))

  (setq dglb2 (entget xzjmz2)) ;列表
  (setq dgwz2 (assoc 1 dglb2)) ;文字2

  (setq xwz (cons 1 dgwz1))
  (setq dglb2 (subst xwz dgwz2 dglb2))
  (entmod dglb2)
  )
  (princ)
)

  (setq xwz (cons 8 dgwz1))
  (setq dglb2 (subst xwz dgwz2 dglb2))
  (entmod dglb2)
  )
  (princ)
)

enn09 · 发表于 2014-4-16 15:40:14

看看什么好方法

xvjiex · 发表于 2021-6-17 00:24:18

感谢分享匹配源文字和目标文字内容！

hh_lj007 · 发表于 2021-6-17 09:13:15

谢谢分享源码

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

[每日一码] 匹配源文字和目标文字内容

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