有什么好的书籍介绍autocad lisp 编程?
有什么好的书籍介绍autocadlisp编程?请推荐几本,给出书名和作者,最好能给出出版社。非常感谢!!...
有什么好的书籍介绍autocad lisp 编程?请推荐几本,给出书名和作者,最好能给出出版社。非常感谢!!
展开
3个回答
展开全部
;;d1 d2 d3 d4分别为立方体底面四点,u1 u2 u3 u4为顶面对应四点
(defun c:lft( / d1 d2 d3 d4 u1 u2 u3 u4)
(setq os (getvar "osmode"))
(setq cm (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq d1 (list 0 0 0))
(setq d2 (list 1000 0 0))
(setq d3 (list 1000 1000 0))
(setq d4 (list 0 1000 0))
(setq u1 (list 0 0 1000))
(setq u2 (list 1000 0 1000))
(setq u3 (list 1000 1000 1000))
(setq u4 (list 0 1000 1000))
(command "vpoint" "1,-1.5,1")
(command "line" d1 d2 d3 d4 d1 u1 u2 u3 u4 u1 "")
(command "line" d2 u2 "")
(command "line" d3 u3 "")
(command "line" d4 u4 "")
(setvar "osmode" os)
(setvar "cmdecho" cm)
(princ)
)
(defun c:lft( / d1 d2 d3 d4 u1 u2 u3 u4)
(setq os (getvar "osmode"))
(setq cm (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq d1 (list 0 0 0))
(setq d2 (list 1000 0 0))
(setq d3 (list 1000 1000 0))
(setq d4 (list 0 1000 0))
(setq u1 (list 0 0 1000))
(setq u2 (list 1000 0 1000))
(setq u3 (list 1000 1000 1000))
(setq u4 (list 0 1000 1000))
(command "vpoint" "1,-1.5,1")
(command "line" d1 d2 d3 d4 d1 u1 u2 u3 u4 u1 "")
(command "line" d2 u2 "")
(command "line" d3 u3 "")
(command "line" d4 u4 "")
(setvar "osmode" os)
(setvar "cmdecho" cm)
(princ)
)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
AutoLISP在建筑结构设计中的应用
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询