设为首页收藏本站 CAD论坛 CAD教程 CAD下载明经币充值

切换到宽版

明经CAD社区 › 日志

日志

最新发表的日志| 推荐阅读的日志 | 应用 | 开发 | 插件 | 电脑 | 知识 | 资讯 | 心情 | 生活 | 文学

分享把 CAD 上的文字导入 excel 表上: 373294296 2015-7-26 22:26; Sub ssssss() '把 CAD 上的文字导入 excel 表上 On Error Resume Next Application.DisplayAlerts = False 'CAD 输出坐标名称 Dim ssetobj As AcadSelectionSet Dim ent As AcadEntity Dim Dname As String Dim i, J, K, L As Integer Dim Eapp As Excel.Applicat ...; 234 次阅读|0 个评论

分享从打开 excel 文件把文字坐标导入cad: 373294296 2015-7-26 22:19; Sub tpic() ' 打开excel文件，导入cad 坐标，带文字 On Error Resume Next Dim xls As New Excel.Application Dim xlbook As Excel.Workbook Dim xl ...; 272 次阅读|0 个评论

分享注记多段线面积单位(亩): 373294296 2015-7-26 22:07; Sub GetObjInSet() On Error Resume Next Dim ssetobj As AcadSelectionSet Dim FilterType(0) As Integer Dim FilterData(0) As Variant Dim dm As AcadRegion Dim drm As Variant Dim b As Long FilterType(0) = ...; 133 次阅读|0 个评论

分享新换的头像怎么样啊！霸气吧？: wayne_myles 2015-7-23 12:20; 如何用心理学谈恋爱？开始一场恋爱真的需要杀死自己那么多次吗？小友真的为了这些痴男怨女捉急啊！我们邀请了两位家庭治疗师梁鸿儒和Casper来讨论这个问题。我是大锅，那你是不是我的锅盖？在开始一段关系前，我们经常会问自己，我们怎样才能了解对方，对方又究竟是不是自己命中注 ...; 930 次阅读|0 个评论

分享好软件分享给大家（本人珍藏的）感谢热心高手帮助会不定期增加欢迎关注: wayne_myles 2015-7-22 19:32; http://pan.baidu.com/s/1sjr8eFN 这是我云盘链接需要的朋友请移步下载 1，可以粘贴，复制，剪切的音乐编辑软件，界面很漂亮，是英文，应该难不到大家吧！ 2,单文件，功能全面的系统管理软件，使用很多年了 3.找了很久的微型本地音乐播放器，很小的， 4.许多需要的 ...; 1315 次阅读|0 个评论热度 3

分享收藏无痕的改标注高度希望日后可以加入单多行文字高度一起修改: wayne_myles 2015-7-21 16:49; ;|dmth＝　改变标注文字高度.bylxx.2008.4 说明：1.标注文字高度受到文本style影响，如果style默认高度不为0，直接put-TextHeight无效. 　　　2.本程序考虑了不同标注类型的文本及全局比例，统一按指定高度改变. 　　　3.公差可同比缩放. ...; 582 次阅读|0 个评论热度 1

分享好好用CAD: wayne_myles 2015-7-14 15:39; 好好用CAD 世界电影史上无法超越的经典《教父》一.二如果可以有一部影片打100分，那只能是《教父》。《教父》长时间稳居榜首是我对IMDBtop250权威性认可的一个理由。《教父》是迄今为止我看过遍数最多的电影，具体几遍已经记不清了，最初绝对是被艾尔帕西诺英俊的面庞而又霸气的表 ...; 821 次阅读|0 个评论

分享带容差去重: 77077 2015-7-7 00:01; (defun delsame(l1 rcz / l2);;带容差去重(重复过的取第一次出现)，有时处理坐标点需要考虑容差 Llsheng_73 (while l1 (setq l2(cons(car l1)l2)l1(vl-remove-if'(lambda (x)(equal(car l1)x rcz))(cdr l1)))) (reverse l2)); 379 次阅读|1 个评论热度 2

分享将三维多段线转换为二维多段线: 77077 2015-7-5 14:14; (defun C:trans2d () (VL-LOAD-COM) (setq AcadObject (vlax-get-acad-object)) (setq AcadDocument (vla-get-ActiveDocument Acadobject)) (setq mSpace (vla-get-ModelSpace Acaddocument)) (setq ename (car (entsel "选择要转换的三维多段线:"))) (setq ...; 385 次阅读|1 个评论

分享两对象交点: 77077 2015-7-5 14:08; ;(vla-intersectwith VLA对象 VLA对象延伸模式） ;延伸模式为 0~3 的整型（0--不延伸,1--延伸基本对象,2--延伸参数传递的对象,3--延伸) ;返回 ActiveX 点 ;或用 vlax-invoke 调用 (defun c:2objinters() (setq e1 (vlax-ename-vla-object(car(entsel))) e2 (vlax-ename-vla-obje ...; 372 次阅读|2 个评论热度 1

1 ... 7 8 9 101112 13 14 15 ... 55 / 55 页下一页

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

GMT+8, 2024-4-28 04:38 , Processed in 0.203075 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部