用CAD二次开发 lisp 画出题目中的图形 求帮助!!!!急用 10
求好心人帮忙！！！！！！本人这方面知识浅薄实在编不出来（求大神用CADLISP将图画出来，M和L是变量...
求好心人帮忙！！！！！！本人这方面知识浅薄 实在编不出来 （求大神用CAD LISP将图画出来， M 和 L是变量
展开
2014-06-21 · 知道合伙人互联网行家
zxg_zyr
知道合伙人互联网行家
采纳数：1368
获赞数：7047
1982年1月毕业于北京钢铁学院，金属压力加工学士学位，长期从事CAD设计工作至今，能应用Autolisp语言编程。
向TA提问 私信TA
关注
![]()
展开全部
A点的坐标是（7，3.25）吗？如果是的，则有下列程序插件命令“ht”。
(defun c:ht (/ om m l pt1 pt2 pt3 pt4 pt5 pt6)
(setq om (getvar "osmode"))
(setvar "osmode" 0)
(setq m (getreal "\n请输入M的长度<1.0>："))
(setq l (getreal "\n请输入L的长度<3.0>："))
(if (= m nil) (setq m 1.0))
(if (= l nil) (setq l 3.0))
(setq pt1 (list 7 3.25))
(setq pt2 (polar pt1 (* (/ 270 180.) pi) m))
(setq pt3 (polar pt2 0 0.5))
(setq pt4 (polar pt3 (* (/ 90 180.) pi) 0.5))
(setq pt5 (polar pt4 0 (- l 0.5)))
(setq pt6 (polar pt5 (* (/ 90 180.) pi) (- m 0.5)))
(command "line" pt1 pt2 pt3 pt4 pt5 pt6 "c")
(setvar "osmode" om)
(prin1)
)
(defun c:ht (/ om m l pt1 pt2 pt3 pt4 pt5 pt6)
(setq om (getvar "osmode"))
(setvar "osmode" 0)
(setq m (getreal "\n请输入M的长度<1.0>："))
(setq l (getreal "\n请输入L的长度<3.0>："))
(if (= m nil) (setq m 1.0))
(if (= l nil) (setq l 3.0))
(setq pt1 (list 7 3.25))
(setq pt2 (polar pt1 (* (/ 270 180.) pi) m))
(setq pt3 (polar pt2 0 0.5))
(setq pt4 (polar pt3 (* (/ 90 180.) pi) 0.5))
(setq pt5 (polar pt4 0 (- l 0.5)))
(setq pt6 (polar pt5 (* (/ 90 180.) pi) (- m 0.5)))
(command "line" pt1 pt2 pt3 pt4 pt5 pt6 "c")
(setvar "osmode" om)
(prin1)
)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
