求解：polar函数的用法

bpf19880323

(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'的用法，貌似没错呀，求解，望知道原因的人解答下，不甚感激。

byghbcx

(setq enl_6 (polar enl_3 (/ pi 2) 1000))
少输入了个l,

bpf19880323

byghbcx 发表于 2012-2-21 08:06
(setq enl_6 (polar enl_3 (/ pi 2) 1000))
少输入了个l,

好不认真啊  ，谢谢你

Gu_xl

bpf19880323 发表于 2012-2-21 08:54
好不认真啊  ，谢谢你

为什么不用vlide调试一下？语法输入错误是难免的，但进行调试错误，会很快定位错误的！

bpf19880323

Gu_xl 发表于 2012-2-21 09:04
为什么不用vlide调试一下？语法输入错误是难免的，但进行调试错误，会很快定位错误的！

[img]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

看不到图,建议先试关掉捕捉

bpf19880323

Andyhon 发表于 2012-2-21 14:11
看不到图,建议先试关掉捕捉

非常感谢你，哇，高手好多，就是捕捉的问题，
(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)
)
这样就可以了，再次谢谢你

434939575

Gu_xl 发表于 2012-2-21 09:04
为什么不用vlide调试一下？语法输入错误是难免的，但进行调试错误，会很快定位错误的！

版主真是好人。也教了我一招。

zhanganwu

都是大神级别啊