[推荐]：cad特性修改

xcajcj

我也来一个，方法是针对2002的，在2000下的使用方法一样。
1.在acad.mnl下加入下面的程序代码

;;=================================================================================================

(defun c:ai_propchk ( / a)
  (setq m:err *error* *error* *merr*)
  (if (not (setq a (ssget  "_I")))
      (setq a (ssget))
  )
  (if (> (sslength a) 1)
    (progn
      (if (not ddchprop)
        (load "ddchprop")
      )
      (setq *error* m:err m:err nil)
      (ddchprop a)
    )
    (progn
      (if (not ddmodify)
        (load "ddmodify")
      )
      (setq *error* m:err m:err nil)
      (ddmodify (ssname a 0))
    )
  )
  (princ)
)

;;=================================================================================================

2.在acad.mnu下的“对象特性”工具条最后加入如下语句：

ID_Ai_propch14 [_Button("特性", ICON_16_MODIFY, ICON_16_MODIFY)]^C^Cai_propchk

3.在帮助上加入如下语句：

ID_Ai_propch14 [选择单个对象则运行 DDMODIFY，否则运行 DDCHPROP:   ai_propchk]

4.将R14下的ddchprop.dcl、ddchprop.lsp、ddmodify.dcl和ddmodify.lsp四个文件拷入R2002下的Support目录中。

5.键入“menu”命令选择“acad.mnu”菜单文件重新编译即可。

xcajcj

下面压缩包内有所需文件。

footballfanz

我更喜欢r14的特性

luyunjian

我是从2000开始学的，14没有什么概念，呵呵
试一下先