纯瞎折腾--直线命令

start4444 · 发表于 2020-10-20 10:40

(defun c:tt5 (/ *error* loop pt1 pt2 ptlst);;直线命令
(defun *error* (msg)(grtext 1 "*取消*"))
(setq pt1 (getpoint "\n指定第一点:") ptlst (cons pt1 ptlst) loop t)
(while loop
(initget "U C")
(setq pt2 (getpoint (if (< 2 (length ptlst)) "\n指定下一点或 [闭合(C)/放弃(U)]:" "\n指定下一点或 [放弃(U)]:") pt1))
(cond ((= pt2 "U") (if (= 1 (length ptlst)) (setq loop nil) (progn (entdel (entlast)) (setq pt1 (car ptlst) ptlst (cdr ptlst)))));放弃
      ((= pt2 "C")  (if (< 2 (length ptlst)) (progn (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 (last ptlst)))) (setq loop nil)) (princ "\n需要点或选项关键字。")));闭合
      ((= (type pt2) 'LIST)  (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2))) (setq ptlst (cons pt1 ptlst) pt1 pt2 ));画线
      ((setq loop nil))
);cond
);while
(if (= pt2 "U") (progn (princ "\n已经放弃所有线段。") (c:tt5)))
(princ)
)

bai2000 · 发表于 2020-10-20 11:01

能不能右击鼠标连续后退？

start4444 · 发表于 2020-10-20 12:16

本帖最后由 start4444 于 2020-10-20 12:18 编辑

bai2000 发表于 2020-10-20 11:01
能不能右击鼠标连续后退？

cond 里面4个选项，1是U ，2是C，3是选点画线，4是其他，包含了鼠标右键，你把4选项改为u的那个项就行了，自己折腾吧

xvjiex · 发表于 2020-10-20 13:27

仿造pline命令，有创意！！！

cghdy · 发表于 2020-10-22 09:35

怎么感觉和line命令没啥区别

czb203 · 发表于 2020-10-25 09:45

仿造pline命令，有创意！！！

wang_cn10 · 发表于 2020-10-25 17:27

这跟line命令有什么区别？

wwy810327 · 发表于 2020-11-10 16:28

感觉更像pline

散装牛奶 · 发表于 2022-3-30 08:49

请问能不能加入标注功能？就是每画一条线都自动标长度。

liuhe · 发表于 2022-8-31 10:59

楼主写的很有意思，

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

[源码] 纯瞎折腾--直线命令

评分

评分