求获取所选图元的最外形尺寸坐标值程序
大家好，我想用LISP编写一个获取所选图元的最外形尺寸坐标值，在网上查了，用vla-Getboundingbox命令可得，但是编写出来怎么都出错。对象类型不对，搞不懂，后来再网上去下载别人写好的，还是不行，结果就好像是将原来的图形复制了一个一样，还是没出来坐标值，我给你们看看下面的程序，不能用啊，你们现在有人用这功能的程序没，给我发一个，谢谢，请高手帮忙写一个也可以，我用的是CAD2004中文版。如果有的请发送一个到我的邮箱里，lvdezhi886@163.com谢谢
(defun c:test()
;com init
(vl-load-com)
;call the directory common dialog by shell,then get the directory path
(setq objSH (vlax-create-object "Shell.Application"))
(setq dir (vlax-invoke-method objSH ’BrowseForFolder 0 "Select a forlder:" 1))
(setq msg (vl-catch-all-apply
’(lambda ()
(setq dir (vlax-get-property dir ’self))
(setq path (vlax-get-property dir ’path))
)
)
)
(if (vl-catch-all-error-p msg) (setq path nil))
(if path (setq dir (strcat path "\\")) (progn (princ "get directory path failure")(exit)))
;;get the list of all dwgfilename
(setq dwglist (vl-directory-files dir "*.dwg" 1))
;iter
(setq len (length dwglist))
(setq i -1)
(setq ybuf nil)
(repeat len
(setq dwgpath (strcat dir (nth (setq i (1+ i)) dwglist)))
;insert dwg by block
(command "_.insert" dwgpath (list 0 0 0) "" "" "")
(setq ent (entlast))
(vla-getboundingbox (vlax-ename-> vla-object ent) ’minpoint ’maxpoint)
(setq pt1 (vlax-safearray-> list minpoint)
pt2 (vlax-safearray-> list maxpoint)
;here,you can calc perfect coordinates for your insert dwg
x1(car pt1)
y1(cadr pt1)
y2(cadr pt2)
h (- y2 y1)
)
(if (= nil ybuf)
(progn
(setq ybuf (+ y2 (* h 1.1)))
)
(progn
(setq pt2 (list x1 ybuf))
(setq ybuf (+ ybuf (* h 1.1)))
(command "_.move" ent "" pt1 pt2)
)
)
(command "_.explode" ent)
);end iter
)
如果有的请发送一个到我的邮箱里，lvdezhi886@163.com谢谢
(DEFUN C:TT ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(IF (SETQ S1 (CAR (ENTSEL "\nSelect One Object 选择一个图元 :"))) (PROGN
(vla-getboundingbox (vlax-ename->vla-object S1) 'minpoint 'maxpoint)
(setq pmax (vlax-safearray->list maxpoint)
pmin (vlax-safearray->list minpoint))
(SETVAR "OSMODE" 0)
(COMMAND ".RECTANG" PMIN PMAX)
(SETVAR "OSMODE" OLDOS)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
先試這個看看
(setq pt1 (vlax-safearray-> list minpoint)
pt2 (vlax-safearray-> list maxpoint)
==>
(setq pt1 (vlax-safearray->list minpoint)
pt2 (vlax-safearray->list maxpoint)
ZZXXQQ 发表于 2011-2-13 22:31 static/image/common/back.gif
这个只能选单个图元，怎么实现框选后把所有图元的最外边找出来啊。 框选后 ....
调用 acet-geom-ss-extents 我也想知道这个问题的解决办法
页:
[1]