几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量  


返回   几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 » 仿射空间:CAX软件开发(三)二次开发与程序设计 » CAD二次开发 » AutoCAD二次开发 » ObjectARX(AutoLISP)
用户名
密码
注册 帮助 会员 日历 银行 搜索 今日新帖 标记论坛为已读


 
 
主题工具 搜索本主题 显示模式
旧 2009-04-23, 03:40 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】[求助]求高手帮忙写一段统计文字程序!

[求助]求高手帮忙写一段统计文字程序!
www.dimcax.com
[求助]求高手帮忙写一段统计文字程序!
该文件为 autocad
d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35( t_ins (p1 s h / ent)
( ent '((67 . 0)(0 . "text"))
ent ( ( 40 h) ent)
ent ( ( 1 s) ent)
ent ( ( 10 p1) ent)
ent ( ent)
)
( ent)
)
( c:test1()
( "-layer" "n" "pntext" "s""pntext""")
( kuan ( "\n请输入冲针宽度增加量(0.1):")
chang ( "\n请输入冲针长度增加量(0.1):")
hao ( "\n请输入起始符号的整数(1):"))
( ( kuan nil) ( kuan "0.1"))
( ( chang nil) ( chang "0.1"))
( ( hao nil) ( hao "1"))
( p ( "\n请确定报表输出位置:"))
( p ( p 1 0))
( sd ( "x" ((cons 8 "pn1"))))
( kx ( "x" ((cons 8 "pn2"))))
( a ( sd))
( a0 ( ( 10 ( ( sd 0))))
a1 ( ( 1 ( ( kx 0)))))
( k1 ( a1 1 4)
k2 ( a1 6 4)
kk1 ( a1 10 4)
kk2 ( a1 15 2)
kk3 ( a1 17)
k3 ( ( ( k1) ( kuan)) 2 2)
k4 ( ( ( k1) ( chang)) 2 2))
( es ( hao " " k1 " * " k2 kk1 kk2 " " k3 " * " k4 " " "" " " "(" kk3 ")"))
(t_ins ( '+ p '(-2.0 5.0 0.0)) "符号 尺 寸 形状 冲 针 数量" 2.5)
(t_ins ( '+ p '(0.0 0.0 0.0)) es 2.3)
)
求高手修改!!
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)
 


主题工具 搜索本主题
搜索本主题:

高级搜索
显示模式

发帖规则
不可以发表新主题
不可以回复主题
不可以上传附件
不可以编辑您的帖子

vB 代码开启
[IMG]代码开启
HTML代码关闭



所有的时间均为北京时间。 现在的时间是 11:55 AM.


于2004年创办,几何尺寸与公差论坛"致力于产品几何量公差标准GD&T | GPS研究/CAD设计/CAM加工/CMM测量"。免责声明:论坛严禁发布色情反动言论及有关违反国家法律法规内容!情节严重者提供其IP,并配合相关部门进行严厉查处,若內容有涉及侵权,请立即联系我们QQ:44671734。注:此论坛须管理员验证方可发帖。
沪ICP备06057009号-2
更多