根據(jù)塊名附屬性

1、根據(jù)塊名附屬性(defunc:test()(regapp“south“)(setqsscnt0)(prompt“n請選擇要賦屬性的塊:“)(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被附加到一個圖元中作為擴展圖元數(shù)據(jù)(Xdata)時它所占用的位組大小。如果不成功這個函數(shù)會返回nil。list必須是一個合法的xdata表它必須包含一個前面已經(jīng)使用regapp函數(shù)注冊過的應(yīng)用程序名稱。大括號()項(群組代碼1

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

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#######################