是不是捕捉设置有问题啊？（跪谢各位帮忙解决）

mingvictor

这个LISP是画任意图形的外框架的！为什么任意图形不在所画的外框中间！是不是捕捉设置有问题！我已经调试多次，还是不成功！望有高手出现在！谢谢啦啦！

mingvictor

怎么没有高人出来帮帮我啊！

mingvictor

自己顶自己一下！希望高人可以看见!

ZZXXQQ

程序是有问题的。当图元是SPLINE或MTEXT时框会大些。这是CAD的BUG。本论坛已有针对该BUG的解决方案，搜下看看。

mingvictor

(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))
)
   (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))
(command ".rectangle" "c" 0 0 pmin pmax)
(command ".fillet" "R" 1 ".fillet" "P" "L")
(command ".trim" "L" "" (POLAR PMAX (* PI -0.75) 0.4142) "")
(setq s1 (entlast))
(command ".line" (polar pmax pi 1) (polar pmax (/ pi -2) 1) "")
(command "pedit" s1 "J" "L" "" "")
(setvar "osmode" 439)
(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 (> minx0 minx) (setq minx0 minx))
   (if (> miny0 miny) (setq miny0 miny))
   (if (< maxx0 maxx) (setq maxx0 maxx))
   (if (< maxy0 maxy) (setq maxy0 maxy))
)

为什么任意图形不在，所画的边框中间啊！求求各位帮帮心啊！

mingvictor

自己顶一下！希望高手能够看见！

phoenixdjq

是不是你的坐标系的问题

用trans函数转换一下