设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2443|回复: 4

[求助] 想写个填充图形的程序

[复制链接]

已领礼包: 2859个

财富等级: 家财万贯

发表于 2013-5-10 17:01:09 | 显示全部楼层 |阅读模式

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

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

x
想写个填充图形的程序


先绘出矩形
再选需要注写的文字(只需要4~5种文字)
根据不同的文字,自动选定对应的填充图案,并将绘制的矩形关联填充

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

已领礼包: 145个

财富等级: 日进斗金

发表于 2013-5-10 18:31:50 | 显示全部楼层
同大家交流,请说清楚详细情况,贴图,传测试DWG文件到论坛。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2859个

财富等级: 家财万贯

 楼主| 发表于 2013-5-15 10:42:10 | 显示全部楼层
本帖最后由 viphappy 于 2013-6-8 10:54 编辑

首次始用提示错误,以后又能正常使用,不知何种原因,求真像
  1. (defun c:h_hzbbg ()                       ; 主函数,绘制板标高
  2. (setq lay_c (getvar "clayer"))
  3. ;;;以下建图层
  4.   (if (not (tblsearch "layer" "降板-边线"))
  5.       (command "-layer" "m" "降板-边线" "c" "77" "降板-边线" "p" "n" "")
  6.   )
  7.   (if (not (tblsearch "layer" "降板-填充"))
  8.       (command "-layer" "m" "降板-填充"  "c" "146" "降板-填充" "")
  9.   )
  10.   (if (not (tblsearch "layer" "降板-标注"))
  11.       (command "-layer" "m" "降板-标注"  "c" "76" "降板-标注" "")
  12.   )
  13.   (if (or (= nil (tblsearch "style" "tssd_rein"))
  14.           (/= (cdr (assoc 40 (tblsearch "style" "tssd_rein"))) 0)
  15.       )
  16.     (command "style" "tssd_rein" "Tssdeng,hztxt" "0" ".7" "0" "n" "n" "n")
  17.   )

  18. ;;;以下建数据
  19.   (setq
  20.         p1 (getpoint "\n指定矩形板的一个角点:")
  21.         p3 (getcorner p1 "\n指定矩形板的另一个角点:")
  22.         hjb(getreal  "\n请输入降板标高<m>:")
  23.         zg (if (setq temp (getint "\n请输入字高:<500>"))  temp  500 )
  24.         )
  25.   (setq  
  26.         x1 (car p1)
  27.         y1 (cadr p1)
  28.         x3 (car p3)
  29.         y3 (cadr p3)
  30.         p5 (list (* 0.5 (+ x1 x3 (* zg -3.6))) (* 0.5 (+ y1 y3 (- zg))))
  31.         tt (strcat "H-" (rtos hjb 2 3) )  ; 生成要输出的字符串
  32.         )
  33.  (cond
  34.     ((> hjb 0.27)(setq nm "ar-sand" sc "200" an "0"))
  35.     ((> hjb 0.22)(setq nm "dash" sc "200" an "30"))
  36.     ((> hjb 0.17)(setq nm "brass" sc "1000" an "30"))
  37.     ((> hjb 0.12)(setq nm "swamp" sc "100" an  "15"))
  38.     ((> hjb 0.07)(setq nm "angle" sc "100" an  "45"))
  39.     (  T         (setq nm "cross" sc "150" an  "0"))
  40.   )

  41. ;;;以下绘制图形
  42.   (setvar "clayer" "降板-边线")(setvar "osmode" 0)
  43.     (command "_rectang" p1 p3)
  44.   (setvar "HPASSOC" 1)
  45.   (setvar "clayer" "降板-填充")
  46.     (command "_bhatch" "s" "last" "" "p" nm sc an "" "a" "a" "" "")
  47.   (setvar "clayer" "降板-标注")
  48.     (command "-text" "s" "tssd_rein" p5 zg "0" tt)
  49.   (setvar "osmode" 4271)(setvar "clayer" lay_c)
  50. )

  51. (princ "\n运行命令:h_hzbbg" )
  52. (princ)


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

使用道具 举报

已领礼包: 2859个

财富等级: 家财万贯

 楼主| 发表于 2013-5-15 10:45:19 | 显示全部楼层
这个找不到哪里出了问题,给指点指点
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 68个

财富等级: 招财进宝

发表于 2013-5-18 08:52:36 | 显示全部楼层
路过,纯支持!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2021-1-23 10:33 , Processed in 0.140810 second(s), 27 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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