[求助]敬请sailorcwx帮忙,取消汇总

njwtg 发表于 2007-12-5 11:21:00

sailorcwx您好,在您编的程序中,我现在不需要其中的线段按图层线型汇总的命令,只需要能将线段的长度(带有图层线型的信息,您的程序中有这个功能的,这个功能不要取消)导出到excel就行了,请您修改一下,谢谢您

njwtg 发表于 2007-12-5 16:25:00

sailorcwx您好,能否请您帮忙解决一下,谢谢了

sailorcwx 发表于 2007-12-5 16:30:00

统计线形总长度(<a href="http://www.mjtd.com/object/autolisp/vlax-put-property.htm" target="_black">vlax-put-property</a> YH_s2_cells 'item YH_s2_column 1
(<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"线型\"" YH_s2_linetype "\"线段长度合计"))             (<a href="http://www.mjtd.com/object/autolisp/vlax-put-property.htm" target="_black">vlax-put-property</a> YH_s2_cells 'item YH_s2_column 4
(<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"=SUM(D"
(<a href="http://www.mjtd.com/object/autolisp/itoa.htm" target="_black">itoa</a> YH_s2_column1)
":D"
(<a href="http://www.mjtd.com/object/autolisp/itoa.htm" target="_black">itoa</a>
(- YH_s2_column 1))
")"))                         (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> YH_s2_layerct (<a href="http://www.mjtd.com/object/autolisp/append.htm" target="_black">append</a> YH_s2_layerct (<a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black">list</a> YH_s2_column))                   YH_s2_column (<a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black">1+</a> YH_s2_column)                   ) 统计图层总长度 (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> YH_s2_sum (<a href="http://www.mjtd.com/object/autolisp/apply.htm" target="_black">apply</a> 'strcat (<a href="http://www.mjtd.com/object/autolisp/mapcar.htm" target="_black">mapcar</a> '(<a href="http://www.mjtd.com/object/autolisp/lambda.htm" target="_black">lambda</a>(i)
(<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"D"
(<a href="http://www.mjtd.com/object/autolisp/itoa.htm" target="_black">itoa</a> i)
"+")) YH_s2_layerct))            YH_s2_sum (<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"="
(<a href="http://www.mjtd.com/object/autolisp/substr.htm" target="_black">substr</a> YH_s2_sum 1
(-
(<a href="http://www.mjtd.com/object/autolisp/strlen.htm" target="_black">strlen</a> YH_s2_sum)
1)))            )          (<a href="http://www.mjtd.com/object/autolisp/vlax-put-property.htm" target="_black">vlax-put-property</a> YH_s2_cells 'item YH_s2_column 1
(<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"图层\"" YH_s2_layer "\"线段长度合计"))          (<a href="http://www.mjtd.com/object/autolisp/vlax-put-property.htm" target="_black">vlax-put-property</a> YH_s2_cells 'item YH_s2_column 4 YH_s2_sum)          (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> YH_s2_tt (<a href="http://www.mjtd.com/object/autolisp/append.htm" target="_black">append</a> YH_s2_tt YH_s2_layerct)            YH_s2_column (<a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black">1+</a> YH_s2_column)            ) 统计所有长度(<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> YH_s2_sum (<a href="http://www.mjtd.com/object/autolisp/apply.htm" target="_black">apply</a> 'strcat (<a href="http://www.mjtd.com/object/autolisp/mapcar.htm" target="_black">mapcar</a> '(<a href="http://www.mjtd.com/object/autolisp/lambda.htm" target="_black">lambda</a>(i)
(<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"D"
(<a href="http://www.mjtd.com/object/autolisp/itoa.htm" target="_black">itoa</a> i)
"+")) YH_s2_tt))     YH_s2_sum (<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"="
(<a href="http://www.mjtd.com/object/autolisp/substr.htm" target="_black">substr</a> YH_s2_sum 1
(-
(<a href="http://www.mjtd.com/object/autolisp/strlen.htm" target="_black">strlen</a> YH_s2_sum)
1)))     )   (<a href="http://www.mjtd.com/object/autolisp/vlax-put-property.htm" target="_black">vlax-put-property</a> YH_s2_cells 'item YH_s2_column 1
"总计")   (<a href="http://www.mjtd.com/object/autolisp/vlax-put-property.htm" target="_black">vlax-put-property</a> YH_s2_cells 'item YH_s2_column 4 YH_s2_sum)   (<a href="http://www.mjtd.com/object/autolisp/vlax-release-object.htm" target="_black">vlax-release-object</a> YH_s2_excel)

njwtg 发表于 2007-12-5 16:59:00

谢谢您,终于可以用了,

ruirui999 发表于 2011-3-28 22:08:14

sailorcwx 你的管道系统昨样了喃？

页: [1]

明经CAD社区's Archiver

[求助]敬请sailorcwx帮忙,取消汇总