设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 帮忙调试一下程序在2013老出现stringp 错误
返回列表 发新帖
查看: 1045|回复: 1

[函数] 帮忙调试一下程序在2013老出现stringp 错误

[复制链接]
流_星
发表于 2015-2-4 12:31:08 | 显示全部楼层 |阅读模式
本帖最后由 流_星 于 2015-2-4 12:34 编辑
  2. (DEFUN stee( )
  3.   (if (= siz3 nil)(setq siz3 375)) ;;SWSETBEA
  4.   (if (= beasiz nil)(setq beasiz 375)) ;;SWSETBEA
  5.   (if (= chasiz nil)(setq chasiz 25)) ;;SWSETCHA
  6.   (if (= angsiz nil)(setq angsiz 29)) ;;SWSETANG
  7.   (if (= tubsiz nil)(setq tubsiz 54)) ;;SWSETUB
  8.   (if (= teesiz nil)(setq teesiz 349)) ;;SWSETEE
  9.   (if (= pipsiz nil)(setq pipsiz 62)) ;;SWSETPIP
  10.   (setq def2 6)
  11.   (properties_rd_stl_aq1)
  12.   (properties_deflt_stl_aq1)
  13.   (setq cmd (getvar "cmdecho"))
  14.   (setvar "cmdecho" 0)
  15.   (setq ltyp (getvar "celtype"))
  16.   (command "._linetype" "s" "HIDDEN" "")
  17.   (command "._linetype" "s" "CENTER" "")
  18.   (command "._linetype" "s" ltyp "")
  19.   (if (= namlay nil)(setq namlay stllay))
  20.   (if (= (tblobjname "layer" namlay) nil) (setq namlay stllay))
  21.   (if (= (tblobjname "layer" stllay) nil)
  22.      (progn
  23.       (if (wcmatch (getvar "acadver") "14*,15*,19*")
  24.          (if (= (getvar "tilemode") 0)
  25.            (progn
  26.              (command "vplayer" "newfrz" stllay "")
  27.              (command "vplayer" "thaw" stllay "" "")
  28.             )
  29.             (command "-layer"  "new" stllay "")
  30.           )
  31.         )
  32.        (if (wcmatch (getvar "acadver") "13*")
  33.          (if (= (getvar "tilemode") 0)
  34.            (progn
  35.              (command "vplayer" "newfrz" stllay "")
  36.              (command "vplayer" "thaw" stllay "" "")
  37.            )
  38.             (command "-layer"  "new" stllay "")
  39.           )
  40.        )
  41.      )
  42.   ))

  44. (DEFUN PROPERTIES_DEFLT_STL_AQ1 ( )
  45. (setq sc1_aq1 (getvar "cecolor"))
  46. (if(or(= sc1_aq1 "BYLAYER")(= sc1_aq1 "ByLayer"))
  47.   (setq sc1_aq1 "256")
  48. )
  49. (if(or(= sc1_aq1 "BYBLOCK")(= sc1_aq1 "ByBlock"))
  50.   (setq sc1_aq1 "0")
  51. )
  52. (setq sc1_aq1(atoi sc1_aq1))
  53. (setq hc1_aq1 (getvar "cecolor"))
  54. (if(or(= hc1_aq1 "BYLAYER")(= hc1_aq1 "ByLayer"))
  55.   (setq hc1_aq1 "256")
  56. )
  57. (if(or(= hc1_aq1 "BYBLOCK")(= hc1_aq1 "ByBlock"))
  58.   (setq hc1_aq1 "0")
  59. )
  60. (setq hc1_aq1(atoi hc1_aq1))
  61. (setq hlc1_aq1 (getvar "cecolor"))
  62. (if(or(= hlc1_aq1 "BYLAYER")(= hlc1_aq1 "ByLayer"))
  63.   (setq hlc1_aq1 "256")
  64. )
  65. (if(or(= hlc1_aq1 "BYBLOCK")(= hlc1_aq1 "ByBlock"))
  66.   (setq hlc1_aq1 "0")
  67. )
  68. (setq hlc1_aq1(atoi hlc1_aq1))
  69. (setq clc1_aq1 (getvar "cecolor"))
  70. (if(or(= clc1_aq1 "BYLAYER")(= clc1_aq1 "ByLayer"))
  71.   (setq clc1_aq1 "256")
  72. )
  73. (if(or(= clc1_aq1 "BYBLOCK")(= clc1_aq1 "ByBlock"))
  74.   (setq clc1_aq1 "0")
  75. )
  76. (setq clc1_aq1(atoi clc1_aq1))
  77. (setq blc1_aq1 (getvar "cecolor"))
  78. (if(or(= blc1_aq1 "BYLAYER")(= blc1_aq1 "ByLayer"))
  79.   (setq blc1_aq1 "256")
  80. )
  81. (if(or(= blc1_aq1 "BYBLOCK")(= blc1_aq1 "ByBlock"))
  82.   (setq blc1_aq1 "0")
  83. )
  84. (setq blc1_aq1(atoi blc1_aq1))
  85. (setq lay1_aq1(getvar "clayer"))
  86. (setq lay1_aq1 (cdr(assoc 2(tblsearch "layer" lay1_aq1))));;checks case sensitive text
  87. (layvis_stl_aq1)
  88. (setq vislst13c (length liststl))
  89. (setq vislst12c (member lay1_aq1 liststl))
  90. (setq vislst12c (length vislst12c))
  91. (setq vislst14c (- vislst13c vislst12c))
  92. (setq lay1_aq1 (itoa vislst14c))
  93. (setq lt1_type(getvar "celtype"))
  94. (setq lt1_type(cdr(assoc 2(tblsearch "ltype" lt1_type))));;checks case sensitive text
  95. (ltvis_stl_aq1)
  96. (setq vislst13z (length listvis))
  97. (setq vislst12z (member lt1_type listvis))
  98. (setq vislst12z (length vislst12z))
  99. (setq vislst14z (- vislst13z vislst12z))
  100. (setq lt1_type (itoa vislst14z))
  101. (setq lt1_typeh(getvar "celtype"))
  102. (setq lt1_typeh(cdr(assoc 2(tblsearch "ltype" lt1_typeh))))
  103. (lthid_stl_aq1)
  104. (setq hidlst13y (length listhid))
  105. (setq hidlst12y (member lt1_typeh listhid))
  106. (setq hidlst12y (length hidlst12y))
  107. (setq hidlst14y (- hidlst13y hidlst12y))
  108. (setq lt1_typeh (itoa hidlst14y))
  109. (setq hls1_aq1(getvar "celtscale"))
  110. (setq cls1_aq1(getvar "celtscale"))
  111. (setq lt1_scal(getvar "celtscale"))
  112. (setq ha1_aq1(rtd(getvar "hpang")))
  113. (setq hs1_aq1(getvar "hpscale"))
  114. (setq hp1_aq1(getvar "hpname"))
  115. )

  117. (DEFUN PROPERTIES_RD_STL_AQ1 ( )
  118. (setq steelprop (open (findfile "steel.txt") "r"))
  119. (setq lt_type (read-line steelprop));; sets default shape linetype
  120. (setq lt_type(cdr(assoc 2(tblsearch "ltype" lt_type))));;checks case sen
  121. (setq lt_scal (atof (read-line steelprop)));; sets default shape ltype scale
  122. (setq sc_aq1 (atoi (read-line steelprop))) ;; sets default shape color
  123. (setq ha_aq1 (atof (read-line steelprop))) ;; sets hatch angle
  124. (setq hs_aq1 (atof (read-line steelprop))) ;; sets default hatch scale
  125. (setq hp_aq1 (atoi (read-line steelprop))) ;; set default hatch pattern value
  126. (setq hc_aq1 (atoi (read-line steelprop))) ;; sets default hatch color
  127. (setq hls_aq1 (atof (read-line steelprop)));; sets default hidden line scale
  128. (setq hlc_aq1 (atoi (read-line steelprop)));; sets default hidden line color
  129. (setq cls_aq1 (atof (read-line steelprop)));; sets default center line scale
  130. (setq clc_aq1 (atoi (read-line steelprop)));; sets default center line color
  131. (setq blc_aq1 (atoi (read-line steelprop)));; sets default break line color
  132. (setq stllay (strcase (read-line steelprop)))
  133. (setq lt_typeh (read-line steelprop));; sets default shape linetype hidden
  134. (setq lt_typeh(cdr(assoc 2(tblsearch "ltype" lt_typeh))));;checks case sen
  135. (setq retdf (close steelprop))
  136. )
在cad2013
中报错 steel.txt内容是
CONTINUOUS
0.50
1
0.00
1.00
1
2
0.50
4
1.00
4
1
STEEL
HIDDEN
程序

相关帖子
回复

使用道具 举报

lostbalance
发表于 2015-2-4 22:30:11 | 显示全部楼层
好长啊。。。估计是某个参数的格式有问题吧，用rtos或者atof之类的转化下就好了。可以用添加(princ "ok")之类的命令行提示判断定位下，看看具体是哪一行出了问题
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2025-5-23 11:27 , Processed in 0.190449 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表