[LISP程序]：画折断线的程序

kmdz · 发表于 2009-1-1 13:45:51

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

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

×

(defun c:zdx()          ;折断线练习
(setq
   p0 (getpoint "\n 第一边点位置：")
   p01 (getpoint "\n 第二边点位置：")
   a0 (angle p0 p01)
   a  (angtof "76")
   h  (distance p0 p01)
   p1 (polar p0 (+ pi a0) 300)
                                       p2 (polar p01 a0 300)
   p02 (polar p0 a0 (/ h 2))
   p3 (polar p02 (+ pi a0) 75)
   p4 (polar p02 a0 75)
   p5 (polar p3 (+ a0 a) 155)
   p6 (polar p4 (+ (+ pi a0) a) 155)
)
(command "pline" p1 p3 p5 p6 p4 p2 "")
)

gysjy · 发表于 2009-1-1 18:10:15

将p01 (getpoint "\n 第二边点位置：")
改为p01 (getpoint "\n 第二边点位置：" p0)，可以看到从p0连出的橡皮条。

kmdz · 发表于 2009-1-2 20:59:09

谢谢指点，才学弄这个，好多东西都不知道。

carrot1983 · 发表于 2009-1-2 22:21:25

最初由 gysjy 发布
[B]将p01 (getpoint "\n 第二边点位置：")
改为p01 (getpoint "\n 第二边点位置：" p0)，可以看到从p0连出的橡皮条。 [/B]

(getpoint [pt] [msg])

p0是加在msg前面。回的太急了？？

beiwenxiao · 发表于 2009-1-5 18:45:37

顶下,不是很清楚怎么弄

gysjy · 发表于 2009-1-6 12:12:16

最初由 carrot1983 发布
[B]

(getpoint [pt] [msg])

p0是加在msg前?.. [/B]

加在前面和后面都是可以的。
(getpoint [pt] [msg])和 (getpoint [msg][pt]) 都可以。

dhtfm · 发表于 2014-3-4 16:24:30

很好用啊，感觉比其它的好用，谢谢楼主。

lff763 · 发表于 2014-10-15 21:59:11

请加上比例，和我绘制的图比例不符

jxjaxa · 发表于 2014-10-20 23:05:33

不太好。。。。。。。。。。。。。。

cq_qg68 · 发表于 2016-11-27 20:40:33

下面的点重合了。

yoyoho · 发表于 2016-11-28 08:04:46

正需要，支持楼主大人了！

sunshinejwt · 发表于 2017-5-13 23:14:44

如果能做成动态的就行了。天正的是在橡皮条中间就显示了折断线的样子，并且拉伸的时候，折断线的位置是跟着动的。

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

[LISP程序]：画折断线的程序

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

相关帖子