lisp提取长方形坐标_lisp顺序获得矩形四个点的坐标分别赋值给s1—s4

最新推荐文章于 2023-03-16 12:07:50 发布

啦力的拉力

最新推荐文章于 2023-03-16 12:07:50 发布

阅读量978

点赞数

CC 4.0 BY-SA版权

文章标签： lisp提取长方形坐标

本文链接：https://blog.youkuaiyun.com/weixin_35681614/article/details/112997044

该博客内容涉及开发一个AutoCAD插件，用于自动批量标注矩形，包括规则矩形的长宽标注，以及切角矩形的角度和长度标注。当遇到三角形时，插件将标注其三边长度和角度。讨论了实现批量标注的算法，旨在提高工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

追问 : 您的这个，只能是提取四个坐标啊，收到这个矩形的限制啊，您能给按照这个图给的顺序筛选一下这四个坐标不，不论怎么画的，只要我提取都是得到这个顺序的四个坐标

追答 : (defun c:tt (/ EN LST SEL)(setq sel (entsel "\n选择四边形:")en (entget (car sel))) (setq Lst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en))) (setq Lst (vl-sort Lst '(lambda (x1 x2) (setq p1 (car x1) p3 (cadr x1)) (setq p2 (car x2) p4 (cadr x2)) (if (equal p1 p2 0.001) (> p3 p4) (< p1 p2)) ) )) ;;下面几个写入文字，是对得到点测试的 (entmake (list '(0 . "TEXT") (cons 10 (nth 0 Lst)) (cons 1 "s1") (cons 40 5))) (entmake (list '(0 . "TEXT") (cons 10 (nth 1 Lst)) (cons 1 "s2") (cons 40 5))) (entmake (list '(0 . "TEXT") (cons 10 (nth 2 Lst)) (cons 1 "s3") (cons 40 5))) (entmake (list '(0 . "TEXT") (cons 10 (nth 3 Lst)) (cons 1 "s4") (cons 40 5)))(princ))

追问 : 我是想做一个矩形自动批量标注的插件，矩形切角，或者就是规则矩形，

追问 : 如果矩形切角就角度标注锐角，最大长度和切角的长度，如果是三角形就标注三边和角度

追问 : 要是能批量标注最佳，谢谢了啊

追问 : 规则矩形就标注个长宽就行