新手求助帮写个LSP

linwei0608 · 发表于 2014-12-3 16:17:44

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

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

×

画一条线，但有一个断点，断点=从起点+用户输入距离，

牢固 · 发表于 2014-12-3 16:53:07

(if (and
   (setq p1 (getpoint "\n起点:"))
(setq p2 (getpoint "\n终点:"))
   )
  (progn
(setq ang (angle p1 p2))
(command "line" "non" p1 "non" (polar p1 ang 0.6) "non" p2 "")
)
  )

st788796 · 发表于 2014-12-3 17:00:43

用xd::doc:getdist

linwei0608 · 发表于 2014-12-3 17:04:53

牢固发表于 2014-12-3 16:53
(if (and
(setq p1 (getpoint "\n起点:"))
(setq p2 (getpoint "\n终点:"))

谢谢大神，可以再加个，把这线串连起来吗？

st788796 · 发表于 2014-12-3 17:27:54

linwei0608 发表于 2014-12-3 17:04
谢谢大神，可以再加个，把这线串连起来吗？

不知道你用的版本，有一个命令 length 可以完成你的要求，不用连接

kwok · 发表于 2014-12-3 17:30:33

linwei0608 发表于 2014-12-3 17:04
谢谢大神，可以再加个，把这线串连起来吗？

(command "pline" "non" p1 "non" (polar p1 ang 0.6) "non" p2 "")

linwei0608 · 发表于 2014-12-3 17:56:06

kwok 发表于 2014-12-3 17:30
(command "pline" "non" p1 "non" (polar p1 ang 0.6) "non" p2 "")

谢谢大家，都很赞，

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

[求助] 新手求助帮写个LSP

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

相关帖子

点评

点评

点评