maozhumao 发表于 2010-5-22 15:01:00

[求助]这段填充的代码哪儿有问题，请高手帮帮忙

<p>程序是填充一个三心拱的墙和拱，第一次运行只填充一部分，第二次就全部填充了，不知怎么回事，哪们大侠来给看看？ 不胜感激</p><p>&nbsp;(command "pline"&nbsp; cccc (setq cccd (polar cccc pi (/ B0 2)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ccce (polar cccd (/ pi 2)&nbsp; h3))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq daaa (polar ccce 0 (/ B0 2)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq daab (polar daaa (/ pi -2) h3))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "c")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;绘直线，宽和墙高<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq tyuan0 (entlast))<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "hatch" "AR-SAND" "1" "0"&nbsp; "cp" cccc cccd ccce daaa daab&nbsp;&nbsp; "" "")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;设置墙和拱填充样式<br/>`<br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "erase" "all" "")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;删除已绘的直线<br/>&nbsp;&nbsp; .....................</p><p>(command "pline" cceh ccei ccej ccek qqqq "c")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq tuyuan52 (entlast))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq tczb2 (list (car cceg) (- (cadr cceg) 20)))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (command "bhatch" tczb2 "")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;填充右半部分</p><p>
                <br/>&nbsp; (command "pline" ccdf2 ccea cceb ccce ccdf2&nbsp; "c")<br/>&nbsp; (setq tuyuan51 (entlast))<br/>&nbsp; (setq tczb1 (list (+ (car ccec ) (/ d0 2)) (- (cadr ccec) (/ h3 2))))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;设置填充内的点 <br/>&nbsp; (command "bhatch"&nbsp; tczb1 "")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;填充左半部分墙</p><p>&nbsp; (command "pline" cccc (polar cccc (/ pi 2)&nbsp; (+ H 100)) "")<br/>&nbsp; (setq tuyuan53 (entlast))<br/>&nbsp; (setq tczb3 (list (- (car ccce) (/ d0 3)) (+ (cadr ccce) 10)))<br/>&nbsp; (command "bhatch" tczb3 "")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;填充拱左半部分<br/>&nbsp; (setq tczb31 (list (- (car cceg) (/ d0 2)) (+ (cadr ccce) 10)))<br/>&nbsp; (command "bhatch" tczb31 "")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;填充拱右半部分<br/>&nbsp; (command "erase" tuyuan51 tuyuan52 tuyuan53&nbsp; "")<br/>&nbsp;&nbsp;&nbsp; </p>
页: [1]
查看完整版本: [求助]这段填充的代码哪儿有问题，请高手帮帮忙