求助，这个“结构柱子”源程序能否按要求修改？

znchssy

这是它人编写的“结构柱子”的源程序，请问能否在生成结构柱子的同时沿柱子外角点生成外框线，外框线可以是line/lp线，谢谢！

;       =============================================
;       |             构造柱自动标注软件            |
;       |         版本: V1.0   作者: 尉迟俊岭       |
;       =============================================
(defun C:gzz(/ dx dy dx1 dx2 dy1 ddx ddy lay pt1 pt2 width scale)
  (setvar "CMDECHO" 0)
  (setq lay (getvar "clayer"))
  (command "color" "bylayer")
  (command "layer" "m" "gzz" "c" "m" "gzz" "")
  (setq scale (getreal "\nScale<1>: "))
  (cond ((= scale nil) (setq scale 100.0))
        ((= scale 1) (setq scale 100.0))
        ((= scale 100) (setq scale 1.0))
  )
  (command "osnap" "int")
  (setq pt (getpoint "\nInsert point: "))
  (command "osnap" "non")
  (setq width (getreal "\nWidth of GZZ<240>: "))
  (if (= width nil) (setq width 240))
  (setq width (/ width scale))
  (setq ddx (getreal "\nX-distance form insert point<0>: "))
  (if (= ddx nil) (setq ddx 0))
  (setq ddx (/ ddx scale))
  (setq high (getreal "\nhigh of GZZ<240>: "))
  (if (= high nil) (setq high 240))
  (setq high (/ high scale))
  (setq ddy (getreal "\Y-distance form insert point<0>: "))
  (if (= ddy nil) (setq ddy 0))
  (setq ddy (/ ddy scale))
  (setq dy (cadr pt))
  (setq dx (car pt))
  (setq dx1 (+ (- dx (/ width 2)) ddx))
  (setq dx2 (+ dx1 width))
  (setq dy1 (+ dy ddy))
  (setq pt1 (list dx1 dy1))
  (setq pt2 (list dx2 dy1))
  (command "pline" pt1 "w" high high pt2 "") 
  (command "layer" "s" lay "")
  (princ)
)