画孔的怎么可以生成竖向双边的

Andy_668

(DEFUN SECTION_HOLE (/ INP HH P2 HW HON ANG)
  (setq INP (GETPOINT "\nSpecify insertion point :"))
  (setq        HH (DISTANCE INP
                     (setq P2 (GETPOINT INP "\nSpecify Hole High :"))
           )
  )
  (setq HW (DISTANCE INP (GETPOINT INP "\nSpecify Hole Width :")))
  (setq        HON (STRCAT (RTOS HH 2 9)
                    "mm(H) x "
                    (RTOS HW 2 9)
                    "mm(W) SECTION HOLE"
            )
  )
  (setq ANG (ANGLE INP P2))
  (if (NOT (TBLSEARCH "block" HON))
    (PROGN (MAKE_SECTION_HOLE INP HH HW HON))
  )
  (VL-CMDF "insert" HON INP "1" "" P2)
  (PRINC)
)
(DEFUN MAKE_SECTION_HOLE (INP HH HW HON / HATCH)
  (DRAW_SECTION_LINE INP HH HW)
  (VL-CMDF "-BHATCH"
           "P"
           "DASH"
           (* 2 (GETVAR "dimscale"))
           "90"
           "S"
           "L"
           ""
           ""
  )
  (VL-CMDF "chprop" (ENTLAST) "" "la" "0" "C" "8" "")
  (VL-CMDF "block" HON INP (ENTLAST) SL "")
  (PRINC)
)
这个生成的竖向单边线 怎么可以生成竖向双边线 请大师帮忙指点

bai2000

DRAW_SECTION_LINE？？？？