自己学着写个代码，对象外围线，有些代码不会使用，请老师指正

hhh454 · 发表于 2011-1-20 09:29:52

我先简单说明一下我的思路，（下面有图片）
1，根据多项选择对象（ssget），自动在对象的外围画出pline线，并向外平偏移1mm。
我自己先做了一个代码，简单的，多项选择对象为方形排布，这样我就可以用代码，飞诗vlisp得到代码：
(vla-GetBoundingBox *base*)

，取得最大和最小点，这个代码具体怎么得到不会用，

2，根据多项选择对象（ssget），外围画出多边形的，算点麻烦一点，这个不知道怎么弄

3，下面的文件是，就是图片的cad文件

hhh454 · 发表于 2011-1-20 09:33:09

院长的工具箱里面有个命令可以实现这样的功能，他是根据每个选择到的对象都向外偏移一定的距离，然后通过pline布尔得到一个外围的线，（不知道我说的对不对，

）

ZZXXQQ · 发表于 2011-1-20 21:34:47

本版有画多个物体外框的源代码，找找看。

hhh454 · 发表于 2011-1-21 10:24:32

请zzxxqq帮忙解释一下这个代码的用法(vla-GetBoundingBox *base*)

hhh454 · 发表于 2011-1-21 10:29:06

回复 ZZXXQQ 的帖子

请zzxxqq帮忙解释一下这个代码的用法(vla-GetBoundingBox *base*)

ZZXXQQ · 发表于 2011-1-21 13:05:16

vl系列函数我不清楚。问别人吧。

hhh454 · 发表于 2011-1-21 16:02:37

回复 ZZXXQQ 的帖子

请问版主，lisp也可以得到这些点吗？能不能给个方法，我刚刚基础学习，麻烦，论坛里面的太深奥了，看不懂

Gu_xl · 发表于 2011-1-21 16:26:22

;;;计算物体包围框左下角和右上角坐标
(defun GetBox (ent / ll ur)
(if (= 'ENAME (type ent))
(vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
(vla-getboundingbox ent 'll 'ur)
)
(mapcar 'vlax-safearray->list (list ll ur))
)

hhh454 · 发表于 2011-1-22 10:18:24

回复 Gu_xl 的帖子

谢谢gu_xl的帮助，初学lisp函，数的运用不是很懂，能不能帮忙写个完整的代码，就是我发的图片效果，通过多选择物体，得出每个外围点，然后用pline进行连线，最后往外扩1mm，论坛里面的代码我不知道怎么整合。万分感谢

zark · 发表于 2011-4-26 20:34:53

回复 Gu_xl 的帖子

G版，谢谢，万岁万岁····

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

[基础] 自己学着写个代码，对象外围线，有些代码不会使用，请老师指正

本帖子中包含更多资源