iCAx开思网

标题: 帮忙做一LISP,对工作很有用！ [打印本页]

作者: marcowu1980 时间: 2006-10-19 11:04
标题: 帮忙做一LISP,对工作很有用！
帮忙做一LISP,对工作很有用！求最大外形！

作者: qomolangma 时间: 2006-10-19 14:35
;;; get max outline
(defun c:bbox()
(setq ent (car (entsel)))
(setq vlaobj (vlax-ename->vla-object ent))
(vla-getboundingbox vlaobj 'minpoint 'maxpoint)
(setq minpointlist (vlax-safearray->list minpoint))
(setq maxpointlist (vlax-safearray->list maxpoint))
(if (/= minpointlist nil)
(command "_rectangle" minpointlist maxpointlist)
(alert "Error Selected Object")
)
)

作者: soqu-78155 时间: 2006-10-27 14:42
怎么用啊老大指点一下～！

作者: Andyes 时间: 2006-10-27 20:04
将二楼的内容存成一个BBox.Lsp的档案
放在 AutoCAD的支援路径下
比如说Support的资料夹

使用前要先载入BBox.Lsp...

在AutoCAD的指令列
Command: (Load "BBox") ; <===keyin '(Load "BBox")'
C:BBOX ; 这是AutoCAD的回应代表成功

接下来就可以视同有一个叫 'BBOX' 的指令可用

Command: bbox

Select object:

欢迎光临 iCAx开思网 (https://www.icax.org/)