yang686526

自动开图lisp程序
www.dimcax.com
自动开图lisp程序
自动开图lisp程序。
老用鼠标左键右键，食指、中指极易得键壳炎。因此要尽量少用鼠标，多有键盘。笔者用lisp编制了一个开图程序，可用键盘打开一个文件夹里，同名不同号的cad文件，顺开，逆开均可。也可输入任一图号开图。


用什么命令啊
怎么安装啊？
还有你这用什么打开啊
我的文档都大不开
在事业的追赶里我不的不努力去学习

研究下

;;;自动打开图:可以依顺序向前或向后,或输入任一图号打开需要的图
;;;
(defun c:kk () ;;;自动依次打开图
(setq dwgn (getvar "dwgname"))
(setq dwgn (getvar "dwgname"))
(setq dwgnl (strlen dwgn))
(setq i 0
jh 0
)
(while (= jh 0)
(setq i (1+ i))
(setq a (substr dwgn i 1))
(if (= a "-")
(setq jh 1)
)
)
(setq i (1+ i))
(setq th1 (substr dwgn 1 (- i 2)))
(setq b (substr dwgn i (- dwgnl i 3)))
(setq bl (strlen b))
(setq th2 (+ (atoi b) 1))
(setq th2 (itoa th2))
(setq th2l (strlen th2))
(if (= (- bl th2l) 1)
(setq th2 (strcat "0" th2))
)
(setq th3 (getstring
"/n输入横杠后图号数字,下一图请回车,倒退一图请输入kj:"
)
)
(if (and (/= th3 "") (/= th3 "kj"))
(setq th2 th3)
)
(if (= th3 "kj")
(progn
(setq th2 (- (atoi b) 1))
(setq th2 (itoa th2))
(setq th2l (strlen th2))
(if (= (- bl th2l) 1)
(setq th2 (strcat "0" th2))
)
)
)
(setq th (strcat th1 "-" th2 ".dwg"))
(command "open" th)
(prin1)
)

真的假的啊，这种程序都有，呵呵

答复提问：
将zdkt.doc文件用zdkt.lsp格式转存，然后放到cad的support文件夹里，并在有一个acad***.lsp文件里的autoload lisp applications项下加一语句：(autoload "zdkt" '("kt1" "kt2" "kk"))，保存退出。在使用时打开一个dwg图形文件后,即可输入kk，按提示执行即可。非常方便，可大大节约使用鼠标的次数。避免腱鞘炎的发生。对一个文件夹里的同名文件有效：abc-1,abc-2,abc-3等等。

acad***.lsp是指在r14里是acadr14.lsp在cad2006里是acad2006doc.lsp，其余版本也可找到类似文件。

鼠标的左键用得最多，因此右手食指最易得腱鞘炎，得了腱鞘炎很痛很难受，也干不了活了。年龄稍大一点的都知道，年轻的可能还没体会。因本人有体会，因此想法子要多用键盘，就可改用中指或无名指，减少食指的使用次数，避免食指得腱鞘炎。另外，用键盘可扩大用到手腕部肌肉和肘关节，减少用手指部肌肉。这是个人用cad的一些经验。

很人性化的设计啊，值得学习！
liangtianxi

又来过里踏青了，怎么没人访问啊

来到这些地方的话总有一种踏实的感觉，很好，顶一下