CAD矩形画叉插件源码
(defun c:tt(/p1 p2 p3 p4) (setq p1 (getpoint "\n充注点:") p3 (getpoint p1 "\n对角点:") p2 (list (car p3) (cadr p1) ) p4 (list (car p1) (cadr p3)) ) (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(70 . 1) '( 90 .5) (cons 10 p1) (cons 10 p2) (cons 10 p3) (cons 10 p4) (cons 10 p1) ) ) (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 2) '(6 . "DASHED") '(62 . 8) ( cons 10 p1) (cons 10 p3) ) ) (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 2) '(6 . "DASHED") '(62 . 8) (缺点 10 p2) (缺点 10 p4) ) ) (princ) )
1. 如有链接无法下载、失效或广告,请联系QQ:3392178029 处理!
2. 本站的所有资源为购买、网络收集,或者用户投稿的资源,版权归原作者及网站所有!
3. 如若侵犯了您的权利,请及时联系站长删除!
4. 本站提供的资源,都不包含技术服务请大家谅解!
5. 此软件“仅限学习交流,不能用于商业用途”!
6. 如用于商业用途,请到官方购买正版软件,追究法律责任与“猿沐软件网”无关!
2. 本站的所有资源为购买、网络收集,或者用户投稿的资源,版权归原作者及网站所有!
3. 如若侵犯了您的权利,请及时联系站长删除!
4. 本站提供的资源,都不包含技术服务请大家谅解!
5. 此软件“仅限学习交流,不能用于商业用途”!
6. 如用于商业用途,请到官方购买正版软件,追究法律责任与“猿沐软件网”无关!
- 老师个人微信
- 微信扫一扫
-
- 设计课堂公众号
- 微信扫一扫
-
评论