找回密码 注册 QQ登录
开思网工业级高精度在线3D打印服务

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 20688|回复: 13
打印 上一主题 下一主题

一个自己定义的AUTOCAD命令

[复制链接]
跳转到指定楼层
1
发表于 2003-8-30 16:23:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
一个自己定义的AUTOCAD命令
说明:
把附件解压到安装目录下,
运行CAD,
下拉菜单----------工具-----------加载运用程序,
选择刚才解压的文件。OK
按快捷鍵AAA,执行命令。
接下来自己看提示

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2003-9-1 14:51:14 | 只看该作者
是个什么样的功能的命令。。
  
有些什么用处。
3
发表于 2003-9-1 14:52:22 | 只看该作者
是什么样的命令。
  
在cad的任何版本都可以吗??
4
发表于 2003-9-12 09:18:36 | 只看该作者
我下不了。
5
发表于 2008-7-25 21:17:11 | 只看该作者

re

(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划中线的命令不?
6
发表于 2008-7-26 10:21:49 | 只看该作者
这些还用自己做吗?人家都做出来了.要做别人没有做过的才有意思!当然还要实用了!
7
发表于 2008-7-28 12:48:31 | 只看该作者
楼主说的清楚点
8
发表于 2008-7-28 22:44:11 | 只看该作者
改正命令呀!很好呀!支持你
9
发表于 2008-8-1 22:55:25 | 只看该作者
我做了个在CAD的命令行看TXT书的命令,是不是很有创意??
10
发表于 2008-8-2 23:33:32 | 只看该作者
原帖由 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 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-12-23 18:58 , Processed in 0.027394 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表