想写个填充图形的程序

viphappy

想写个填充图形的程序


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

XDSoft

同大家交流，请说清楚详细情况，贴图，传测试DWG文件到论坛。

viphappy

首次始用提示错误，以后又能正常使用，不知何种原因，求真像

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. ;;;以下建数据
    
20.   (setq
    
21.         p1 (getpoint "\n指定矩形板的一个角点：")
    
22.         p3 (getcorner p1 "\n指定矩形板的另一个角点：")
    
23.         hjb(getreal  "\n请输入降板标高<m>：")
    
24.         zg (if (setq temp (getint "\n请输入字高:<500>"))  temp  500 )
    
25.         )
    
26.   (setq  
    
27.         x1 (car p1)
    
28.         y1 (cadr p1)
    
29.         x3 (car p3)
    
30.         y3 (cadr p3)
    
31.         p5 (list (* 0.5 (+ x1 x3 (* zg -3.6))) (* 0.5 (+ y1 y3 (- zg))))
    
32.         tt (strcat "H-" (rtos hjb 2 3) )  ; 生成要输出的字符串
    
33.         )
    
34. 　(cond
    
35. 　　　　((> hjb 0.27)(setq nm "ar-sand" sc "200" an "0"))
    
36. 　　　　((> hjb 0.22)(setq nm "dash" sc "200" an "30"))
    
37. 　　　　((> hjb 0.17)(setq nm "brass" sc "1000" an "30"))
    
38. 　　　　((> hjb 0.12)(setq nm "swamp" sc "100" an  "15"))
    
39. 　　　　((> hjb 0.07)(setq nm "angle" sc "100" an  "45"))
    
40. 　　　　(  T         (setq nm "cross" sc "150" an  "0"))
    
41. 　　)
    
42. 
    
43. ;;;以下绘制图形
    
44.   (setvar "clayer" "降板-边线")(setvar "osmode" 0)
    
45. 　　　　(command "_rectang" p1 p3)
    
46.   (setvar "HPASSOC" 1)
    
47.   (setvar "clayer" "降板-填充")
    
48. 　　　　(command "_bhatch" "s" "last" "" "p" nm sc an "" "a" "a" "" "")
    
49.   (setvar "clayer" "降板-标注")
    
50. 　　　　(command "-text" "s" "tssd_rein" p5 zg "0" tt)
    
51.   (setvar "osmode" 4271)(setvar "clayer" lay_c)
    
52. )
    
53. 
    
54. (princ "\n运行命令：h_hzbbg" )
    
55. (princ)
    

(defun c:h_hzbbg ()                       ; 主函数，绘制板标高<br /> (setq lay_c (getvar "clayer"))<br /> ;;;以下建图层<br />   (if (not (tblsearch "layer" "降板-边线"))<br />       (command "-layer" "m" "降板-边线" "c" "77" "降板-边线" "p" "n" "")<br />   )<br />   (if (not (tblsearch "layer" "降板-填充"))<br />       (command "-layer" "m" "降板-填充"  "c" "146" "降板-填充" "")<br />   ) <br />   (if (not (tblsearch "layer" "降板-标注"))<br />       (command "-layer" "m" "降板-标注"  "c" "76" "降板-标注" "")<br />   )<br />   (if (or (= nil (tblsearch "style" "tssd_rein"))<br />           (/= (cdr (assoc 40 (tblsearch "style" "tssd_rein"))) 0)<br />       )<br />     (command "style" "tssd_rein" "Tssdeng,hztxt" "0" ".7" "0" "n" "n" "n")<br />   )<br /> <br /> ;;;以下建数据<br />   (setq <br />         p1 (getpoint "\n指定矩形板的一个角点：")<br />         p3 (getcorner p1 "\n指定矩形板的另一个角点：")<br />         hjb(getreal  "\n请输入降板标高<m>：")<br />         zg (if (setq temp (getint "\n请输入字高:<500>"))  temp  500 )<br />         )<br />   (setq  <br />         x1 (car p1)<br />         y1 (cadr p1)<br />         x3 (car p3)<br />         y3 (cadr p3)<br />         p5 (list (* 0.5 (+ x1 x3 (* zg -3.6))) (* 0.5 (+ y1 y3 (- zg))))<br />         tt (strcat "H-" (rtos hjb 2 3) )  ; 生成要输出的字符串<br />         )<br /> 　(cond<br /> 　　　　((> hjb 0.27)(setq nm "ar-sand" sc "200" an "0"))<br /> 　　　　((> hjb 0.22)(setq nm "dash" sc "200" an "30"))<br /> 　　　　((> hjb 0.17)(setq nm "brass" sc "1000" an "30"))<br /> 　　　　((> hjb 0.12)(setq nm "swamp" sc "100" an  "15"))<br /> 　　　　((> hjb 0.07)(setq nm "angle" sc "100" an  "45"))<br /> 　　　　(  T         (setq nm "cross" sc "150" an  "0"))<br /> 　　)<br /> <br /> ;;;以下绘制图形<br />   (setvar "clayer" "降板-边线")(setvar "osmode" 0)<br /> 　　　　(command "_rectang" p1 p3)<br />   (setvar "HPASSOC" 1)<br />   (setvar "clayer" "降板-填充")<br /> 　　　　(command "_bhatch" "s" "last" "" "p" nm sc an "" "a" "a" "" "")<br />   (setvar "clayer" "降板-标注")<br /> 　　　　(command "-text" "s" "tssd_rein" p5 zg "0" tt)<br />   (setvar "osmode" 4271)(setvar "clayer" lay_c)<br /> )<br /> <br /> (princ "\n运行命令：h_hzbbg" )<br /> (princ)<br />

viphappy

这个找不到哪里出了问题，给指点指点

haoryh

路过，纯支持！