[2016最新精品]CAD尺寸自动标注软件程序

发布时间:2024-12-08 11:24

软件更新:定期检查耳机驱动程序和软件,以获取最新功能和优化 #生活技巧# #数码产品使用技巧# #耳机使用心得#

(defunC:di800(/dxdydy1dx1dx2dimlptscaledxtdytdttdimltlaypt1pt2pt3pt4pt5pt6pt7pt8pt9ptti)(setvar"CMDECHO"0)(setqlay(getvar"clayer"))(command"color""bylayer")(command"layer""m""dim""c""green""dim""")(if(or(=nil(tblsearch"style""xw"))(/=(cdr(assoc40(tblsearch"style""xw")))0))(command"STYLE""xw""txt""0"".8""0""n""n""n"))(if(=scanil)(setqsca100.0))(setqscale(getreal(strcat"\nScale<"(rtossca20)">:")))(if(=scalenil)(setqscalesca))(setqscascale)(setqscale(/scale100.0))(command"osnap""nea")(setqpt(getpoint"\nStartpointofDIM<neamode>:"))(command"osnap""non")(setqdy(cadrpt))(setqdx(carpt))(setqdiml0i0)(while(/=dimlnil)(setqdiml(getreal"\nDimensiontext:"))(if(/=dimlnil)(progn(setqdx1(-dx700))(setqdx2(+dx300))(setqpt1(listdx1dy))(setqpt2(listdx2dy))(if(=i0)(command"line"pt1pt2""))(setqdy1(-dy(/dimlscale)))(setqpt3(listdx1dy1))(setqpt4(listdx2dy1))(command"line"pt3pt4"")(setqpt(listdxdy))(setqpt5(listdxdy1))(command"line"ptpt5"")(setqpt6(list(+dx50)(-dy50)))(setqpt7(list(-dx50)(+dy50)))(if(=i0)(command"pline"pt6"w""50""50"pt7""))(setqpt8(list(+dx50)(-dy150)))(setqpt9(list(-dx50)(+dy150)))(command"pline"pt8"w""50""50"pt9"")

网址:[2016最新精品]CAD尺寸自动标注软件程序 https://www.yuejiaxmz.com/news/view/411905

相关内容

自动化程序最新资讯
掌握橱柜设计CAD命令,打造理想厨房空间(橱柜设计cad命令)
好用的手机美颜软件有哪些 手机美颜软件哪个好
十大室内设计软件 装修设计软件排名 家装设计软件哪个最好用
可以diy空间设计的软件,有哪些好用的室内设计软件
方圆橱柜销售设计软件
纺织品洗涤时尺寸变化率测试
灶台的高度最佳尺寸(资深厨娘整理的灶台尺寸标准)
CAD卸载不干净,如何清理CAD注册表
矮柜cad(室内设计cad平面布置图柜子表示方法中:方框中间画...)

随便看看