[求助]刚写的一个。但为什么有时图形会偏位？

psufngah

]对于异形正确率要高很多，为什么对于圆形就会偏掉？请帮忙改下！还有就是如果用这段程序中的左下角点去设置为新的坐标原点时，有倒角的矩形为什么原点不是在交点上，而是在倒角上？

不好意思，重新上传了！

xshrimp

跟osmode有关吧?

psufngah

不是。我己经关了啊，更何况偏位也不能可偏0.5这个么数字吧。对于圆的，就是偏0.5。。。

Andyhon

请从新验证 'PT1' 的变量

psufngah

重新上传了文件，帮忙看下！

psufngah

为什么？？？

ZZXXQQ

这样行吗？

3. (defun C:wx()
4. (vl-load-com)
5. (command "undo" "be")
6. (setvar "osmode" 0)
7. (setvar "cmdecho" 0)
8. (command "ucs" "w")
9. (setq n (getdist "\n请输入距离:"))
10. (princ "\n请选择物体:")
11. (while(null(setq en (ssget))))
12. (setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6)
13. (setq i 0)
14. (repeat (sslength en)
15.   (setq end (ssname en i))
16.   (setq end_data (entget end))
17.   (Min_Max)
18.   (setq i(1+ i))
19. )
20. (command ".rectangle" "c" 0 0 (list minx0 miny0) (list maxx0 maxy0))
21. (command ".move" "L" "" pt1 pt)
22. (setvar "osmode" 39)
23. (command "undo" "e")
24. (princ))
25. ;;;子程序，求选集是大外形坐标
26. (defun Min_Max()
27.   (vla-getboundingbox(vlax-ename->vla-object end) 'minp 'maxp)
28.   (setq minp (vlax-safearray->list minp)
29.     maxp (vlax-safearray->list maxp))
30.   (setq minx (car minp)
31.     maxx (car maxp)
32.     miny (cadr minp)
33.     maxy (cadr maxp))
34.   (if (= n nil)(setq n 0))
35.   (setq m1x(fix (-(car minp)n))
36.     m2x(fix (+(car maxp)n))
37.     m1y(fix (-(cadr minp)n))
38.     m2y(fix (+(cadr maxp)n))
39.     pmin(list m1x m1y)
40.     pmax(list m2x m2y))
41.   (if (> minx0 m1x) (setq minx0 m1x))
42.   (if (> miny0 m1y) (setq miny0 m1y))
43.   (if (< maxx0 m2x) (setq maxx0 m2x))
44.   (if (< maxy0 m2y) (setq maxy0 m2y))
45. )

(defun C:wx() (vl-load-com) (command "undo" "be") (setvar "osmode" 0) (setvar "cmdecho" 0) (command "ucs" "w") (setq n (getdist "\n请输入距离:")) (princ "\n请选择物体:") (while(null(setq en (ssget)))) (setq minx0 1e6 miny0 1e6 maxx0 -1e6 maxy0 -1e6) (setq i 0) (repeat (sslength en)   (setq end (ssname en i))   (setq end_data (entget end))   (Min_Max)   (setq i(1+ i)) ) (command ".rectangle" "c" 0 0 (list minx0 miny0) (list maxx0 maxy0)) (command ".move" "L" "" pt1 pt) (setvar "osmode" 39) (command "undo" "e") (princ)) ;;;子程序，求选集是大外形坐标 (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 (= n nil)(setq n 0))   (setq m1x(fix (-(car minp)n))     m2x(fix (+(car maxp)n))     m1y(fix (-(cadr minp)n))     m2y(fix (+(cadr maxp)n))     pmin(list m1x m1y)     pmax(list m2x m2y))   (if (> minx0 m1x) (setq minx0 m1x))   (if (> miny0 m1y) (setq miny0 m1y))   (if (< maxx0 m2x) (setq maxx0 m2x))   (if (< maxy0 m2y) (setq maxy0 m2y)) )

psufngah

可以了，多谢！