求解：polar函数的用法
(defun c:UU ()(setq enl_1 (getpoint "\n请输入一点:"))
(setq enl_2 (polar enl_1 0 89100))
(setq enl_3 (polar enl_2 (* pi 1.5) 59400))
(setq enl_4 (polar enl_1 0 2500))
(setq enl_5 (polar enl_4 (* pi 1.5) 1000))
(setq enl_6 (polar en_3 (/ pi 2) 1000))
(setq enl_7 (polar enl_6 pi 1000)))
(command "RECTANGLE" "w" 0 enl_1 enl_3)
(command "RECTANGLE" "w" 100 enl_5 enl_7)
)
该程序为什么运行不了，出现： 错误: 参数类型错误: 二维/三维点: nil
根据polar'的用法，貌似没错呀，求解，望知道原因的人解答下，不甚感激。
(setq enl_6 (polar enl_3 (/ pi 2) 1000))
少输入了个l, byghbcx 发表于 2012-2-21 08:06 static/image/common/back.gif
(setq enl_6 (polar enl_3 (/ pi 2) 1000))
少输入了个l,
好不认真啊，谢谢你 bpf19880323 发表于 2012-2-21 08:54
好不认真啊，谢谢你
为什么不用vlide调试一下？语法输入错误是难免的，但进行调试错误，会很快定位错误的！ Gu_xl 发表于 2012-2-21 09:04 static/image/common/back.gif
为什么不用vlide调试一下？语法输入错误是难免的，但进行调试错误，会很快定位错误的！
1.谢谢斑竹，不用编辑器是因为现在在公司，哈哈，斑竹又有新问题了，就是关于polar的，以上程序只有在cad的界面比较小的情况下才能得到我想要的，如图：（正确.jgp）
2.但当界面稍大时候，出现enl_2和enl_3重合；如图：（错误1.jgp）
3.当界面再大是，出现的到两个LWPOLYLINE四个角点重合，如图：（错误2.jgp）
（cad的界面是指：当我们图形过大，界面无法全部显示，我们经常用”zoom“命令来使界面放大，这里说的CAD的界面就是这个意思）
是polar函数本身的缺点还是我程序的不完整，谦请斑竹指正，谢谢了！
d:\我的文档\桌面\新建文件夹 (4)\正确.jpg
d:\我的文档\桌面\新建文件夹 (4)\错误1.jpg
d:\我的文档\桌面\新建文件夹 (4)\错误2.jpg 看不到图,建议先试关掉捕捉 Andyhon 发表于 2012-2-21 14:11 static/image/common/back.gif
看不到图,建议先试关掉捕捉
非常感谢你，哇，高手好多，就是捕捉的问题，
(defun c:UU ()
(setvar "cmdecho" 0)
(setq OM (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq enl_1 (getpoint "\n请输入一点:"))
(setq enl_2 (polar enl_1 0 89100))
(setq enl_3 (polar enl_2 (* pi 1.5) 59400))
(setq enl_4 (polar enl_1 0 2500))
(setq enl_5 (polar enl_4 (* pi 1.5) 1000))
(setq enl_6 (polar enl_3 (/ pi 2) 1000))
(setq enl_7 (polar enl_6 pi 1000))
(command "RECTANGLE" "w" 0 enl_1 enl_3)
(command "RECTANGLE" "w" 100 enl_5 enl_7)
(setvar "OSMODE" om)
)
这样就可以了，再次谢谢你 Gu_xl 发表于 2012-2-21 09:04 static/image/common/back.gif
为什么不用vlide调试一下？语法输入错误是难免的，但进行调试错误，会很快定位错误的！
版主真是好人。也教了我一招。 都是大神级别啊
页:
[1]