[原创]：CAD的lisp优化刚才复制少了一部份

chenyizhen28 · 发表于 2009-12-27 17:19:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;My lsp

;1 清空多余数据不提示
(defun c:er ()
(command "qsave" )
(command "-purge" "a" "*" "n" ^c )
)

;2 读入EXCEL表格
(defun c:drbg ()
(command "-vbarun" "readexcel" )
)
(defun c:drex ()
(command "-vbarun" "readexcel" )
)

(defun c:rex ()
(command "-vbarun" "readexcel" )
)

;3 读出EXCEL表格
(defun c:dcex ()
(command "-vbarun" "sheet2excel" )
)
(defun c:dcbg ()
(command "-vbarun" "sheet2excel" )
)

;4 保存
(defun c:sa ()
(command "qsave" )
)

;5 连续倒角
(defun c:dz ()
(command "chamfer" "d" "0" "0" ^C)
(command "chamfer" "u" )
)

;6 二维
(defun c:ew ()
(command "_shademode" "_2" "-view" "_top")
)

zhangzl · 发表于 2010-1-11 12:51:18

不知道是做什么用的

jetm33 · 发表于 2010-1-24 14:50:15

不用这么麻烦

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

[原创]：CAD的lisp优化刚才复制少了一部份

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子