[求助]最大外形四点定位

chpmould

请各位高手帮我看看，为什么我指定四个圆中心放置点会走位

(我希望达到的效果是,不论我指定任何放置点都是四个圆的中心)

附上测试源码

(defun c:22()
(vl-load-com)
(setq mv_osm(getvar "osmode"))
(setvar "osmode" mv_osm)
(command "ucs" "w")
(setq ad_dim_sel (ssget))
(dim_box)
(initget 1)
(setq cen_pt (getpoint  "\n请指定四个圆中心放置点:"))
(command "ucs" "o" cen_pt)
(setvar "osmode" 0)
(command "circle" box_xdis22 5)
(command "circle" box_xdis_22 5)
(command "circle" box_ydis22 5)
(command "circle" box_ydis_22 5)
);defun
;;;
;;;
;;;
(defun dim_box()
(setq n 10)
(setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6)
(setq i 0)
(repeat (sslength ad_dim_sel)
   (setq end (ssname ad_dim_sel i))
   (setq end_data (entget end))
   (Min_Max)
   (setq i(1+ i))
)
   (if (= n nil)(setq n 0))
   (setq m1x(fix (- minx0 n))
     m2x (fix (+ maxx0 n))
     m1y (fix (- miny0 n))
     m2y (fix (+ maxy0 n))
     pmin (list m1x m1y)
     pmax (list m2x m2y))
  (setq GetBox-midpt (polar pmin
       (angle pmin pmax)
       (/(distance pmin pmax) 2.0)))
  (setq box_p2(list(car GetBox-midpt)(cadr pmin)))
  (setq box_p4(list(car pmin)(cadr GetBox-midpt)))
  (setq box_xdis(distance pmin box_p2))
  (setq box_ydis(distance pmin box_p4))
  (setq box_xdis_22(polar GetBox-midpt pi (+ box_xdis 0)))
  (setq box_xdis22(polar GetBox-midpt 0 (+ box_xdis 0)))
  (setq box_ydis_22(polar GetBox-midpt (* 0.5 pi) (+ box_ydis 0)))
  (setq box_ydis22(polar GetBox-midpt (* 1.5 pi) (+ box_ydis 0)))
);defun
;;;
;;;
;;;求选集是大外形坐标
(defun Min_Max()
   (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
   (setq minp (vlax-safearray->list minp)
     maxp (vlax-safearray->list maxp))
   (setq minx (car minp)
     maxx (car maxp)
     miny (cadr minp)
     maxy (cadr maxp))
   (if (> minx0 minx) (setq minx0 minx))
   (if (> miny0 miny) (setq miny0 miny))
   (if (< maxx0 maxx) (setq maxx0 maxx))
   (if (< maxy0 maxy) (setq maxy0 maxy))
);defun

xyp1964

2. (defun c:tt ()
3.   (vl-load-com)
4.   ;; 求选集是大外形坐标
5.   (defun Min_Max ()
6.     (vla-getboundingbox (vlax-ename->vla-object end) 'minp 'maxp)
7.     (setq minp (vlax-safearray->list minp)
8.    maxp (vlax-safearray->list maxp)
9.    minx (car minp)
10.    maxx (car maxp)
11.    miny (cadr minp)
12.    maxy (cadr maxp)
13.     )
14.     (if (> minx0 minx)
15.       (setq minx0 minx)
16.     )
17.     (if (> miny0 miny)
18.       (setq miny0 miny)
19.     )
20.     (if (< maxx0 maxx)
21.       (setq maxx0 maxx)
22.     )
23.     (if (< maxy0 maxy)
24.       (setq maxy0 maxy)
25.     )
26.   )
27.   ;;
28.   (defun dim_box ()
29.     (setq n 10
30.    minx0 1e6
31.    miny0 1e6
32.    maxx0 -1e6
33.    maxy0 -1e6
34.    i 0
35.     )
36.     (repeat (sslength ad_dim_sel)
37.       (setq end      (ssname ad_dim_sel i)
38.      end_data (entget end)
39.       )
40.       (Min_Max)
41.       (setq i (1+ i))
42.     )
43.     (if (= n nil)
44.       (setq n 0)
45.     )
46.     (setq m1x        (fix (- minx0 n))
47.    m2x        (fix (+ maxx0 n))
48.    m1y        (fix (- miny0 n))
49.    m2y        (fix (+ maxy0 n))
50.    pmin        (list m1x m1y)
51.    pmax        (list m2x m2y)
52.    GetBox-midpt (polar pmin (angle pmin pmax) (/ (distance pmin pmax) 2.0))
53.    box_p2       (list (car GetBox-midpt) (cadr pmin))
54.    box_p4       (list (car pmin) (cadr GetBox-midpt))
55.    box_xdis     (distance pmin box_p2)
56.    box_ydis     (distance pmin box_p4)
57.    p4        (polar GetBox-midpt pi (+ box_xdis 0))
58.    p6        (polar GetBox-midpt 0 (+ box_xdis 0))
59.    p8        (polar GetBox-midpt (* 0.5 pi) (+ box_ydis 0))
60.    p2        (polar GetBox-midpt (* 1.5 pi) (+ box_ydis 0))
61.     )
62.   )
63.   ;;
64.   (setq mv_osm (getvar "osmode"))
65.   (command "ucs" "")
66.   (setq ad_dim_sel (ssget))
67.   (dim_box)
68.   (initget 1)
69.   (setq cen_pt (getpoint "\n请指定四个圆中心放置点:"))
70.   (setvar "osmode" 0)
71.   (command "circle" p6 5)
72.   (setq s1 (entlast))
73.   (command "circle" p4 5)
74.   (setq s2 (entlast))
75.   (command "circle" p2 5)
76.   (setq s3 (entlast))
77.   (command "circle" p8 5)
78.   (setq s4 (entlast)
79. pt (polar p6 0 (* (distance p4 p6) 0.5))
80.   )
81.   (command "move" s1 s2 s3 s4 "" pt cen_pt)
82.   (setvar "osmode" mv_osm)
83.   (princ)
84. )

(defun c:tt ()   (vl-load-com)   ;; 求选集是大外形坐标   (defun Min_Max ()     (vla-getboundingbox (vlax-ename->vla-object end) 'minp 'maxp)     (setq minp (vlax-safearray->list minp)    maxp (vlax-safearray->list maxp)    minx (car minp)    maxx (car maxp)    miny (cadr minp)    maxy (cadr maxp)     )     (if (> minx0 minx)       (setq minx0 minx)     )     (if (> miny0 miny)       (setq miny0 miny)     )     (if (< maxx0 maxx)       (setq maxx0 maxx)     )     (if (< maxy0 maxy)       (setq maxy0 maxy)     )   )   ;;   (defun dim_box ()     (setq n 10    minx0 1e6    miny0 1e6    maxx0 -1e6    maxy0 -1e6    i 0     )     (repeat (sslength ad_dim_sel)       (setq end      (ssname ad_dim_sel i)      end_data (entget end)       )       (Min_Max)       (setq i (1+ i))     )     (if (= n nil)       (setq n 0)     )     (setq m1x        (fix (- minx0 n))    m2x        (fix (+ maxx0 n))    m1y        (fix (- miny0 n))    m2y        (fix (+ maxy0 n))    pmin        (list m1x m1y)    pmax        (list m2x m2y)    GetBox-midpt (polar pmin (angle pmin pmax) (/ (distance pmin pmax) 2.0))    box_p2       (list (car GetBox-midpt) (cadr pmin))    box_p4       (list (car pmin) (cadr GetBox-midpt))    box_xdis     (distance pmin box_p2)    box_ydis     (distance pmin box_p4)    p4        (polar GetBox-midpt pi (+ box_xdis 0))    p6        (polar GetBox-midpt 0 (+ box_xdis 0))    p8        (polar GetBox-midpt (* 0.5 pi) (+ box_ydis 0))    p2        (polar GetBox-midpt (* 1.5 pi) (+ box_ydis 0))     )   )   ;;   (setq mv_osm (getvar "osmode"))   (command "ucs" "")   (setq ad_dim_sel (ssget))   (dim_box)   (initget 1)   (setq cen_pt (getpoint "\n请指定四个圆中心放置点:"))   (setvar "osmode" 0)   (command "circle" p6 5)   (setq s1 (entlast))   (command "circle" p4 5)   (setq s2 (entlast))   (command "circle" p2 5)   (setq s3 (entlast))   (command "circle" p8 5)   (setq s4 (entlast) pt (polar p6 0 (* (distance p4 p6) 0.5))   )   (command "move" s1 s2 s3 s4 "" pt cen_pt)   (setvar "osmode" mv_osm)   (princ) )

f5612140

(setq mv_osm(getvar "osmode"))
(setvar "osmode" mv_osm)

有寫和沒寫是一樣的...

chpmould

XYP1964谢谢你的帮助，但是我指定四个圆中心放置点还是会走位

chpmould

不只能否用坐标转换来控制呢?请高手出来说两句

chpmould

不知能否用坐标转换来控制呢?请高手出来指正

chpmould

继续顶,希望高手的出现