分享给朋友：通用代码: 复 制flash地址: 复 制html代码: 复 制请教下各位高手我这爬格子哪里不对求指点下载至电脑扫码用手机看用或微信扫码在手机上继续观看二维码2小时内有效请教下各位高手我这爬格子哪里不对求指点扫码用手机继续看用或微信扫码在手机上继续观看二维码2小时内有效，扫码后可分享给好友没有优酷APP？立即下载请根据您的设备选择下载版本
药品服务许可证(京)-经营- 请使用者仔细阅读优酷、、、、和Copyright(C)2017 优酷
版权所有不良信息举报***:查看: 5329|回复: 13
请高手看看这段用LISP往EXCEL里写数据的代码哪不对！？？
主题帖子积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
目的是将当前图中模型空间内的所有实体的对象名、ID号、层、颜色及线型等属性值写入到Excel的单元格中，但运行后提示错误: “Automation 错误。未提供说明”，是什么原因？？？
(defun C:BBC ()
(vl-load-com) ;调入ActiveX支持函数
(setq *AcadApp* (vlax-get-acad-object)) ;建立与AutoCAD Application对象的链接
(setq *ModelSpace* (vla-get-ModelSpace (vla-get-ActiveDocument *AcadApp*))) ;链接到模型空间
(if (equal nil exc-xlScaleLinear) ;检查一Excel常数以判断Excel对象库是否输入 (vlax-import-type-library ;输入Excel2010对象库 :tlb-filename &c:/program files/Microsoft Office/Office14/excel.exe& :methods-prefix &exm-& :properties-prefix &exp-& :constants-prefix &exc-& ) ) (setq msexcel (vlax-get-object &excel.application.14&)) ;链接Excel2010 (if (/= nil msexcel) (progn (setq acsheet (exp-get-activesheet msexcel)) ;链接当前工作表 (setq n 0) (vlax-for ent *ModelSpace* ;循环扫描模型空间实体 (progn (setq n (1+ n)) (exp-put-value (exp-get-range acsheet (strcat &a& (itoa n))) (vla-get-ObjectName ent) ;取得对象名属性 ) ;向Excel单元格&An&写入数据
(exp-put-value (exp-get-range acsheet (strcat &b& (itoa n))) (vla-get-ObjectID ent) ;取得对象ID属性 ) ;向Excel单元格&Bn&写入数据
(exp-put-value (exp-get-range acsheet (strcat &c& (itoa n))) (vla-get-Layer ent) ;取得层名属性 ) ;向Excel单元格&Cn&写入数据
(exp-put-value (exp-get-range acsheet (strcat &d& (itoa n))) (vla-get-Color ent) ;取得颜色属性 ) ;向Excel单元格&Dn&写入数据
(exp-put-value (exp-get-range acsheet (strcat &e& (itoa n))) (vla-get-Linetype ent) ;取得线型属性 ) ;向Excel单元格&En&写入数据 ) ;_ end of progn ) ;_ end of vlax-for
(if (equal 0 n) (alert &模型空间内未发现实体！&) ) ) ;_ end of progn (alert &Microsoft Excel2010 链接失败！&) ) ;_ end of if)
主题帖子积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
有点乱，把LSP文件附上吧
(1 KB, 下载次数: 62)
20:23 上传
点击文件名下载附件
主题帖子积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
老顾提醒的是，现把DWG图纸及说明附上！
(34 KB, 下载次数: 20)
10:57 上传
点击文件名下载附件
主题帖子积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
附上数据写入EXCEL格式 。
(8 KB, 下载次数: 25)
17:56 上传
点击文件名下载附件
主题帖子积分
在cad中看不到execl格式文件只好在cad中画成表格。
08:36 上传
点击文件名下载附件
1 KB, 下载次数: 25
主题帖子积分
助工, 积分 441, 距离下一级还需 159 积分
助工, 积分 441, 距离下一级还需 159 积分
请教顾版主，看了你的统计矩形的程序，觉得很棒。但我工作中遇到的问题是图形不是一个个rectang，而是类似田字形的线段，能将最小封闭区域的尺寸数量统计出来吗，谢谢
主题帖子积分
把田形的图形，要编一个程序，你点这个田形图形的二个角
(setq gg1 (getpoint &左下角:&) gg2 (getcorner gg1))
去选取后程序去给你画出四个小矩形。
1.外形是画矩形画出的矩形。中间的二根线是用pline画出。
2.外形是画矩形画出的矩形。中间的二根线是用line画出。
3.全部使用line画出，或全部彼炸开。也就是全部为line线。
程序可用的(setq e4 (ssget &w& gg1 gg2 '((90 . 4))) e2 (ssget &w& gg1 gg2 '((90 . 2))) e (ssget &w& gg1 gg2 '((0 . &LINE&))))
去求出选择集
再根据选择集的情况去求出九个点就可画出这四个矩形。
这个程序我已编出。
你们自己编一下。可讨论。
程序要尽量的做到小。
主题帖子积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
中级工程师, 积分 1873, 距离下一级还需 3127 积分
经过若干天的努力终于解决了，多谢老顾的指点；
“应用(setq f (open &文件名& &w&))
用(write-line 数据 f)&&
最后用(close f)”
把(write-line 数据 f)&&改为(princ &数据\\t\\n& f) 完美解决了！
主题帖子积分
学徒工, 积分 18, 距离下一级还需 82 积分
学徒工, 积分 18, 距离下一级还需 82 积分
好东西，可惜下载不了
主题帖子积分
学徒工, 积分 18, 距离下一级还需 82 积分
学徒工, 积分 18, 距离下一级还需 82 积分
下载了，可惜文件时坏的
主题帖子积分
学徒工, 积分 37, 距离下一级还需 63 积分
学徒工, 积分 37, 距离下一级还需 63 积分
主题帖子积分
助工, 积分 568, 距离下一级还需 32 积分
助工, 积分 568, 距离下一级还需 32 积分
这个我还不会，学习！
主题帖子积分
学徒工, 积分 6, 距离下一级还需 94 积分
学徒工, 积分 6, 距离下一级还需 94 积分
好东西，可惜下载不了
主题帖子积分
学徒工, 积分 6, 距离下一级还需 94 积分
学徒工, 积分 6, 距离下一级还需 94 积分
引用第7楼cz99于 16:23发表的&&:
经过若干天的努力终于解决了，多谢老顾的指点；
“应用(setq f (open &文件名& &w&))
用(write-line 数据 f)&&
最后用(close f)”
把(write-line 数据 f)&&改为(princ &数据tn& f) 完美解决了！可以上传源码提供学习吗，谢谢！
主题帖子积分
学徒工, 积分 1, 距离下一级还需 99 积分
学徒工, 积分 1, 距离下一级还需 99 积分
最近想做个类似的程序
Powered by查看: 1835|回复: 10
请各位高手看看哪儿不对，俺不懂
<&&br&*CPU AMD 羿龙II X4 955（黑盒） &br&&br&&br&*主板 技嘉 GA-870A-UD3&&&br&&br&&br&*内存 威刚 4GB DDR3 1333G超低电压版（游戏威 &br&&br&&br&*硬盘 WD 1TB 7200转 32MB（串口WD10EALS） &br&&br&&&显卡 迪兰恒进 HD6790 恒金 1G (&FONT color=#ff&/FONT&)&/P&
<&&br&&&光驱 三星 TS-H662A &br&&br&&br&LCD 三星 S22A330BW&&&br&&br&*机箱 酷冷至尊 开拓者P100&&&br&&br&&&电源 ANTEC VP550P (?)&/P&
<&悄悄的问一句，这套还有其他需要加散热片的地方吗？&/P&
<&还有就是我这个主板，在高一档的哪儿款比较好呢，电源是否还用换？&/P&
[此贴子已经被作者于 14:15:29编辑过]
不错，挺好的。
<&955与X6 1055T 就差300 性能上X6更好 将来2年内 高端6核心也不会落伍&/P&<&X4 955 马上就到终点了。&/P&
<&&FONT size=4&配置不错 955+6790 功耗不大 VP550绝对OK了 而且价格也不贵&/FONT&&/P&[em04]
提示: 作者被禁止或删除 内容自动屏蔽
显示卡如果换成6850，能更给力一些
&DIV class=quote&&B&以下是引用&I&海军&/I&在 14:35:00的发言：&/B&&BR&显示卡如果换成6850，能更给力一些&/DIV&
<&嗯，我昨天卖出去一块迪蓝恒HD6850酷能1G的卡，确实很给力。接口很全而性能表现超出我的想像啊。
<&全新卡基本没音安静还不发热。配I7-2600装的。那速度快的我都不敢信了。HD6850的卡确实很不错远远超出我以往对A卡的印像了。
<&最原来卖过不少的9550别的都挺好就是发热大了点。后来，A卡4系出现大量花屏的那批之后就在也没敢卖过A卡这么多年了。
<&从HD5系开始对A卡有点好感到HD6系这回终于敢出A卡了思想上转变还是经历了很常时间的。前年去年只是推荐让别人买过HD5系卡自已都敢出过。HD5反响都挺好后这回才敢出了HD6的卡。看来ATI又找回当年性价比高性能强劲的那种感觉啦。HD6850与GT460是平级水平。但HD6850耗能和发热更低，而性能我认为比GT460强一点价格相同的情况下更有优势。这与当年，ATI9550比GF520性能强很多而价格相同可以一比。
<&最近N卡不知为什么，发热量跟耗能两项指标与同级A卡比高的太多了，耗能与发热控制的不好。而性能与同级A卡持平但价格又贵了一点。
<&难怪AMD最近的年报上年度营业收入增长了两倍。这是多年不见的情况，不光是CPU，最近AMD在ATI显卡上成绩也很出色。A卡的研发能力在AMD的助力下有了很大的提高。看来英伟达要努力啦。&/P&
&FONT size=7&显示器最好用DELL的2311 &/FONT&
显卡恒金不如酷能，而且1T的硬盘没有1.5T性价比好。
<&花大价钱买870不如把钱花在CPU、显示器上&/P&<&VP、BP对得起那个价钱，反倒比追求什么认证什么方案来得实惠&/P&
<&HD6850 酷能比HD6790 贵了30%的价格&/P&<&但是性能也就10%左右 如果真不差那点银子 建议上GTX 560TI& &1599 选择也多，用料做工也比1200多的6850好太多了&/P&<&最主要是性能超越HD6950哦。现在的HD6850 基本上没啥性价比&/P&<&如果真要买建议选择1100左右的标准版6850 性价比还可以。（加强版再好也是6850但是价格不厚道差100-200）&/P&<&另外现在迪兰6790还没有酷能版 估计过一段会有。&/P&
Powered by
