请版主帮忙！！！一个复杂图形加边框！(我已经贴图片了）

mingvictor · 发表于 2007-10-9 12:21:00

本帖最后由作者于 2007-10-10 16:14:36 编辑

兄弟在工程绘图时会遇到以下情况！

一个复杂的图形(也可能是其它复杂的图形，它有不确定性）需要加边框! 加的这个边框具体要求如下：边框到图形的外围X轴距离为4~5mm,Y轴距离为5~6mm，边框倒角！（要有三个R角R1.0,一个C角C1.0），边框的外围尺寸X.Y轴方向均须为整数！

小弟肯求版主及各高手出招！不是小弟偷懒，而是小弟是一个刚刚接触LSP的超级菜菜鸟！上面问题小弟编了两个多星期也没有成功！所以肯请各位明经高手出招！如兄弟讲的不清楚，可以参照附件！兄弟先谢谢了！

mingvictor · 发表于 2007-10-9 12:49:00

不要让它沉下去自己顶顶先！

英雄无敌 · 发表于 2007-10-9 14:42:00

还是那句话，用VBA的getboundingbox方法

mingvictor · 发表于 2007-10-9 14:57:00

楼上的兄弟，可我不懂VBA啊！

英雄无敌 · 发表于 2007-10-9 15:27:00

VLISP也可调用VBA的方法

(vl-load-com)

(setq en (entsel))

(if en

(progn

(setq en (vlax-entname->vla-object (car en)))

(vla-getboundingbox en 'p1 'p2)

(setq p1 (vlax-savearray->list p1)

p2 (vlax-savearray->lsit p2)

)

);end progn

);end if

p1,p2就是外框点了，如果很多图元，取一个最小点及一个最大点就行了。

Andyhon · 发表于 2007-10-9 19:04:00

题外话,您这种边切造型是不是有着容易崩裂的状况?

mingvictor · 发表于 2007-10-9 19:19:00

楼上的兄弟，还好吧！因为我们画的冲模基本用的是这种结构！至少到目前为此没有出现您讲的情况！

无痕 · 发表于 2007-10-9 22:48:00

能否贴图出来看看情况？

mingvictor · 发表于 2007-10-10 09:46:00

版主我有附件啊！附件里面就是我讲的状况！

无痕 · 发表于 2007-10-10 12:23:00

贴出图来明白些，不少人不太愿意下附件的，包括我在内

账号		自动登录	找回密码
密码			注册