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

cnynic

我习惯左用用鼠标，有没键盘的右用定义

xmllin

说是快捷，我怎么觉得反而更麻烦了？

空壳

cnynic的回复：

你可以把键盘倒过来用啊！那快键不都靠在右手边了吗！
呵呵，开个玩笑。

你自己编写吧，我是用左手用键盘的，我写的也不一定适合你。

2002zjp

你的“1”是不是这样的

(defun c:1 (/ e #lyr_l n)
  (while (setq e (car (entsel "\n请选取要保留图层上的实体<退出>:")))
    (xdrx_setenttodb e)
    (#push_lay (xdrx_getentdxf 8))
  )
  (if #lyr_l
    (progn
      (xdrx_begin '("expert" 1
                   "cmdecho" 0
                  )
      )
      (command ".layer" "of" "*")
      (foreach n #lyr_l
        (command "on" n)
      )
      (command "")
      (xdrx_end)
    )
  )
  (princ)
)

空壳

啊！！！！！

你怎么知道我的1是这样的呢？！！！
你太厉害了吧！！！！！！！


呵呵，开玩笑的，我的1远没有你的这个复杂。
是下面这样的：
(defun c:1()
  (princ "\n你想单独显示图层的实体:")
  (setq s0 (ssget))
  (setq name (cdr (assoc 8 (entget (ssname s0 0)))))
  (command "layer" "s" name "off" "*" "n" ""^c)
)

简单吧？

2002zjp

我建议你把“点物关层”和“点物留层”同时定义。那该多好。

空壳

当然有了！那要是没有，多麻烦啊！
不过我关闭图层的命令是“GB”汉语大写，呵呵
你再写上来一份程序，我看看和我的是不是一样的。
好不好？

2002zjp

(defun c:oo (/ e #lyr_l n)
  (while (setq e (car (entsel "\r请选取要关闭图层上的实体<退出>:")))
    (xdrx_setenttodb e)
    (#push_lay (xdrx_getentdxf 8))
  )
  (if #lyr_l
    (progn
      (xdrx_begin '("expert" 1
                   "cmdecho" 0
                  )
      )
      (command ".layer")
      (foreach n #lyr_l
        (command "of" n)
      )
      (command "")
      (xdrx_end)
    )
  )
  (princ)
)

wangheng

其实有更简便的办法，我是这样操作的，在放弃工具条上按右键再按右键，再弹出的对话框name里写上轴网标注，help里写上我是轴网标注，macro栏里下划线后u改为desaxis。放弃工具条就变为轴网标注了，箭头图标也可修改，方法在放弃工具条上按右键再按右键，选右下角Edit健，就可以随意更改画出你满意的图标

空壳

和我的差不多。

(defun c:gb()
        (setq gb (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" gb)
)

fox_chw

看得都晕了
能不能说明白点

loiskoln

我明白了，你的意思是编一个程，再加载，对吗？

空壳

对，
我的mark.lsp也在不停的更新中，也许等有一天我
的lsp完美了，我会传上来吧。
现在正在更新剖面的快键部分，很快要完成了。

大梦小生

虽然有点faint,但还是必须up

大土匪

讲得太简单了吧