中关村在线

首页 排行 新品 问答 下载 论坛 手机 笔记本 数码相机 主板 显卡 平板电脑 更多

请问怎么在CAD来自图纸上修改文字

举报
讨论回答 (5)
fgfguifu
937253553a
joey_lydia
934953588a
;;;修改文字内容
(defun C:ZX10 ( / #k1 %k2 %k3 %k4 %k5 %k6 %k7 &k1 &kw1 i)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (princ "
请选择文字")
 (setq &kw1 (ssget ":S" (list (cons 0 "TEXT"))) %k2 t);选择文字
 (if (/= &kw1 nil);如果有选择
  (progn
   (while %k2;循环修改
    (setq %k2 (ZX10~1));取得要修改的文字代码
    (if (/= %k2 nil);如果选择了
     (progn
      (setq %k3 (ZX10~2));那么取得要修改的内容
      (if (= %k3 nil) (setq %k2 nil) );如果没有取得内容就结束
     )
    )
    (if (/= %k求顾表副逐迫九参曲操查3 nil);如果符合以上条件
     (progn
      (setq i 0 %k3 (cons 1 %k3));修改内容变为表里面的元素
      (repeat (sslength &kw1);对所有的文字进行查看
       (setq &k1 (ssname &kw1 i);取得一个对象
             #k1 (entget &k1);取得属性列表
             %k4 (assoc 1 #k1);取得内容元素
             %k6 (assoc 40 #k1);取得高度元素
             %k7 (cons 40 150);修改高度元素
             %凯浓数钢洋团哪石践k5 (cdr %k4);取得文字内容
       )
       (if (= %k2 %k5);如果文字内容符合
        (progn
         (setq #k1 (subst %k3 %k4 #k1));替换文字内容
         (setq #k1 (subst %k7 %k6 #k1));替换高度
         (entmod #k1);刷新文字
        )
       )
       (setq i (+ i 1));下一个
      )
     )
    )
   )
  )
 )
 (prin1)
)

;;子程序;;
(defun ZX10~1 ( / %k1 &kw2)
 (setq %k1 nil)
 (princ "
请选择要修改的文字内容")
 (setq &kw2 (ssget ":S" (list (cons 0 "TEXT"))))
 (if (/= &kw2 nil)
  (progn
   (setq %k1 (cdr (assoc 1 (entget (ssname &kw2 0)))))
   (princ "
选择文字为")
   (princ %k1)
  )
 )
 %k1
)
;;;子程序;;
(defun ZX10~2 ( / %k1 &kw2)
 (setq %k1 nil)
 (princ "
请选择要替换的内容")
 (setq &kw2 (ssget ":S" (list (cons 0 "TEXT"))))
 (if (/= &kw2 nil)
  (progn
   (setq %k1 (cdr (assoc 1 (entget (ssname &kw2 0)))))
   (princ "
修改内容为")
   (princ %k1)
  )
 )
 %k1
);内容复制到记事本,以【***.lsp】命名,加载到autoLISP,命令:ZX10操作过程:首先框选需要修改的文字;然后点选需要修改的文字得到内容,然后点选需要修改的内容【文字】;a群杨眼才越肉么跑永utoLISP程序。
19870606
展开查看全部 5 条讨论
相关问题

CAD为什么要转换成PDF格式?有什么方法可以快速进行转换?

2349 浏览 9 回答

cad转换pdf格式怎么转?有什么简单的小技巧?

1616 浏览 9 回答

CAD看图如何导出PDF格式文件?

2929 浏览 8 回答

CAD图纸如何转换成彩色的PDF文件?

3558 浏览 8 回答

你知道有什么方法可以打开CAD图纸?

1325 浏览 8 回答

扩展阅读

微星MPG B850M EDGE TI MAX WIFI主板评测:银白刀锋战力拉满

评论 6

微星MPG B850M EDGE TI MAX WIFI主板评测:银白刀锋战力拉满

REDMI Turbo 5 Max深度评测:直接上 “Max”的底气来自哪里?

评论 13

REDMI Turbo 5 Max深度评测:直接上 “Max”的底气来自哪里?

用N卡1/3价格打造全能设计平台 实测看锐炫Pro B60性价比为何更高

评论 6

用N卡1/3价格打造全能设计平台 实测看锐炫Pro B60性价比为何更高

《明日方舟:终末地》体验:“触手可及”的工业化沉浸感

评论 4

《明日方舟:终末地》体验:“触手可及”的工业化沉浸感

荣耀Magic8 RSR长焦增距镜实测:5400mm长焦巨炮体验如何?

评论 19

荣耀Magic8 RSR长焦增距镜实测:5400mm长焦巨炮体验如何?
热门问题

平凡的荣耀父亲给女儿出气是第几集啊

1838 浏览 4 回答

平凡的荣耀父亲给女儿出气是第几集啊

电子发票代码在哪里看

5983 浏览 6 回答

电子发票代码在哪里看

拼多多的客户服务电话是多少啊?

3213 浏览 6 回答

拼多多的客户服务电话是多少啊?

军舰、潜艇等的航速用“节”来表明,一节到底有多大,折算成千米是多少?

1624 浏览 4 回答

军舰、潜艇等的航速用“节”来表明,一节到底有多大,折算成千米是多少?

华为手机有几个档次 最好 中等 下等 分别是好不好的 怎么一看就清楚的

9721 浏览 4 回答

华为手机有几个档次 最好 中等 下等 分别是好不好的 怎么一看就清楚的

新的手机剩余多少电量时充电合适

1965 浏览 4 回答

新的手机剩余多少电量时充电合适

用自己本人的相片做微信头像真的好吗?会不会泄露个人隐私?

3656 浏览 4 回答

用自己本人的相片做微信头像真的好吗?会不会泄露个人隐私?

中国体育彩票怎么样兑奖

8174 浏览 6 回答

中国体育彩票怎么样兑奖

如何设置ppt一级二级三级内容

1264 浏览 5 回答

如何设置ppt一级二级三级内容

未来十年有望翻十倍的股票有哪些?

3381 浏览 6 回答

未来十年有望翻十倍的股票有哪些?
最新问答

自由泳动作点评

1499 浏览 3 回答

自由泳动作点评

2010 ppt 怎么设置不同页幻灯片的播放顺序

6888 浏览 4 回答

2010 ppt 怎么设置不同页幻灯片的播放顺序

CAD怎样绘制A4大小的图框

4100 浏览 4 回答

CAD怎样绘制A4大小的图框

CAD迷你看图软件怎么导出一幅图中的一块区域为jpg?

6816 浏览 4 回答

CAD迷你看图软件怎么导出一幅图中的一块区域为jpg?

win7 32位,安装AUTO CAD2014为何不行?

2395 浏览 5 回答

win7 32位,安装AUTO CAD2014为何不行?
举报
举报成功

经过核实后将会做出处理,感谢您为社区和谐做出贡献。

请选择删除原因
删除成功
确定推荐该回答?
推荐成功

更多频道

频道导航
辅助工具