[求助]角度尺寸标注、图形界限

atao

本人初学编制AutoLISP程序，遇到如下问题，请高手指教。

1.角度标注部分代码如下，问题是：图形中线条较多，发现只有三点标注才可行，但运行时会因点位置不同偶尔出现无法顺利完成的情况。不知是何原因产生这种情况，如何解决，是否有其他适合的标注方式。

(command
  "dim"
  "ang"
  plt2    ；点
  pat5  ；点
  pat12  ；点
  (strcat (rtos (nth flag1 (cadr (nth 5 all_pa)))) "%%D") ；文字替换
  ""
  "exit"
    )

2.设置绘图界限语句如下，问题是：整个程序运行时，在17寸彩显1024*768分辨率下，正常；将CAD窗口缩小后，再运行程序，无法顺利完成，且出现怪异形状；将绘图坐标系按原点转移尺度过大也出现上述情况 。不知是因角度标注方式 引起，还是模型空间绘图界限引起，如何解决呢？

(command "limits" "-800,-800" "800,400" "zoom" "a")

sailorcwx

把捕捉取消

atao

问题是我在程序中已加入了语句：(setvar "osmode" 0)。

是没起作用，还是其他原因，请再指教。