程序第一次運行會出錯

daiyc88

請教兩位版主，我寫的這個程序為什麼第一次開新圖檔運行時會出錯，第二次運行或圖檔裡有畫東西的時候運行就正常
程序如下：
(defun c:tttt(/ orig_snapang pt1 pt2)
  (setq orig_snapang(getvar "snapang"))
 
  (setq pt1 '(0.0 0.0 0.0))
  (setq pt2 (polar pt1 (* (/ pi 6) 11) 20.0))
  (setq pt3 (polar pt2 (/ pi 6) 10))
  (setq pt4 (polar pt1 (/ pi 6) 10))
 
  (command "line" pt1 pt2 "")
  (setvar "snapang" (/ pi 6))
  (command "-array" "last" "" "r" "" "2" "5")     
  (command "-array" "last" "" "r" "" "5" "10")

  (command "line" pt2 pt3 "")
  (setvar "snapang" (* (/ pi 6) 5))
  (command "-array" "last" "" "r" "" "2" "2")
  (command "-array" "last" "" "r" "" "8" "5")
 
  (setvar "snapang" orig_snapang)
  )

ljpnb

(command "line" pt1 pt2 "")后加下面一句
(command "zoom" "all")

daiyc88

　非常感謝，我已加入到程序時試用OK，這個網站真是太好了，給我的實際工作解決了不少問題，再次感謝!