求画四线同时中间两边按参数偏移的LSP!!，详见附图

cxs259

求画四线同时中间两边按参数偏移的LSP!!，详见附图

caoyin

(defun c:TT ()
  (setq ss (ssget '((0 . "line,*polyline,spline,circle,arc,ellipse"))))
  (setq di (getdist "\n偏移距离: "))
  (if (and di (/= di 0))
  (repeat (setq i (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))) )
    (vla-offset obj di)
    (vla-offset obj (- di))
  )))

cxs259

感谢版主的回复，但我的意思是同时画出四条线，其中中间两条离边线可用参数控制。如下面命令一样（即下面lsp顶视画线）。

(defun C:hh()
;设置值
  (setq ht (getreal "\n梁的高度： "))
  (setq wi (getreal "\n梁的宽度： "))
  (cond
    ((< wi (* 0.5 ht)) (setq wi (* 0.5 ht)))
    ((> wi (* 0.8 ht)) (setq wi (* 0.8 ht)))
  )
  (setq ft (getreal "\n突缘厚度： "))
  (cond
    ((< ft (* 0.05 ht)) (setq ft (* 0.05 ht)))
    ((> ft (* 0.15 ht)) (setq ft (* 0.15 ht)))
  )
  (setq wt (getreal "\n腹板厚度： "))
  (cond
    ((< wt (* 0.1 wi)) (setq wt (* 0.1 wi)))
    ((> wt (* 0.2 wi)) (setq wt (* 0.2 wi)))
  )
  (cond
    ((<= ht 4.0) (setq rad 0.125))
    (T (setq rad 0.5))
  )
  (if  (< ft 0.15) (setq rad (* 0.8 ft)))
; 计算梁的角点
  (setq p1 (getpoint "\n左下角： "))
  (setq l1 (/ (- wi wt) 2))
  (setq l2 (- ht (* ft 2.0)))
  (setq p2 (polar p1 0 wi))
  (setq p3 (polar p2 (/ pi 2.0) ft))
  (setq p4 (polar p3 pi l1))
  (setq p5 (polar p4 (/ pi 2.0) l2))
  (setq p6 (polar p5 0 l1))
  (setq p7 (polar p6 (/ pi 2.0) ft))
  (setq p8 (polar p7 pi wi))
  (setq p9 (polar p8 (+ pi (/ pi 2.0)) ft))
  (setq p10 (polar p9 0 l1))
  (setq p11 (polar p10 (+ pi (/ pi 2.0)) l2))
  (setq p12 (polar p11 pi l1))
; 绘制梁的轮廓
  (command "pline" p2 p3 p4 p5 p6 p7 "")
  (command "fillet" "r" rad "fillet" "polyline" "L")
  (command "pline" p8 p9 p10 p11 p12 p1 "")
  (command "fillet" "polyline" "L")
  (command "line" p1 p2 "")
  (command "line" p7 p8 "")
  (redraw) (princ)
)

cxs259

yshf

先设置多线样式，再用画多线命令即可画出。