求合并一下

唯⒈のsē彩

(defun c:qx ()
(command "commandlinehide")
(command "CleanScreenon")
(prin1)
)

(defun c:qxx ()
(command "commandline")
(command "CleanScreenOFF")
(prin1)
)

669423907

这个好，同求。帮顶一下！

reg24211168

。面对楼主的帖子，我震惊得几乎不能动弹了，楼主那种裂纸欲出的大手笔，竟使我忍不住一次次地%D

唯⒈のsē彩

这下好了多谢多谢多谢支持
(defun c:QX ()
(if        (= 0 (getvar "CLEANSCREENSTATE"))
(command "commandlinehide" "CleanScreenon")
(command "commandline" "CleanScreenOFF"))
(princ))

669423907

唯⒈のsē彩 发表于 2012-5-9 13:08
这下好了多谢多谢多谢支持
(defun c:QX ()
(if        (= 0 (getvar "CLEANSCREENSTATE"))

谢谢分享！
不知正交与极轴(command"orthomode"1)，(command"autosnap"63)是否也能一键切换呢？

唯⒈のsē彩

669423907 发表于 2012-5-10 19:27
谢谢分享！
不知正交与极轴(command"orthomode"1)，(command"autosnap"63)是否也能一键切换呢？

不明白是怎么个切换法
两个东西

669423907

唯⒈のsē彩 发表于 2012-5-11 09:53
不明白是怎么个切换法
两个东西

按一下极轴，再按一下就正交

Andyhon

(defun C:ao ()
  (if (zerop (getvar "OrthoMode"))
    (setvar "OrthoMode" 1)
    (setvar "AutoSnap" (logior (Getvar "AutoSnap") 8))
  )
)

669423907

Andyhon 发表于 2012-5-11 14:36
(defun C:ao ()
  (if (zerop (getvar "OrthoMode"))
    (setvar "OrthoMode" 1)

弱弱的请教一下：我在 CUI 里定义了 F4 为切换正交与极轴，为什么不能成为透明命令呢？

唯⒈のsē彩

669423907 发表于 2012-5-11 14:02
按一下极轴，再按一下就正交

(defun c:zz ()
(if        (= 1 (getvar "orthomode"))
(command "AUTOSNAP" 63)
(command "AUTOSNAP" "55" "orthomode" "1"))
(princ))