编了个双向偏移的小程序，却无法完美执行，求大神指点

satin

;本意是定义一个函数std，对线段进行两个方向便移，这里已设定偏移值为100。
;但是下面的代码有时候执行，有时候不执行。有时候执行的很乱。
代码附在文后。
以下是执行的截图说明。

【代码全文】
(defun c:std()
  (setq width 100.0)
  (setq sl (ssget '((0 . "line"))));以交互方式得到一个选择集,图元类型限定为line。
  (setq ntotal (sslength sl))
  (setq n 0)
  (while (< n ntotal);
    (progn
      (setq e (ssname sl n)
          el (entget e)
          p1 (cdr (assoc 10 el))
          p2 (cdr (assoc 11 el))
          alf (angle p1 p2) ;polar函数中的旋转角度是从ucs的正方向算起，所以需要算出并加上基础直线的方向角。
          a90 (+ alf (angtof "90.0"))
          a270 (+ alf (angtof "270.0"));计算line方向旋转90度和270度后与x轴夹角
          p3 (polar p1 a90 width)
          p4 (polar p2 a90 width)
          p5 (polar p1 a270 width)
          p6 (polar p2 a270 width)
      )         
      (command "line" p3 p4 "");一个command语句是否只能使用一次AutoCAD命令
      (command "line" p5 p6 "")
    )
    (setq n (1+ n))
  )
  princ()
)

Andyhon

捕捉模式得关闭

可改用 entmake 函数

satin

Andyhon 发表于 2016-7-31 21:37
捕捉模式得关闭

可改用 entmake 函数

orz, 大神你真是一针见血啊。厉害。