)
;改坐标系-----------------------对象坐标系cs
(defun c:cs()
(command "ucs""n" "ob")
)
;全范围缩放-----------------------ze
(defun c:ze()
(command "zoom" "e")
)
;全动态缩放-----------------------ze
(defun c:zd()
(command "zoom" "d")
)
;改成随层--------------------------------------------------------- 1
(defun c:0(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "bylayer" "")
)
;改成红色--------------------------------------------------------- 1
(defun c:1(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "1" "")
)
;改成黄色--------------------------------------------------------- 2
(defun c:2(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "2" "")
)
;改成绿色--------------------------------------------------------- 3
(defun c:3(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "3" "")
)
;改成青色--------------------------------------------------------- 4
(defun c:4(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "4" "")
)
;改成蓝色--------------------------------------------------------- 5
(defun c:5(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "5" "")
)
;改成紫色--------------------------------------------------------- 6
(defun c:6(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "6" "")
)
;改成白色--------------------------------------------------------- 7
(defun c:7(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "7" "")
)
;改成灰黑色--------------------------------------------------------8
(defun c:8(/ ent)
   (setq ent (ssget))
   (command "change" ent "" "p" "c" "8" "")
)
;改成9好色--------------------------------------------------------------9
(defun c:9(/ ent)
    (setq ent(ssget))
    (command "change" ent "" "p" "c" "9" "")
)
其实上面这些是lsp程序，我不太懂，望请高手指教。

4、 选择对象的技巧
在这我只说两种选择方式。
A、快速选择
B、对象选择过滤器
快速选择比较简单，此不详述。对象选择过滤器，命令为filter。
下面以选中图中的所有文字为例来介绍对象选择过滤器的用法。
     输入filter（如果定义了上述的左手键，可输入ft）空格，在选择过滤器栏中选择“文字”选项，然后点击替换按钮，在另存为后输入1,点击另存为按钮保存，点击应用按钮后就可以选择对象了。对象选择过滤器在对象很多时是很好用的。

上一页  [1] [2] [3]