一句话的lisp
本帖最后由 ddisddis 于 2012-12-24 15:26 编辑有时候仅仅一句话的lisp，虽然相当简单，可以解决一些繁琐的事情，
分享两个，代码论坛上都有，搬来参考：
打开电脑文件夹：(startapp "explorer.exe" "E:\\工程设计")
打开局域网的：(startapp "explorer.exe" "\\\\workgroupname\\aaa\\bbb\\ccc")
打开chm格式的规范：(help "E:/规范/工程规范2012.chm")
打开pdf格式的：(STARTAPP "D:\\Foxit Reader\\Foxit Reader.exe" "E:\\规范\\规范2012.pdf")
过滤选择并亮显选中的图元： (if (= (getvar "cmdname") nil) (sssetfirst nil (ssget '((0 . "TEXT")))) (ssget '((0 . "TEXT"))))
欢迎共同交流提高。
跟别人学了，数字矩阵
(setq m '((1 2 3) (4 5 6) (7 8 9)))
(apply 'mapcar (cons 'list m))
((1 4 7) (2 5 8) (3 6 9)) 这个有用，谢了， 我抄下来了 以前论坛有这个主题，我只会最简单的
改颜色 (setq gp (ssget))
(command"change" gp"""p""c""1"""))
上视图 (command "zoom" "p"))
转90度(setq ss (ssget))
(command"rotate" ss "" pause 90)
(command"move"ss""pause pause))
见笑见笑 又学习了几招。 不错 不错，发一个cad2004中实现连续复制粘贴的(command "copy" (ssget) "" "m" )
页:
[1]