求一个lisp程序实，现对调多段线起点和终点

summervajane

我用的DXF加工图纸，一组多段线，竖直方向的。起点在上端和下端，加工出来效果会不一样。
求大神写个程序，可以把起点统一放在下端或者上端！

鱼与熊掌

~~   entget    获取祖玛表     然后对调一下.

summervajane

鱼与熊掌 发表于 2014-12-13 15:19
~~   entget    获取祖玛表     然后对调一下.

能帮忙写下代码吗？不会lisp编程啊

summervajane

summervajane 发表于 2014-12-13 17:15
能帮忙写下代码吗？不会lisp编程啊

我刚才找到一段代码，运行提示缺少参数。

还有我书上看到的是必须用（defun C:）但代码里是defun HH:,怎么回事？

代码如下，帮忙看下什么问题
;;(HH:LWPOLYLINEFX (car (entsel)))
(defun HH:LWPOLYLINEFX (EN / A B C D ENT LST LST1 TMP)
  (setq ENT (entget EN))
  (setq tmp ent)
  (while (setq tmp (member (assoc 10 tmp) tmp))
    (setq a   (assoc 10 tmp)
          b   (cons 40 (cdr (assoc 41 tmp)))
          c   (cons 41 (cdr (assoc 40 tmp)))
          d   (cons 42 (- (cdr (assoc 42 tmp))))
          LST (append (list b c d a) LST)
    )
    (setq tmp (cddddr tmp))
  )
  (repeat 3 (setq LST (append (cdr lst) (list (car lst)))))
  (setq lst1 (reverse (cdr (member (assoc 10 ent) (reverse ent)))))
  (entmod (append lst1 lst '((210 0 0 1))))
)

kwok

高些版本2014自带命令 Reverse 可以对线反向起终点

summervajane

kwok 发表于 2014-12-14 14:10
高些版本2014自带命令 Reverse 可以对线反向起终点

多谢！。我还有个问题，我的加工文件是dxf格式的，有3个图层123，按照123的顺序去加工。但是如果绘图顺序是321，则加工顺序也是321。所以有问题的图纸，每次需要重新画图，调整123的顺序，有没有什么命令可以实现调整顺序？
还有个，圆角批量转换倒角，有命令吗？