钟表autolisp程序

朝三暮四------满意请及时采纳好评!---------

时钟象征着对年龄和时间的认知.梦见一只钟,表示梦者会留意到时间的流逝,或者认清了所做事情的急迫梦见闹钟响,警告梦者有危险；梦见闹钟,预示梦者为了献身自己所从事的工作,将一生会奋斗不息.

分类：螺丝刀品牌：西玛宝贝展示宝贝描述备注：名称:六件套钟表批品牌:台湾西玛工具型号:C0024规格:1#21.4MM2.0MM2.4MM3.0MM

（一）(defunc:tuxing1()(setqRd(getdist"\nR=:"))(setqRx(getdist"\nr=:"))(setqp0(getPoint"\nEnterCenterof

家里的钟表摆放在哪里最合适1、可摆放或悬挂于朱雀方,因为朱雀方即是前方,前方本属动者；2、可摆放或悬挂于青龙方,因为青龙方为吉方,所以客厅的左方也宜放时钟；3、不要摆放或悬挂于白虎方,因为白虎方为凶方

(defun c:ttt( / #os1 i r1 r2) (setvar "cmdecho"&nb

将自己正放于一个钟表盘中央,那么你想指的方向即可由点数表示.如正前方为12点方向,正后方为6点方向,正右手为3点方向,正左手为9点方向.你所说的10点钟方向则是左手偏前方向.再问：也就是说始终方向不是

解题思路：注意间隔，敲5下，间隔4，敲10下，间隔9解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com

解题思路：《1》每小题均给出了“当型”、“直到型”两种解法；《2》每小题都请仔细体会从“n=0”到“n=1”的变化，以及n=1时所对应的各“变量”的值。解题过程：varSWOC={};SWOC.tip

你的某个命令中可能多了一个回车响应的符号自己检查一下比如在command命令里多了一个""CAD启动时就会自动默认上一个命令也就是帮助文档再问：知道原因了，是mnu文件中多加了空格。好神奇，多加空格也

三角形面积可以用海伦公式

做了一些修改,可以绘制了.仔细看看里面修改内容.除以符号“/”,不是“\”.多了一个刮弧,还有getdisk应当为getdist(setqpt7(polarpt60(*r2)));这个少了2就没有办法

90改为1.57多（pi的一半）

(getdiststr_rr))就是要求用户定义2个点做为距离,setqrr(getdiststr_rr))就是把前面的距离值赋予给rr变量再问：getdist后应该跟一个基点坐标，其中str_rr是

(vl-load-com)(setqa(vlax-make-variant15));创建变体a,类型双精度浮点数(setqb(vlax-make-variant345));创建变体b,类型双精度浮点数

(defunc:tt()(setqp1(getpoint"\n选取矩形第一点:>"))(setqp2(getpoint"\n选取矩形第二点:>"))(command"_rectang"p1p2)(pr

(defunc:drawing()(setvar"cmdecho"0)(setqptcenter(getpoint"\n请输入圆心位置:"))(setqdist(getdist"\n请输入基圆半径:"

解题思路：时间问题解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com/include/readq.ph

这个比较麻烦,我曾经写过这么个程序片段,现在贴上来,代码比较复杂Shape1是时钟的一个框,是Shape控件,设置Height1455Width1575LineHour,LineMinute,Line

这里有一例,楼主可以自己调试(defunc:tc()(setvar"cmdecho"0)(setqen1(car(entsel"\n选择圆1:")))(setqen2(car(entsel"\n选择圆