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

LIHUISHUAN · 发表于 2003-9-29 09:45:00

您好，您给我的前生画园程序运行几次后就出现：“内部错误：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)
)