修改的轮廓的新程序

linear

对了，我想问一下，有没有获取cylinder的高度的简便方法？谢谢。

meflying

一般的方法比较困难，要用ACTIVEX方法： (vl-load-com) (defun c:test( / ent entv pt1 pt2)
(setq ent (car (entsel)))
(setq entv (vlax-ename->vla-object ent))
(vla-getboundingbox entv 'pt1 'pt2)
(- (last (vlax-safearray->list pt1)) (last (vlax-safearray->list pt2)))
)

meflying

将此几句改为如下，速度将快很多： ;(command "_.scale" ent "" ptCenter (fun 1))
;(setq ents (entget ent))
(setq dist (distance pt1 pt2))
(setq pt1 (polar pt1 (angle pt2 pt1) (- (/ (fun dist) 2.0) (/ dist 2))))
(setq pt2 (polar pt2 (angle pt1 pt2) (- (/ (fun dist) 2.0) (/ dist 2))))

linear

改为什么？

meflying

忘了写上了，23楼，改过了

linear

谢谢你。