乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 76|回复： 14

[编程交流] Lisp程序。fas公司

[复制链接]
Mike55

12

主题

26

帖子

14

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 23:33:58 | 显示全部楼层 |阅读模式
我有30个lisp例程，我一直在使用，所以我把它全部放在一个大例程中，它运行得很好。现在我想把它从。lsp到。我使用vlide来更改它，但30个中有6个不允许我更改为。我得到的只是这个；错误：参数太多：（WHILE（=PICK“3”）（命令）。插入“ttv\u 3”0,0…）（命令“.zoom”“0,0”“50,50”）…）；编译中止：发现致命错误。
 
 
然后我试着在vlide中调试它，我得到的只是回调项？我能做什么？
 
 
谢谢你，迈克
回复

使用道具 举报

ymg3

0

主题

301

帖子

301

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-5 23:38:49 | 显示全部楼层
麦克风55，
 
张贴冒犯性的例行公事。一定是出了什么问题。
 
ymg公司
回复

使用道具 举报

prodromosm

107

主题

615

帖子

575

银币

中流砥柱

Rank: 25

铜币
521
发表于 2022-7-5 23:43:32 | 显示全部楼层
我使用此lisp将lisp转换为fas
 
  2. ;;  LSP2FAS.lsp                                    ; Scot Harris  11-29-2012
  3. ;;   Minimizes the sequence needed to create FAS files.
  4. ;;   Help facility added.
  5. ;;   Streamlined from original program provided by aqdam1978.
  7. (defun c:LSP2FAS-Help (/)
  8. (alert (strcat
  9.  "\tLisp (LSP) to Fast and Secure (FAS) Help"
  10.  "\n "
  11.  "\nFile dialog begins in the current directory.   "
  12.  "\nIt is suggested to place and open a drawing (DWG)   "
  13.  "\ninside the input folder you wish to batch process.   "
  14.  "\n "
  15.  "\nOutput file will be in the same folder as the file selected.   "
  16.  "\n "
  17.  "\nThere is no provisional check for an existing FAS file of the same name.   "
  18. ))
  19. );end LSP2FAS-Help
  21. (defun c:LSP2FAS ( / a )
  22. (vl-load-com)
  23. (prompt " Lisp to Fast and Secure (FAS). LSP2FAS-Help available. ")
  24. (if (wcmatch (strcase (setq a (getfiled "Convert LSP File to FAS" (getvar "DWGPREFIX") "" 16))) "*.LSP")
  25.  (progn
  26.   (c:vlide)(vlisp-compile 'st a)
  27.   (princ (strcat "\n File " (vl-string-subst ".fas" ".lsp" a) " created. "))
  28.  );progn
  29.  (alert "File extension must be ".LSP"   ")
  30. );if
  31. (princ)
  32. );end LSP2FAS
回复

使用道具 举报

SLW210

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-5 23:49:19 | 显示全部楼层
请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。
回复

使用道具 举报

Mike55

12

主题

26

帖子

14

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 23:51:18 | 显示全部楼层
当出现“\n选择一个数字1-35并点击回车”）时，输入3
当出现“\n输入T尺寸4-3/8英寸及以上{A}：”）时，输入6或>
 
这是令人讨厌的例行公事。如果你能把这个放到一个。fas让我知道你是如何一步一步地到达那里的，这样我就可以修复其他5个？
谢谢你，迈克
回复

使用道具 举报

Mike55

12

主题

26

帖子

14

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2022-7-5 23:57:39 | 显示全部楼层
我从我的代码中复制了文本并粘贴进去，高亮显示代码并单击“代码”按钮，它看起来还是一样吗？先键入代码？
 
当出现“\n选择一个数字1-35并点击回车”）时，输入3
当出现“\n输入T尺寸4-3/8英寸及以上{A}：”）时，输入6或>
 
 
 
 
 
 
 
这是令人讨厌的例行公事。如果你能把这个放到一个。fas让我知道你是如何一步一步地到达那里的，这样我就可以修复其他5个？
谢谢你，迈克
两天。图纸
ttv_3。图纸
回复

使用道具 举报

ymg3

0

主题

301

帖子

301

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-6 00:01:36 | 显示全部楼层
麦克风55，
 
如果您不能遵守张贴指南并包含代码标签，
我不明白我们为什么要花时间帮助你。
 
看看你贴的那些笑脸！，我们不能用这些废话。
 
也许上传Lisp程序。
 
ymg公司
回复

使用道具 举报

rkmcswain

24

主题

1265

帖子

1028

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
362
发表于 2022-7-6 00:04:11 | 显示全部楼层
 
我把你的代码粘贴到VLIDE中，运行“工具>在编辑器中检查文本”，得到了这个
 
  2. [CHECKING TEXT <Untitled-0> loading...]
  3. .....
  4. ; error: too many arguments: (WHILE (= PICK "3") (COMMAND ".insert" "ttv_3" "0,0" ... ) (COMMAND ".zoom" "0,0" "50,50") ... )
  5. ; Check done.

 
如果将右括号上移几行，则其结果为ok。
我想知道你是否在（while）支持的论点数量上遇到了一些限制。
许多年前，这里讨论过这个问题，至少是因为它与列表的长度有关。
http://forums.autodesk.com/t5/AutoCAD-2000-2000i-2002-DWG/AutoLISP-List-Limits/td-p/229820
 
我只是尝试了这样一个简单的函数，当参数数达到255时，它就失败了。
 
  2. (while (= 3 3)
  3. (setq a 1)
  4. (setq a 1)
  5. (setq a 1)
  6. (setq a 1)
  7. (setq a 1)
  8. (setq a 1)
  9. (setq a 1)
  10. (setq a 1)
  11. (setq a 1)
  12. (setq a 1)
  13. (setq a 1)
  14. (setq a 1)
  15. (setq a 1)
  16. (setq a 1)
  17. (setq a 1)
  18. (setq a 1)
  19. (setq a 1)
  20. (setq a 1)
  21. (setq a 1)
  22. (setq a 1)
  23. (setq a 1)
  24. (setq a 1)
  25. (setq a 1)
  26. (setq a 1)
  27. (setq a 1)
  28. (setq a 1)
  29. (setq a 1)
  30. (setq a 1)
  31. (setq a 1)
  32. (setq a 1)
  33. (setq a 1)
  34. (setq a 1)
  35. (setq a 1)
  36. (setq a 1)
  37. (setq a 1)
  38. (setq a 1)
  39. (setq a 1)
  40. (setq a 1)
  41. (setq a 1)
  42. (setq a 1)
  43. (setq a 1)
  44. (setq a 1)
  45. (setq a 1)
  46. (setq a 1)
  47. (setq a 1)
  48. (setq a 1)
  49. (setq a 1)
  50. (setq a 1)
  51. (setq a 1)
  52. (setq a 1)
  53. (setq a 1)
  54. (setq a 1)
  55. (setq a 1)
  56. (setq a 1)
  57. (setq a 1)
  58. (setq a 1)
  59. (setq a 1)
  60. (setq a 1)
  61. (setq a 1)
  62. (setq a 1)
  63. (setq a 1)
  64. (setq a 1)
  65. (setq a 1)
  66. (setq a 1)
  67. (setq a 1)
  68. (setq a 1)
  69. (setq a 1)
  70. (setq a 1)
  71. (setq a 1)
  72. (setq a 1)
  73. (setq a 1)
  74. (setq a 1)
  75. (setq a 1)
  76. (setq a 1)
  77. (setq a 1)
  78. (setq a 1)
  79. (setq a 1)
  80. (setq a 1)
  81. (setq a 1)
  82. (setq a 1)
  83. (setq a 1)
  84. (setq a 1)
  85. (setq a 1)
  86. (setq a 1)
  87. (setq a 1)
  88. (setq a 1)
  89. (setq a 1)
  90. (setq a 1)
  91. (setq a 1)
  92. (setq a 1)
  93. (setq a 1)
  94. (setq a 1)
  95. (setq a 1)
  96. (setq a 1)
  97. (setq a 1)
  98. (setq a 1)
  99. (setq a 1)
  100. (setq a 1)
  101. (setq a 1)
  102. (setq a 1)
  103. (setq a 1)
  104. (setq a 1)
  105. (setq a 1)
  106. (setq a 1)
  107. (setq a 1)
  108. (setq a 1)
  109. (setq a 1)
  110. (setq a 1)
  111. (setq a 1)
  112. (setq a 1)
  113. (setq a 1)
  114. (setq a 1)
  115. (setq a 1)
  116. (setq a 1)
  117. (setq a 1)
  118. (setq a 1)
  119. (setq a 1)
  120. (setq a 1)
  121. (setq a 1)
  122. (setq a 1)
  123. (setq a 1)
  124. (setq a 1)
  125. (setq a 1)
  126. (setq a 1)
  127. (setq a 1)
  128. (setq a 1)
  129. (setq a 1)
  130. (setq a 1)
  131. (setq a 1)
  132. (setq a 1)
  133. (setq a 1)
  134. (setq a 1)
  135. (setq a 1)
  136. (setq a 1)
  137. (setq a 1)
  138. (setq a 1)
  139. (setq a 1)
  140. (setq a 1)
  141. (setq a 1)
  142. (setq a 1)
  143. (setq a 1)
  144. (setq a 1)
  145. (setq a 1)
  146. (setq a 1)
  147. (setq a 1)
  148. (setq a 1)
  149. (setq a 1)
  150. (setq a 1)
  151. (setq a 1)
  152. (setq a 1)
  153. (setq a 1)
  154. (setq a 1)
  155. (setq a 1)
  156. (setq a 1)
  157. (setq a 1)
  158. (setq a 1)
  159. (setq a 1)
  160. (setq a 1)
  161. (setq a 1)
  162. (setq a 1)
  163. (setq a 1)
  164. (setq a 1)
  165. (setq a 1)
  166. (setq a 1)
  167. (setq a 1)
  168. (setq a 1)
  169. (setq a 1)
  170. (setq a 1)
  171. (setq a 1)
  172. (setq a 1)
  173. (setq a 1)
  174. (setq a 1)
  175. (setq a 1)
  176. (setq a 1)
  177. (setq a 1)
  178. (setq a 1)
  179. (setq a 1)
  180. (setq a 1)
  181. (setq a 1)
  182. (setq a 1)
  183. (setq a 1)
  184. (setq a 1)
  185. (setq a 1)
  186. (setq a 1)
  187. (setq a 1)
  188. (setq a 1)
  189. (setq a 1)
  190. (setq a 1)
  191. (setq a 1)
  192. (setq a 1)
  193. (setq a 1)
  194. (setq a 1)
  195. (setq a 1)
  196. (setq a 1)
  197. (setq a 1)
  198. (setq a 1)
  199. (setq a 1)
  200. (setq a 1)
  201. (setq a 1)
  202. (setq a 1)
  203. (setq a 1)
  204. (setq a 1)
  205. (setq a 1)
  206. (setq a 1)
  207. (setq a 1)
  208. (setq a 1)
  209. (setq a 1)
  210. (setq a 1)
  211. (setq a 1)
  212. (setq a 1)
  213. (setq a 1)
  214. (setq a 1)
  215. (setq a 1)
  216. (setq a 1)
  217. (setq a 1)
  218. (setq a 1)
  219. (setq a 1)
  220. (setq a 1)
  221. (setq a 1)
  222. (setq a 1)
  223. (setq a 1)
  224. (setq a 1)
  225. (setq a 1)
  226. (setq a 1)
  227. (setq a 1)
  228. (setq a 1)
  229. (setq a 1)
  230. (setq a 1)
  231. (setq a 1)
  232. (setq a 1)
  233. (setq a 1)
  234. (setq a 1)
  235. (setq a 1)
  236. (setq a 1)
  237. (setq a 1)
  238. (setq a 1)
  239. (setq a 1)
  240. (setq a 1)
  241. (setq a 1)
  242. (setq a 1)
  243. (setq a 1)
  244. (setq a 1)
  245. (setq a 1)
  246. (setq a 1)
  247. (setq a 1)
  248. (setq a 1)
  249. (setq a 1)
  250. (setq a 1)
  251. (setq a 1)
  252. (setq a 1)
  253. (setq a 1)
  254. (setq a 1)
  255. (setq a 1)
  256. (setq a 1)
  257. (setq a 1)
  258. (setq a 1)
  259. (setq a 1)
  260. (setq a 1)
  261. (setq a 1)
  262. (setq a 1))
回复

使用道具 举报

ymg3

0

主题

301

帖子

301

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-6 00:08:23 | 显示全部楼层
麦克风55，
 
R、 K关于错误的看法是正确的：参数太多：
 
如果用以下语法替换代码中的多个setq：
 
  2. (setq a "abc"
  3.      b "def"
  4.      c "ghi"
  5.       etc....
  6. )

 
你的while循环现在适合了。
 
我在附件中做了一些，现在错误消失了。
456.LSP
回复

使用道具 举报

ymg3

0

主题

301

帖子

301

银币

初来乍到

Rank: 1

铜币
0
发表于 2022-7-6 00:16:26 | 显示全部楼层
麦克风55，
 
 
总而言之！
 
很高兴我们能提供帮助，但优点在于R.K.McSwain
 
ymg公司
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-11 00:25 , Processed in 0.544823 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表