MEFLYING,前生，为何出现内部错误

LIHUISHUAN

您好，您给我的前生画园程序运行几次后就出现：“内部错误：U:\global\coreacad\CORESCR\scandr.cpp@2274: elockviolation: " 到底是前生的程序有问题，还是我的CAD有问题?望指教！

前生程序如下;(DEFUN C:WC ()    ; (/ P0 P1 XY)
;;;________________________________
  (defun mc ()
    (SETVAR "ORTHOMODE" 0)
    (setq xy (trans (list (* 0.5 (+ (CAR P0) (CAR P1)))
     (* 0.5 (+ (CADR P0) (CADR P1)))
     (caddr p1)
      )
      1
      0
      )
    )
    (setq eli (list (cons 0 "CIRCLE")
      (cons 8 "HH")
      (cons 10 xy)
      (Cons 40 0.75)
       )
    )
    (entmake eli)
  )
;;;________________________________
  (setq p0 nil
p1 nil
  )
  (SETQ P0 (GETPOINT "\n 请点取第一点!.."))
  (setq pp (trans p0 1 0))
  (while (= 0 (distance (setq p1 (cadr (grread t 4 0))) p0)))
  (mc)
  (setq ls (entlast))
  (vla-put-color (vlax-ename->vla-object ls) 1)
  (setq ed (entget ls))
  (command "line" p0 p1 "")
  (setq ls1 (entlast))
  (vla-put-color (vlax-ename->vla-object ls1) 2)
  (setq ed1 (entget ls1))
  (setq pick nil)
  (while (null pick)
;    (setq p (grread t 4 0))
    (setq p (grread t 4 2))
    (princ)
    (setq ip (car p)
   pt (cadr p)
    )
    (if (= ip 5)
      (progn
(setq xy (trans (list (* 0.5 (+ (CAR P0) (CAR Pt)))
         (* 0.5 (+ (CADR P0) (CADR Pt)))
         (caddr p1)
   )
   1
   0
   )
)
(setq ed (Subst (cons 10 xy) (assoc 10 ed) ed))
(entmod ed)
(setq p2 (trans pt 1 0))
(setq ed1 (subst (cons 10 pp) (assoc 10 ed1) ed1))
(setq ed1 (subst (cons 11 p2) (assoc 11 ed1) ed1))
(entmod ed1)
      )
    )
    (setq pick (= 3 ip))
  )
  (entdel ls1)
  (prompt "\n 前生制作")
  (prompt "....circle园系列")
  (princ)
)

meflying

我这运行没有问题！我是2004

spring

我用2002試過也沒問題