画正交线

Lispboy · 发表于 2016-6-12 11:35:59

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

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

×

1、可以中间任意回退
2、关键字一键回车
3、随当前颜色设置4、接受键盘输入距离
5、最后生成的多段线清理重叠段

游客，如果您要查看本帖隐藏内容请回复

newer · 发表于 2016-6-12 11:46:22

描图时候方便了，建议最后封闭那下，保持和起点也正交就漂亮了。

liuyj · 发表于 2016-6-12 12:09:12

以前忘了从哪收集的，功能虽然简单但是效果也还不错。
(defun c:lr (/ p1 p2 lst setucs)
  (defun err-new (msg)
(command "._redraw")
(princ msg)
(ended)
  )
  (defun ended (/ tmp)
(setq *error* err-old)
(if setucs
   (command "_.ucs" "p")
)
  )
  (setq err-old *error*)
  (setq *error* err-new)
  (setvar "ORTHOMODE" 0)
  (if (setq p1 (getpoint "\n指定第一点:"))
(if (and p1 (setq p2 (getpoint p1 "\n指定下一点:")))
   (progn
(setq p1 (trans p1 1 0))
(setq p2 (trans p2 1 0))
(entmake (list (cons 0 "LINE") (cons 10 P1) (cons 11 P2)))
(command "_.ucs" "ob" (entlast))
(setq setucs t)
(entdel (entlast))
(setvar "ORTHOMODE" 1)
(command "_.pline" (trans p1 0 1) (trans p2 0 1))
(while (= (getvar "cmdnames") "PLINE")
   (command pause)
)
(command)
   )
)
  )
  (ended)
)

8714454 · 发表于 2016-6-12 13:45:28

谢谢分享:lol

Lispboy · 发表于 2016-6-12 14:03:47

newer 发表于 2016-6-12 11:46
描图时候方便了，建议最后封闭那下，保持和起点也正交就漂亮了。

建议很好，修改了代码，结尾按C结束的时候自动和起点正交了，下载过的朋友重新下载吧。

lengliqun · 发表于 2016-6-15 09:15:51

描图时候方便了

zhang000111 · 发表于 2016-6-19 19:07:47

不错的东西，描图神器。

dbx5511 · 发表于 2016-7-12 15:24:21

谢谢分享！

rune15 · 发表于 2016-8-8 12:20:00

不错的东西，描图神器。

墙角哥 · 发表于 2016-8-9 23:47:59

谢谢分享！

sen8337 · 发表于 2016-8-29 14:04:34

要的是方便操作！

675014054 · 发表于 2016-9-1 14:27:39

ganxiefenxiang

lizhaoyang0306 · 发表于 2016-9-6 10:56:51

haodongxui 学习一下

yoyoho · 发表于 2016-11-10 15:07:18

谢谢分享！

六月_F06G6 · 发表于 2017-6-25 10:13:24

11111111111111111111111

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

[曲线] 画正交线

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

点评

评分