社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

xsso 发表于 2012-8-3 21:46:28

顶起这贴比奥运金牌还重要

完整武器 发表于 2012-8-3 22:04:01

没事顶一贴 不顶不行啊

haoryh 发表于 2012-8-3 22:33:05

没事要顶，不懂更要顶！

yjr111 发表于 2012-8-3 22:36:53

一天一顶，不得不顶！

x_s_s_1 发表于 2012-8-3 22:56:04

(defun CMDLA0 () (setvar "cmdecho" 0))
(defun CMDLA1 () (setvar "cmdecho" 1))
猜的

cable2004 发表于 2012-8-3 23:08:04

;;;------------------------ CMDLA0 -------------------------
;;;                  保存用户系统变量                     
;;;方式 : (CMDLA0)                                          
(defun CMDLA0 ()
(setq        cmdech (getvar "CMDECHO")
        oom    (getvar "orthomode")
        osm    (getvar "osmode")
        LA   (getvar "clayer")
        rmode(getvar "regenmode")
        pw   (getvar "plinewid")
)
(if (null sc)
    (SETBL)
)                                        ;确认SC存在
(command "ucs" "")                        ;恢复世界坐标系统
(setvar "plinewid" 0)                        ;多义线宽→0
(setvar "regenmode" 0)
(setvar "CMDECHO" 0)
(princ)
)
;;;------------------------ CMDLA1 -------------------------
;;;                     恢复用户系统变量                  
;;;方式 : (CMDLA1)                                          
(defun CMDLA1 ()
(setvar "CMDECHO" cmdech)
(setvar "orthomode" oom)
(setvar "osmode" osm)
(setvar "clayer" LA)
(setvar "regenmode" rmode)
(setvar "plinewid" pw)
(princ)
)

xyp1964 发表于 2012-8-4 01:10:59

xiaodao520 发表于 2012-8-3 21:21 static/image/common/back.gif
太花哨了没实际意用处。

太花哨的函数都是垃圾，千万别当真……

仲文玉 发表于 2012-8-4 07:22:45

来了就要顶，

cable2004 发表于 2012-8-4 07:51:10

cable2004 发表于 2012-8-3 23:08 static/image/common/back.gif
;;;------------------------ CMDLA0 -------------------------
;;;                  保存用户系统变量 ...

惭愧！本来就是院长的早期源码。

xsso 发表于 2012-8-5 00:31:55

又多学了两句，院长还有没有

查看完整版本: 【e派】工具箱函数再揭秘及应用实例