根據(jù)塊名附屬性

1、根據(jù)塊名附屬性(defunc:test()(regapp“south“)(setqsscnt0)(prompt“n請(qǐng)選擇要賦屬性的塊:“)(if(setqins_all(ssget(list(0.““))))(repeat(sslengthins_all)(setqss_ins_name(ssnameins_allsscnt))(setqss_ins_att(entgetss_ins_name(list““)))(setqins_nam

2、e(cdr(assoc2ss_ins_att)))(setqins_code(substrins_name1(vlstringposition(ii“_“)ins_name)))(setqins_code_lst(list3(list“south“(cons1000ins_code))))(setqss_ins_att(reverse(append(listins_code_lst)(reversess_ins_att))))(entm

3、odss_ins_att)(setqsscnt(1sscnt)))))##########################################語法(xdsizelist)功能及參數(shù)此函數(shù)將返回當(dāng)list被附加到一個(gè)圖元中作為擴(kuò)展圖元數(shù)據(jù)(Xdata)時(shí)它所占用的位組大小。如果不成功這個(gè)函數(shù)會(huì)返回nil。list必須是一個(gè)合法的xdata表它必須包含一個(gè)前面已經(jīng)使用regapp函數(shù)注冊(cè)過的應(yīng)用程序名稱。大括號(hào)()項(xiàng)(群組代碼1

4、002)必須要對(duì)稱。一個(gè)不合法的list將會(huì)產(chǎn)生一個(gè)錯(cuò)誤并將適當(dāng)?shù)腻e(cuò)誤代碼放置于ERRNO變量中。如果Xdata中包含一個(gè)尚未注冊(cè)的應(yīng)用程序名稱則您會(huì)看到以下的錯(cuò)誤信息(假定COMDECHO為on):Invalidapplicationname1001group這個(gè)list可以從群組代碼3開始但是它并不是必須的因?yàn)閄data可以包含多個(gè)應(yīng))以下也是沒有群組代碼3的相同范例。這個(gè)表剛好是第一個(gè)范例的cdr但是將括起來的括號(hào)包含在里面是很重

5、要的。((“MYAPP“(1000.“SUITOFARM“)(1002.““)(1040.0.0)(1040.1.0)(1002.““))范例(setqn2(list“YOURAPP“(cons1000“SUITOFARM“)(cons10400.0)(cons10401.0)))(regapp“MYAPP“)(ragapp“YOURAPP“)則:(xdsize(listn1n2))返回48#######################