cad数门窗的lisp_一个画中空玻璃的源码同时求加个功能 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
我有加了几根线,怎么运行不下去了,怎么要改?
(defun c:blhy ()
(command "undo" "group")
(setvar "osmode" 255)
(setvar "cmdecho" 0)
(setq p1 (getpoint "\n输入6+12+6中空玻璃及隐框横梁第一点:"))
(while
(setq p2 (getpoint p1 "\n输入6+12+6中空玻璃及隐框横梁下一点:")) ang (angle p1 p2) p2 (polar p2 (+ pi ang) 80))
(setvar "osmode" 0)
(command "line" p1 p2 "")
(setq ang (angle p1 p2))
(setq ang1 (+ ang (* pi 0.5)))
(setq ec (entlast))
(command "change" ec "" "p" "c" 2 "")
(command "line" (polar p1 ang1 24) (polar p2 ang1 24) "")
(setq ec1 (entlast))
(command "change" ec1 "" "p" "c" 2 "")
(command "line" (polar p1 ang1 1) (polar p2 ang1 1) "")
(setq ec2 (entlast))
(command "change" ec2 "" "p" "c" 8 "")
(command "line" (polar p1 ang1 5) (polar p2 ang1 5) "")
(setq ec4 (entlast))
(command "change" ec4 "" "p" "c" 8 "")
(command "line" (polar p1 ang1 6) (polar p2 ang1 6) "")
(setq ec5 (entlast))
(command "change" ec5 "" "p" "c" 2 "")
(command "line" (polar p1 ang1 18) (polar p2 ang1 18) "")
(setq ec6 (entlast))
(command "change" ec6 "" "p" "c" 2 "")
(command "line" (polar p1 ang1 19) (polar p2 ang1 19) "")
(setq ec7 (entlast))
(command "change" ec7 "" "p" "c" 8 "")
(command "line" (polar p1 ang1 139) (polar p2 ang1 139) "")
(setq ec8 (entlast))
(command "change" ec8 "" "p" "c" 8 "ltype" "DASHED2""")
(command "line" (polar p1 ang1 142) (polar p2 ang1 142) "")
(setq ec9 (entlast))
(command "change" ec9 "" "p" "c" 2 "")
(command "line" (polar p1 ang1 52) (polar p2 ang1 52) "")
(setq ec10 (entlast))
(command "change" ec10 "" "p" "c" 2 "")
(command "line" (polar p1 ang1 55) (polar p2 ang1 55) "")
(setq ec3 (entlast))
(command "change" ec3 "" "p" "c" 8 "ltype" "DASHED2" "")
(command "line" (polar p1 ang1 23) (polar p2 ang1 23) "")
(setq ec3 (entlast))
(command "change" ec3 "" "p" "c" 8 "")
(command "INSERT" "C:\Program Files\AutoCAD 2012 - Simplified Chinese\Support\dwg\\隐框立柱a.dwg" (polar p2 ang 80) "" "" (polar p2 ang 200))
(setq p1 (polar p2 ang 160))
(setvar "osmode" 255)
(command "undo" "end")
)
(princ) ;静默退出
)
cad数门窗的lisp_一个画中空玻璃的源码同时求加个功能 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐
- cad引出线段lisp_给定起终点,如何提取线段连线关系表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
(defun c:tt (/ l i s p e r a d o ) (setq r 2.0 ) : 设定字体比列参数 1:2 (if (and (setq e (car (entsel " ...
- 方孔分段的lisp_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 自贡黄明儒 于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
- 偏移变色lisp_直线偏移联动 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 masterlong 于 2018-11-4 15:08 编辑 ;| 类似于edata发布的程序"直线偏移连动~偏移后修改与其相接触的直线" 和他不同的是 edata的 ...
- lisp调用qleader端点_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 自贡黄明儒 于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
- 特别行政区界线lisp_CAD 系统变量参数大全 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 1291500406 于 2019-1-29 20:52 编辑 CAD 系统变量参数大全 一.数学运算功能函数 1.1(十 数值 数值-)返回:累计实数或整数数值 1.2(一 数值 数 ...
- fas怎么翻译成lisp_fas文件格式研究 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 baitang36 于 2018-11-2 09:08 编辑 先看一个小程序 gys.lsp ;改任何实体的颜色 (c)SYZ 1995.3.18 (defun c:gys () (set ...
- lisp文字上标源码_创建文本/标注样式源码 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 zhengxiansz 于 2014-4-27 11:27 编辑 GU_xl你好! 请帮我看一下这个创建文本/标注样式源码.第一次输入IT1命令时没有报错的提示.如果重复输入IT1命令时就 ...
- lisp绘制棱锥_动态绘制示坡线 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 20060510412 于 2018-11-4 22:11 编辑 [code="lisp] ;; ;;动态示坡线 by 明经通道 QQ9034598 小蜜蜂 2013- ...
- lisp 相贯线展开_一个画两管相接相贯线的程序 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
下面的程序也可以画管子的相贯线,输入的参数D为大管直径,d为小管直径(可以等于D),B为两管的夹角,插入点为小管中心线与大管外壁的交点.该程序在R14上调试通过. (DEFUN C:XGX () (S ...
最新文章
- 【渗透】node.js经典问题
- impdp的一些实际问题解决方法
- [蓝桥杯]算法提高 vertex cover(dfs)
- 科大讯飞 ai算法挑战赛_为井字游戏挑战构建AI算法
- mysql中的comment用法
- python 大括号中括号小括号的区分
- MATLAB学习(4)——min
- 微信小程序中相机api_微信小程序 Image API实例详解
- Java明星HD_javaHDvideo
- 奥克兰计算机科学专业世界排名,2019QS世界大学学科排名出炉,新西兰最强专业看过来!...
- panabit环境搭建
- 傅立叶变换的实现—MATLAB(纯代码)
- 锁升级过程(偏向锁/轻量级锁/重量级锁)
- 军队文职(数学2+物理)——高等数学 3、求极限(一)
- Kettle连接MySQL数据库找不到驱动问题解决
- error怎么开机 fan_cpu fan error怎么解决?电脑开机提示CPU FAN ERROR的解决方法
- 如何在Outlook中创建自定义导航窗格
- UglifyJS 新一代的Javascript压缩工具
- word简历里如何添加新的一页
- word打印为pdf去掉批注和修订记录