[讨论]这个程序有没有人会编

mcxiangxin

我想编这样一个程序:见下图

我框选左边的图形后,会自动绘制出右边的图形,即以选中对象的最大外形画出一个矩形框!大家的思路是怎样的?注意图中有spl线,有圆,有直线……

kerrywm

这个不难，你先自己想想。

用循环，同时用（VLA-GETBOUDINGBOX OBJ 'MINPT 'MAXPT)函数，写不出来再知会一下。

xyp1964

2. [FONT=courier new];; 实体集最小外包方框
3. (defun c:test662 ()
4.   (CMDLA0)
5.   (setvar "osmode" 0)
6.   (command "select" "all" "")
7.   (setq ss  (ssget "p")
8. ptn (list (xyp-get-ssMinMaxPoint ss 1)
9.     (xyp-get-ssMinMaxPoint ss 9)
10.      )
11.   )
12.   (xyp-MkLaCo "TEST" 1)
13.   (xyp-add-line (car ptn) (cadr ptn))
14.   (command "rectang" (car ptn) (cadr ptn))
15.   (CMDLA1)
16. )[/FONT]

[FONT=courier new];; 实体集最小外包方框 (defun c:test662 ()   (CMDLA0)   (setvar "osmode" 0)   (command "select" "all" "")   (setq ss  (ssget "p") ptn (list (xyp-get-ssMinMaxPoint ss 1)     (xyp-get-ssMinMaxPoint ss 9)      )   )   (xyp-MkLaCo "TEST" 1)   (xyp-add-line (car ptn) (cadr ptn))   (command "rectang" (car ptn) (cadr ptn))   (CMDLA1) )[/FONT]

无痕

不知xyp的程序在ucs下可否？

英雄无敌

他那个程序只有一点点，在哪都运行不了，除了他自己的机器

xyp1964

mcxiangxin

非常感觉大家的回复!三楼的程序可以用,不过有点问题,在有spl线时,程序中画出的矩形框,不是选取对象的最大外形.如下图所示:

mcxiangxin

正如无痕所说,三楼的程序在ucs下会出现问题

无痕

对spl线那是没办法，函数的缺陷，还没想过怎么再精确，不过应该是可以的。

我以前好像发过ucs下求外框的程序，太久不见得了，感兴趣的可以搜索一下

mcxiangxin

那太可惜了,可能真没有办法了