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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › [编程申请]：各位大虾能否帮我编个能自动修剪的程序啊 ...
返回列表 发新帖
查看: 1715|回复: 10

[编程申请]：各位大虾能否帮我编个能自动修剪的程序啊

[复制链接]
jx_jimmy
发表于 2005-12-21 22:03:27 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
我在画图过程中要圆，还有直线，然后经常要一个一个的把圆内部的直线修剪掉。能否帮我编一个程序能让我把图面上的圆内部的直线一下子全部修剪掉啊。谢谢了。
修剪, 直线, 一个

相关帖子

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

使用道具 举报

zxq0220

已领礼包: 11283个

财富等级: 富甲天下
发表于 2005-12-21 23:17:38 | 显示全部楼层
以前写的一个程序：

  3. ;圆内删除
  4. (DEFUN C:ERASEC (/ SS SL SN PC R N)
  5. (SETVAR "BLIPMODE" 0)
  6. (SETVAR "CMDECHO" 0)
  7. (IF (SETQ SS (SSGET "X" '((0 . "CIRCLE")))) (PROGN
  8.   (SETQ SL (SSLENGTH SS) I 0)
  9.   (REPEAT SL
  10.    (SETQ SN (SSNAME SS I) I (1+ I)
  11.          PC (CDR (ASSOC 10 (ENTGET SN)))
  12.          R  (CDR (ASSOC 40 (ENTGET SN)))
  13.          N 0
  14.    )
  15.    (COMMAND "ZOOM" "C" PC (* 3 R))
  16.    (COMMAND "TRIM" SN "" "F")
  17.    (REPEAT 180
  18.     (COMMAND (POLAR PC (/ (* 2 N PI) 180) (* R 0.9)))
  19.     (setq N (1+ N))
  20.    )
  21.    (COMMAND "" "")
  22.    (SETQ N 0)
  23.    (COMMAND "ERASE" "WP")
  24.    (REPEAT 180
  25.     (COMMAND (POLAR PC (/ (* 2 N PI) 180) (* R 0.9)))
  26.     (setq N (1+ N))
  27.    )
  28.    (COMMAND "" "" "ZOOM" "P")
  29.   )
  30. ))
  31. (SETVAR "BLIPMODE" 1)
  32. (SETVAR "CMDECHO" 1)
  33. (PRINC)
  34. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

jx_jimmy
 楼主| 发表于 2005-12-22 21:13:51 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
太好了，非常感谢啊！！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

TLHMQH
发表于 2007-4-26 00:34:00 | 显示全部楼层
我怎么不能运行？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ALU

已领礼包: 6809个

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

使用道具 举报

xgg1102

已领礼包: 3个

财富等级: 恭喜发财
发表于 2007-4-26 16:59:47 | 显示全部楼层
et 的extrim就可以啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

d553300
发表于 2007-5-15 08:05:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
真是不是不懂大家能否說清楚點呀，我們是菜鳥呀
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hxj.2000
发表于 2007-6-2 03:29:32 | 显示全部楼层
太好了，非常感谢啊.....
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

西门吹雪花满楼
发表于 2007-7-19 18:15:46 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
express中就有工具啊！Em能自动修建去内部多余的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

cgh93001
发表于 2007-8-8 22:35:35 | 显示全部楼层
不太严密 当直线与圆的距离接近半径 裁不掉
应该求交点 在断开直线
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

gysjy
发表于 2007-8-27 22:29:01 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
很好的程序，构思巧妙。
最初由 cgh93001 发布
[B]不太严密 当直线与圆的距离接近半径 裁不掉
应该求交点 在断开直线 [/B]

可将0.9改为0.99。

  3.   [FONT=courier new]
  4. (DEFUN C:ERASEC (/ SS SL SN PC R N)
  5. (command "undo" "g")
  6. (SETVAR "CMDECHO" 0)
  7. (SETVAR "osmode" 0)
  8. (IF (SETQ SS (SSGET '((0 . "CIRCLE")))) (PROGN
  9.   (SETQ SL (SSLENGTH SS) I 0)
  10.   (REPEAT SL
  11.    (SETQ SN (SSNAME SS I) I (1+ I)
  12.          PC (CDR (ASSOC 10 (ENTGET SN)))
  13.          R  (CDR (ASSOC 40 (ENTGET SN)))
  14.          N 0
  15.    )
  16.    (COMMAND "TRIM" SN "" "F")
  17.    (REPEAT 180
  18.     (COMMAND (POLAR PC (/ (* 2 N PI) 180) (* R 0.99)))
  19.     (setq N (1+ N))
  20.    )
  21.    (COMMAND "" "")
  22.    (SETQ N 0)
  23.    (COMMAND "ERASE" "WP")
  24.    (REPEAT 180
  25.     (COMMAND (POLAR PC (/ (* 2 N PI) 180) (* R 0.99)))
  26.     (setq N (1+ N))
  27.    )
  28.    (COMMAND "" "")
  29.   )
  30. ))
  31. (SETVAR "CMDECHO" 1)
  32. (command "undo" "e")
  33. (PRINC)
  34. )
  35.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-20 17:56 , Processed in 0.213980 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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