维维卡123
维维卡123
关注数: 7
粉丝数: 20
发帖数: 1,140
关注贴吧数: 14
“入伙”成功 十八线小县城,苦逼打工人,对比了好久,年底终于入手舒适版,开开心心回家过年,现在开了1000公里,说说感受吧:由于是新手第一辆车,对驾驶品质、车辆品牌等没有对比性和感觉,就一个字:舒服,外观:自己喜欢,动力:够用,超车有点吃力,噪音:急加速发动机有点,目前没发现油箱异响等问题,存在问题:车机智障:iphone上车蓝牙连接随缘,通话后音乐会断,自带酷我要钱……说说价格吧:腊月二十八提车,白色➕五年双保,送了些不值钱的“精品”,全款落地18.0465万元
2019届6班杨世城 你的学生证,卡掉在云锡技校操场上了,被我放在跑道靠东边的坎上,请看到此消息的老师同学转告……
自改小程序,提示错误,运行另一个lisp后就不会出错,求帮忙! ;;主程序 (defun c:qxys( / r an ps pe pc dis1) (setvar "cmdecho" 0) (command "layer" "m" "曲线要素" "c" 1 "" "") (command "style" "样式1" "simplex,hztxt" "0" ".7" "0" "n" "n" "n") (command "units" 2 3 2 4 "" "") (command "graphscr") (if (setq ent (car (entsel "\n请选择圆弧:"))) (if (= (cdr (assoc 0 (setq db (entget ent)))) "ARC") (progn (setq pc (cdr (assoc 10 db)) ;圆心 r (cdr (assoc 40 db)) ;半径 a0 (cdr (assoc 50 db)) a1 (cdr (assoc 51 db)) ps (polar pc a0 r);起点 pe (polar pc a1 r);止点 pd (mapcar '* '(0.5 0.5) (mapcar '+ ps pe)) pm (polar pc (angle pc pd) r);中点 an (- a1 a0) ;圆心角 hc (abs (* r an));弧长 ) ;end setq ;;;判断是角度 坐标系 (if (< an 0) (setq an (+ an (* 2.0 pi)))) (if (not (equal '(0 0 0) (setq org (getvar "ucsorg")))) (setq pc (mapcar '- pc org) ps (mapcar '- ps org) pe (mapcar '- pe org) m (mapcar '- pm org) );end setq ) ;end if ;求出切线长 (setq t1 (* (/ (sin (/ an 2)) (cos (/ an 2))) r)) ;;弧度转换为度 ;;度转换为度分秒 (setq a6 (fix (/ (* an 180) 3.1415926)));;;;;;;度 (setq a7 (fix (* (- a5 a6) 60)));;;;;;;;分 (setq a8 (fix (* (- (* (- a5 a6) 60) a7) 60)));;;;;;;;秒 (command "osnap" "off") ;(setq dis1 (getint "\n已选择圆弧,标注文字高度:默认:<" "3.0" ">")) ;(if (equal dis1 nil);默认为3.0 ;(setq dis1 3) ;) (setq dis1 3 ) (setq dis2 (* dis1 8)) (setq dis3 (* dis1 8)) (setq d1 (list (+ (car pc) dis2) (+ (cadr pc) dis3))) (command "rectang" pc d1 ) (command "line" ps pc "") (command "line" pc pe "") (setq f1 (list (+ (car pc) 1) (+ (cadr pc) 1))) (setq f2 (list (car f1) (+ (cadr f1) (* dis1 2)))) (setq f3 (list (car f2) (+ (cadr f2) (* dis1 2)))) (setq f4 (list (car f3) (+ (cadr f3) (* dis1 2)))) (command "text" f4 dis1 "0" (strcat "R=" (rtos r 2 3) "m")) (command "text" f3 dis1 "0" (strcat "a=" (rtos a6 2 0) "%%d" (rtos a7 2 0) "\U+2032" (rtos a8 2 0) "\U+2033")) (command "text" f2 dis1 "0" (strcat "T=" (rtos t1 2 3) "m")) (command "text" f1 dis1 "0" (strcat "L=" (rtos hc 2 3) "m")) ) ;end progn (alert "所选取的不是圆弧!") );end "ARC") ) ;end if (setvar "osmode" 16383);打开对象捕捉 (command "LAYER" "s" "0" "");返回0层 (princ ) ) 运行后提示:错误: 参数类型错误: numberp: nil 但是如果运行网友的另一个以后就能正常用了: 网友的: (VL-Load-Com) (SetQ **SysVarNL** '("AUNITS" "AUPREC" "ATTDIA" "BLIPMODE" "CECOLOR" "CELTYPE" "CLAYER" "CMDECHO" "EXPERT" "HIGHLIGHT" "LUNITS" "LUPREC" "OSMODE" "ORTHOMODE" "TEXTSTYLE" "PLINEWID" ) ) (Defun-Q SetIErr (/ sv) (If (= 'LIST (Type *error*)) (Alert "注意:最后一个(SetIErr)函数没有配对的(ReErr)!") (Progn (SetQ **svarl** '()) (ForEach sv **SysVarNL** (SetQ **svarl** (Cons (GetVar sv) **svarl**)) ) (ForEach sv '("ATTDIA" "BLIPMODE" "CMDECHO" "HIGHLIGHT" "OSMODE" "ORTHOMODE" ) (SetVar sv 0) ) (SetVar "EXPERT" 5) (Defun-Q *error* (st) (ReErr)) ) ) ) (Defun-Q ReErr () (If (= 'List (Type *error*)) (Progn (MapCar 'SetVar **SysVarNL** (Reverse **svarl**)) (SetQ *error* nil) (PrinC) ) (Alert "注意:没有对应引用 (SetIErr)!") ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;主程序 (defun C:qxjs() (setierr) (vl-load-com) (setq acadobject(vlax-get-acad-object) acaddocument(vla-get-activedocument acadobject) mspace1(vla-get-modelspace acaddocument) mspace2(vla-get-modelspace acaddocument)) (command "layer" "m" "曲线要素" "c" 1 "" "") (command "style" "standard" "txt,hztxt" "0" ".8" "0" "n" "n" "n") (command "units" 2 3 2 4 "" "") (command "graphscr") (ysjs);;;;;;;;调用要素计算函数(YSJS) (princ) (reerr) (princ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;要素计算 (defun ysjs () (princ "\n※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※") (princ "\n※※※※※※※※※※※欢迎使用本程序,Thank You!※※※※※※※※※※※※") (princ "\n※※※曲线要素计算程序 V1.0 版本 作者:谢亮 2003年10月15日 于娄底。※※※") (princ "\n※※※※※※※※※※※※※※※※※说明※※※※※※※※※※※※※※※※※") (princ "\n※※※※※※本程序的功能是:通过分别选取两条直线上的每两个点,※※※※※※") (princ "\n※※※※※※及输入的半径把曲线要素标注出来,并画弧。※※※※※※※※※※") (princ "\n※※※※※※注意:如果两直线共线则程序退出!※※※※※※※※※※※※※※※") (princ "\n※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※") ;;;;;;;;;;;;;;;;;;;计算方角 (command "osmode" 16383) ;;;;;;;;;;;;;选择直线上的点以计算方位角 (setq a10 (getpoint"\n请选择一直线上一点:")) ;;;;;;;出错循环 (while (= nil a10) (setq a10 (getpoint"\n请重新选择直线上一点:"))) (setq a11 (getpoint"\n请选择直线上另一点:")) ;;;;;;;出错循环 (while (or (= nil a11) (= a11 a10)) (setq a11 (getpoint"\n请重新选择直线上另一点:"))) (setq a20 (getpoint"\n请选择另一直线上一点:")) ;;;;;;;出错循环 (while (or (= nil a20) (= a20 a11) (= a20 a10)) (setq a20 (getpoint"\n请重新选择另一直线上一点:"))) (setq a21 (getpoint"\n请选择直线上另一点:")) ;;;;;;;出错循环 (while (or (= nil a21) (= a21 a11) (= a21 a10) (= a21 a20)) (setq a21 (getpoint"\n请重新选择直线上另一点:"))) ;;;;;;;得到选中点(a10与a11、a20与a21)的X、Y坐标及增量 (setq a10x (car a10)) (setq a10y (cadr a10)) (setq a11x (car a11)) (setq a11y (cadr a11)) (setq a20x (car a20)) (setq a20y (cadr a20)) (setq a21x (car a21)) (setq a21y (cadr a21)) (setq da1y (- a11y a10y)) (setq da1x (- a11x a10x)) (setq da2x (- a21x a20x)) (setq da2y (- a21y a20y)) ;;;;;;;;;;;判断除数是否为零(方位角是否为:0、90、180、270、360度) (if (= da1x 0) (setq da1x (+ da1x 0.000000000000001))) (if (= da1y 0) (setq da1y (+ da1y 0.000000000000001))) (if (= da2x 0) (setq da2x (+ da2x 0.000000000000001))) (if (= da2y 0) (setq da2y (+ da2y 0.000000000000001))) ;;;;;;;;判断方位角象限(一、二、三、四) ;;;;;;;;;判断直线一 ;;;;;;;;;一象限 (if (and (> da1x 0) (> da1y 0)) (setq a1 (atan (/ da1y da1x)))) ;;;;;;;;;二象限 (if (and (< da1x 0) (> da1y 0)) (setq a1 (+ 3.1415926 (atan (/ da1y da1x))))) ;;;;;;;;;三象限 (if (and (< da1x 0) (< da1y 0)) (setq a1 (+ 3.1415926 (atan (/ da1y da1x))))) ;;;;;;;;;四象限 (if (and (> da1x 0) (< da1y 0)) (setq a1 (+ (* 2 3.1415926) (atan (/ da1y da1x))))) ;;;;;;;;;判断直线二 ;;;;;;;;;一象限 (if (and (> da2x 0) (> da2y 0)) (setq a2 (atan (/ da2y da2x)))) ;;;;;;;;;二象限 (if (and (< da2x 0) (> da2y 0)) (setq a2 (+ 3.1415926 (atan (/ da2y da2x))))) ;;;;;;;;;三象限 (if (and (< da2x 0) (< da2y 0)) (setq a2 (+ 3.1415926 (atan (/ da2y da2x))))) ;;;;;;;;;四象限 (if (and (> da2x 0) (< da2y 0)) (setq a2 (+ (* 2 3.1415926) (atan (/ da2y da2x))))) ;;;;;;;;;;;;;;;;;;判断a1(直线一)、a2(直线二)的方位角(逆时针)、(顺时针)是否大于一个圆周(360度) ;;;;;;;;;;;;;;;判断a1(直线一)的方位角(逆时针)是否大于一个圆周(360度) (if (> a1 (* 2 3.1415926)) (setq a1 (- a1 (* 2 3.1415926)))) ;;;;;;;;;;;;;;;判断a1(直线一)的方位角(顺时针)是否大于一个圆周(360度) (if (< a1 (* -2 3.1415926)) (setq a1 (+ a1 (* 2 3.1415926)))) ;;;;;;;;;;;;;;;判断a2(直线二)的方位角(逆时针)是否大于一个圆周(360度) (if (> a2 (* 2 3.1415926)) (setq a2 (- a2 (* 2 3.1415926)))) ;;;;;;;;;;;;;;;判断a2(直线二)的方位角(顺时针)是否大于一个圆周(360度) (if (< a2 (* -2 3.1415926)) (setq a2 (+ a2 (* 2 3.1415926)))) ;;;;;;;;;;;求点 (setq u1 (sin a1)) (setq u2 (cos a1)) (setq u3 (/ u1 u2)) ;;;;;;;;;;(直线2斜率 (setq w1 (sin a2)) (setq w2 (cos a2)) (setq w3 (/ w1 w2)) ;;;;;;;;判断斜率是否等 (setq k1 (- w3 u3)) (if (= 0 k1) (setq k1 (+ k1 0.000000000000001))) ;;;;;;;;;求交点 (setq jd1x (/ (+ (* -1 u3 a10x) (* w3 a20x) (* -1 a20y) a10y) k1));;;;;交点X坐标 (setq jd1y (+ a10y (* u3 jd1x) (* -1 u3 a10x)));;;;;;;;交点Y坐标 ;;;;;;;;;求出1与交点方位角,交点与4方位角 (setq da10xjd1x (- jd1x a10x)) (setq da10yjd1y (- jd1y a10y)) (setq djd1xa21x (- a21x jd1x)) (setq djd1ya21y (- a21y jd1y)) ;;;;;;;;;;;判断除数是否为零(方位角是否为:0、90、180、270、360度) (if (= da10xjd1x 0) (setq da10xjd1x (+ da10xjd1x 0.000000000000001))) (if (= da10yjd1y 0) (setq da10yjd1y (+ da10yjd1y 0.000000000000001))) (if (= djd1xa21x 0) (setq djd1xa21x (+ djd1xa21x 0.000000000000001))) (if (= djd1ya21y 0) (setq djd1ya21y (+ djd1ya21y 0.000000000000001))) ;;;;;;;;判断方位角象限(一、二、三、四) ;;;;;;;;;判断直线一 ;;;;;;;;;一象限 (if (and (> da10xjd1x 0) (> da10yjd1y 0)) (setq a1j (atan (/ da10yjd1y da10xjd1x)))) ;;;;;;;;;二象限 (if (and (< da10xjd1x 0) (> da10yjd1y 0)) (setq a1j (+ 3.1415926 (atan (/ da10yjd1y da10xjd1x))))) ;;;;;;;;;三象限 (if (and (< da10xjd1x 0) (< da10yjd1y 0)) (setq a1j (+ 3.1415926 (atan (/ da10yjd1y da10xjd1x))))) ;;;;;;;;;四象限 (if (and (> da10xjd1x 0) (< da10yjd1y 0)) (setq a1j (+ (* 2 3.1415926) (atan (/ da10yjd1y da10xjd1x))))) ;;;;;;;;;判断直线二 ;;;;;;;;;一象限 (if (and (> djd1xa21x 0) (> djd1ya21y 0)) (setq a2j (atan (/ djd1ya21y djd1xa21x)))) ;;;;;;;;;二象限 (if (and (< djd1xa21x 0) (> djd1ya21y 0)) (setq a2j (+ 3.1415926 (atan (/ djd1ya21y djd1xa21x))))) ;;;;;;;;;三象限 (if (and (< djd1xa21x 0) (< djd1ya21y 0)) (setq a2j (+ 3.1415926 (atan (/ djd1ya21y djd1xa21x))))) ;;;;;;;;;四象限 (if (and (> djd1xa21x 0) (< djd1ya21y 0)) (setq a2j (+ (* 2 3.1415926) (atan (/ djd1ya21y djd1xa21x))))) ;;;;;;;;;;;;;;;;;;判断a1(直线一)、a2(直线二)的方位角(逆时针)、(顺时针)是否大于一个圆周(360度) ;;;;;;;;;;;;;;;判断a1(直线一)的方位角(逆时针)是否大于一个圆周(360度) (if (> a1j (* 2 3.1415926)) (setq a1j (- a1j (* 2 3.1415926)))) ;;;;;;;;;;;;;;;判断a1(直线一)的方位角(顺时针)是否大于一个圆周(360度) (if (< a1j (* -2 3.1415926)) (setq a1j (+ a1j (* 2 3.1415926)))) ;;;;;;;;;;;;;;;判断a2(直线二)的方位角(逆时针)是否大于一个圆周(360度) (if (> a2j (* 2 3.1415926)) (setq a2j (- a2j (* 2 3.1415926)))) ;;;;;;;;;;;;;;;判断a2(直线二)的方位角(顺时针)是否大于一个圆周(360度) (if (< a2j (* -2 3.1415926)) (setq a2j (+ a2j (* 2 3.1415926)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;求出(直线一)与(直线二)偏角 (setq a31 (abs (- a1j a2j))) (if (= "3.14159" a31) (quit)) (setq a3 a31) ;;;;;;;;;;;;;;;判断偏角是否大于180度 (if (> a3 3.1415926) (setq a3 (- (* 2 3.1415926) a3))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;半偏角、半圆角 (setq a4 (/ a3 2)) ;;;;;;;;;;;;;输入半径 (setq r1 (getreal "\n圆角半径:")) ;;;;;;;半径数值出错循环 (while (= nil r1) (setq r1 (getreal "\n圆角半径:"))) ;;;;;;;;求出切线长 (setq n1 (sin a4)) (setq n2 (cos a4)) (setq n3 (/ n1 n2)) (setq t1 (* n3 r1)) ;;;;;;;;;求出外距长 (setq e1(- (/ r1 n2) r1)) ;;;;;;;;;求出曲线长 (setq m1 (* a3 180)) (setq m2 (/ m1 3.1415926)) (setq m3 (/ m2 360)) (setq m4 (* 2 3.1415926 r1)) (setq l1 (* m3 m4)) ;;;;;;;;;角度转换 ;;;;;;;;弧度转换为度 (setq a5 (/ (* a3 180) 3.1415926)) ;;;;;;;;度转换为度分秒 (setq a6 (fix a5));;;;;;;度 (setq a7 (fix (* (- a5 a6) 60)));;;;;;;;分 (setq a8 (fix (* (- (* (- a5 a6) 60) a7) 60)));;;;;;;;秒 (hjx);;;;;;;;调用画矩形函数(HJX) (princ)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;画矩形 (defun hjx() (command "osnap" "off") (setq d0 (getpoint "\n标注基点:"));;;;;;;;;;;标注基点 (while (= nil d0) (setq d0 (getpoint "\n标注基点:"))) (setq d1 (list (+ (car d0) 23) (+ (cadr d0) 25))) (command "rectang" d0 d1 ) (bzwz);;;;;;;;调用标注文字函数(BZWZ) (princ)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注文字 (defun bzwz() (setq f1 (list (+ (car d0) 1) (+ (cadr d0) 1))) (setq f2 (list (car f1) (+ (cadr f1) 5))) (setq f3 (list (car f2) (+ (cadr f2) 5))) (setq f4 (list (car f3) (+ (cadr f3) 5))) (setq f5 (list (car f4) (+ (cadr f4) 5))) (command "text" f5 "2.5" "0" (strcat "a=" (rtos a6 2 0) "%%d" (rtos a7 2 0) "\U+2032" (rtos a8 2 0) "\U+2033")) (command "text" f4 "2.5" "0" (strcat "R=" (rtos r1 2 3) "m")) (command "text" f3 "2.5" "0" (strcat "T=" (rtos t1 2 3) "m")) (command "text" f2 "2.5" "0" (strcat "L=" (rtos l1 2 3) "m")) (command "text" f1 "2.5" "0" (strcat "E=" (rtos e1 2 3) "m")) (reerr) (princ) (yj);;;;;;;;调用圆角函数(YJ) (princ)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;圆角 (defun yj() (setierr) (command "fillet" "r" r1) (command "fillet" ) (princ) ) ;*************************************************************
chrome可以阻止 百 度 推 广 信息?用了4-5年chrome第一次来发帖 直接上图吧,我刚才随便搜索“工商学院”(本狗已毕业一年多了,选这个关键词是因为这类学校推广多),第一个结果后面红色圈显示“商业推广”,所以点击的时候闪一下后就无动于衷了,问问大家这是为什么?,虽然平时都用google,但这个对于身边的小白,这点还是很有用的。求大神指点迷津。
矿山工程狗,自己用cad画的三维立体巷道图,求大神指点 仅为部分,希望能和大家共同学习探讨
不比不知道,拍照就那么吊 前几天买了个魅族 note 送人,然后自己也把玩了一下,特别对比了拍照,哎,虽然拿1300和2000比较有些欺负人,但是成片确实差距太大,顿时信仰值又高了一段 ——来自 爱贴吧 Windows Phone 客户端
体验版,也就是内测版,还没感觉到太大的变化——来自 爱贴吧 Windows Phone 客户端
拍照真的很…看图 可能是大学里最后一次进图书馆了,看看有没有校友。 ——来自 爱贴吧 Windows Phone 客户端
更新D后, wifi接收能力感觉强了些 过年来浙江这边,盗用邻居 wifi(说出来不嫌丢人),以前预览版有一格,还不稳定,今早更新完D,下午把春晚1g的视频都搞定了(没有电视,别笑),感觉等那么久还是值得的。 ——来自 爱贴吧 Windows Phone 客户端
烟花,拍的不好,求指教 ——来自 爱贴吧 Windows Phone 客户端
有没有白色机型的昆明朋友?换壳 国庆期间买的,正常使用,我的是橙色的,想找个朋友换白色后盖用用,天天瞅着橙色也是厌了。仅限昆明本地当面交换,大家帮忙顶一下 ——来自 爱贴吧 Windows Phone 客户端
让空间小尾巴恢复正常 国行930更新后小尾巴显示1087,可以卸载后重置安装,一切恢复平静。按规矩来——来自 爱贴吧 Windows Phone 客户端
『LUMIA』★拍照真心给力,试了一下。新人求指导 微距,自动模式拍的手动变焦和调整曝光时间、iso这就是传说中的灯光拖尾吧,手持糊了好多,这张还算过得去。希望有经验的大神们多多指教
我走了! 小七退休了!换了930,最后和大家到个别,以后可能不会再来水贴了。谢谢大家,@山外的鸭子哥 ——来自 爱贴吧 Windows Phone 客户端
710超期服役半年了,昨天把橙色930从某宁拿过来接班,以后看样子又要混迹于这个吧了,求罩!有什么也可以一起交流。上一张昨天吃的炸土豆——来自 爱贴吧 Windows Phone 客户端
17首背景音乐,ogg格式,要的拿走。 rt,只求大神们,以后野匹着我这菜鸟的时候:做队友,嘴下留情;做对手,手下留情! 附件无法上传,给网盘地址:http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1ntwmN01&urlrefer=a13b3e08fbf018372e01e1e5f6f9c4df
诺基亚710文件路径,越狱的或许用的着,好不容易码起来的 相机图片my document\zune \conten\0300\00 音乐my document\zune \conten\0100\00 IE保存:windows\profiles\guest\Temporary internet files\content.IE5 UC浏览器下载:applications\date\D1F664A4-298F-48CB-\DATE\;LSOLATEDSTORE\download 蓝牙保存:applications\date\51F49263-5966-4752-BB12-430455F911A8 Bing壁纸:wallpapers\ Office:applications date\microsoft\office mobile\templates 部署铃声:my document\my ringtones 其他程序的以后补上,希望大家一起交流交流,高手勿喷 ——来自 爱贴吧 Windows Phone 客户端
[分享】手机连接电脑,使用电脑网络 刚才看到有吧友说到共享电脑网络的事儿,有个更方便的同大家分享分享,有些论坛和教程有说过,有可能是坟,勿喷!电脑安装完Zune(主要的是要驱动),下载WPConnect.exe(32.64.xp有不同版本),连接手机后,关闭Zune.运行WPConnect.exe。OK了用手机疯狂吧!不懂可以问我,——来自 爱贴吧 Windows Phone 客户端
刷机成功,折腾了半天,求核电 RT——来自 爱贴吧 Windows Phone 客户端
诺基亚要推送7.8了,但愿是真的 刚才在微迷上看到的
大陆710伤不起啊,不是黑,有图有真相,软件版本是8779的举手 去诺基亚香港官网看了,小七软件版本早就是885x了,就想问问大陆行货是不是亲的?大陆版本的港行的——来自 诺基亚 Lumia 710
1
下一页