[求助]：该怎样使用 alert 显示出点的座标值呢?

xyz518mm · 发表于 2005-11-30 23:10:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

该怎样使用 alert 显示出点的座标值呢?

alert 函数可以显示距离.角度.字串
那点座标也可以显示吗?
该用哪各函数带出呢? trans 这函数吗?
烦请各位高手可以解答一番
谢谢

xyp1964 · 发表于 2005-12-1 07:56:14

[FONT=courier new](defun c:test ()
(while (setq p1 (getpoint "\n确定坐标标注点(交点/圆心/端点)<退出> : "))
(setq
a (strcat "X=" (rtos (cadr p1) 2 3))
b (strcat "Y=" (rtos (car p1) 2 3))
)
(alert (strcat "工程坐标 : " "\n" "\n" a "\n" b))
)
(princ)
)[/FONT]

tctabc · 发表于 2005-12-1 08:23:44

又学了新知识
感谢楼主了~

xyz518mm · 发表于 2005-12-1 08:48:01

谢谢版主解答:
但您解答中的cadr 解出来是代表 y值吧!
car 解出来是代表 x值吧!
   a (strcat "X=" (rtos (cadr p1) 2 3))
   b (strcat "Y=" (rtos (car p1) 2 3))

不知道是不是呢?

又如果将 a b 两个值写入图面上,该怎样做到用 text 写上两个变数值?
==> (command "text" "j" "MC" p1 "30" "0" a) 目前只会写入一个.

(defun c:ts ( / a b p1)
(IF (tblsearch "STYLE" "CHINA")
(setvar "TEXTSTYLE" "CHINA")
(command "_style" "CHINA" "simplex,china" "" "1" "" "" "" "")
  )
(while (setq p1 (getpoint "\n确定坐标标注点(交点/圆心/端点)<退出> : "))
(setq
   a    (strcat "X=" (rtos (cadr p1) 2 3))
   b    (strcat "Y=" (rtos (car p1) 2 3))
)
)
(alert (strcat "工程坐标 : " "\n" "\n" a "\n" b))
(command "text" "j" "MC" p1 "30" "0" a)
  )
(prin1))

另外请教关于此切圆" http://p4.xdcad.net/forum/showthread.php?s=&threadid=477676" 文章中,

使用
  (princ "\n选择2个切点 : ")
  (setq pp3 (command "circle" "t" "tan" pause "tan" pause rad))

所点选位置的 x,y 值两点可以取出来吗?
我想将这两点加入后续 trim 使用做判断.
烦请各位高手在解答一下
谢谢~

xyp1964 · 发表于 2005-12-1 12:38:44

关于坐标标注可以参考签名栏下的“ ★坐标标注”程序：http://www.xdcad.net/forum/showthread.php?s=&threadid=381498

tctabc · 发表于 2005-12-1 14:36:59

可以这样做
(setq a (strcat "X=" (rtos (car p1) 2 4))
b (strcat "Y=" (rtos (cadr p1) 2 4))
)
加上
(setq txt (strcat a "," b))
(command "text" "j" "tl" p1 "30" "0" txt)

jx2008 · 发表于 2006-12-4 23:46:02

xyp1964的就是精品

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：该怎样使用 alert 显示出点的座标值呢?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子