求一个lisp程序实，现对调多段线起点和终点
我用的DXF加工图纸，一组多段线，竖直方向的。起点在上端和下端，加工出来效果会不一样。求大神写个程序，可以把起点统一放在下端或者上端！
~~ entget 获取祖玛表 然后对调一下. 鱼与熊掌 发表于 2014-12-13 15:19 static/image/common/back.gif
~~ entget 获取祖玛表 然后对调一下.
能帮忙写下代码吗？不会lisp编程啊
summervajane 发表于 2014-12-13 17:15 static/image/common/back.gif
能帮忙写下代码吗？不会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))))
)
高些版本2014自带命令 Reverse 可以对线反向起终点 本帖最后由 summervajane 于 2014-12-14 16:41 编辑
kwok 发表于 2014-12-14 14:10 static/image/common/back.gif
高些版本2014自带命令 Reverse 可以对线反向起终点
多谢！。我还有个问题，我的加工文件是dxf格式的，有3个图层123，按照123的顺序去加工。但是如果绘图顺序是321，则加工顺序也是321。所以有问题的图纸，每次需要重新画图，调整123的顺序，有没有什么命令可以实现调整顺序？
还有个，圆角批量转换倒角，有命令吗？
页:
[1]