作者sjgau (sjgau)
看板Cad_Cae
标题Re: [请益] 2007 LISP语法 V.S 2011 LISP语法
时间Mon Dec 12 09:20:16 2011
我帮你测试的结果，
是 完全没有问题。
我想，是你在 输入的时候，直接按
[Enter] 的关系。
请耐心的输入 每一个应该输入的数字，
如下：
请使用 外部信件和我连络，
我会 一行，一行的教你，
一个字，一个字的 慢慢教你
e-mail:
[email protected]
C:LSP_32
指令: lsp_32
渐开线中心点:0,0
小圆半径<5>:5
水平偏移距离<5>:6
垂直偏移距离<5>:7
1/4圆弧渐开数量<9>:11
指令: z
ZOOM
指定视窗角点，输入比例系数 (nX 或 nXP)，或
[全部(A)/中心点(C)/动态(D)/实际范围(E)/前次(P)/比例(S)/视窗(W)/物件(O)] <即时
>: e
指令: z
ZOOM
指定视窗角点，输入比例系数 (nX 或 nXP)，或
[全部(A)/中心点(C)/动态(D)/实际范围(E)/前次(P)/比例(S)/视窗(W)/物件(O)] <即时
>: 0.8x
※ 引述《note100 (XD)》之铭言：
: 因为最近需要画螺旋图
: 直接套用了书上以及版上的LISP语法
: 但是,使用之後,都各自出现问题
: 不知道是版本问题(我使用autoCAD 2011)?
: 还是语法错误?
: 版上的语法:
: 最後出现
: ; 错误: 损坏的引数类型: numberp: nil
: _$ ); end of c:spiral
: (princ)
: ; end of file
: ; 错误: 其他的输入右 paren
: _$
: 我参考书本上的
: (defun c:lsp_32()
: (setvar "cmdecho" 0)
: (setq os (getvar "osmode"))
: (setq p1 (getpoint "渐开线中心点:"))
: (setq rr (getdist p1 "\n小圆半径<5>:"))(if (null rr)(setq rr 5))
: (setq ofs_h (getreal "\n水平偏移距离<5>:"))(if (null ofs_h)(setq ofs_h 5))
: (setq ofs_v (getreal "\n垂直偏移距离<5>:"))(if (null ofs_v)(setq ofs_v 5))
: (setq NN (getint "\n1/4圆弧渐开数量<9>:"))(if (null nn)(setq nn 9))
: ;***************************************************************************
: (setq p2 (polar p1 0 ofs_h)
: p3 (polar p2 (* pi 1.5) ofs_v)
: p4 (polar p3 pi ofs_h)
: )
: (setq pp_list(list p2 p3 p4 p1));将4点成串列
: (command "circle" p1 rr);画第一个圆
: (setq new_rr rr rr_list '())
: (setq i 0 new_ang pi)
: (setq cc_list'("1" "2" "3" "4" "5" "6" "7"))
: (repeat nn
: (if (= (rem i 2) 0)
: (setq add_rr ofs_h)
: (setq add_rr ofs_v)
: )
: (setq arc_cen(nth (rem i 4) pp_list))
: (setq new_rr (+ new_rr add_rr))
: (setq arc_ps (polar arc_cen new_ang new_rr))
: (setvar "cecolor" (nth (rem i 7) cc_list))
: (command "arc" arc_ps "c" arc_cen "a" -90)
: (setq rr_list (cons new_rr rr_list))
: (setq i (1+ i) new_ang (- new_ang (* pi 0.5)))
: )
: (setq arc_pe (polar arc_cen new_ang (nth 4 rr_list)))
: (command "arc" "" arc_pe)
: (setvar "cecolor" "bylayer")
: (setvar "osmode" os)
: (prin1)
: )
: 还是有误 不知道该如何执行 谢谢!
--
e-mail:
[email protected]
我的课程介绍网页：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台湾地区菁英讲师获选
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 42.73.95.85