[求助]：对textbox函数产生的疑惑

gucci218 · 发表于 2005-12-11 13:05:28

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

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

×

有这样一张图：我想把其中的"jd"图层上的文字都加上圆圈，我这段程序帮我看看，为什么用textbox函数总返回((0,0,0) (3.0,3.0,0.0))
这样的列表，能不能返回在世界坐标系中的对角点坐标？

(defun c:ci()
  (setvar "cmdecho" 0)
  (setq dd (getreal "/n请输入偏移量<2.0>:")
  (if (null dd) (setq dd 2.0))
  (setq ss (ssget "x" '((0 . "text") (8 . "jd"))))
  (setq n (sslength ss))
  (setq i 0)
  (repeat n
(setq ent (ssname ss i))
(setq entdate (entget ent))
(setq box (textbox entdate))
(setq pt1 (car box))
(setq pt3 (cadr box))
(setq pt2 (list (car pt3) (cadr pt1)))
(setq pt4 (list (car pt1) (cadr pt3)))
(setq cen (inters pt1 pt3 pt2 pt4))
(setq rad (+ (/ (distance pt1 pt2) 2) dd))
(command "circle" cen rad)
(setq i (1+ i))
)

(prin1)
)

Underway · 发表于 2005-12-11 13:23:08

Ref:
http://www.xdcad.net/forum/showthread.php?s=&threadid=498683

xyp1964 · 发表于 2005-12-11 15:33:21

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20051205 (1781)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "TEXT") (8 . "jd")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt1 (xyp-get-MinMaxPoint s1 1)
pt9 (xyp-get-MinMaxPoint s1 9)
pt0 (xyp-get-MidPoint pt1 pt9)
rad (*(/(distance pt1 pt9)2.0)1.1)
)
(command "circle" pt0 rad)
)
(CMDLA1)
)[/FONT]

gucci218 · 发表于 2005-12-11 16:05:23

能不能针对我程序的错误给改一下呀

xyp1964 · 发表于 2005-12-11 16:26:55

这样？

[FONT=courier new](defun c:test ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq dd (getreal "\n请输入偏移量<2.0>:"))
(if (null dd)
(setq dd 2.0)
)
(setq ss (ssget "x" '((0 . "text") (8 . "jd")))
n (sslength ss)
i -1
)
(repeat n
(setq ent (ssname ss (setq i (1+ i)))
entdate (entget ent)
)
(command "ucs" "n" "ob" ent)
(setq box (textbox entdate)
pt1 (car box)
pt3 (cadr box)
pt2 (list (car pt3) (cadr pt1))
pt4 (list (car pt1) (cadr pt3))
cen (inters pt1 pt3 pt2 pt4 nil)
rad (+ (/ (distance pt1 pt3) 2) dd)
)
(command "circle" cen rad)
(princ)
)
)[/FONT]

taner · 发表于 2005-12-11 16:53:12

最初由 gucci218 发布
[B]有这样一张图：我想把其中的"jd"图层上的文字都加上圆圈，我这段程序帮我看看，为什么用textbox函数总返回((0,0,0) (3.0,3.0,0.0))
这样的列表，能不能返回在世界坐标系中的对角点坐标？

(defun c:ci()
(setv... [/B]

http://www.xdcad.net/forum/showthread.php?s=&threadid=467649

gucci218 · 发表于 2005-12-11 17:13:02

xyp1964版主:
首先，感谢您的帮助。
其次，我还有不太清楚的地方需要您的帮助。
1. 为什么(setq i -1) 然后(ssname ss (setq i (1+ i)) ,我试过，(setq i 0) (ssname ss i) 只返回最后以个图元，这是为什么
2.osmode要是不设为0，也没什么影响呀，是不是只要把osnap关闭，不设为0也可以
3.我看了underway给我回的贴，有些地方不明白
(defun mid_val (a b) ;;; Mid pt
(cond
((listp a) (mapcar '(lambda (a b) (/ (+ a b) 2)) a b))
(T (/ (+ a b) 2.0))
)
)

(defun c:rt()
(setvar "cmdecho" 0)
(setq en (car (entsel "选取文字:")))
(setq endate (entget en))
(setq cen (apply 'mid_val (textbox endate))
cen (mapcar '+ (cdr (assoc 10 endate)) cen)
)
(command "rotate" en "" "none" cen 180)
(prin1)
)
能不能给我解读一下他的程序，lambda mapcar 和 apply那几句实在看不懂
先谢了

xyp1964 · 发表于 2005-12-11 17:30:10

也看不懂！呵呵……
可以逐句加上帮助文件试试。

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

[求助] [求助]：对textbox函数产生的疑惑

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

相关帖子

Re: [求助]：对textbox函数产生的疑惑