明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 10437|回复: 57

继承填充

  [复制链接]
发表于 2012-8-2 18:04 | 显示全部楼层 |阅读模式
本帖最后由 adc 于 2012-8-2 19:14 编辑



贱人工具箱5.7里有个继承填充的功能,可以选择指定的填充样式进行填充,不过这个有些不足,一是只能点选填充,不能选择对象填充,二是不能按照选择的填充的图层进行填充,只能在当前图层下填充,想增加这两个功能,自己水平有限,希望哪位大侠出手,谢谢

本帖子中包含更多资源

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

x

点评

CAD自带有,双击已有填充后,可以增删边界,  发表于 2012-8-3 09:11
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2018-9-2 21:16 | 显示全部楼层
依然小小鸟 发表于 2018-9-2 15:28
贱人工具箱里面的继承填充是点选

对 就是要点选的。但贱人工具箱功能太多。有好多不用所以想要个单独的源码 单独加载就行了
发表于 2018-9-7 09:36 | 显示全部楼层
xsso 发表于 2012-8-2 23:49
弱弱的发一个,点选暂时只能单选

哥   能否改为只要点选,不要框选,
发表于 2018-9-2 15:28 | 显示全部楼层
yoyrtweq 发表于 2018-9-2 14:34
想要个点选继承填充 没找到

贱人工具箱里面的继承填充是点选
发表于 2012-8-2 18:23 | 显示全部楼层
本帖最后由 【KAIXIN】 于 2012-8-2 18:28 编辑


本帖子中包含更多资源

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

x
发表于 2012-8-2 18:25 | 显示全部楼层

本帖子中包含更多资源

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

x

点评

adc
谢谢帮忙,不过不是要框选填充,是提取已有填充的填充样式和图层进行填充。  发表于 2012-8-2 19:00
会错意了.....  发表于 2012-8-2 18:30

评分

参与人数 1明经币 +1 收起 理由
adc + 1 谢谢热心帮忙

查看全部评分

发表于 2012-8-2 19:09 | 显示全部楼层
以您提供的样图作验证
程序执行前 +  程序执行后 各一 (dwg)

点评

adc
没太明白您说的意思,已经上传了dwg文件  发表于 2012-8-2 19:15

评分

参与人数 1明经币 +1 收起 理由
adc + 1 谢谢热心帮忙

查看全部评分

发表于 2012-8-2 19:22 | 显示全部楼层
程序执行前 的图形文件 (原Dwg)

程序执行后 想得到的成果图形文件 (Dwg)
发表于 2012-8-2 19:38 | 显示全部楼层



本帖子中包含更多资源

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

x

点评

adc
谢谢,希望能框选也能点选,另外填充的图层也跟填充样式的图层一致  发表于 2012-8-2 20:15
发表于 2012-8-2 20:10 | 显示全部楼层
本帖最后由 yjr111 于 2012-8-2 21:19 编辑

;;;;;;;;简单代码,仅供参考
  1. (defun c:jctc(/ tc_e tc_vlae tc_name tc_scle tc_ang tc_la tc_col key e p)
  2.   (while
  3.     (setq tc_e(car(entsel"\n选择填充源图案:")))
  4.     (setq tc_vlae   (vlax-ename->vla-object  tc_e)
  5.           tc_name   (vla-get-patternname  tc_vlae)
  6.           tc_scle   (vla-get-patternscale tc_vlae)
  7.           tc_ang    (vla-get-patternangle tc_vlae)
  8.           tc_la     (vla-get-layer        tc_vlae)
  9.           tc_col    (vla-get-color        tc_vlae)
  10.           )
  11.     (if (= tc_col 256)(setq tc_col (cdr(assoc 62(entget(tblobjname "layer" tc_la))))))
  12.     (initget 128 "K D")
  13.     (SETQ KEY (GETKWORD"\n选择模式:[框选(K)/点选(D)]"))
  14.     (if (not key)(setq key "D"))
  15.     (cond((= KEY "K")
  16.           (prompt"\n选择填充对象:")
  17.           (setq ss(ssget))
  18.           (command "hatch" "p" tc_name tc_scle (* 180(/ tc_ang pi)) ss "" )
  19.           (vla-put-color (vlax-ename->vla-object (entlast)) tc_col)
  20.          )
  21.          ((= KEY "D")
  22.           (setq p(getpoint"\n指定内部点"))
  23.           (command "boundary" "A" "o" "R" "" p "")          
  24.           (IF (=(vla-get-objectname
  25.                   (setq vlae(vlax-ename->vla-object(setq e(entlast)))))"AcDbRegion"
  26.                 )
  27.             (progn
  28.              (command "hatch" "p" tc_name tc_scle (* 180(/ tc_ang pi)) e "")
  29.              (vla-put-color (vlax-ename->vla-object (entlast)) tc_col)
  30.              (vla-delete vlae)
  31.             )
  32.             (princ"\n无法点选填充,请选择填充...")
  33.            )
  34.          )
  35.        )
  36.     )
  37.   (princ)
  38.   )

点评

十分强大,支持  发表于 2012-8-4 17:21
adc
角度问题是不是英制跟公制的问题?  发表于 2012-8-2 20:56
adc
填充的角度不为零的时候有问题,另外能不能也可以点选也可以框选  发表于 2012-8-2 20:31

评分

参与人数 1金钱 +10 收起 理由
adc + 10 谢谢热心帮忙

查看全部评分

发表于 2012-8-2 21:03 | 显示全部楼层
匹配填充



本帖子中包含更多资源

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

x

点评

真强大,十好了  发表于 2012-8-4 17:20
版主,您的程序在64位系统2010CAD运行出现如下问题:命令: pptc ; 错误: no function definition: CMDLA0  发表于 2012-8-4 12:08
adc
谢谢院长,现在就差xyp-r2d这个函数,能不能透露一下,谢谢  发表于 2012-8-2 21:10

评分

参与人数 1金钱 +10 收起 理由
adc + 10 谢谢热心帮忙

查看全部评分

发表于 2012-8-2 21:13 | 显示全部楼层
xyp1964 发表于 2012-8-2 21:03
匹配填充
  1. (defun xyp-R2D (rad) (* (/ rad pi) 180.0))

点评

只是不支持多段线!  发表于 2012-8-4 18:08
adc
院长热心人  发表于 2012-8-2 21:43
院长神人  发表于 2012-8-2 21:18
发表于 2012-8-2 21:20 | 显示全部楼层
7楼已经更新

点评

adc
谢谢,不过图层还是当前图层  发表于 2012-8-2 21:40
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 10:13 , Processed in 0.227133 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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