一句话的lisp

ddisddis

有时候仅仅一句话的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"))))

欢迎共同交流提高。

xiabin68

跟别人学了，数字矩阵
(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))

weiqi

这个有用，谢了， 我抄下来了

zzc83

以前论坛有这个主题，我只会最简单的
改颜色 (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))
见笑见笑

monkeycctv

又学习了几招。

奥运火种

不错 不错，发一个cad2004中实现连续复制粘贴的(command "copy" (ssget) "" "m" )