[求助]：看看为什么是错？

xxming · 发表于 2005-4-4 22:02:55

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

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

×

;用TEXTBOX提取文字对角点的坐标pt3：为什么是错
(setq pt (cadr(textbox (list(assoc 1 ssdate))))) ;ssdate 为圖元資料
(setq pt3 (reverse(cdr(reverse pt)))) pt3为xy坐标

狂刀 · 发表于 2005-4-4 22:29:34

(textbox ssdate)

xxming · 发表于 2005-4-4 23:00:55

pt3的坐标是错误是为什么？

xyp1964 · 发表于 2005-4-4 23:37:21

[php]
;;用TEXTBOX提取文字对角点的坐标pt3：为什么是错
(defun c:test ()
  (setq ssdate (entget (car (entsel)))
pt  (cadr (textbox (list (assoc 1 ssdate)))) ;ssdate 为圖元資料
pt3 (reverse (cdr (reverse pt)))
  ) ;pt3为xy坐标
  pt3
)
[/php]

xxming · 发表于 2005-4-5 21:26:57

文字加方框错了？请请指教谢谢
(defun c:tbox()
  (setq ss (ssget '((0 . "text"))))
  (setq n (sslength ss))
  (setq i -1)
  (repeat n
(setq en (ssname ss (setq i (1+ i))))
(setq ssdate (entget en))
(setq pt1 (cdr(assoc 10 ssdate)));插入点坐标
(setq pt (cadr(textbox ssdate)));取得文字对角点标
(setq pt3 (reverse (cdr (reverse pt))))
(setq ww (car pt))
(setq hh (cadr pt))
(setq pt2 (polar pt1 0 ww))

(setq pt4 (polar pt1 (/ pi 2) hh))
(command "pline" pt1 pt2 pt3 pt4 "c")
  )
  (princ)
)

ljpnb · 发表于 2005-4-5 22:17:23

点pt2后面再加一句 (setq pt3 (polar pt2 (* pi 0.5) hh))

xxming · 发表于 2005-4-5 22:42:36

我知道哪里错了，textbox取得的对角点坐标是相对于左下角点坐标不是相对于原点的坐标

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

[求助] [求助]：看看为什么是错？

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

相关帖子

文字加方框错了？

浏览过的版块