[求助]：取线段三等分点

szx025 · 发表于 2007-3-20 15:34:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun mid_pt (a b)
(mapcar
'(lambda (a b) (/ (+ a b) 2))
a
b
)
)
.
.
.
(setq pt_mid (mid_pt point1 point11))
这是一个取线段中点的LSP语句.想请教一下,有取线段三等分点的LSP语句吗?

雨箭风刀 · 发表于 2007-3-20 18:33:16

(/ (+ a b) 2) = 中点
(/ (+ a b) 3) = ?
(* 2 (/ (+ a b) 3)) =?
你不是吧? ....小学问题..

szx025 · 发表于 2007-3-20 20:54:35

老大,看清楚问题再发话,我是要求出三等分点,并且把它们分别付值给P1 P2 P3

Underway · 发表于 2007-3-20 21:47:42

那么考虑一下绕道 Divide 如何

雨箭风刀 · 发表于 2007-3-21 01:52:32

(steq d (distance a b)
      an(angle a b)
      p1 (polar a an (*d 0.25))
      p2 (polar a an (* d 0.5))
      p3 (polar a an (* d 0.75))
)
是这个意思么

yly01 · 发表于 2007-3-21 06:30:42

用画法几何的方法将一条线段十三等分，会很快的．

limingqian · 发表于 2007-3-21 06:49:24

直接用等分命令来得更方便一点.

szx025 · 发表于 2007-3-21 08:34:33

(defun C:SZX(/ pt1 pt2 an)
(setq pt1 (getpoint "\n左上角点:"))
(setq pt2 (getpoint pt1 "\n左下角点:"))
(steq d (distance pt1 pt2)
an (angle pt1 pt2)
p1 (polar pt1 an (* d 0.25))
p2 (polar pt1 an (* d 0.5))
p3 (polar pt1 an (* d 0.75))
)
(command "line" pt1 pt2 "")
(command "donut" "0" "80" p1 P2 P3"")
(princ)
)
我的想法是5楼的意思,但按5楼的写出的程序出错,请帮忙看看

zml84 · 发表于 2007-3-21 08:54:24

楼主误将第四行setq写作了steq。
改正后如下：

(defun C:SZX (/ pt1 pt2 an)
(setq pt1 (getpoint "\n左上角点:"))
(setq pt2 (getpoint pt1 "\n左下角点:"))
(setq d
(distance pt1 pt2)
an
(angle pt1 pt2)
p1
(polar pt1 an (* d 0.25))
p2
(polar pt1 an (* d 0.5))
p3
(polar pt1 an (* d 0.75))
)
(command "line" pt1 pt2 "")
(command "donut" "0" "80" p1 P2 P3 "")
(princ)
)

另：在代码结构上还有待改进。
COMMAND函数调用的系统命令最好加上前缀，以确保对原版命令的调用。

(defun C:SZX (/ pt1 pt2 d an)
(if (setq pt1 (getpoint "\n第一点:"))
(if (setq pt2 (getpoint pt1 "第二点:"))
(progn
(setq d
(distance pt1 pt2)
an
(angle pt1 pt2)
p1
(polar pt1 an (* d 0.25))
p2
(polar pt1 an (* d 0.5))
p3
(polar pt1 an (* d 0.75))
)
(command "_line" pt1 pt2 "")
(command "_donut" 0 (/ d 30.) p1 P2 P3 "")
)
)
)
(princ)
)

dwg001 · 发表于 2007-3-21 09:15:01

add:
(setvar "osmode" 0)
setq d (distance pt1 pt2)
...

byghbcaixin · 发表于 2007-3-21 09:23:43

三等分点只能取出现两个点,以上的程序分明是四等分点,也可扩展为取n等分点,包括取曲线的等分点.

szx025 · 发表于 2007-3-21 10:22:51

谢谢9楼的朋友,问题解决,我想把问题在引伸一下,上面的程序是两点连线,能否改进一下,能连续画线,然后在线上布点

zml84 · 发表于 2007-3-21 11:14:09

试一试下面这个：

;;; zml84 于 2007-03-21 11:11
(defun C:test (/ n pt1 pt2 d an old_osmode pti l)
(if (setq n (getint "\n请输入等分数目<3>:"))
()
(setq n 3)
)
(if (setq pt1 (getpoint "\n指定起点:"))
(while (setq pt2 (getpoint pt1 "\n指定下一点:"))
(setq d
(distance pt1 pt2)
an
(angle pt1 pt2)
)
(setq old_osmode (getvar "osmode"))
(setvar "osmode" 0)
(command "_line" pt1 pt2 "")
(if (> n 1)
(progn
(command "_donut" 0 (/ d 30.))
(setq pti pt1
l (/ d n)
)
(repeat (1- n)
(setq pti (polar pti an l))
(command pti)
)
(command "")
)
)
(setvar "osmode" old_osmode)
(setq pt1 pt2)
)
)
(princ)
)

;;; zml84 于 2007-03-21  11:11 
(defun C:test (/ n pt1 pt2 d an old_osmode pti l) 
    (if        (setq n (getint "\n请输入等分数目<3>:")) 
        () 
        (setq n 3) 
    ) 
    (if        (setq pt1 (getpoint "\n指定起点:")) 
        (while (setq pt2 (getpoint pt1 "\n指定下一点:")) 
            (setq d 
                     (distance pt1 pt2) 
                  an 
                     (angle pt1 pt2) 
            ) 
            (setq old_osmode (getvar "osmode")) 
            (setvar "osmode" 0) 
            (command "_line" pt1 pt2 "") 
            (if        (> n 1) 
                (progn 
                    (command "_donut" 0 (/ d 30.)) 
                    (setq pti pt1 
                          l   (/ d n) 
                    ) 
                    (repeat (1- n) 
                        (setq pti (polar pti an l)) 
                        (command pti) 
                    ) 
                    (command "") 
                ) 
            ) 
            (setvar "osmode" old_osmode) 
            (setq pt1 pt2) 
        ) 
    ) 
    (princ) 
)

and2008 · 发表于 2007-3-23 00:10:48

用分割吧，OK?

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：取线段三等分点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子