求助！

烛光

我们公司是搞机箱模的。
  你能帮我写个小程序吗：
  （setq ss(ssget))  我现在想让程序传回所选图元的上下坐标值

前生

我现在在一家日资厂，类型比较杂。小到手机上的接触片，大到400吨的连续模.材料从0.1MM到3.2MM都有，我目前是设计部门的小主管，
业余时间，帮帮别人做做设计，挣些喝酒的钱...
下面的程序和用不?试试
(defun c:??()
(Defun my (ben / count doc handles l1 l2 count y1 y2)
    (setq count 0)
    (setq lyx nil)
    (setq lyy nil)
    (SetQ doc (VLA-Get-ActiveDocument (VLAX-Get-ACAD-Object)))
    (while (< count (sslength ben))
      (setq ent1 (ssname ben count))
      (SetQ
        handles
         (Cdr (Assoc 5 (EntGet ent1)))
      )
      (VLA-GetBoundingBox
        (VLA-HandleToObject doc handles)
        'llp
        'urp
      )
      (setq l1 (VLAX-SafeArray->List llp))
      (setq lyx (cons (Car l1) lyx))
      (setq lyy (cons (Cadr l1) lyy))
      (setq l2 (VLAX-SafeArray->List urp))
      (setq lyx (cons (Car l2) lyx))
      (setq lyy (cons (Cadr l2) lyy))
      (setq count (1+ count))
    )
    (setq lyx (vl-sort lyx '<))
    (setq lyy (vl-sort lyy '<))
  )
（setq ss(ssget))
;;;------------------
(mmy ss);
)

烛光

哇，在外资企业当主管肯定不简单了，我学设计才学了半年，端子模只听说过，连续模见过几副。不知前生版主现在用的是什么软件啊，我看你上传的文件好象用的是AutoCAD，不过你自己开发了好多工具吧。现在我们公司用的是台湾开发的pressCAD功能还不错，用它的软件画出来的图元会有资料，然后它有一个命令是注解输出，会写出图元的资料（加工说明）。不知前生板主有没有写过类试的程序呢？
很感谢网站制作者为我们这些CAD爱好者提供这个空间

前生

台湾统赢魏先生编的吧,其实他编的东西太僵化了，可能是没有模具设计方面的实际经验所制的，

前生

给我你的地址，我刻一张光碟给你吧

烛光

是的啊，你也用过啊，那他的软件用的还挺广的吗！不过大多数都是台资厂在用。对，他的模具了解的不是很多。前生版主你是搞模具的编出来的程序肯定都是比较实用的。最近他对滑块的功能做了些改进稍微好了点。

前生

现在他的平台是autoCAD还是Twincad?
其实，我一直都想整理滑块方面的东西，
不过用于冲压模具结构上的滑块可太多了,魏生的东西，好象
太简单了一些.我一直都是了解而已.不用呵呵

baozhiliang

因为只是想学习您做的这套图库管理程序，哪能让您如此破费？真是太感激了
其实从网上传递也完全可以的吧？

e2002

必须是augi会员才能进入下载区,如有需要我可以提供.不过功能实在是不如我写的那个.

图库程序推荐使用Blockwerx (from www.cadwerx.net)
希望哪位大虾能*****这个东东...8-)

龙龙仔