又寂寞又美好19 又寂寞又美好19
关注数: 5 粉丝数: 3 发帖数: 23 关注贴吧数: 4
求大神帮忙 (defun c:xhd(/ dwd r) (setq dwd(getpoint “inter dingweidian”)) (serq r 0.5) (setq pt1 (dwd(/ pi 2.0) 1)) (setq pt2 (pt1(/ pi 2.0) 0.5)) (setq pt3 (pt2(/ pi 2.0) 0.5)) (setq pt4 (pt3(/ pi 2.0) 1)) (setq pt5 (pt2(/ pi 4.0) 0.5)) (setq pt6 (pt2(/ (* pi 3.0) 4.0) 0.5)) (setq pt7 (pt2(-(/ pi 4.0)) 0.5)) (setq pt8 (pt2(-(/ (* pi 3.0) 4.0)) 0.5)) (command “circle” pt2 r “”) (command “line” dwd pt1 “”) (command “line” pt3 pt4 “”) (command “line” pt6 pt2 pt8 “”) (command “line” pt5 pt2 pt7 “”) ) 一直提示出错，怎么改，就简单的画一个元件 在cad里面
1 下一页