- ;;能处理的物件(SPLINE,LINE,LWPOLYLINE,POLYLINE,ARC,ELLIPSE---ARC)
- (defun C:TT (/ ENT VOBJ SP EP OBJNAME)
- (vl-load-com)
- (setq ENT (car (entsel "\nSelect line: ")))
- (setq VOBJ (vlax-ename->vla-object ENT))
- (setq OBJNAME (vla-get-objectname VOBJ))
- (setq SP (vlax-curve-getstartpoint VOBJ))
- (setq EP (vlax-curve-getendpoint VOBJ))
- (command "_.lengthen" "p" 75 (list ENT SP) "")
- (if (wcmatch OBJNAME "AcDb2dPolyline,AcDb3dPolyline")
- (setq ENT (entlast))
- )
- (command "_.lengthen"
- "p"
- (* 100 (/ 2.0 3))
- (list ENT EP)
- ""
- )
- (princ)
- )
|