[原创]：[密技] 极速天正之一-------acadr14.lsp

空壳

极速天正之一-------acadr14.lsp


现在大家好象好多人都改用天正的更高版本了.我不是很清楚更高版本的天正是不是真的很方便,很快.我用天正3好些时间了,所以这些年来总是有些体会,我的感觉是天正3画施工图已经是很完美的版本了,只是需要你自己再去修改一些东西来配合你自己的画图习惯.下面我就把我定制的cad,天正3的绘图环境介绍给大家,希望还在用天正3的朋友画起图来更是得心应手.我分两个部分讲----1 cad的定制  2  天正3的定制.
   
1 cad的定制:
  cad是天正的软件平台,所以从某个角度讲,cad是最重要的.所以我先讲cad的定制,它需要自己修改的文件有:
   a. acadr14.lsp-------cadr14的启动文件,在这里你可以编写一些小的lisp程序帮助你更好的画图.
   b. 系统配置----------在cad的画图程序里定制自己的界面.
   c. acad.mns----------定制下拉菜单的文件,在这里你可以自己修改下拉菜单的位置,加入你自己的程序.....如果你      挂了天正3,那就要修改天正3里sys里的acad.mns了.
   d. acad.pgp----------cad的快键编辑文本,在这里定义你自己最习惯用的快键,当然挂天正的时候,这个文件一要修      改在天正3里sys里的pgp了.所以pgp的文件我放在天正3里面来讲.


*********a. acadr14.lsp*********
      你可以加入一些小的lisp程序帮助你更方便的画图,下面我把我常用简单的贴在上面:
      以下的程序都需要你粘贴到acadr14.lsp的里面.每个程序我不再多说粘贴的问题了.

(defun c:dqc()
  (command "modemacro""$(getvar,clayer)" ^c)
)

把上面的粘贴到你的acadr14.lsp的最下面保存.再打开cad的时候,打入"dqc",在你cad的状态栏里就会显示你画图现在的当前层(dqc).很方便的让你知道当前层是什么,有的朋友也许回问,cad的图层管理器就在上面,很容易看到当前层啊,我之所以把当前层的显示放在状态栏里,就是因为我从来都是关掉所有的按钮,省出最大的画图空间的.在文章的后面我会贴上我最终画面的贴图供大家参考.

(defun c:pua()
  (setvar "cmdecho" 0)
  (command"undo""group")
  (command"purge""_a""""n")
  (command"purge""_a""""n")
  (command"purge""_a""""n")
  (command"undo""end")
  (setvar "cmdecho" 1)
  (princ)
)

上面的程序是连续的三次purge.我们都知道purge一次基本上是无法彻底完成任务的,所以你再输入"pua"以后,cad自动进行三次的purge,基本上是应该可以了.你要是觉得不够,你自己把中间的  (command"purge""_a""""n") 再粘贴在那里几遍.

(defun c:mp()
  (command "move" "p" "")
)

(defun c:33()
  (command "move" "p""" )
)

(defun c:ccc()
  (command "copy" "p""" )
)

(defun c:ea()
  (command "earse" "all" )
)

(defun c:55()
  (command "mirror" "p""" )
)

(defun c:mip()
  (command "mirror" "p""" )
)

上面的都是一些命令的连续输入.为你画图节省按键的时间,要知道不会键盘盲打的少低一下头看键盘回省出多少时间,你画一张图需要少低多少次图,就知道能省多少时间了.有的朋友也许会问为什么都是33,2以前的反而没有用呢.因为2以前的用处更大.见下面的

(defun c:ee()
  (command "zoom" "e" ^c)
  (command "zoom" "0.95x" ^c)
)

(defun c:22()
  (command "zoom" ".22x" ^c)
)

(defun c:pp()
  (command "zoom" "p" ^c)
)

这几个是关于视窗的lsp,当然现在有好些的朋友挂了滚轮程序,但是当你输入"22",然后左手大拇指连续按几次空格,绝对比你右手中指滚几次滚轮缩小窗口快的多.配合鼠标的alt+左键,你放大缩小窗口就更快了.

(defun c:gb()
        (setq s (getvar "cmdecho"))
        (setvar "cmdecho" 0)
        (command "layer" "s" "0" "" )
        (princ "\n请点取欲关闭图层的物体: ")  
        (setq s0 (ssget))
        (setq i 0)
        (while (ssname s0 i)
               (setq laname (cdr (assoc 8 (entget (ssname s0 i)))))
               (command "layer" "off" laname "" )
               (setq i (1+ i))
        )
        (setvar "cmdecho" s)
)

(defun c:1()
  (princ "\n请点取欲单独显示图层的物体:")
  (setq s0 (ssget))
  (setq name (cdr (assoc 8 (entget (ssname s0 0)))))
  (command "layer" "s" name "off" "*" "n" ""^c)
)

(defun c:`()
  (command "layer" "ON" "*" ^c)
)

上面的就是关闭图层,单独显示某图层和打开所有的图层.相信这个东西比你用图层管理器更快的多.以后你就不会再想用那个麻烦的图层管理器了.

其实到这里已经基本上把常用到的小程序已经说完了,你可以写写你自己希望用的程序来帮你画图更方便.我再写几个和天正有点关系的.

(defun c:xTF()
  (command "layer" "off" "AXIS_TEXT" "y")
)
(defun c:xto()
  (command "layer" "on" "AXIS_TEXT" ^c)
)
(defun c:WTF()
  (command "layer" "off" "WINDOW_TEXT" "y")
)
(defun c:wto()
  (command "layer" "on" "WINDOW_TEXT" ^c)
)

上面几个是打开和关闭轴线文字,门窗名称的.大家都知道天正的门窗名称,轴线文字和门窗,轴线不是一个层.所以关闭门窗或轴线的时候,文字还是显示的,所以这个小程序帮你特殊的关掉和打开专门的文字层,我自己用的很方便,大家可以照自己的习惯来写这类的程序.

好了,关于acadr14.lsp我就说这些了.基本上都是关于cad画图提速的东西,也是极速天正所必要的.以后我会有后续的帖子继续的讲下一个问题.

总有朋友说应该上传源文件供大家下载,我发帖子的目的一直就是想大家学会自己动手做自己想做的东西.并不想让大家简单的下载,再粘贴到自己的计算机里用.那失去了我发贴的目的.不过既然总有想偷懒一点的朋友,那我就发上我的acadr14.lsp.不过你要付出你的爱心币,不想付出爱心币的朋友照我上面说的做,和下载得到的东西是一样的,希望你们都不要下载我的acadr14.rar.而是自己去试着做.

ycjcjjj

老大厉害个啊~
激动人心个~

Durain

楼主厉害，这样也想得到，这些东东道理很多人都知道，不过好象没有多少人想到要这么做。
我也去试试做几个自己常用的。
另外提一句，把命令名都改成在左手的字母会更快一点点，因为输入右手边的字母一样要低头看键盘的，尤其是象：p/o/i这些字母，不过这样可能不好记。

PS:虽然有做广告之嫌，不过我还是要说一句，如果觉得TCH3比TCH5、6好用的话，为什么不试一试理正建筑，相信不会让你失望的。

ycjcjjj

空壳老大 刚才看了你的"操作界面"
你的 command 命令行  怎么移到上面了啊?

希望老大指点一下~

llhh

一直想学LISP编制，多谢交流。

空壳

durain:
  我也很想试试理正啊.在哪里可以买到盗版啊!!
呵呵,其实告诉我在哪里下载就谢谢了.
  我的cad快键基本上都是键盘靠左的,其实连我的键盘的数字小键盘都是在左边的,
大家有兴趣的话，而已去买个试试.我的是"双飞燕---双飞手"键盘鼠标一套.


ycjcjjj;
  你怎么知道我的界面命令行在上面的?!
  你按住命令行向上拖动,它就会独立出来,再调整一下大小,然后移到上面就可以了.


我想问个问题:上传的文件有2次下载.都是谁下的呢?看来喜欢偷懒的人还不是很多啊!
我去删掉它了!

看来现在用14和天正3的人真的很少了.极速二.三.四还有人想看吗?
是不是不用再接着写了?

dujunfeng

如何修改天正命令的快捷健呢？例如直线轴网命令的快捷命令？
谢谢了····

k-777

lisp是必备的知识～
要不CAD白学了！

极度寒冷

“极速二、三、四”深情期待中……

ycjcjjj

报告老大 你的界面 我在另一个帖子里看到的~
还有2次记录中 有一次是我下的~   
哈哈~ 我没偷懒啊~  我下的时候 已经照老大的方法编了~ 不过粘贴的时候出了一点差错,所以就下下来看看
呵呵~~!期待老大的极速二,三,四了~

空壳

dujunfeng:
     关于你提的问题在这个帖子之前我已经发国一个专门的介绍快键制作的帖子.
希望你能在那个帖子里找到你的答案,在这个帖子里我就不详细的回答你的问题了.
可以吗?

ycjcjjj

(defun c:mp()
(command "move" "p" "")
)

(defun c:33()
(command "move" "p""" )
)

(defun c:ccc()
(command "copy" "p""" )
)

(defun c:ea()
(command "earse" "all" )
)

(defun c:55()
(command "mirror" "p""" )
)

(defun c:mip()
(command "mirror" "p""" )
)


～～～～～～～～～～～～～～～～～～～～
老大 以上几个命令不会用啊~~

Durain

最初由 空壳 发布
[B]durain:
  我也很想试试理正啊.在哪里可以买到盗版啊!!
呵呵,其实告诉我在哪里下载就谢谢了.
  我的cad快键基本上都是键盘靠左的,其实连我的键盘的数字小键盘都是在左边的,
大家有兴趣的话，而已去买个试试.我的... [/B]

这个，老兄你是你你XD只上天正论坛的吗？
从来没有去邻居那里转转的么。
理在在这里有一个专用论坛，里面有免费试用版，至于详情，你看了就知道了，不用我多说了。至于D版的，在这里还是不要多说！*-*6 *-*6 *-*6 *-*6

期待老兄的技术二、三……事实上，用R14+TCH3的还是占了多数的，看看论坛的调查就知道了。事实上THC5来做施工图还是不甚理想。之前没有法子，一直用R14平台的TCH3，现在有了理正，也可以享受R2002、04、05平台的好处了（我又做广告了，还是就此打住吧！*-*6 *-*6 *-*6 *-*6

空壳

ycjcjjj:

P是cad里的嵌入命令.意思是"重复上次的选择".所以
(defun c:33()
(command "move" "p""" )
)
可以使你不必再去按P直接选择上次的物体,(省去P使用左手按键盘的人会省出时间的)
在ca里嵌入命令还有:C  CP  W   WP   F    L     其实ALL 也应该算是的.这些在cad使用论坛里应该有详细的介绍,你可以去看看的.


durain:
  我的确是几乎只上天正论坛的,以后有时间会去理正看看的,希望能够得到大家的多多帮助.



二,三我正在写,只是最近有些忙,不过一定会赶出来和大家交流的.