乐筑天下

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

[编程交流] 有人能帮我一下吗

[复制链接]

17

主题

59

帖子

44

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2022-7-5 15:02:48 | 显示全部楼层 |阅读模式
我想创建一个新的应用程序,当我按下加载按钮lsp文件时,我给出了错误“错误:错误参数值:非负:-1”
回复

使用道具 举报

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 15:22:02 | 显示全部楼层
如果没有代码,就有点难找出问题所在。
回复

使用道具 举报

17

主题

59

帖子

44

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2022-7-5 15:41:48 | 显示全部楼层
  1. (defun c:intdrstg ()
  2. ;==========================================================================================================================
  3. (vl-load-com)
  4. ;==========================================================================================================================
  5. (resetsilviu) ;se afla in setari_MobCAD
  6. ;==========================================================================================================================       
  7. (setq ipt (getpoint "\n Alege colt DR-JOS <Exit>: "))
  8. (setq ipt1 (getpoint "\n Alege colt DR-SUS <Exit>: "))
  9. (setq ipt2 (getpoint "\n Pina unde STG-SUS <Exit>: "))
  10. ;==========================================================================================================================
  11. (defun caremaidecare ()
  12. ;==========================================================================================================================
  13. (vl-load-com)
  14. ;==========================================================================================================================
  15. (mapcar (function (lambda ( sym foo str def )
  16.        (set sym (cond (((eval foo) (strcat str " <" (vl-princ-to-string
  17.         (set sym (cond ((eval sym)) ( def )))) "> : " ))) ((eval sym))))))
  18.    '(*nrs* *ret*) '(getint getint)
  19.    '("\nNumar Spatii" "\nRetragere Intermediar DIN FATA") '(3 100))
  20. ;==========================================================================================================================
  21. (progn
  22.         (setq nrint (- *nrs* 1))                                                                                                        ;numar intermediari
  23.         (setq spatiu (/(- (- (car ipt) (car ipt2)) (* nrint grPAL)) *nrs*))                        ;lungime sparii intre intermediari
  24.         (setq disp (rtos spatiu 5))
  25.         (setq hint (- (caddr ipt1) (caddr ipt)))                                                                        ;inaltime intermediari H
  26.         );end progn
  27.         (princ)
  28. );end defun
  29. (princ)
  30. ;==========================================================================================================================
  31. (setq myAnswer "Da")                          ; set up a variable to hold the answer
  32. (setq dnint nil)                          ; set up a variable to hold your guess
  33. (while (/= myAnswer dnint)                ;while you don't know the answer
  34.                         (initget  "Da Nu")
  35.                         (setq dnint (getkword (strcat "\nSpatiu = "  disp "mm" "[Da/Nu]: ")))
  36.                         (caremaidecare)
  37.                         )                                             ;close the loop
  38. ;==========================================================================================================================
  39. (cond ((= ckret "0")
  40.         (progn
  41.                 (setq *a* (- *a* (+ *ret* *retpfl*)))                                                                                ;adincime intermediari
  42.                 (setq ckret "1")                        ;ckret - este variabila care scade pfl daca are falt sau nut
  43.                 );end progn
  44.                 )
  45.         ((= ckret "1")
  46.         (progn
  47.                 (setq *a*  *a*)                                                ;adincime polita cu retragere daca este cazul
  48.                 );end progn
  49.                 )
  50.         (T (prompt "\nInter Gresit"))
  51.         );end cond       
  52. ;==========================================================================================================================       
  53. (offresetvar) ;se afla in setari_MobCAD
  54. ;==========================================================================================================================       
  55. (resetsilviu) ;se afla in setari_MobCAD
  56. ;==========================================================================================================================
  57. (if (= dnint "Da")
  58. (progn                       
  59. (repeat nrint
  60. (if (null ipti)
  61.         (progn
  62.                 (setq ipti (list (- (car ipt) (+ spatiu grPAL)) (+ (cadr ipt) *ret*) (caddr ipt)))                ;XYZ point intermediari
  63.                 (command "_.box" "_non" ipti "L" grPAL *a* hint)(int1000)
  64.                 (setq a1 (list (car ipt) (cadr ipti)(caddr ipt)))        ;XYZ point dreapta jos
  65.                 (setq a2 (list (car ipt) (cadr ipti)(caddr ipt1)))        ;XYZ point dreapta sus
  66.                 (setq a3 (list (car ipt2) (cadr ipti)(caddr ipt)))         ;XYZ point stinga jos
  67.                 (setq a4 (list (car ipt2) (cadr ipti)(caddr ipt1))) ;XYZ point stinga sus
  68.                 (entmakex (list (cons 0 "POINT") (cons 10 a1)))
  69.                 (entmakex (list (cons 0 "POINT") (cons 10 a2)))
  70.                 (entmakex (list (cons 0 "POINT") (cons 10 a3)))
  71.                 (entmakex (list (cons 0 "POINT") (cons 10 a4)))
  72.                 (setq s4 (list (car ipt) (cadr ipti) (caddr ipt1)))
  73.                 (setq s1 (list (- (car ipt) spatiu)(cadr ipti) (caddr ipt1)))        ;XYZ point semn inter dreapta
  74.                 (setq s2 (list (car ipti) (cadr ipti) (caddr ipt1)))                        ;XYZ point semn inter stinga
  75.                 (setq s3 (list (car ipt2) (cadr ipti) (caddr ipt1)))                        ;XYZ point semn stinga
  76.                 (setq tx1 (list (+(car s1) (-(/ spatiu 2)150)) (cadr ipti) (caddr ipt1))) ;XYZ point text dreapta
  77.                 (setq tx2 (list (+ (car s3)(-(/ spatiu 2)150)) (cadr ipti) (caddr ipt1))) ;XYZ point text stinga       
  78.                 (command "-insert" "dimsk" s4 "1" "" "0")(command "explode" (entlast));semn interior corp dreapta
  79.                 (command "-insert" "txto" tx1 "1" "" "0")(command "explode" (entlast));
  80.                 (command "-insert" "dimsj" s1 "1" "" "0")(command "explode" (entlast));semn inter dreapta
  81.                 (command "-insert" "dimsk" s2 "1" "" "0")(command "explode" (entlast));semn inter stinga
  82.                 (command "-insert" "txto" tx2 "1" "" "0")(command "explode" (entlast));
  83.                 (command "-insert" "dimsj" s3 "1" "" "0")(command "explode" (entlast));semn interior corp stinga
  84.                 (setq newcot (rtos spatiu 5))
  85.                 (modcota)
  86.                 (setq cv1 (list (- (car ipti)160) (cadr ipti) (+ (caddr ipti) (-(/ hint 2)150)))) ;XYZ point text vertical
  87.                 (setq cv2 (list (car ipti) (cadr ipti)(+ (caddr ipti) hint)));XYZ point semn sus
  88.                 (command "-insert" "dimss" ipti "1" "" "0")(command "explode" (entlast));semn jos
  89.                 (command "-insert" "txtv" cv1 "1" "" "0")(command "explode" (entlast));text       
  90.                 (command "-insert" "dimjs" cv2 "1" "" "0")(command "explode" (entlast));semn sus
  91.                 (setq newcot (rtos hint 5))
  92.                 (modcota)
  93.                 )
  94.         (progn
  95.                 (setq ipti (list (- (car ipti) (+ grPAL spatiu)) (cadr ipti) (caddr ipti)))                ;XYZ point intermediari
  96.                 (command "_.box" "_non" ipti "L" grPAL *a* hint)(int1000)
  97.                 (setq s1 (list (car ipti) (cadr ipti) (caddr ipt1)));XYZ point dreapta sus semn
  98.                 (setq tx1 (list (+ (car s1) (-(/ spatiu 2)130))(cadr s1) (caddr s1))) ;XYZ point text
  99.                 (setq s2 (list (+(car s1) grPAL)  (cadr s1) (caddr s1))) ;XYZ point stinga sus semn
  100.                 (command "-insert" "dimsk" s1 "1" "" "0")(command "explode" (entlast));semn stinga
  101.                 (command "-insert" "txto" tx1 "1" "" "0")(command "explode" (entlast));text       
  102.                 (command "-insert" "dimsj" s2 "1" "" "0")(command "explode" (entlast));semn dreapta
  103.                 (setq newcot (rtos spatiu 5))
  104.                 (modcota)
  105.                 )
  106.                 );end if
  107.                 );end repeat
  108. ;==========================================================================================================================
  109. (setq htext (RTOS hint))
  110. (setq htext1 (RTOS spatiu))
  111. (setq text (STRCAT "\nH-Inaltime Spatiu = " htext "-mm" "        " "\nLumgime Spatiu = " htext1 "-mm"))
  112. ;(setq text1 (STRCAT "\nLumgime Spatiu = " htext1 "-mm" ))
  113. (prompt text)
  114. ;==========================================================================================================================
  115. )T);end if
  116. ;==========================================================================================================================
  117. (onresetvar);se afla in setari_MobCAD
  118. ;==========================================================================================================================
  119. (layrestordef) ;restore active layer ;se afla in setari_MobCAD
  120. ;==========================================================================================================================
  121. (setq varlst '(ipt1 ipt2  htext text htext1 text1 ipti a1 a2 a3 a4 s1 s2 tx1 tx2 *adi* *ret* hint spatiu nrint cv1 cv2 newcot
  122. dnint disp))
  123. (mapcar '(lambda (x)(set x nil)) varlst)
  124. ;==========================================================================================================================
  125. (princ)
  126. );end defun
  127. (princ)
  128. ;==========================================================================================================================
  129. ;==========================================================================================================================
  130. ;==========================================================================================================================
回复

使用道具 举报

5

主题

1334

帖子

1410

银币

限制会员

铜币
-20
发表于 2022-7-5 15:54:46 | 显示全部楼层
你有没有尝试过搜索网页,寻找类似的问题解决方案?
 
 
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/visual-lisp-make-application-error/td-p/8127427
 
 
HTH。,M、 R。
回复

使用道具 举报

17

主题

59

帖子

44

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
83
发表于 2022-7-5 16:16:42 | 显示全部楼层
非常感谢你。现在它工作了
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 09:35 , Processed in 1.966421 second(s), 63 queries .

© 2020-2025 乐筑天下

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