模具论坛

 找回密码
 注册

扫一扫,微信登录

QQ登录

只需一步,快速开始

搜索
热搜: 冲压 注塑 求助
    回车查看更多
    论坛可能已存在您要发布的主题帖 关闭
      查看: 2410|回复: 3

      [分享] CAD插件

      [复制链接]
      发表于 2008-11-21 21:23:17 | 显示全部楼层 |阅读模式
      好用的LSP,标注粗糙度的

      本帖子中包含更多资源

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

      x
      发表于 2008-11-21 23:25:49 | 显示全部楼层
      ccd
      错误: AutoCAD 变量设置被拒绝: "clayer" "T"

      在2004版 只能分开使用内部程序。
      (defun CCD4 ()
      (setvar "cmdecho" 0)
      (setq sp (getpoint "\n请输入起点<尖点>:"))
      (setq a60 (/ PI 3))
      (setq h (* 1.4 3.5))
      (setq tan60 (/ (sin a60) (cos a60)))
      (setq ap (list (- (car sp) (/ h tan60)) (+ h (cadr sp))))
      (setq bp (list (+ (car sp) (/ (* 2 h) tan60)) (+ (* 2 h) (cadr sp))))
      (setq cp (list (+ (car sp) (/ h tan60)) (+ h (cadr sp))))
      (setq tep1 (list (car cp) (+ (+ h 0.7) (cadr sp))))
      (setq tep2 (list (- (car sp) 4.25) (+ (cadr sp) 1.05)))
      (setq cenp (list (car sp) (+ (cadr sp) 3.26)))
      (setq qb "全部")
      (setq qy "其余")
      (command "line" "non" ap "non" sp "non" bp "")
      (command "line" "non" cp "non" ap "")
      (setq text1 (getstring "\n请输入表面粗糙度最大允许值:"))
      (command "text" "r" "non" tep1 "3.5" "0" text1 )
      (command "text" "r" "non" tep2 "5" "0" qy )
      (command "color" "bylayer")
      )
      发表于 2008-11-23 13:50:57 | 显示全部楼层
      这个下了之后怎么用呢?
      发表于 2010-7-21 22:36:03 | 显示全部楼层
      可以支持cad2008吗?
      您需要登录后才可以回帖 登录 | 注册

      本版积分规则

      关闭

      招聘信息 上一条 /5 下一条

      关闭

      求职信息 上一条 /5 下一条

      关闭

      技术求助 上一条 /5 下一条

      QQ|小黑屋|手机版|模具论坛 ( 浙ICP备15037217号 )

      GMT+8, 2025-5-10 23:44

      Powered by Discuz! X3.4

      © 2001-2013 Comsenz Inc.

      快速回复
      返回顶部
      返回列表
       
      客服电话:0577-61318188
      模具论坛交流群:
      模具论坛交流群
      工作时间:
      08:30-17:30