按X顺序绘制多段线

folderdash · 发表于 2022-7-5 15:17:17

你好

我需要一个lisp例程，它可以通过按x或y值顺序连接选定的线和顶点来绘制新的多段线。（增加或减少无关紧要）

非常感谢你

BIGAL · 发表于 2022-7-5 15:28:02

可能有帮助的双重排序。

Ps网站有问题吗？


; sorts on 1st two items
(setq lst (vl-sort lst '(lambda (x y)
(cond
((= (cadr x)(cadr y))
(< (car x)(car y)))
((< (cadr x)(cadr y)))
))))

folderdash · 发表于 2022-7-5 15:33:58

我将向命令行写入什么来运行此例程？

PS：是的，网站现在有问题。

BIGAL · 发表于 2022-7-5 15:37:40

你需要发布一些你想要实现的想法。互联网问题使我的水晶球无法工作。

folderdash · 发表于 2022-7-5 15:46:13

我有数百条单独绘制的多段线。我需要在其上绘制新的多段线，但新的多段线需要按X值或（可选Y值）的增减顺序绘制

非常感谢。

BIGAL · 发表于 2022-7-5 15:48:01

仍然在等待一个图像或dwg无法帮助没有这一点。

folderdash · 发表于 2022-7-5 15:55:56

无法显示内容。需要Adobe Flash。
请查看链接中的视频。白色多边形是存在的，我有数百个。洋红色线是我想画的，以x值或有时是y值的顺序。我希望现在一切都清楚了。

非常感谢。

BIGAL · 发表于 2022-7-5 16:01:34

好的，现在可以很容易地使用基于X或Y的点列表进行排序。我的第一篇文章是关于X和Y的排序，稍后会尝试发布一些东西，现在需要做一些工作。

copy


; pline co-ords example
; By Alan H
(defun getcoords (ent)
 (vlax-safearray->list
   (vlax-variant-value
     (vlax-get-property
   obj
   "Coordinates"
     )
   )
 )
)
; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z 
(defun co-ords2xy ()
(setq len (length co-ords))
(if (= (vla-get-objectname obj) "AcDbLwpolyline")
(setq numb (/ len 2)) ; even and odd check required
(setq numb (/ len 2)))
(setq I 0)
(repeat numb
(setq xy (list (nth i co-ords)(nth (+ I 1) co-ords) ))
; odd (setq xy (list (nth i co-ords)(nth (+ I 1) co-ords)(nth (+ I 2) co-ords) ))
(setq co-ordsxy (cons xy co-ordsxy))
(setq I (+ I 2))
)
)
; program starts here
(defun C:ahjoinX ( / co-ordsxy lst)
(setq obj (vlax-ename->vla-object (car (entsel "\nplease pick pline"))))
(setq co-ords (getcoords obj))
(co-ords2xy)
(setq lst (vl-sort co-ordsxy
(function (lambda (e1 e2)
(< (car e1) (car e2)))))
)
(command "_pline")
(while (= (getvar "cmdactive") 1 ) 
(repeat (setq x (length lst))
(command (nth  (setq x (- x 1)) lst))
)
(command "")
)
(princ)
)
(C:ahjoinx)

folderdash · 发表于 2022-7-5 16:06:12

非常感谢。这适用于X值，但我必须每次“appload”lisp才能运行它吗？有运行lisp的命令吗？

BIGAL · 发表于 2022-7-5 16:16:39

代码更改为命令行版本类型ahjoinx，用于下一个，它将在加载时执行第一个操作。只要快速输入旧代码（啊：joinx），它就会重复。

您还提到Y作为选择，这将在排序中使用cadr而不是汽车。

[编程交流] 按X顺序绘制多段线

发表回复

精选推荐