ldb1420 发表于 2004-6-2 11:22:00

版主及大虾们帮我看看

我在加载这段程序的时候，电脑提示语法错误，请问错在哪里？帮我指出来好吗，谢谢了


huajie111 发表于 2004-6-2 11:33:00

(defun c:luown(/))可以定义的吗

龙龙仔 发表于 2004-6-2 11:46:00

把程序貼上來,不要貼圖

wzh 发表于 2004-6-2 11:52:00

龙斑竹说的对，不要帖图，你程序中操作符、变量、值中间的空格那里去了？引号用的中文还是英文？看不出来，是没有还是帖图的问题？

ldb1420 发表于 2004-6-2 13:36:00

我把程序贴上来了，

帮我看看啊

无痕 发表于 2004-6-2 15:05:00

(*2.0        p        i) (        caddrb1) (command        “3dpoly”        (list        r00)) (+        jj1)


(+        o        (*        j        jj))


天阿，有这么写程序的么？

ldb1420 发表于 2004-6-2 17:01:00

多多指教

6楼的朋友，你贴个正确的给我好吗，我编程很菜的，帮帮我吧，谢谢了

龙龙仔 发表于 2004-6-2 17:12:00

;;好像還少一段,自己想辦法吧!


(defun C:LUOWEN        (/)<BR>       (setq B1 (getpoint "請指定螺旋線基點："))<BR>       (setq R (getreal "請輸入彈簧半徑："))<BR>       (setq DISP (getreal "請輸入彈簧節距："))<BR>       (setq N (getint "請輸入每圈細化段數："))<BR>       (setq DELTA (/ (* 2.0 pi) N))<BR>       (setq J (/ DISP N))<BR>                                        ;(setq BB (caddr B1))<BR>       (setq ANG 0)<BR>       (setq JJ 0)<BR>       (command "ucs" "o" B1)<BR>       (command "3dpoly")                        ;(list R00))<BR>       (repeat N<BR>                       (setq JJ (+ JJ 1))<BR>                       (setq ANG (+ DELTA ANG))<BR>                       (setq PT2 (list (* R (cos ANG)) (* R (sin ANG)) (* J JJ)))<BR>                       (command PT2)<BR>       )<BR>       (command "")<BR>)

ldb1420 发表于 2004-6-3 08:43:00

谢谢龙版主

我加载了你改的程序，画出了螺纹线。但是从图中你看到吗，螺旋线的下支承处和上一段没有吻合，还差那么一小段啊

ldb1420 发表于 2004-6-3 09:02:00

看看啊




我用你帮我改的小程序 画的螺旋线，很漂亮，但为什么少了一段呢
页: [1] 2
查看完整版本: 版主及大虾们帮我看看