本帖最后由 zhynt 于 2011-6-28 22:30 编辑
将上面的程序稍许改了一下:
- (defun c:oo (/ dist obj)
- (setq dist (getdist (strcat "输入偏移总距离:<"
- (rtos (getvar "OFFSETDIST"))
- ">"
- )
- )
- )
- (if (null dist)
- (setq dist (getvar "offsetdist"))
- (setvar "offsetdist" dist)
- )
- (if (setq ss (ssget '((0 . "Arc,Circle,Ellipse,*Line"))))
- (progn
- (vlax-for obj (vla-get-activeselectionset
- (vla-get-activedocument (vlax-get-acad-object))
- )
- (vla-offset obj (/ dist 2.0))
- (vla-offset obj (/ dist -2.0))
- )
- (command "erase" ss "")
- )
- (vlax-release-object obj)
- )
- )
|