社区 › 源码共享 › 画孔的怎么可以生成竖向双边的

Andy_668 发表于 2025-4-7 14:49:03

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

(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 发表于 2025-4-7 17:48:49

DRAW_SECTION_LINE？？？？

查看完整版本: 画孔的怎么可以生成竖向双边的