画线时，为了各点坐标为整数

自贡黄明儒

;;===================画线时，为了各点坐标为整数
(defun HH:snapmode ()
  (command "_.ucs" "")
  (command "_.dblclkedit" "on")                                    ;低版本得用这个
  ;;(C:RegDynWrap)
  (setvar "snapunit" '(1.0 1.0))
  (setvar "snaptype" 0)
  (setvar "snapstyl" 0)
  (Setvar "gridunit" '(15. 15.))
  (setvar "polarang" (/ (* pi 15) 180))
  (Setvar "snapmode" 1);不起作用
  (Setvar "gridmode" 1);不起作用
  ;|(if (= (getvar "snapmode") 0)
    (sendkeys "{F9}")
  )
  (if (= (getvar "gridmode") 0)
    (sendkeys "{F7}")
  )|;
  (princ)
)
(HH:snapmode)
;;===================画线时，为了各点坐标为整数

(HH:snapmode)放在加载文件中不起作用，非得执行一下(HH:snapmode)才行，有谁知道原因？

669423907

我08版，放在所有程序的最最最后，正常啊

自贡黄明儒

669423907 发表于 2020-5-28 16:21
我08版，放在所有程序的最最最后，正常啊

05 08下我都测试了，不行呀。

satan421

之前也遇到过类似的问题，加载及运行的命令放在acaddoc里面，可以加载，但是没运行。
猜测可能是文件加载顺序的问题，导致被覆盖或者取消了。
放在启动组可以加载并运行。
在acaddoc等文件里面重新定义S::STARTUP函数，也可以加载并运行。

satan421

http://bbs.mjtd.com/forum.php?mo ... ight=S%3A%3ASTARTUP

"在AutoCAD启动时加载的LSP有时因为系统没有完全初始化完毕导致有些功能不能正确执行。"