一个自己定义的AUTOCAD命令

一个自己定义的AUTOCAD命令
说明：
把附件解压到安装目录下，
运行CAD，
下拉菜单----------工具-----------加载运用程序，
选择刚才解压的文件。OK
按快捷鍵AAA，执行命令。
接下来自己看提示

是个什么样的功能的命令。。
  
有些什么用处。

是什么样的命令。
  
在cad的任何版本都可以吗？？

我下不了。

(defun C:AAA (/ se r ed p )
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (graphscr)
  (setq se(entsel "请选取圆或圆弧："))
  (while (/= nil se)
    (setq r(getreal "请键入新半径："))
    (setq ed(entget (car se)))
    (setq pp(cons (car (nth 10 ed)) r))
    (setq ed(subst pp (assoc 40 ed) ed))
    (entmod ed)
    (setq se(entsel "请选取圆图元："))
  )
)


这是做什么功能?
能帮我做一个cen划中线的命令不?

这些还用自己做吗?人家都做出来了.要做别人没有做过的才有意思!当然还要实用了!

楼主说的清楚点

改正命令呀！很好呀！支持你

我做了个在CAD的命令行看TXT书的命令，是不是很有创意？？

原帖由 wxdzh 于 2008-8-1 22:55 发表
我做了个在CAD的命令行看TXT书的命令，是不是很有创意？？

(defun c:qq()
    (setq b (getint "\n输入开始阅览的行数:"))
    (setq t 1)
    (setq fil (open "C:\\PRO\\temp.txt" "r"))
    (while (<= t b)
      (setq t (+ t 1))
      (read-line fil)
    )
    (while (setq rd (read-line fil))
    (setq l (strcat "第" (rtos b 5) "行:"))
    (prompt (strcat "\n" (strcat l (substr rd 1))))
    (setq b (+ b 1))
    (setq nt(getpoint))
    )
    (close fil)
    (princ)
)

将此段代码保存为book.lsp
在AUTOCAD里输入AP加载book.lsp
在AUTOCAD里输入qq开始阅读TXT书读取的TXT文件是C:\PRO\TEMP.TXT
也可以更改读取的TXT文件，修改此行代码的文件路径和文件名：    (setq fil (open "C:\\PRO\\temp.txt" "r"))

特适合在上班时间看小说 ，不会被发现！
我也是还在学习中，高手别见笑，欢迎对此段代码进行优化修改！
更多LISP实用小程序及教程请到我的BLOG：https://blog.163.com/wxd_2003

[ 本帖最后由 wxdzh 于 2008-8-2 23:38 编辑 ]