设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 加帮忙修改一下代码，非常感谢
123
返回列表 发新帖
楼主: abc498091367

[求助] 加帮忙修改一下代码，非常感谢

[复制链接]
csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-8-21 01:06:46 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
abc498091367 发表于 2014-8-19 08:52
DWG文件，我也上传了，图片也可以看出

你应该贴上 源图形

点评

abc498091367
图形有，前面几楼，我发给图片。。。  详情 回复 发表于 2014-8-21 08:24
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 08:24:07 | 显示全部楼层
st788796 发表于 2014-8-21 00:20
加个 ODCL 对话框就是这样，没有写输出部分

1 输出半径可以点击修改

这个好，还有DCL对话框，这样直接在DCL对话框里面修改，统一修改然后再输出，

还的麻烦ST，能做成输出吗？G代码形式！我看你给另外一个CNC加工中心了一个。应该差不多，这个可能还简单一点，
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 08:24:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
csharp 发表于 2014-8-21 01:06
你应该贴上 源图形

图形有，前面几楼，我发给图片。。。

点评

csharp
源Dwg才能判断问题在哪  详情 回复 发表于 2014-8-21 11:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-8-21 11:54:21 来自手机 | 显示全部楼层
abc498091367 发表于 2014-8-21 08:24
图形有，前面几楼，我发给图片。。。

源Dwg才能判断问题在哪

点评

abc498091367
里面就是DWG文件  详情 回复 发表于 2014-8-21 12:14
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 12:14:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
csharp 发表于 2014-8-21 11:54
源Dwg才能判断问题在哪

里面就是DWG文件
请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:111.zip 
下载次数:3  文件大小:76.47 KB 
下载权限: 不限 以上  [免费赚D豆]


点评

csharp
你这张图没有问题 _$ (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Normal")) (xdrx_pickset->ents (ssget '((0 . "CIRCLE"))))) ((0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0  详情 回复 发表于 2014-8-21 16:30
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 10246个

财富等级: 富甲天下
发表于 2014-8-21 13:57:29 | 显示全部楼层
  2. (defun c:cnc()
  3. (setvar "CMDECHO" 0)
  4. (princ "\n请选要输出的圆[提示:不要的层最好关闭]")
  5. (if (setq n (getint "\n<1=默认大小>,2=手动输入: ")
  6.           ss (ssget '((0 . "CIRCLE")))) (progn
  7.   (command ".UNDO" "BE")
  8.   (setq i -1  cirlst (list))
  9.   (repeat (sslength ss)
  10.    (setq r (cdr (assoc 40 (entget (setq en (ssname ss (setq i (1+ i))))))))
  11.    (if (assoc r cirlst)
  12.     (setq cirlst (subst (cons r (1+ (cdr (assoc r cirlst)))) (assoc r cirlst) cirlst))
  13.     (setq cirlst (cons (cons r 1) cirlst))
  14.    )
  15.   )
  16.   (setq i -1 cirlst (reverse cirlst) cclist (list))
  17.   (setq cirlst (vl-sort cirlst (function (lambda (e1 e2) (> (car e1) (car e2))))))
  18.   (repeat (length cirlst)
  19.    (setq r (car (nth (setq i (1+ i)) cirlst)))
  20.    (command "select" ss "")
  21.    (setq ss1 (ssget "P" (list (cons 0 "CIRCLE") (cons 40 r))))
  22.    (if (= n 2) (progn
  23.     (setq r1 (getdist (strcat "\n输入新直径<" (rtos (+ r r) 2 2) "> :")))
  24.     (setq r (if r1 (* r1 0.5) r))
  25.    ))
  26.    (setq j 0 clist (list r))
  27.    (repeat (sslength ss1)
  28.     (setq ent (entget(ssname ss1 j)))
  29.     (setq j (1+ j))
  30.     (setq pc (cdr(assoc 10 ent)))
  31.     (if (< (last(assoc 10 ent)) 0) (setq pc (mapcar '* pc '(-1 1 1))))
  32.     (setq clist (append clist (list (list (car pc) (cadr pc)))))
  33.    )
  34.    (setq cclist (cons clist cclist))
  35.   )
  36.   (setq nm (if nm nm ""))
  37.   (if (setq nm (getfiled "输出钻孔文件的目录" nm "rot" 1)) (progn
  38.    (setq fp (open nm "w"))
  39.    (princ "M48\nMETRIC,LZ\nVER,1\nFMAT,2\n" fp)
  40.    (setq i -1)
  41.    (repeat (length cclist)
  42.     (setq r (car(nth (setq i (1+ i)) cclist)))
  43.     (princ (strcat "T" (if (< i 10) "0" "") (itoa (1+ i)) "C" (rtos (+ r r) 2 3) "F42B423S6H2000\n") fp)
  44.    )
  45.    (princ "DETECT,ON\nATC,ON\n%\n" fp)
  46.    (setq i -1)
  47.    (repeat (length cclist)
  48.     (setq clist (nth (setq i (1+ i)) cclist))
  49.     (princ (strcat "T" (if (< i 10) "0" "") (itoa (1+ i)) "\n") fp)
  50.     (setq j 0 clist (cdr clist))
  51.     (repeat (length clist)
  52.      (setq pc (nth j clist) j (1+ j))
  53.      (princ (strcat "X" (rtos (car pc) 2 3) "Y" (rtos (cadr pc) 2 3) "\n") fp)
  54.     )
  55.    )
  56.    (princ "M30\n" fp)
  57.    (close fp)
  58.    (startapp "NOTEPAD" nm)
  59.   ))
  60.   (command ".UNDO" "E")
  61. ))
  62. (setvar "CMDECHO" 1)
  63. (princ)
  64. )

点评

abc498091367
ok了 能不能写个程序,把输出的这些读取进CAD？有时要读进来修改！  详情 回复 发表于 2014-8-21 14:31
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 14:31:06 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2014-8-21 13:57

ok了

能不能写个程序,把输出的这些读取进CAD？有时要读进来修改！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-8-21 16:30:52 | 显示全部楼层
abc498091367 发表于 2014-8-21 12:14
里面就是DWG文件

你这张图没有问题
_$ (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Normal")) (xdrx_pickset->ents (ssget '((0 . "CIRCLE")))))
((0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0) (0.0 0.0 1.0))
_$

点评

abc498091367
xdrx_getpropertyvalue xdrx_pickset->ents 这2个函数能在哪里找到，看你几句代码就查出来了  详情 回复 发表于 2014-8-21 17:01
abc498091367
是呀，就是左右两边2个圆坐标，圆坐标是我插入进来，然后镜像的。(输出的坐标是对的，右键编辑看坐标没问题，但是用软件读取看就有问题，。) 我试过新建一个DWG图，复制进来然后手动画2个圆坐标，就没有问题。！  详情 回复 发表于 2014-8-21 16:58
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 16:58:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
csharp 发表于 2014-8-21 16:30
你这张图没有问题
_$ (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Normal")) (xdrx_pickset->ents  ...

是呀，就是左右两边2个圆坐标，圆坐标是我插入进来，然后镜像的。(输出的坐标是对的，右键编辑看坐标没问题，但是用软件读取看就有问题，。)

我试过新建一个DWG图，复制进来然后手动画2个圆坐标，就没有问题。！！！



点评

csharp
函数在 XDRXAPI， 你改过的就看不出问题了  详情 回复 发表于 2014-8-21 17:06
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 17:01:03 | 显示全部楼层
csharp 发表于 2014-8-21 16:30
你这张图没有问题
_$ (mapcar '(lambda (x) (xdrx_getpropertyvalue x "Normal")) (xdrx_pickset->ents  ...

xdrx_getpropertyvalue   xdrx_pickset->ents
这2个函数能在哪里找到，看你几句代码就查出来了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-8-21 17:06:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
abc498091367 发表于 2014-8-21 16:58
是呀，就是左右两边2个圆坐标，圆坐标是我插入进来，然后镜像的。(输出的坐标是对的，右键编辑看坐标没问 ...

函数在 XDRXAPI， 你改过的就看不出问题了

点评

abc498091367
改也是那样，不改也是那样，输出的坐标我右键编辑查看了坐标，是对的。就是再次读取的时候不行，或者另外一个软件打开也不行  详情 回复 发表于 2014-8-21 17:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 17:27:28 | 显示全部楼层
csharp 发表于 2014-8-21 17:06
函数在 XDRXAPI， 你改过的就看不出问题了

改也是那样，不改也是那样，输出的坐标我右键编辑查看了坐标，是对的。就是再次读取的时候不行，或者另外一个软件打开也不行

点评

csharp
那就是读取不对  详情 回复 发表于 2014-8-21 17:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-8-21 17:50:45 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
abc498091367 发表于 2014-8-21 17:27
改也是那样，不改也是那样，输出的坐标我右键编辑查看了坐标，是对的。就是再次读取的时候不行，或者另外 ...

那就是读取方法有问题

点评

abc498091367
读取应该没问题。我有另外一天电脑上的CAD，也是生成这样的G代码，读取没问题。不过那CAD里面的功能都是要RMB的，放在那没人用过。而且里面的命令我也记不住我也没用。  详情 回复 发表于 2014-8-21 18:24
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 18:22:09 | 显示全部楼层
st788796 发表于 2014-8-21 00:20
加个 ODCL 对话框就是这样，没有写输出部分

1 输出半径可以点击修改

ST，，，你这个可以把输出半径资料修改成"修改"...然后下面的直径可以双击修改，点确认后，图形里面的圆就变成这修改过后的了，因为有时图形里面很多都不是整数。需要修成整数。。。有这个对话框好看多了，不用去看工具栏里面，工具栏里面的字体太小，有时还看错
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-8-21 18:24:31 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
csharp 发表于 2014-8-21 17:50
那就是读取方法有问题

读取应该没问题。我有另外一天电脑上的CAD，也是生成这样的G代码，读取没问题。不过那CAD里面的功能都是要RMB的，放在那没人用过。而且里面的命令我也记不住我也没用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

123
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-9-24 20:35 , Processed in 0.404677 second(s), 58 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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