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

画正交线

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

**** Hidden Message *****

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
页: [1] 2 3 4
查看完整版本: 画正交线