liuyilin 发表于 2006-7-19 12:04:00

[求助]坐标问题

<P>如果要得到point的坐标P1 P2，下面的代码有错误，应怎样得到<BR>多谢</P>
<P>(setq point (getpoint "\n 指定文字起点:"))<BR>(setq p1 (car '(point)))<BR>(setq p2 (cdr '(point)))</P>

oyxx1023 发表于 2006-7-19 13:10:00

<P>(setq p1 (car point))</P>
<P>(setq p2 (cdr point))</P>

liuyilin 发表于 2006-7-19 13:53:00

<P>谢谢！为什么这样取得坐标后&nbsp; (command "text" (list p1 p2)&nbsp; "30" "" string0)无法执行，请指教</P>
<P>(setq point (getpoint "\n 指定文字的起点:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq string0 "\n 输入数字:"))&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p1 (car point))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p2 (cdr point))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "text" (list p1 p2)&nbsp; "30" "" string0)</P>

jdhszh 发表于 2006-7-19 18:51:00

<P>(setq string0 "\n 输入数字:"))&nbsp;&nbsp;多一“）”</P>

rongyifei 发表于 2006-7-19 22:19:00

<P>(setq point (getpoint "\n 指定文字的起点:"))</P>
<P>(setq string0 (getstring"\n 输入数字:"))</P>
<P>(command "-text"&nbsp;point&nbsp; "30" "" string0"")</P>
<P>上面这种写法就好!</P>

ZZXXQQ 发表于 2006-7-19 23:03:00

liuyilin发表于2006-7-19 13:53:00static/image/common/back.gif
谢谢！为什么这样取得坐标后(command \"text\" (list p1 p2) \"30\" \"\" string0)无法执行，请指教
(setq point (getpoint \"...

<BR>二楼的(setq p2 (cdr point))是错误的。应改为：(setq p2 (cadr point))
页: [1]
查看完整版本: [求助]坐标问题