请大家给看看程序

GTJ116600 · 发表于 2013-5-12 20:55:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 GTJ116600 于 2013-5-13 09:28 编辑

我编了一个求实体内部点函数，但是中途就错误退出，大家给看看什么原因，怎样能解决
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;获取实体内部一点坐标函数;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun get-ent-inpt(ent)
   (vl-load-com)
   (setq obj (vlax-ename->vla-object ent))
   (princ obj)
   (setq dist 1000000.0)
   (setq obj1 (vla-offset obj dist))
   (if obj1
         (progn
            (setq dist -1)
            (entdel (entlast))
         )
         (setq dist 1)
   )
   (setq obj1 (vla-offset obj dist))
   (while (not obj1)
            (setq dist (/ dist 10))
            (setq obj1 (vla-offset obj dist))
   )
   (setq ent1 (entlast))
   (setq entlist (entget ent1))
   (setq n 0 ent_list t m 1)
   (while ent_list
         (setq en (nth n entlist))
         (if (= (car en) 10)
               (progn
                     (if (/= m 2)
                        (setq n (1+ n) m (1+ m))
                        (setq pt (cdr en) ent_list nil)
                     )
               )
               (setq n (+ 1 n) ent_list (nth n entlist))
         )
   )
   (entdel ent)
   (command "change" (entlast) "" "p" "c" 3  "")
   pt
)

Free-Lancer · 发表于 2013-5-13 10:20:07

Offset 不一定保证成功

GTJ116600 · 发表于 2013-5-13 14:54:53

Free-Lancer 发表于 2013-5-13 10:20
Offset 不一定保证成功

大侠，如果不成功，有没有办法让程序继续运行下去呢。现在的问题是出错后，程序就中途退出了

sicky111 · 发表于 2013-5-16 23:23:10

帮楼主顶一下，望高手解答。

ngc · 发表于 2013-10-12 00:02:48

还没有学到那么多函数，努力学习。

账号		自动登录	找回密码
密码			立即注册

[求助] 请大家给看看程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。