编程需求申请专贴(08.5)

      论坛上有不少CAD编程高手,特发专贴,各位在平时工作中经常遇到的CAD重复劳动,或难以解决的问题可以在本贴后跟贴申请编程,给予解决者将奖励10~50化工币,原创作品可以奖励100化工币和适当的积分,

编一个编制明细表的程序，在拉件号的同时可以输入明细栏的内容，也就是零件号与明细栏相关联，点零件号直接可以修改明细栏的内容。

原帖由 shiyuxin0318 于 2008-5-21 08:59 发表
编一个编制明细表的程序，在拉件号的同时可以输入明细栏的内容，也就是零件号与明细栏相关联，点零件号直接可以修改明细栏的内容。

呵呵，这个好象难度高了些，应该是个系统化工程了

原帖由 shiyuxin0318 于 2008-5-21 08:59 发表
编一个编制明细表的程序，在拉件号的同时可以输入明细栏的内容，也就是零件号与明细栏相关联，点零件号直接可以修改明细栏的内容。

这个确实是个系统化的工程。
三年前我见过某位兄弟做过，基于PVCAD程序自己开发的，集成了法兰、筒体、封头、螺栓、螺母等设备的数据库和计算公式，非常不错的说，当然啦，这是要花钱买的（我们也没买）。
他程序的便捷在于，只要你点击筒体、封头等线形，程序会自动跳出一个编辑框，自动显示筒体、封头等关键部件的参数（如件号、尺寸、数量等），自己编辑数量自动计算重量并在明细表中自动生成。
对于常规设备绘图非常的快速，不过现场测试时发现程序还存在一些问题，如换热管的布置等，正推还可以（很大程度上需手动再编辑图纸），倒着推算便不行了，所以当时也没买了。
当时他说他利用业余时间，开发这个程序花了好几年的时间，所以，阁下这个请求难度很高啊.......

请求编写一定范围同样直径的圆全部选定的程序

这是对换热器布管程序的补充, HPY的布管程序很不错,布好后,一般将换热管圆去掉,

当然 在CAD中可以用快速选择命令,但总感觉不是很爽快, 不知道能够编个小程序

感谢

试试下面的代码，也许可以实现。

1. (defun c:scy (/ yzj1 ss_get)
   
2. (if (= yzj nil) (setq yzj 25))
   
3. (setq yzj1 (getreal (strcat "\n请给定需删除的圆的直径<" (rtos yzj 2) ">:")))
   
4. (if (or (= yzj1 "") (not yzj1)) (setq yzj1 yzj) (setq yzj yzj1))
   
5. (setq ss_get (ssget (list '(0 . "CIRCLE") '(-4 . "=") (cons 40 (* 0.5 yzj1)) ) ))
   
6. (command "erase" ss_get "")
   
7. (princ)
   
8. )

复制代码

我们在写技术要求时，很多都是拷来拷去的，很多行文字，间距不同，记得原来的70个工具里也有这样的程序，升级到2007版又将其去了，现在想求个程序，只要选择到这些文字，就可完成此功能，行距可以均布。
程序最好发是源码的，这样我也可以学学，哈哈

原帖由 不会水的鱼 于 2008-5-30 17:14 发表
我们在写技术要求时，很多都是拷来拷去的，很多行文字，间距不同，记得原来的70个工具里也有这样的程序，升级到2007版又将其去了，现在想求个程序，只要选择到这些文字，就可完成此功能，行距可以均布。
程序最好发 ...

这个程序管理员2443725早已在论坛发布过了。http://bbs.hgbbs.net/thread-97711-1-2.html

建议编一个生成标准件（如法兰、人孔、支座等）的程序，并给出源代码，以供学习。

原帖由 yujian_12 于 2008-5-31 12:54 发表
建议编一个生成标准件（如法兰、人孔、支座等）的程序，并给出源代码，以供学习。

人孔不知道有没有，单法兰和支座论坛多有，自己查一下

多谢hpy兄，您给的链接我看了，那个行距需要自己输入值，我上面的想法是：很多行文字，选中后，首行和末行不变，行距会根据首行和末行之间的距离自动给出，就是以前y命令里有的，不过看过站长兄的那个程序，我直到怎么弄了，多谢