[原创]：用LISP全显图元

ouyangsong · 发表于 2006-3-5 18:57:22

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

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

×

(defun c:qx( / ent obj bbox ll ur)
;用LISP全显图元
(vl-load-com)
(setq AcadObject(vlax-get-acad-object))
(setq ent(car(entsel)))
(setq obj(vlax-ename->vla-object ent))
(setq bbox(vla-getboundingbox obj 'll 'ur))
(vla-zoomwindow acadobject ll ur)
)

lt_zzy · 发表于 2006-3-5 19:08:14

个人感觉，这个程序好象用处不大。
不知道楼主做这个程序的目的是什么？

ouyangsong · 发表于 2006-3-5 19:10:54

视觉郊果吧，批量处理图元里，依次显视图元，
但是上面的BBOX的值为什么为NIL呢。

雨箭风刀 · 发表于 2006-3-5 22:31:22

２００６，ｚｏｏｍ　可以　ｂｙ　ｏｂｊｅｃｔ

zhang8755 · 发表于 2006-3-6 18:59:01

有点意思，不过不要满屏显示，稍微缩小一点就好了。

xyp1964 · 发表于 2006-3-6 19:20:39

改进版：

[FONT=courier new];;;图中所有对象在窗口中央逐一显示（按任意键显示下一对象）
(defun c:test ()
(CMDLA0)
(setvar "osmode" 0)
(command "select" "all" "")
(setq ss (ssget "P")
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq pt1 (xyp-get-MinMaxPoint s1 1)
pt9 (xyp-get-MinMaxPoint s1 9)
dist(*(distance pt1 pt9)0.05)
pt11 (polar pt1 (angle pt9 pt1) dist)
pt99 (polar pt9 (angle pt1 pt9) dist)
)
(command "zoom" "w" pt11 pt99)
(princ "\n按任意键显示下一对象，ESC退出! ")
(setq mode t)
(while mode
(setq MOTION (grread t 15 0)
CODE (car MOTION)
)
(if (or (= code 2)
(= code 3)
(= code 25)
)
(setq mode nil)
)
)
)
(CMDLA1)
)[/FONT]

lyl6414300 · 发表于 2006-3-7 14:05:44

我用的的CAD2000和2004
要想图形全显按鼠标中间的那个键就可以了。

ouyangsong · 发表于 2006-3-7 21:24:24

主要的由于(SSGET(“CP”　（ＬＩＳＴ　Ｐ１　Ｐ２　Ｐ３　。。。）)建立选集时，p1 p2 p3...等.可能不在视口中，所以才想到全显。而非ＺＯＯＭ—Ｅ,但是我是想为什么
(setq bbox(vla-getboundingbox obj 'll 'ur))当中，ＢＢＯＸ的值会为nil?

aeo · 发表于 2006-3-8 00:56:40

(vla-getboundingbox 把求到值赋值给了 ll 和 ur
bbox,只是表示 "求值" 这件事 "行了没有".

Arx就是这个规则:
如果它返回两个点的表,那么就是variant ,要得到两个点还正麻烦!

ouyangsong · 发表于 2006-3-9 19:05:19

9楼楼主说： 9pt 10pt 11pt 12pt 13pt 15pt

(vla-getboundingbox 把求到值赋值给了 ll 和 ur
bbox,只是表示 "求值" 这件事 "行了没有".
那它老是返回NIL，我怎知道它“行了没有”比方说对象是ray。

雨箭风刀 · 发表于 2006-3-9 20:26:57

对 ll 和ur 检查啊。。。
(princ (list ll ur))

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

[原创]：用LISP全显图元

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

相关帖子