明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 401|回复: 1

[提问] 求教如何连续实现交换功能

[复制链接]
发表于 2018-4-13 13:37 | 显示全部楼层 |阅读模式
  1. (defun c:maa()
  2. (setvar "cmdecho" 0)
  3. (setq en1 (entsel "选取源文本:"))
  4. (setq en_data (entget (car en1)))
  5. (setq old_rad_list (assoc 1 en_data));取得旧半径列表

  6. (setq en2 (entsel "选取目标文本:"))
  7. (setq en_data2 (entget (car en2)))
  8. (setq new_rad_list (assoc 1 en_data2));取得旧半径列表


  9. (setq en_data2 (subst  old_rad_list new_rad_list  en_data2))
  10. (entmod en_data2)
  11. (prin1)
  12. )
  13. (prompt "maa交换文本内容:")
代码如上。功能为把文字复制到另一个文字中。每次只能复制一次,求教如何刷一次源文本,连续可以选取目标文本
发表于 2018-4-13 14:29 | 显示全部楼层
本帖最后由 bssurvey 于 2018-4-13 15:27 编辑

試試這個
(defun c:maa()
(setvar "cmdecho" 0)
(setq en1 (entsel "选取源文本:"))
(setq en_data (entget (car en1)))
(setq old_rad_list (assoc 1 en_data));取得旧半径列表

(while (setq en2 (entsel "选取目标文本:"))
(setq en_data2 (entget (car en2)))
(setq new_rad_list (assoc 1 en_data2));取得旧半径列表


(setq en_data2 (subst  old_rad_list new_rad_list  en_data2))
(entmod en_data2)
)
(prin1)
(setvar "cmdecho" 1)
)

(prompt "maa交换文本内容:")[/code]代码如上。功能为把文字复制到另一个文字中。每次只能复制一次,求教如何刷一次源文本,连续可以选取目标文本
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 19:02 , Processed in 0.209931 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表