【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
太花哨了没实际意用处。

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

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

来了就要顶，

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

cable2004 发表于 2012-8-3 23:08
;;;------------------------ CMDLA0 -------------------------
;;; 保存用户系统变量 ...

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

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

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

账号		自动登录	找回密码
密码			注册

[讨论] 【e派】工具箱函数再揭秘及应用实例

评分