唯⒈のsē彩 发表于 2012-5-8 16:22:01

求合并一下

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

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

669423907 发表于 2012-5-8 20:08:17

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

reg24211168 发表于 2012-5-9 00:21:03

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

唯⒈のsē彩 发表于 2012-5-9 13:08:25

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

669423907 发表于 2012-5-10 19:27:27

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


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

唯⒈のsē彩 发表于 2012-5-11 09:53:17

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

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

669423907 发表于 2012-5-11 14:02:40

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

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

Andyhon 发表于 2012-5-11 14:36:11

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

669423907 发表于 2012-5-13 22:25:48

Andyhon 发表于 2012-5-11 14:36 static/image/common/back.gif
(defun C:ao ()
(if (zerop (getvar "OrthoMode"))
    (setvar "OrthoMode" 1)


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

唯⒈のsē彩 发表于 2012-5-14 08:33:02

669423907 发表于 2012-5-11 14:02 static/image/common/back.gif
按一下极轴，再按一下就正交

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


页: [1] 2
查看完整版本: 求合并一下