2023-06-17 05:50来源:m.sf1369.com作者:宇宇
1、根据孩子爱模仿、爱帮人干活的特点,让孩子和成人一起学绕毛线团,边绕边念儿歌:“绕呀绕,绕毛线,宝宝帮妈做事真能干。小手拉住毛线往外绕,一圈一圈绕得欢,宝宝小手真灵巧,绕的线团圆又圆。”通过绕毛线的动作,使孩子初步掌握手从右向左或从左向右画圆的规律。
2、在示范画圆时应有语言指导。如画皮球时可以边画边说:“圆起来。”让孩子从视觉上初步掌握用弧线画圆的顺序及起点必须与终点慢慢相连的规律。
3、在孩子练习画圆时不断给予鼓励。可以这样问孩子:“宝宝画的是什么呀?”孩子画的物体不管如何都应加以肯定:“宝宝画得真好,要是再圆一点就更好了。来,再画一个。”也可以用不同颜色的蜡笔让孩子反复练。可以这样指导孩子:“宝宝用红颜色画个苹果,用绿颜色画只气球,用黄颜色画块圆饼干。”用各种鼓励的语言激起宝宝画圆的兴趣。
4、选取孩子常见的圆形物体作绘画的题材。常见的圆形物体如彩色气球、饼干、苹果、车轮等,还可以让孩子画大小不等的圆,启发孩子把大圆和小圆连在一起,如大圆为小鸡的身体,小圆为小鸡的脚,变成孩子喜欢的小鸡。也可用同样方法画成小鸭、苹果、气球等,孩子看后会产生绘画的欲望。
MFC里面画点是dc.pixel(point)
//历或这里的point是核穗你设置ClickButtonDown或者ClickButtonUp里面返回的CPoint类型的值,如果是画线的话,调用moveto()函数到直线的起点,然后lineto函数到终点
;如果你要画圆的话用Ellipse()函数,ellipse(CRect());
CRect是一个类肢氏伍型的变量,你需要用两个点来构造一个CRect
(defun C:HZY ( / #os1 #p &k1 &kw1 l1 p1 x)
(setvar cmdecho 0)
(setvar blipmode 0)
(setvar dimzin 0)
(vl-load-com) ;;加载vlax扩展函数
(setq #os1 (getvar osmode));取得捕捉设置
(princ \n请选择多段线)
(setq &kw1 (ssget '((0 . LWPOLYLINE))));选择多段线
(if (/= &kw1 nil);如果选择了多段线
(progn
(setvar osmode 0);捕捉设置为0
(setq L1 友并(getdist (strcat \n请输入圆半径< 1 >)));提示输入圆半径
(if (= L1 nil) (setq L1 1));默认输入为1
(if (> L1 0);确认输入的半径为正
(progn
(setq &k1 (ssname &kw1 0));取得一个对象
(while &k1;循环绘制
(setq &kw1 (ssdel &k1 &kw1));选择集里面去掉这个对象
(setq #p (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) (entget &k1))));取得多段线里面的点
(setq p1 (car #p));取得其中一点
(while 枝告粗p1
(setq #p (cdr #p))
(command circle p1 L1);绘制圆
(setq p1 (car #p))
)
(setq &k1 (ssname &kw1 0));取得下一个对象
)
)
)
(setvar osmode #os1);绘制完成后还原捕捉设置
)
)
(prin1)
);复制到记事本以【.lsp】为后缀命名,加载到AutoCAD,命令为HZY
;写了一下,这个程序主要是循环命令的应用以及car,cdr的应用,其它的猛镇很简单容易理解。