- (defun c:tt (/ e1 e2 l1 l2 d pt)
- (setq e1 (car(entsel "\n选择多段线:")))
- (setq d (getdist "\n偏移距离:"))
- (setq pt (getpoint "\n偏移方向点:"))
- (command "offset" d e1 pt "")
- (setq e2 (entlast))
- (command "FILLET" "r" d "FILLET" "p" e2)
- (entmake
- (list '(0 . "line")
- (cons 10 (vlax-curve-getStartPoint e1))
- (cons 11 (vlax-curve-getStartPoint e2))
- )
- )
- (setq l1 (entlast))
- (entmake
- (list '(0 . "line")
- (cons 10 (vlax-curve-getEndPoint e1))
- (cons 11 (vlax-curve-getEndPoint e2))
- )
- )
- (setq l2 (entlast))
- (command "bhatch" "p" "ANSI31" 1 0 "s" e1 e2 l1 l2 "" "")
- (princ)
- )
|