autolisp获取目录服务器信息失败,大神们，帮忙看看这个代码哪儿有问题？老是出现“参数类型错误:...

该楼层疑似违规已被系统折叠隐藏此楼查看此楼

defun c:ZHDGX()

(claim)

(command "layer" "m" "dgxj" "")

(command "layer" "c" "blue" "dgxj" "")

(dgx)

)

(princ "\n******** 键入ZHDGX 启动程序 ***\n")

;;;;;;;;;;;;;;;;;;;;;;;;;

(defun claim()

(alert"\n<< 转换等高线程序 >>")

)

;;;;;;;;;;;;;;;;;;;;;;;;;

(defun dgx()

(setq NEWDIST(getreal"请输入转换等高线的等高距:"))

(prompt "请选择等高线:")

(setq SS(ssget))

(setq len(sslength SS))

(setq n 0)

(repeat len

(setq ent(ssname ss n))

(setq entdate(entget ent))

(setq pd(assoc 0 entdate)))

(setq t1( * NEWDIST 5))

(if(=pd "TEXT")

(PROGN

(setq gc1(assoc 10 entdate))

(setq gc2(cdr gc1))

(setq x0(car gc2))

(setq y0(cadr gc2))

(setq z1(caddr gc2))

(setq ZC(/z1 t1))

(setq zd(fix(-ZC zd))

(if (/=kk 0)(command "erase" ent ""))

)

(if( = pd“LWPOLYLINE")

(command "change" ent "" "p" "la" "0" "" :)

(PROGN

(command "pedit" ent "8" "X" "")

(setq gel(assoc 38 entdate))

(setq x0(car ge2))

(setq y0(eadr gc2))

(setq z1(caddr go2))

(setq z0(atof(rtos z1 2 0)))

(setq lst(cons 28 z0))

(setq lst(list 10 x0 y0 z0))

(entmod(subst lst gcl engdate))

(setq Za(/z0 t1)))

(setq zb(fix(/z0 t1)))

(setq kk(-Za zb))

(if (=kk 0)

(PROGN

(command "change" ent "p" "la" "dgxj" "thickness" "8120000" "" )

)

(PROGN

(setq go3(/z0 NEWDIST)))

(setq ge4(fix(/z0 NEWDIST)))

(setq k(-ge4 ge3))

(if(/=k 0)(command "erase" ent ""))

(if(=k 0)(command "change" ent "" "p" "la" "dgx" "p" "thickness" "8110000" ""))

)

(if(= pd "POLYLINE")

(PROGN

(setq ge1(assoc 10 entdate))

(setq go2(cdr ge1))

(setq x0(car gc2))

(setq y0(eadr go2))

(setq z1(erddr go2))

(setq z0(atof(rtos z1 2 0 )))

(setq lst(list 10 x0 y0 z0 ))

(entmod(subst lst ge1 entdate))

(setq Za(/z0 t1))

(setq zb(fix(/z0 t1)))

(setq kk(-Za zb))

(if(= kk 0)

(PROGN

(command "change" ent "" "p" "la" "dgxj" "p" "thickness" "8120000" ""))

)

(PROGN

(setq go3(/z0 NEWDIST))

(setq go4(fix(/z0 NEWDIST)))

(setq k(-gc4 ge3))

(if (/=k 0)(comrllarld "erase" ent ""))

(if (=k 0)(command "change" ent "" "p" "la" "dgx" "p" "thickness" "8110000" "" ))

)

(setq n(+n 1))

)

end repeat

(princ)

)

上面运行以后老师出现”参数类型错误: lselsetp nil“或者”参数类型错误: numberp: nil“或者未知命令

autolisp获取目录服务器信息失败,大神们，帮忙看看这个代码哪儿有问题？老是出现“参数类型错误:...相关推荐

寻仙获取目录服务器信息失败,〖寻仙〗常见游戏问题解决办法!
该楼层疑似违规已被系统折叠隐藏此楼查看此楼 [寻仙]常见游戏问题解决办法!2008-05-20 21:371.更新时提示 "网络错误,登陆失败" [寻仙]常见游戏问题解决办法!2 ...
怎么获取别人服务器信息失败,获取服务器信息失败
获取服务器信息失败内容精选换一换 1.若希望以主席身份入会,enter_code必须传入主席密码.若希望以来宾身份入会,当会议要求来宾密码时,enter_code必须传入来宾密码,会议不要求来宾密 ...
获取crm服务器信息失败,无法连接到 Dynamics CRM 服务器，因为凭据身份验证 - Dynamics 365 Sales | Microsoft Docs...
无法连接到Microsoft Dynamics CRM,因为我们无法验证您的凭据 3/31/2021 本文内容本文提供了一个解决方案,用于解决尝试使用 Dynamics CRM Online 组织为 ...
获取目录服务器信息失dnf,DNF面临历史最大服务器崩溃：跨五回档风波，深渊史诗出货消失...
原标题:DNF面临历史最大服务器崩溃:跨五回档风波,深渊史诗出货消失 DNF自古便流传着小霸王服务器,形象的表现出阿拉德大陆,动荡不安的景象.上一秒充值开魔盒,祭出仓库几千张深渊票,虚弱药消耗几瓶,下 ...
为什么获取crm服务器信息失败,CRM项目失败的七大原因
国内企业经常只关注CRM的成功失败率,而很少关注为什么会成功?为什么会失败? 失败乃成功之母.研究失败原因,是为了避免更多的失败. 就目前而言,CRM尚为一项新技术,多数企业还处于初期建设状态.倘若企 ...
为什么获取crm服务器信息失败,为 Outlook 配置 Microsoft Dynamics CRM 客户端时出现与 Microsoft Dynamics CRM 服务器通信时出现问题错误...
症状当您尝试配置 microsoft Office Outlook 的 Microsoft Dynamics CRM 客户端时,收到以下错误消息: 与 Microsoft Dynamics CRM ...
怎么获取求生之路服务器信息失败,新人服务器出现问题求助求助！！！！！...
该楼层疑似违规已被系统折叠隐藏此楼查看此楼 l4d2infectedbots.cfg 是这样写的 // This file was auto-generated by SourceMod (v1.7 ...
华为从服务器获取安装包信息失败,华为系统恢复获取安装包信息失败
以华为mate30为例,版本系统为EMUI10,其华为系统恢复获取安装包信息失败的原因如下: 1.此情况可能是下载的软件安装包不完整,建议您在网络稳定的情况下,重新下载安装. 2.查看手机内存是否充足 ...
金蝶EAS登录获取用户相关信息失败、EAS默认用户名、密码
1.sql2005,新装的EAS7.0服务器,新建一个帐套,都弄好了以后,客户端登陆的时候提示错误:获取用户相关信息失败! 日志里说该游标未声明解决方法:在SQL SERVER执行alter ta ...

autolisp获取目录服务器信息失败,大神们，帮忙看看这个代码哪儿有问题？老是出现“参数类型错误:...

autolisp获取目录服务器信息失败,大神们，帮忙看看这个代码哪儿有问题？老是出现“参数类型错误:...相关推荐

最新文章

热门文章