新手求救---斑主帮忙啊。。。。。

l_shiqiang

 斑主帮忙，自动比例缩放的LISP

画一个指定大小的巨型框，插入任何大小的图形到框内，图形会根据图框的大小自动进行比例缩放

_scale,就是这个比例缩放命令

----------------------------------------------

ZZXXQQ

请问楼主：插入的图形有多大？插入点在什么地方？如果不知道，这样的程序怎么编？

l_shiqiang

插入点在所画巨型的中间,插入图形并不大,只有构成封闭区域的一个面就好,只是为实现这样的功能

高手帮忙

学无止境

mkhsj928

关键是得到所插入图形的包围框的大小

l_shiqiang

框的大小可不可以用四个角的坐标的坐标来确定，有了坐标就有了框位置

（任意巨型框，有坐标就可）

新手上路多多关照

 

ZZXXQQ

l_shiqiang发表于2005-12-26 10:12:00 插入点在所画巨型的中间,插入图形并不大,只有构成封闭区域的一个面就好,只是为实现这样的功能 高手帮忙 学无止境&...

图形不大，到底有多大？不然无法得出放大比例。

mkhsj928

请问你插入的图形是从哪来？是就在本图中选择的一些图形，还是把外面文件插入进来

你的矩形框范围知道了，现在就是要求出图形的外围框大小，两个框大小都知道后，缩放操作应该很简单

ZZXXQQ

2. ;放大物体到充满矩形框 明经 ZZXXQQ
3. (DEFUN C:ATSC (/ SS BLK_BOUND P1 P2 PC S1 S2 P3 P4 PM DX DY X Y)
4.   (SETVAR "CMDECHO" 0)
5.   (COMMAND ".UNOD" "BE")
6.   (SETQ OLDOS (GETVAR "OSMODE"))
7.   (SETVAR "OSMODE" 0)
8.   (PRINC "\n选择要放大的物件")
9.   (IF (SETQ SS (SSGET)) (PROGN
10.    (SETQ BLK_BOUND (ACET-GEOM-SS-EXTENTS SS T))
11.    (SETQ P1 (CAR BLK_BOUND))
12.    (SETQ P2 (CADR BLK_BOUND))
13.    (SETQ PC (POLAR P1 (ANGLE P1 P2) (/ (DISTANCE P1 P2) 2)))
14.    (SETQ S1 (ENTSEL "\nSelect Rectang 选择矩形框 :"))
15.    (SETQ S2 (SSADD) S2 (SSADD (CAR S1) S2))
16.    (IF (SETQ BLK_BOUND (ACET-GEOM-SS-EXTENTS S2 T)) (PROGN
17.     (SETQ P3 (CAR BLK_BOUND)
18.           P4 (CADR BLK_BOUND)
19.           PM (POLAR P3 (ANGLE P3 P4) (/ (DISTANCE P3 P4) 2))
20.           DX (- (CAR P4) (CAR P3))
21.           DY (- (CADR P4) (CADR P3))
22.           X (- (CAR P2) (CAR P1))
23.           Y (- (CADR P2) (CADR P1)))
24.     (COMMAND "MOVE" SS "" PC PM)
25.     (COMMAND "SCALE" SS "" PM (IF (> (/ DX X) (/ DY Y)) (/ DY Y) (/ DX X)))
26.    ))
27.   ))
28.   (COMMAND ".UNDO" "E")
29.   (SETVAR "OSMODE" OLDOS)
30.   (SETVAR "CMDECHO" 1)
31.   (PRINC)
32. )

复制代码

l_shiqiang

将插入图形插入到巨型框内，使其根据巨型框的大小自动进行比例缩放

l_shiqiang

高手帮忙！