[求助]：关于CAD的数据修改问题

cxdcat

比如在CAD绘图中，一张基础桩顶标高图，有大量的标高，所有的标高我都标完，但是后来发觉错了，应该在原来的基础上，把标高加上0.5m的数值，按常规的方法要一个一个的改，工作量非常大。请问有没有方法可以一次修改实现这一做法。

自由的鱼

可以批量做的，论坛好象这样的程序很多啊！

guizhicheng

给你一个lsp，加载后运行，左键选择（可单选或多选），右键更改数值。

(defun c:xggc()
         (setq dat (getreal "\n请输入标高差值： "))
         (setq s (ssget))
         (setq i 0)
         (setq l (sslength s))
         (while (< i l)
                (setq mc1 (ssname s i))
                (setq mc2 (entget mc1))
                (setq bb (assoc 1 mc2))
                (if (/= bb nil)
                    (progn
                    (setq text1 (cdr bb))
                    (setq text2 (+ (atof text1) dat))
                    (setq text3 (rtos text2 2 1))
                    (setq text3 (strcat " " text3))
                    (setq mc2 (subst (cons 1 text3) (assoc 1 mc2) mc2))
                    (entmod mc2)
                    )
                 )
                (setq i (+ i 1))
       )
)

lsjjm

最初由 cxdcat 发布
[B]比如在CAD绘图中，一张基础桩顶标高图，有大量的标高，所有的标高我都标完，但是后来发觉错了.. [/B]

最好说明标高是TEXT? DIMENSION? 外行也可解答了.

ljg516

保留为数不能控制

lsz2004

请问lsp文件怎么加载啊。

阿土

最初由 lsz2004 发布
[B]请问lsp文件怎么加载啊。 [/B]

D:\Documents and Settings\wh\My Documents\My Pictures\101.bmp

lsjjm

加载lisp文件:
(load (findfile "test.lsp")) or
Tools-Load Application...

wdww

家园首页· 下载中心· 图纸中心· 文章中心· 教学中心· 晓东词典· 资源中心· FTP联盟· 校友录· 邮购服务
   设为首页
加入收藏
联系我们  

   论坛首页￤免费注册￤个人设置￤帮助￤退出论坛  爱心币规则    搜索  快速链接 游乐园   
搜索论坛
     

高级搜索
快速链接
最近新帖
今日新帖
我发起的主题
我参与的主题
我的收藏夹
我的悄悄话
订阅的主题
我的资料
打开好友列表
用户控制面板
编辑签名
编辑头像
编辑个人资料
编辑选项
个性签名
游乐园
爱心银行
形象中心
彩票中心
博彩中心
许愿板
涂鸦版

  为改善网站速度,本站接受大家捐款,共建家园,点击查看汇款方法和捐款朋友名单...

晓东CAD空间 > …工程师专栏 > ※晓东工具箱、编程申请※ > [求助]：关于CAD的数据修改问题
    上一主题   下一主题   
作者 主题      


  
cxdcat []  

初级会员


ID: No.153661
发贴数: 3

经验值: 10%  

等级: 1 级

现金:4￥
存款:￥

积分: 0  
注册日期: 2004.06.29
日均在线: 0.01 小时
来　　自:  


1楼楼主说：[求助]：关于CAD的数据修改问题   9pt 10pt 11pt 12pt 13pt 15pt  

比如在CAD绘图中，一张基础桩顶标高图，有大量的标高，所有的标高我都标完，但是后来发觉错了，应该在原来的基础上，把标高加上0.5m的数值，按常规的方法要一个一个的改，工作量非常大。请问有没有方法可以一次修改实现这一做法。  






向版主反映该贴 | IP: 已记录


2004年06月29日 17:18      


  
自由的鱼 []   

白金长老
技术人员  

ID:107309  发贴数: 3389  
经验值: 98%  


等级: 44 级 积分: 1
现金:41￥  存款:0￥  

注册日期: 2004.02.28
日均在线: 4.43 小时
来　　自:  


2楼楼主说：   9pt 10pt 11pt 12pt 13pt 15pt  

可以批量做的，论坛好象这样的程序很多啊！  





我爱自由！



向版主反映该贴 | IP: 已记录


2004年06月29日 18:16      


  
guizhicheng []  

初级会员


ID: No.160816
发贴数: 13

经验值: 38%  

等级: 2 级

现金:14￥
存款:￥

积分: 0  
注册日期: 2004.07.26
日均在线: 0.37 小时
来　　自:  


3楼楼主说：   9pt 10pt 11pt 12pt 13pt 15pt  

给你一个lsp，加载后运行，左键选择（可单选或多选），右键更改数值。

(defun c:xggc()
(setq dat (getreal "\n请输入标高差值： "))
(setq s (ssget))
(setq i 0)
(setq l (sslength s))
(while (< i l)
(setq mc1 (ssname s i))
(setq mc2 (entget mc1))
(setq bb (assoc 1 mc2))
(if (/= bb nil)
(progn
(setq text1 (cdr bb))
(setq text2 (+ (atof text1) dat))
(setq text3 (rtos text2 2 1))
(setq text3 (strcat " " text3))
(setq mc2 (subst (cons 1 text3) (assoc 1 mc2) mc2))
(entmod mc2)
)
)
(setq i (+ i 1))
)
)  






向版主反映该贴 | IP: 已记录


2004年07月26日 16:39      


  
lsjjm []  

白金长老


ID: No.525
发贴数: 2514

经验值: 31%  

等级: 40 级

现金:28￥
存款:5000￥

积分: 27  
注册日期: 2002.01.14
日均在线: 3.17 小时
来　　自:  


4楼楼主说：Re: [求助]：关于CAD的数据修改问题   9pt 10pt 11pt 12pt 13pt 15pt  


回复:最初由 cxdcat 发布
比如在CAD绘图中，一张基础桩顶标高图，有大量的标高，所有的标高我都标完，但是后来发觉错了..  



最好说明标高是TEXT? DIMENSION? 外行也可解答了.  






向版主反映该贴 | IP: 已记录


2004年07月27日 04:15      


  
ljg516 []  

初级会员


ID: No.160718
发贴数: 16

经验值: 74%  

等级: 2 级

现金:11￥
存款:￥

积分: 0  
注册日期: 2004.07.26
日均在线: 0.54 小时
来　　自: 山东泰安  


5楼楼主说：   9pt 10pt 11pt 12pt 13pt 15pt  

保留为数不能控制  





ljg
cad



向版主反映该贴 | IP: 已记录


2004年08月03日 12:43      


  
lsz2004 []  

普通会员


ID: No.136594
发贴数: 50

经验值: 90%  

等级: 5 级

现金:-225￥
存款:40￥

积分: 0  
注册日期: 2004.05.12
日均在线: 0.07 小时
来　　自:  


6楼楼主说：   9pt 10pt 11pt 12pt 13pt 15pt  

请问lsp文件怎么加载啊。  






向版主反映该贴 | IP: 已记录


2004年08月03日 14:01      


  
阿土 []  

高级会员


ID: No.142619
发贴数: 225

经验值: 1%  

等级: 14 级

现金:242￥
存款:￥

积分: 0  
注册日期: 2004.05.26
日均在线: 1.16 小时
来　　自: 北部湾  


7楼楼主说：   9pt 10pt 11pt 12pt 13pt 15pt  


回复:最初由 lsz2004 发布
请问lsp文件怎么加载啊。  




  





路漫漫其修远兮…



向版主反映该贴 | IP: 已记录


2004年08月05日 20:53      


  
lsjjm []  

白金长老


ID: No.525
发贴数: 2514

经验值: 31%  

等级: 40 级

现金:28￥
存款:5000￥

积分: 27  
注册日期: 2002.01.14
日均在线: 3.17 小时
来　　自:  


8楼楼主说：   9pt 10pt 11pt 12pt 13pt 15pt  

加载lisp文件:
(load (findfile "test.lsp")) or
Tools-Load Application...  






向版主反映该贴 | IP: 已记录


2004年08月06日 03:45      


  
时区: GMT北京时间. 现在时间: 14:23.      


   上一主题   下一主题   
  
       快速回复 [字数限制（为0不限制）：0]
标题:  
选项:
自动分析URL
Email 通知
显示签名
上传附件[最大: 512000 字节：]  附件收爱心币！
有效文件扩展名: gif jpg dwf pdf txt zip jpeg lsp dcl c cpp swf rar
     



显示可打印版本 |  将本页发送给朋友 |  订阅该主题 |  添加到收藏夹


  论坛跳转:
请选择: -------------------- 悄悄话 用户控制面板 谁在线 搜索论坛 论坛首页 -------------------- …工程师专栏-- ※晓东工具箱、编程申请※-- ※图库、素材、工程图纸DWG交流※…编程开发板块-- ※LISP应用程序开发接口XDRX_API技术支持※-- ※Autodesk ADN 开发人员网络开发技术资料※-- ※AutoLISP/VLISP 开发技术※-- ※VBA、COM-ActiveX Interfaces 开发技术※-- ※ObjectARX 开发技术※-- ※AUTOCAD软件定制※-- ※LISP、VBA、ARX 程序（函数）库※---- □-LISP函数库---- □-LISP程序库---- □-ARX函数库---- □-VBA 函数库…行业软件-- ※天奇建筑软件使用技术※-- ※PKPM系列软件应用技术※-- ※天正建筑系列软件应用技术※-- ※理正建筑、结构、电气、给排水软件使用技术※---- ※理正建筑、电气软件注册专用论坛※-- ※探索者结构软件使用技术※-- ※国标平法G101.CAD结构软件使用技术※…Autodesk 专栏-- ※AutoCAD 软件使用技术※-- ※AutoCAD下外挂实用工具应用技术※-- ※Autodesk 其它软件使用技术※…软、硬件应用板块-- ※计算机软件、硬件应用技术※-- ※EXCEL软件在工程中的应用技术※-- ※MicroStation 软件使用技术※-- ※ArchiCAD 和 Cheif 建筑软件应用技术※-- ※3DMAX、VIZ 、LightScape软件使用技术※-- ※平面设计软件应用论坛※-- ※草图大师sketchup软件应用技术※-- ※软件与CAD、CAM、CAE、3D 应用技术※-- ※建筑及其3D动画渲染表现※…城乡规划专业板块-- ※专题讨论区※-- ※规划设计成果区※-- ※常识、图片、配景区※-- ※规划师注册考试※…景观园林专业板块-- ※景观园林专业设计※-- ※园林方案※-- ※园林施工图设计※-- ※园林施工、管理和监督※-- ※园林实景、素材※…建筑专业板块-- ※建筑学术版※-- ※建筑方案、表现版※-- ※建筑施工图版※-- ※建筑设计素材、实景照片版※-- ※建筑师注册考试※---- ※设计前期与场地※---- ※建筑设计做图※---- ※建筑设计(知识题)※---- ※建筑结构※---- ※建筑物理与建筑设备※---- ※建筑材料与构造※---- ※建筑经济、施工与设计业务管理※…结构专业板块-- ※结 构 设 计※-- ※结构计算方法※-- ※地基与基础※-- ※钢筋混凝土结构※-- ※砌体结构※-- ※钢结构※-- ※特殊结构※-- ※结构师注册考试※---- ※基础部分※---- ※专业部分※…电气专业板块-- ※强电设计与施工※-- ※弱电设计与施工※-- ※电气工程师注册考试※…专业技术板块-- ※给排水专业设计※-- ※采暖、通风、空调专业设计※-- ※土建工程施工与监理技术※-- ※工程项目预决算※-- ※市政专业设计※-- ※公路设计、施工与招投标※-- ※水利专业设计※-- ※机械设计与CAD技术※-- ※室内外装饰设计与施工※---- ※室内设计与渲染表现※---- ※施工图设计与施工技术※…轻松、娱乐板块-- ※生活百味※---- ※数码手册※-- ※弹指春风※-- ※声光幻影※-- ※心絮漫天※…站务管理-- ※站务管理与公告※---- ※图纸中心投诉专区※-- ※论坛回收站※   
   给这个主题评分:
选择评分... 5 .. 真酷 4 3 .. 一般 2 1 .. 糟糕   


论坛状态:你可以发布新主题
你可以回复主题
你可以上传附件
你可以编辑自己的帖子  HTML代码 允许
vB代码 允许
表情符号 允许
[IMG]代码 允许  

   


< 管理员信箱 - 晓东CAD空间 >
QQ:7598165 MSN:xdsoft@21cn.com



本论坛属于个人性质的论坛,仅提供会员交流!
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律有抵触的言论!否则后果自负