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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › 【已解决】CAD弧形填充是否可行？
返回列表 发新帖
查看: 1290|回复: 5

[已解决] 【已解决】CAD弧形填充是否可行？

[复制链接]
happypkpm

已领礼包: 5个

财富等级: 恭喜发财
发表于 2019-4-19 18:33:21 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 happypkpm 于 2019-4-21 23:06 编辑

用CAD这么多年，填充对绘图的表达起了很大作用，只是在填充方面，CAD还有一点点不是很完美，比如类似弯曲的道路、圆形的广场，填充时一般还是直线型的，不能填充成与边界匹配弯曲的，不知道那位大神会这个？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2019-4-21 22:23:47 | 显示全部楼层
happypkpm 发表于 2019-4-19 20:39
补充完，就是想填充效果是下图中右边的样子。

搜狗截图20190421222010.png

  1. (defun c:tt ()
  2.   (xdrx_begin)
  3.   (if (and (setq div1 (getint "\n输入曲线方向等分数<退出>:"))
  4.            (setq div2 (getint "\n输入曲线间等分数<退出>:"))
  5.            (xdrx_initssget "\n选择两条内外曲线<退出>")
  6.            (setq ss (xdrx_ssget
  7.                       '((0 . "*polyline,circle,ellipse"))
  8.                     )
  9.            )
  10.            (= (sslength ss) 2)
  11.            (setq mp (xdrx_mpolygon_make ss))
  12.            (= 2 (xdrx_getpropertyvalue mp "numloops"))
  13.            (= 1 (length (xdrx_getpropertyvalue mp "rootloops")))
  14.       )
  15.     (progn
  16.       (setq g1 (car (xdrx_getpropertyvalue mp "rootloops" t)))
  17.       (setq g2 (car (xdrx_getpropertyvalue mp "childloops" t)))
  18.       (setq pts1 (xdrx_curve_getpointsatdists g2 div1)
  19.             pts2 (xdrx_curve_getpointsatdists g1 div1)
  20.             dis         (distance (car pts1) (car pts2))
  21.             dis1 (/ dis div2)
  22.       )
  23.       (if (minusp (* (xdrx_points_area pts1) (xdrx_points_area pts2)))
  24.         (setq pts1 (reverse pts1))
  25.       )
  26.       (mapcar '(lambda (x y)
  27.                  (xdrx_line_make x y)
  28.                  (xdrx_setpropertyvalue (entlast) "color" 1)
  29.                )
  30.               pts1
  31.               pts2
  32.       )
  33.       (setq i 0)
  34.       (repeat (1- div2)
  35.         (setq e (xdrx_curve_offset (* (setq i (1+ i)) dis1) g2))
  36.         (setq pts (xdrx_curve_getpointsatdists  (entlast) div1))
  37.         (xdrx_entity_delete (entlast))
  38.         (xdrx_polyline_make pts t)
  39.         (xdrx_setpropertyvalue (entlast) "color" 1)
  40.       )
  41.     )
  42.   )
  43.   (xdrx_entity_delete mp)
  44.   (xdrx_end)
  45.   (princ)
  46. )



或者

  1. (defun c:tt ()
  2.   (xdrx_begin)
  3.   (if (and (setq div1 (getint "\n输入曲线方向等分数<退出>:"))
  4.            (setq div2 (getint "\n输入曲线间等分数<退出>:"))
  5.            (xdrx_initssget "\n选择两条内外曲线<退出>")
  6.            (setq ss (xdrx_ssget
  7.                       '((0 . "*polyline,circle,ellipse"))
  8.                     )
  9.            )
  10.            (= (sslength ss) 2)
  11.            (setq mp (xdrx_mpolygon_make ss))
  12.            (= 2 (xdrx_getpropertyvalue mp "numloops"))
  13.            (= 1 (length (xdrx_getpropertyvalue mp "rootloops")))
  14.       )
  15.     (progn
  16.       (setq g1 (car (xdrx_getpropertyvalue mp "rootloops" t)))
  17.       (setq g2 (car (xdrx_getpropertyvalue mp "childloops" t)))
  18.       (setq pts1 (xdrx_curve_getpointsatdists g2 div1)
  19.             pts2 (xdrx_curve_getpointsatdists g1 div1)
  20.             dis         (distance (car pts1) (car pts2))
  21.             dis1 (/ dis div2)
  22.       )
  23.       (if (minusp (* (xdrx_points_area pts1) (xdrx_points_area pts2)))
  24.         (setq pts1 (reverse pts1))
  25.       )
  26.       (mapcar '(lambda (x y)
  27.                  (xdrx_line_make x y)
  28.                  (xdrx_setpropertyvalue (entlast) "color" 1)
  29.                )
  30.               pts1
  31.               pts2
  32.       )
  33.       (setq i 0)
  34.       (repeat (1- div2)
  35.         (setq pts (xdrx_points_offset (* (setq i (1+ i)) dis1) pts1))
  36.         (xdrx_polyline_make pts t)
  37.         (xdrx_setpropertyvalue (entlast) "color" 1)
  38.       )
  39.     )
  40.   )
  41.   (xdrx_entity_delete mp)
  42.   (xdrx_end)
  43.   (princ)
  44. )


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

使用道具 举报

happypkpm

已领礼包: 5个

财富等级: 恭喜发财
 楼主| 发表于 2019-4-19 20:39:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
补充完，就是想填充效果是下图中右边的样子。

左边是传统填充，右边是想要的效果

左边是传统填充，右边是想要的效果

点评

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

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2019-4-21 17:09:21 | 显示全部楼层
填充图案就是根据图案定义，从小不断给你延伸到边界，不会变的
你说的这种只能写程序去画
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

happypkpm

已领礼包: 5个

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

使用道具 举报

gongmingshena
发表于 2020-10-15 15:23:39 | 显示全部楼层
newer 发表于 2019-4-21 22:23
或者

你好 想问下  我画了一个同样的大圆套小圆 加载了您的程序 为啥一直显示  
错误: 参数类型错误: 二维/三维点: nil      
这个错误 请问是哪里的问题 谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-19 19:32 , Processed in 0.192175 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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