乐筑天下

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

[编程交流] 记住用户输入以备将来使用

[复制链接]
Cylis0509

15

主题

64

帖子

49

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-5 19:06:18 | 显示全部楼层
 
Satishrajdev，
 
所以我试着应用你的方法，它似乎对我不起作用，我百分之百肯定，因为我做得不对。
 
您将看到，我已经注释掉了请求radius的原始代码，并尝试了您的方法。我显然做得不对。。。
 
  2. ;;; JMPR.lsp
  3. ;;;
  4. ;;; Description
  5. ;;; Jumper will auto-create the radius jump for pipe crossings. 
  6. ;;;
  7. ;;; Author: Lee Mac (CADTutor)
  8. ;;; Date: 03/25/10
  9. ;;;
  10. ;;; Revision: 1
  11. ;;; Revision Date: 10/30/15
  12. ;;; Description - Modified by David Prontnicki
  13. ;;; Added the ability to select your radius at the beginning of the command.
  14. ;;; Changed interface verbage
  15. ;;;
  16. ;;; Command: JMPR
  17. ;;; -----------------------------------------------------------------------------;
  19. (defun c:jmpr (/ *error* A AENT B1 B2 BDISA BDISB BENT DOC ENT OV P1 P2 UFLAG VL O W)
  21.  ;(setq bDis (getreal "\n Enter new value for Jump Radius: ")) ; Modified by David Prontnicki
  23. (setq bDisa bDisb)
  24. (setq bDisb (getreal (strcat "\n Enter new value for Jump Radius "
  25.                 (if (not bDisa)
  26.                   ": "
  27.                   (strcat "<" (itoa bDisa) ">: ")
  28.                 )
  29.         )
  30. )
  31. )
  32. (if (and (not bDisb) bDisa)
  33.  (setq bDisb bDisa)
  34. )
  36.  (defun *error* (msg)
  37.    (and uFlag (vla-EndUndoMark doc))
  38.    (and ov  (mapcar (function setvar) vl ov))
  39.    (and msg (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
  40.                 (princ (strcat "\n** Error: " msg " **"))))
  41.    (princ))
  43.  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
  44.        vl '("PEDITACCEPT" "CMDECHO" "OSMODE") ov (mapcar (function getvar) vl))
  45.  (setvar "PEDITACCEPT" 1)
  47.  (while (and (setq uFlag (not (vla-StartUndoMark doc)))
  48.              (mapcar   (function setvar) (cdr vl) '(0 32))
  49.              (setq p1  (getpoint "\nPick the crossing intersection: ")) ; Modified by David Prontnicki
  50.              (setq ent (entsel "\nSelect the line to break: "))) ; Modified by David Prontnicki
  52.    (setq p2 (osnap (cadr ent) "_nea")
  53.          b1 (polar p1 (setq a (angle p1 p2)) bDisb)
  54.          b2 (polar p1 (+ pi a) bDisb))
  55.    
  56.    (setvar "OSMODE" 0)
  57.    (command "_.break" b1 b2)
  58.    (setq bEnt (entlast))
  59.    (if (> a (/ pi 2.))
  60.      (command "_.arc" b2 "_E" b1 "_A" 180.)
  61.      (command "_.arc" b1 "_E" b2 "_A" 180.))
  62.    (setq aEnt (entlast))
  64.    (if (eq "LWPOLYLINE" (cdr (assoc 0 (entget (setq ent (car ent))))))
  65.      (progn
  66.        (setq w (vla-get-ConstantWidth (setq o (vlax-ename->vla-object ent))))
  67.        (command "_.pedit" "_M" bEnt aEnt ent "" "_J" "" "")
  68.        (vla-put-ConstantWidth (vlax-ename->vla-object (entlast)) w)))
  70.    (setq uFlag (vla-EndUndoMark doc)))
  72.  (*error* nil)  
  73.  (princ))

 
提前谢谢！
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 19:10:37 | 显示全部楼层
 
原因是您已将符号“bDis”声明为局部变量，因此该变量的范围仅限于c:jmpr函数；因此，每次计算c:jmpr函数时，“bDis”符号的一个新值被推送到堆栈上。
 
还要注意的是，变量“bDis”在提供给getreal函数的第一个有效输入之后将变成double，因此，itoa函数将失败-这应该是rtos。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 19:17:33 | 显示全部楼层
FWIW，这里有另一种写它的方法，它可能更容易理解，变量“bDis”仍然是局部的：
  1. (if (null myglobalvariable)
  2.    (setq myglobalvariable 1.0)
  3. )
  4. (if (setq bDis (getreal (strcat "\nJump Radius <" (rtos myglobalvariable) ">: ")))
  5.    (setq myglobalvariable bDis)
  6.    (setq bDis myglobalvariable)
  7. )
回复

使用道具 举报

Cylis0509

15

主题

64

帖子

49

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2022-7-5 19:17:50 | 显示全部楼层
 
李·麦克，
 
你就是那个男人！谢谢你，也谢谢你解释它背后的理论。这意味着很多，真的帮助我学习。非常感谢。
回复

使用道具 举报

satishrajdev

55

主题

402

帖子

357

银币

后起之秀

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

铜币
274
发表于 2022-7-5 19:24:25 | 显示全部楼层
 
我使用了GETINT，所以我使用了一个函数将整数转换为字符串。从GETREAL中，您将得到实数，从将其转换为字符串中，您必须使用RTOS。
 
如果您保留任何输入以供将来参考，那么您不应该像李先生提到的那样将其本地化。
  1. (/ *error* A AENT B1 B2 [color="red"]BDISA[/color] BDISB BENT DOC ENT OV P1 P2 UFLAG VL O W)

 
您的代码在此处更新：-
  1. ;;; JMPR.lsp
  2. ;;;
  3. ;;; Description
  4. ;;; Jumper will auto-create the radius jump for pipe crossings. 
  5. ;;;
  6. ;;; Author: Lee Mac (CADTutor)
  7. ;;; Date: 03/25/10
  8. ;;;
  9. ;;; Revision: 1
  10. ;;; Revision Date: 10/30/15
  11. ;;; Description - Modified by David Prontnicki
  12. ;;; Added the ability to select your radius at the beginning of the command.
  13. ;;; Changed interface verbage
  14. ;;;
  15. ;;; Command: JMPR
  16. ;;; -----------------------------------------------------------------------------;
  18. (defun c:jmpr (/ *error* A AENT        B1 B2 BDIS BENT        DOC ENT        OV P1 P2 UFLAG
  19.        VL O W)
  21.  ;(setq bDis (getreal "\n Enter new value for Jump Radius: ")) ; Modified by David Prontnicki
  23.  (setq        bDis (getreal (strcat "\n Enter new value for Jump Radius "
  24.                       (if (not (setq bDisa bDis))
  25.                         ": "
  26.                         (strcat "<" (rtos bDisa) ">: ")
  27.                       )
  28.               )
  29.      )
  30.  )
  31.  (if (and (not bDis) bDisa)
  32.    (setq bDis bDisa)
  33.  )
  35.  (defun *error* (msg)
  36.    (and uFlag (vla-EndUndoMark doc))
  37.    (and ov (mapcar (function setvar) vl ov))
  38.    (and msg
  39.  (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
  40.      (princ (strcat "\n** Error: " msg " **"))
  41.  )
  42.    )
  43.    (princ)
  44.  )
  46.  (setq        doc (vla-get-ActiveDocument (vlax-get-acad-object))
  47. vl  '("PEDITACCEPT" "CMDECHO" "OSMODE")
  48. ov  (mapcar (function getvar) vl)
  49.  )
  50.  (setvar "PEDITACCEPT" 1)
  52.  (while (and (setq uFlag (not (vla-StartUndoMark doc)))
  53.       (mapcar (function setvar) (cdr vl) '(0 32))
  54.       (setq p1 (getpoint "\nPick the crossing intersection: "))
  55.                                 ; Modified by David Prontnicki
  56.       (setq ent (entsel "\nSelect the line to break: "))
  57.  )                                ; Modified by David Prontnicki
  59.    (setq p2 (osnap (cadr ent) "_nea")
  60.   b1 (polar p1 (setq a (angle p1 p2)) bDis)
  61.   b2 (polar p1 (+ pi a) bDis)
  62.    )
  64.    (setvar "OSMODE" 0)
  65.    (command "_.break" b1 b2)
  66.    (setq bEnt (entlast))
  67.    (if        (> a (/ pi 2.))
  68.      (command "_.arc" b2 "_E" b1 "_A" 180.)
  69.      (command "_.arc" b1 "_E" b2 "_A" 180.)
  70.    )
  71.    (setq aEnt (entlast))
  73.    (if        (eq "LWPOLYLINE"
  74.     (cdr (assoc 0 (entget (setq ent (car ent)))))
  75. )
  76.      (progn
  77. (setq w        (vla-get-ConstantWidth
  78.           (setq o (vlax-ename->vla-object ent))
  79.         )
  80. )
  81. (command "_.pedit" "_M" bEnt aEnt ent "" "_J" "" "")
  82. (vla-put-ConstantWidth (vlax-ename->vla-object (entlast)) w)
  83.      )
  84.    )
  86.    (setq uFlag (vla-EndUndoMark doc))
  87.  )
  89.  (*error* nil)
  90.  (princ)
  91. )
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 19:27:28 | 显示全部楼层
 
非常欢迎你Cylis0509，很乐意帮忙。
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 20:23 , Processed in 0.891683 second(s), 63 queries .

© 2020-2025 乐筑天下

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