......................

PGJ

;可以闭合了
(defun c:aa (/             dit1    dit2    ss             len     i             ent
             enttype objs    a2             a1             ssj     b1             b2
             a1coordlist     a2coordlist
            )                                ; 定义程序名和局部变量
  (command "_.undo" "begin")                ; 开始撤销组
  (setvar 'osmode 0)                        ; 取消捕捉模式
  (command "layer" "m" "wall" "c" "6" "wall" "lt" "continuous" "wall" "")
                                        ; 设置图层
  (setq        dit1 500
        dit2 (* -1 500)
        ss   (ssget '((0 . "LINE,LWPOLYLINE")))
  )                                        ; 设置偏移距离和选择集
  (if ss                                ; 如果有选择集
    (progn
      (setq len        (sslength ss)
            i        0
            ssj        (ssadd)
      )                                        ; 获取选择集中实体的数量
      (while (< i len)                        ; 遍历选择集中的实体
        (setq ent     (ssname ss i)
              enttype (cdr (assoc 0 (entget ent)))
        )                                ; 获取实体名和类型
        (if (= enttype "LWPOLYLINE")        ; 如果实体是多段线
          (progn
            (setq objs (vlax-ename->vla-object ent))
                                        ; 将实体转换为vla-object
            (vlax-invoke objs 'offset dit1)
            (setq a1 (entlast))                ; 内偏移得到A1
            (setq ssj (ssadd a1 ssj))
            (vlax-invoke objs 'offset dit2)
            (setq a2 (entlast))                ; 外偏移得到A2
            (setq ssj (ssadd a2 ssj))
            (if        a2                        ; 如果A2存在
              (progn
                (setq a1coordlist (vlax-get (vlax-ename->vla-object a1)
                                            'Coordinates
                                  )
                      a2coordlist (vlax-get (vlax-ename->vla-object a2)
                                            'Coordinates
                                  )
                )
                (command "pline"
                         (list (nth 0 a1coordlist) (nth 1 a1coordlist))
                         (list (nth 0 a2coordlist) (nth 1 a2coordlist))
                         ""
                )
                (setq b1 (entlast))
                (setq ssj (ssadd b1 ssj))
                (command
                  "pline"
                  (list        (nth (- (length a1coordlist) 2) a1coordlist)
                        (last a1coordlist)
                  )
                  (list        (nth (- (length a2coordlist) 2) a2coordlist)
                        (last a2coordlist)
                  )
                  ""
                )
                (setq b2 (entlast))
                (setq ssj (ssadd b2 ssj))
                (command "pedit" "m" ssj "" "j" "" "")
              )
            )
            (vlax-release-object objs)        ; 释放vla-object
          )
        )
        (setq i (1+ i))                        ; 遍历下一个实体
      )
      (sssetfirst nil ss)                ; 清除选择集
      (princ "处理完成！")                ; 输出处理完成
    )
    (alert "未选择任何线或多段线！")        ; 如果没有选择集，输出提示
  )
  (setvar "clayer" "0")
  (command ".undo" "_end")                ; 结束撤销组
  (princ "")                                ; 输出空白
)

guosheyang

还是找本书来系统学习  循序渐进  好些   这个工具作为辅助

PGJ

能写成这样，这个工具的确厉害