摘要: 1 ;Lisp实现鼠标拖画 2 (defun c:grr(/ halfLength halfWidth gr code p xx yy p1x p1y p2x p2y p3x p3y p4x p4y ) 3 (setq L(getreal "请输入长度:")) 4 (setq W(getreal " 阅读全文
posted @ 2023-11-16 21:57 大力水手008 阅读(202) 评论(0) 推荐(0)