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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 求在闭合线上,根据距离自动放圆
返回列表 发新帖
查看: 3728|回复: 21

[求助] 求在闭合线上,根据距离自动放圆

[复制链接]
abc498091367

已领礼包: 60个

财富等级: 招财进宝
发表于 2014-5-11 10:58:41 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 abc498091367 于 2014-5-11 11:08 编辑

QQ图片20140511104957.jpg

如上图,红色是总加上的圆(我手动放的),圆的直径是0.5MM,

绿色是闭合线,,,当然每一个闭合线都是不一样的,形状都不一样

所以求一个（点选闭合线，自动加上0.5的圆，圆的距离可以手动输入可以默认为5.0MM，圆的直径也是可以手动输入可以默认为0.5，）

放圆的时候，单点封闭线，因为形状不一样，只能一个一个的选。如有个自动全选封闭合，这样可以呀。

（封闭线的形状有时上百种，有四方的，有椭圆，等等...）
如果不用晓动函数库最好，因为老实说过期！


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

使用道具 举报

ysq101

已领礼包: 685个

财富等级: 财运亨通
发表于 2014-5-11 12:19:05 | 显示全部楼层
CAD没用好吗？？？
command 就能搞定啊。。。（等分）
后面的自己写吧。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Underway

已领礼包: 7224个

财富等级: 富甲天下
发表于 2014-5-11 12:43:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
以右小图观之似乎另有玄机
有待楼主厘清
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 10398个

财富等级: 富甲天下
发表于 2014-5-11 17:56:17 | 显示全部楼层
  2. ;闭合线定距放圆 晓东 zxq0220 2014.5.11
  3. (defun c:tt ()
  4. (setvar "CMDECHO" 0)
  5. (if (progn (princ "\n选择封闭线条: ")
  6.             (setq ss (ssget '((0 . "*POLYLINE,ELLIPSE,CIRCLE"))))) (progn
  7.   (setq i -1)
  8.   (repeat (sslength ss)
  9.    (setq ent (entget(setq en (ssname ss (setq i (1+ i)))))
  10.          ename (cdr(assoc 0 ent))
  11.          d (getdist "\n间距: "))
  12.    (if (or (and (wcmatch ename "*POLYLINE")
  13.                 (rem (cdr(assoc 70 ent)) 2))
  14.            (wcmatch ename "CLRCLE,ELLIPSE")) (progn
  15.     (command "_.MEASURE" en d)
  16.     (setq ss1 (ssget "P"))
  17.     (setq slst (mapcar 'cadr (ssnamex ss1)))
  18.     (foreach enn slst
  19.      (entmake (list '(0 . "CIRCLE") (assoc 10 (entget enn)) '(40 . 0.5)))
  20.     )
  21.     (command "_.ERASE" ss1 "")
  22.    ))
  23.   )
  24. ))
  25. (setvar "CMDECHO" 1)
  26. (princ)
  27. )

点评

abc498091367
zxq0220老大，程序现在只能闭合线，能再帮忙加一下（线.圆.弧）吗？ 另外程序有点问题，间距我改成框选的全部都是3.0MM，就出现问题: 选择对象: 对象不是该长度。; 错误: 参数类型错误: lselsetp nil  详情 回复 发表于 2014-12-15 10:36
abc498091367
感谢!!!  详情 回复 发表于 2014-5-12 11:09
q3_2006
今天才发现风格好像Z版....是Z版吗??  详情 回复 发表于 2014-5-12 07:34

评分

参与人数 1D豆 +5 收起 理由
/db_自贡黄明儒_ + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

yoyoho

已领礼包: 8973个

财富等级: 富甲天下
发表于 2014-5-11 18:09:15 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
感谢 zxq0220 分享程序,学习了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
发表于 2014-5-12 07:34:59 | 显示全部楼层
zxq0220 发表于 2014-5-11 17:56

今天才发现风格好像Z版....是Z版吗??{:soso_e121:}

点评

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

使用道具 举报

ysq101

已领礼包: 685个

财富等级: 财运亨通
发表于 2014-5-12 08:54:44 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
q3_2006 发表于 2014-5-12 07:34
今天才发现风格好像Z版....是Z版吗??

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

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-5-12 11:09:49 | 显示全部楼层
zxq0220 发表于 2014-5-11 17:56

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

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-12-15 10:36:25 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2014-5-11 17:56

zxq0220老大，程序现在只能闭合线，能再帮忙加一下（线.圆.弧）吗？
另外程序有点问题，间距我改成框选的全部都是3.0MM，就出现问题:
选择对象:
对象不是该长度。; 错误: 参数类型错误: lselsetp nil


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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2014-12-15 11:45:47 | 显示全部楼层
abc498091367 发表于 2014-12-15 10:36
zxq0220老大，程序现在只能闭合线，能再帮忙加一下（线.圆.弧）吗？
另外程序有点问题，间距我改成框选 ...

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

使用道具 举报

zxq0220

已领礼包: 10398个

财富等级: 富甲天下
发表于 2014-12-15 11:47:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
abc498091367 发表于 2014-12-15 10:36
zxq0220老大，程序现在只能闭合线，能再帮忙加一下（线.圆.弧）吗？
另外程序有点问题，间距我改成框选 ...
  2. ;定距放圆 晓东 zxq0220 2014.5.11 2014.12.15
  3. (defun c:tt ()
  4. (setvar "CMDECHO" 0)
  5. (if (and (setq pt1 (getpoint "\n窗选角点: "))
  6.           (setq pt2 (getcorner pt1 "\n窗选另一角点: "))) (progn
  7.   (if (setq ss (ssget "W" pt1 pt2 '((0 . "ARC,LINE"))))
  8.    (command "_.PEDIT" "M" ss "Y" "J" "" "")
  9.   )
  10.   (if (setq ss (ssget '((0 . "*POLYLINE,ELLIPSE,CIRCLE")))) (progn
  11.    (setq i -1)
  12.    (repeat (sslength ss)
  13.     (setq ent (entget(setq en (ssname ss (setq i (1+ i)))))
  14.           ename (cdr(assoc 0 ent))
  15.           d (getdist "\n间距: "))
  16.     (if (or (and (wcmatch ename "*POLYLINE")
  17.                  (rem (cdr(assoc 70 ent)) 2))
  18.             (wcmatch ename "CLRCLE,ELLIPSE")) (progn
  19.      (command "_.MEASURE" en d)
  20.      (setq ss1 (ssget "P"))
  21.      (setq slst (mapcar 'cadr (ssnamex ss1)))
  22.      (foreach enn slst
  23.       (entmake (list '(0 . "CIRCLE") (assoc 10 (entget enn)) '(40 . 0.5)))
  24.      )
  25.      (command "_.ERASE" ss1 "")
  26.     ))
  27.    )
  28.   ))
  29. ))
  30. (setvar "CMDECHO" 1)
  31. (princ)
  32. )

点评

abc498091367
烦ZXQ在帮忙加个功能，具体的在DWG文件里面我写了，谢谢！！！  详情 回复 发表于 2015-3-20 20:25
abc498091367
只能闭合的线可以，如果是1直线，或者圆 请看附件，我上传了！谢！  详情 回复 发表于 2014-12-15 12:03
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2014-12-15 12:03:19 | 显示全部楼层
zxq0220 发表于 2014-12-15 11:47



只能闭合的线可以，如果是1直线，或者圆
请看附件，我上传了！谢！

请点击此处下载

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

您的用户组是：游客

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


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

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2015-3-20 20:25:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2014-12-15 11:47

请点击此处下载

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

您的用户组是：游客

文件名称:参看.rar 
下载次数:2  文件大小:200.46 KB 
下载权限: 不限 以上  [免费赚D豆]



烦ZXQ在帮忙加个功能，具体的在DWG文件里面我写了，谢谢！！！

点评

zxq0220
要求太高，做不到。线的起点是线生成时的与图中要求不一致。圆的起点在圆的右边象限点，也与图中要求不一致。  发表于 2015-3-21 09:41
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2015-3-21 11:22:14 | 显示全部楼层
对生成的 Pline，再次任意指定起点位置，论坛有现成代码

点评

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

使用道具 举报

abc498091367

已领礼包: 60个

财富等级: 招财进宝
 楼主| 发表于 2015-3-21 12:47:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
csharp 发表于 2015-3-21 11:22
对生成的 Pline，再次任意指定起点位置，论坛有现成代码

能帮忙加下吗，我这里一搜索就网络连接错误！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-15 09:05 , Processed in 0.196602 second(s), 62 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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