找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1138|回复: 18

[已解决] [已解决】申请个添加工艺孔的程序

[复制链接]
发表于 2017-3-4 22:24:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

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

×
本帖最后由 hxyjd 于 2017-3-5 16:05 编辑

增加工艺孔

增加工艺孔

我是做钣金加工的,经常要优化图形,增加工艺孔类的,用CAD一个个的处理太繁琐,想简化下操作,特申请个添加工艺孔的LISP程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-3-4 22:36:29 | 显示全部楼层
你画完,孔和两直线不是一体的 一个 多段线吗? 分散的?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-3-4 23:05:14 | 显示全部楼层
分散和一体的都可以,只看哪个更简单
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 859个

财富等级: 财运亨通

发表于 2017-3-5 09:27:29 | 显示全部楼层
圆心是什么计算规则
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 859个

财富等级: 财运亨通

发表于 2017-3-5 10:34:50 | 显示全部楼层
本帖最后由 csharp 于 2017-3-5 11:57 编辑



  1. (defun c:tt1 (/ ss sl e1 e2 kw lst cl p p1 p2)
  2.   (xd::doc:disableosmode)
  3.   (xdrx_begin)
  4.   (while (and (setq ss (ssget '((0 . "line,lwpolyline"))))
  5.               (setq sl (xdrx_pickset->ents ss))
  6.               (if (vl-some '(lambda (x)
  7.                               (= (car (xdrx_getpropertyvalue x "classname")) "LWPOLYLINE")
  8.                             )
  9.                            sl
  10.                   )
  11.                 (setq sl (xdrx_pickset->ents (xdrx_entity_explode t ss)))
  12.                 t
  13.               )
  14.               (>= (length sl) 2)
  15.               (setq lst        (vl-sort sl
  16.                                  '(lambda (e1 e2)
  17.                                     (> (xdrx_getpropertyvalue e1 "length")
  18.                                        (xdrx_getpropertyvalue e2 "length")
  19.                                     )
  20.                                   )
  21.                         )
  22.               )
  23.               (if (> (length lst) 2)
  24.                 (xdrx_entity_delete (cddr lst))
  25.                 t
  26.               )
  27.               (progn
  28.                 (setq mod (xd::symbol:get 'FilletMode))
  29.                 (setq rad (xd::symbol:get 'FilletRad))
  30.                 (initget 128 "1 2")
  31.                 (setq kw (getkword (if mod
  32.                                      (strcat "\n模式[1.倒角(1)/2.圆(2)]<" mod ">: ")
  33.                                      "\n模式[1.倒角(1)/2.圆(2)]: "
  34.                                    )
  35.                          )
  36.                 )
  37.                 (if kw
  38.                   (xd::symbol:put 'FilletMode kw)
  39.                   t
  40.                 )
  41.                 (if (= (xd::symbol:get 'FilletMode) "1")
  42.                   (progn
  43.                     (vl-cmdf ".fillet" (car lst) (cadr lst))
  44.                     t
  45.                   )
  46.                   (progn
  47.                     (setq r (getdist (if rad
  48.                                        (strcat "\n半径<" (rtos rad 2 4) ">: ")
  49.                                        "\n半径: "
  50.                                      )
  51.                             )
  52.                     )
  53.                     (if        (null r)
  54.                       (setq r rad)
  55.                       (xd::symbol:put 'FilletRad r)
  56.                     )
  57.                     (vl-cmdf ".fillet" (car lst) (cadr lst))
  58.                     (setq p (xdrx_entity_intersectwith (car lst) (cadr lst) 3))
  59.                     (setq cl (xdrx_circle_make (car p) r))
  60.                     (setq p1 (car (xdrx_entity_intersectwith cl (car lst)))
  61.                           p2 (car (xdrx_entity_intersectwith cl (cadr lst)))
  62.                     )
  63.                     (vl-cmdf ".trim"
  64.                              (list (car lst) p1)
  65.                              (list (cadr lst) p2)
  66.                              (list cl (car p))
  67.                              ""
  68.                              (list (car lst) (car p))
  69.                              (list (cadr lst) (car p))
  70.                              (list cl (polar p1 (angle p1 p2) (* 0.5 (distance p1 p2))))
  71.                              ""
  72.                     )
  73.                     t
  74.                   )
  75.                 )
  76.               )
  77.          )
  78.   )
  79.   (xd::doc:enableosmode)
  80.   (xdrx_end)
  81.   (princ)
  82. )
11.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-5 13:23:26 | 显示全部楼层

从描述看,圆心在交点上。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-3-5 14:00:28 | 显示全部楼层
本帖最后由 hxyjd 于 2017-3-5 14:27 编辑

命令: _appload 已成功加载 工艺孔.lsp。
命令: ; 错误: 读入的 (八进制) 字符不正确: 0
命令:

加载成功,但出现错误了,杀了CAD病毒,也重装了CAD,但还是一样。CAD版本为2007


命令:
命令: _appload 已成功加载 tt1.lsp。
命令:
命令:
命令: tt1
; 错误: no function definition: XD::DOC:DISABLEOSMODE
命令:



不知道什么情况,加载成功,但用不了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-3-5 14:22:24 | 显示全部楼层

可能是你编辑软件的编码问题, 你直接从论坛拷贝,然后直接粘贴到CAD命令行,看看如何?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 859个

财富等级: 财运亨通

发表于 2017-3-5 14:39:21 来自手机 | 显示全部楼层
加载库文件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-3-5 14:57:55 | 显示全部楼层

你好,请问怎么加载库文件,刚重装了系统和CAD2007.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-3-5 15:19:17 | 显示全部楼层

提示八进制错误,是你拷贝编辑后的代码的编码不对。 你把 论坛代码 直接拷贝粘贴到命令行,看还提示 八进制错误不, 出现八进制错误是你没加载成功。

如果不提示这个错误了,你安装下XDRX API 或者 晓东工具箱,然后再执行代码。代码里面用到了XDRX API里面的函数。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2017-3-5 15:28:23 | 显示全部楼层

关于提示八进制错误的,你看看这个帖子的解决办法。

http://bbs.xdcad.net/thread-706549-1-1.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 86个

财富等级: 招财进宝

发表于 2017-3-5 15:30:17 | 显示全部楼层
啥也不说了,感谢楼主分享哇!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-3-5 15:57:33 | 显示全部楼层
已经解决了,谢谢,安装最新的工具箱,在CAD下,用VLIDE命令,创建一个新文件,然后把代码粘贴过去,保存成LISP,再加载就不出现问题了。可以完美使用,特别感谢大师编的程序,省了很多事了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-5 16:03:18 | 显示全部楼层

解决了,就编辑下主题帖,在[编程申请]后面加上【已解决】吧。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 03:25 , Processed in 0.448049 second(s), 66 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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