一个画角钢的程序求修改一下

bai2000

  拼了一个联想画角钢（线变角钢）的lisp，希望增加一个点选偏移方向的功能，同时在角钢的断点及转角出，插入焊缝块。


(defun c:hjg()  ;线变角钢、连续画角钢
  (vl-load-com)
  (command "layer" "m" "JT2_钢结构--钢结构梁---GJGL" "c" "4" "" "lw" "0.13" "" "l" "Continuous" "" "")
  (command "layer" "m" "JT3_型材--钢投影----JD" "c" "140" "" "lw" "0.13" "" "l" "Continuous" "" "")
;(command "layer" "s" "JT2_钢结构--中心线---GJGL" "")
  (princ "\n线变角钢、连续画角钢")
  (setq os (getvar 'osmode))
  (setq cmd (getvar 'cmdecho))
  (mapcar 'setvar (list 'osmode 'cmdecho) '(0 0))
  (or (setq w (getreal "\n【角钢宽度】/<50.0>："))
      (setq w 50.0)
      )
  (while (or (setq enpline (car(entsel"\n拾取角钢基线，回车则画线角钢:")))
       (and (setq pt1 (getpoint"\n开始绘制角钢的起点/<退出>."))
      (setq pt2 (getpoint pt1 "\n开始绘制角钢的第2点/<退出>."))

      (progn
        (setq L-en (entlast));先设置最后一次的图元为L-en
        (princ "\n继续绘制角钢，回车结束角钢.")
        (command "_.pline" "_non" pt1 pt2)

        (while (>(getvar 'cmdactive)0)(command pause))
        (setq enpline (entnext L-en))

        );end progn   
      );end and   
       );end or  
          (command "change" enpline  "" "p" "LA" "JT3_型材--钢投影----JD" "" )
         (setvar 'osmode 0)
          (vla-Offset (vlax-ename->vla-object enpline) (/ w 1.0))
         (setq pline1 (entlast))
         (command "change" pline1  "" "p" "LA" "JT2_钢结构--钢结构梁---GJGL" "" )  
         (vla-Offset (vlax-ename->vla-object enpline) (/ w 10.0))
         (setq pline2 (entlast))
         (command "change" pline2  "" "P" "la" "JT2_钢结构--钢结构梁---GJGL" "" )
         (command "chprop" pline2 "" "lt" "DASHED" "s" "1" "c" "40" "")

;       (command "change" pline2  "" "lt" "DASHED" "s" "2" "c" "252" "")
   )
(mapcar 'setvar (list 'osmode 'cmdecho) (list os cmd))
(princ)
)




要求及焊缝块见附件

yanchao316

顶一下。。