[密技]：1，人人都会做天正快键，2，CAD单手键盘密技

ycjcjjj

空壳老大 我打开tch.mnl文件 发现都是乱码啊~不知道如何做了哇~

woaiguwozai

斑竹很有BT精神啊

青鸟

空壳老哥一定在装修房子，让我们耐心等待吧。
房好了来个视频教学，一睹为快。
好主意吧，空壳老哥。

krjcxc321

如何编辑这些LISP文件?

空壳

唉！初级会员还这么的懒惰啊？！！

我的目的是教会大家自己做快键，不是让大家用我的快键！
如果我把我做好的发给大家！那还有谁去学了啊？


青鸟：
  你好！很高兴你就快学会了！
把你的email地址发到我的QQ里，我给你回复一份详细的说明。
我想你看过以后就应该彻底的学会了。以后就算我不再告诉你，
你自己研究一下就可以搞定了！
呵呵，别忘了发email给我QQ。



另：有的朋友说MNL文件是乱码？那你用WINDOWS 自带的记事本打开它试试吧！

ycjcjjj

**WINDOW_
[.主菜单.]^C^C$S=cla_ $S=screen
[.平　面.]^C^C$S=cla_ $S=plan_
[————]
[-门　窗-]
[————]
[o  窗  o]^P^C^C(wdmnu1) ^P
[顺序插入]^C^Cwdin;
[中心插入]^C^Cwdinc;
[垛宽插入]^C^Cwdinb;

~~~~~~~~~~~~~~~~~~
空壳老大想问一下 顺序插入 中心插入 垛宽插入 这三个快捷键要怎么编?
还有编好 快捷键后 怎么样能让它自动加载?
先谢谢老大了~~
感激ing

asch

这是天正自定义快捷文件的内容

ycjcjjj

**TOOL2_
[.主菜单.]^C^C$S=cla_ $S=screen
[————]
[-工具二-]
[————]
[消除重线]^P^C^C(_@ld"ini_lyr");(_@ld"rduplac");^P(rduplac(ini_lyr));
[消重图元]^P^C^C(_@ld"ini_lyr");(_@ld"rdupent");^P(rdupent(ini_lyr));

~~~~~~~~~~~~~~~~~~~~~~~~~~
空壳老大 消除重线,消重图元 这两个命令要如何编啊~~  和你教的方法有些不一样啊~~!


还有我编的
(defun C:bg ()标高

(menucmd"s=elev_ (edmnu) ^P")

)

发现 里面的 上标注 右标注 无引线 不引出  都没有啊~~

空壳

问题一:
你发现了这个问题说明你真的是认真的学了!!一个真正的学的人是不可能用不到
门窗的快键的.我一直希望有人会问这个问题!可惜帖子贴到现在才有人问!唉....

我现在就解释答案,在天正里门"窗""门""高窗"这3个部分是以循环的形式出现的,
控制循环的也有自己的函数,它是动态的文字.而它们3个每一个都有自己的"变量".
具体的指出----"窗"是被动态的写在上面的,而它的变量wdins 1
所以在编写快键程序的时候你要Progn出"窗"的变量,这样天正才会知道你要的是它们
3个之中的哪个!

下面我把"窗"和"门"写出,你自己再试试"高窗".

;#########  平面-门窗  ###########
(defun C:cc () ;顺序插窗
        (_@Ld"Window0")
        (Progn(Setq _wdins 1)(Princ))
        (c:wdin)
      (princ "\n帮主，开这样的窗？太没有品位了吧！")
   (princ)
)
(defun C:cz () ;中心插窗
        (_@Ld"Window0")
        (Progn(Setq _wdins 1)(Princ))
        (c:wdinc)
      (princ "\n帮主，开这样的窗？太没有品位了吧！")
   (princ)
)
(defun C:cd () ;垛宽插窗
        (_@Ld"Window0")
        (Progn(Setq _wdins 1)(Princ))
        (c:wdinb)
      (princ "\n帮主，开这样的窗？太没有品位了吧！")
   (princ)
)



(defun C:fc () ;顺序插门
        (_@Ld"Window0")
        (Progn(Setq _wdins 2)(Princ))
        (c:wdin)
      (princ "\n帮主，喜欢这么开门？太没有品位了吧！")
   (princ)
)
(defun C:fz () ;中心插门
        (_@Ld"Window0")
        (Progn(Setq _wdins 2)(Princ))
        (c:wdinc)
      (princ "\n帮主，喜欢这么开门？太没有品位了吧！")
   (princ)
)

(defun C:fd () ;垛宽插门
        (_@Ld"Window0")
        (Progn(Setq _wdins 2)(Princ))
        (c:wdinb)
      (princ "\n帮主，喜欢这么开门？太没有品位了吧！")
   (princ)
)


问题二:
用WINDOWS的记事本打开c:/tangent/tch14/sys/ACAD.MNL,
在文件的最底下新起一行加上以下的一行

(load "c:/tangent/tch14/sys/mark")

注意1.括号不要忘记2.双引号不要忘记3.路径之间是/而不是\4.你的LSP文件名是XXX就把MARK改成XXX

好了,现在保存.再进入天正的时候,你做的快键就可以自动加载了!

其实还有很多天正,CAD的启动文件,你加在哪个文件里理论上是都可以的,我个人的习惯是加在MNL里.
其它的启动文件你也可以多试试.





问题三:
这个问题较好解决,你按照TCH.MNS里面的
[消除重线tf]^P^C^C(_@ld"ini_lyr");(_@ld"rduplac");^P(rduplac(ini_lyr));
[消重图元]^P^C^C(_@ld"ini_lyr");(_@ld"rdupent");^P(rdupent(ini_lyr));
直接连下来就可以了.

;######### 工具二  ######

(defun C:tf () ;消除重线
        (_@Ld"Ini_Lyr")
        (_@Ld"Rduplac")
        (Rduplac(Ini_Lyr))
)

(defun C:ty () ;消重图元
        (_@Ld"Ini_Lyr")
        (_@Ld"rdupent")
        (Rdupent(Ini_Lyr))
)





问题四:
;#########  标高 ############

(defun C:bg() ;单注标高
        (_@Ld"Eledim")
        (c:eledim)
)
(defun C:ba () ;上下翻转
        (_@Ld"Dimsec")
        (c:eleud)
)
(defun C:bs () ;左右翻转
        (_@Ld"Dimsec")
        (c:elelr)
)
(defun C:bf () ;连注标高
        (_@Ld"Eledim1")
        (c:cedim)
)
(defun C:bq () ;全注标高
        (_@Ld"Dimsec")
        (c:dimsec4)
)

在标高里同样有问题一里说到的问题,"右下""右上"....也是循环的,它们之间循环的是
(cond ((= 1 _dimzbfx) "o右XY下o")
      ((= 2 _dimzbfx) "o左XY下o")
      ((= 3 _dimzbfx) "o右XY上o")
      ((= 4 _dimzbfx) "o左XY上o")
      ((= 5 _dimzbfx) "o右AB下o")
      ((= 6 _dimzbfx) "o左AB下o")
      ((= 7 _dimzbfx) "o右AB上o")
      ((= 8 _dimzbfx) "o左AB上o")
这次看懂了吗?变量是_dimzbfx,"右下"变量即是dimzbfx 1
你要是想写的话,就自己试试.

其实有上下翻转和左右翻转,你大可不必写出那么多的方向吧!haha  



ycjcjjj:
把你的email给我，我把我的mark发给你参考。希望你能更好的使用
快键。
也恭喜你已经学会了快键的制作。还是挺简单的。是不是？

dbest

呵呵
我用的是天正６．０
还好！！

ycjcjjj

谢谢空壳老大的帮助~~!
我的邮箱是  ycj800915@sina.com     或  ycj800915@sohu.com
感激中~!

zouxiaopeng

搞了半天也还不明白，下次再来仔细慢慢琢磨。谢谢！

limingqian

(defun c:1()
(command "line"))
(defun c:2() (command "matchprop"))
(defun c:3() (command "move"))
(defun c:4() (command "offset"))
(defun c:5() (command "mirror"))

这段代码不如直接修改ACAD.PGP来得方便！

空壳

楼上的说的很对啊!

其实在cad里很多方法都可以做到同一件事.编快键也是有很多的方法,
大家如果都会一点编程的知识,在一起共同讨论的话,提高会更快,
大家都一起来学习吧!

yueshan

不会编这些东西
不过快捷键可以修改的，你找到一个文件修改就行的拉