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

/db_自贡黄明儒_

;;===================画线时，为了各点坐标为整数
(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)才行，有谁知道原因？

marting

好久不见，大师

/db_自贡黄明儒_

marting 发表于 2020-5-28 17:57
好久不见，大师

你的程序比我写得好，才是真正的大师。我的原因找到了。
据说一个机械工程师、一个医生、一个程序员乘车在路上抛了锚，程序员的建议是：从车上出来，然后再进去，可能车就好了。我昨天没有想明白，今天再试，问题就解决了。

既然青春留不住