这个问题看起来很简单，但v

motee-z · 发表于 2022-7-6 06:47:43

嗨freinds
可能有人认为这是一个非常简单的问题，但请检查
如果我用这个lisp创建多段线，将ucs移动到3点，ucs的点序列是顺时针的，则生成的多段线不能连接到任何其他点
但如果逆时针选择3点，则生成的多段线可以连接到其他点

(defun c:pc(/)
 (setq st1(getpoint"\n p0"))
 (setq pc(getpoint"\n p(x-direction)"))
 (setq ps(getpoint"\n py(y-direction)"))
 (setq ptlst'((0 0)(4 3)( 20 5)(33.2 10)(40.33 17)))
 (command "ucs" "New" "3p" st1 pc ps )
 (setvar"osmode"0)
(command "__.pline")
(setvar"osmode"0)
 (mapcar 'command ptlst)
 (command)
 (command "ucs" "world" )
)