土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 请教版主和流浪大哥完善一下这段lsp,可以吗!!

请教版主和流浪大哥完善一下这段lsp,可以吗!!

发布于：2008-04-30 10:53:30 来自：建筑设计/CAD下载及教程 [复制转发]

(defun C:m ()
(setvar "cmdecho" 0)
(setq css (ssget)) (command "move" css "" "p")
(setq css nil) (setvar "cmdecho" 1)
(prin1) )

这段是移动命令的lsp ,现在我想在手动输入命令m后,CAD就会自动输入P键加空格后的功能(本人是为了不要老去点P键,想让命令在每次手动输入M键后加空格就可以选到了上次选中物体啦),接着步骤不变,麻烦一下版主和流浪大哥完善一下,好吗,感激不尽!!!

0人已收藏
0人已打赏
免费
0人已点赞
分享

复制链接新浪微博微信扫一扫

全部回复（1 ）

只看楼主我来说两句 抢板凳

wowan1314 沙发

(defun C:m1 ()
(setvar "cmdecho" 0)
(command "move" "p" "")
(setvar "cmdecho" 1)
(prin1) )

2008-05-09 10:30:09
回复举报
赞同0