乐筑天下

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

[编程交流] 打印字段公式内容

[复制链接]
samifox

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 16:13:14 | 显示全部楼层 |阅读模式
你好
 
使用acad 2017
 
我得到了一个简单的公式，可以进行数学运算并打印出结果，
但我希望它能打印出整个公式和结果。
 
怎么做？
 
见附件
171316y0wiie00e5azqg04.jpg
field_frml。图纸
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:33:54 | 显示全部楼层
可以这样做，例如对于使用cond类型的字符串4.83 x 7.05的4个简单计算，查找x-+/然后将文本拆分为num1 num2和数学。
 
  1. definatley not tested
  2. (setq num1 (getreal "enter 1st value"))
  3. (setq num2 (getreal "enter 2nd value"))
  4. (setq math (getstring "enter math value"))
  5. (cond
  6. ((= (strcase math) "X")(setq ans (strcat (rtos num1 2 2 ) " " math " " (rtos num2 2 2) " = " (rtos (* num1 num2) 2 2 )))))
  7. ... same for + - /
  8. )
  9. (command "Text" pt "" "" ans)
回复

使用道具 举报

samifox

218

主题

699

帖子

483

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1090
发表于 2022-7-5 16:37:51 | 显示全部楼层
谢谢比格尔。我希望用更友好的方式来做，但Lisp程序是一个真正的解决方案，
毕竟，Feilds是为非程序员服务的
再次感谢
 
Lisp我来了
 
谢伊
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 16:49:56 | 显示全部楼层
这是一个dcl前端，第三行是*/-+
 
（ah:getval3“1st number”5 4“1”“2nd number”8 7“2”“数学运算+-/*”6 4“*”）
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-7-5 17:01:40 | 显示全部楼层
这是一个更新版本需要getvals3。lsp
 
  1. ; Formula as text .lsp
  2. ; By Alan H July 2017
  3. (defun mathtxt ( / num1 num2 val1 val2 val3)
  4. (setq decpl 2)
  5. (if (not Ah:getval3)(load "getvals3"))
  6. (ah:getval3 "1st number " 5 4 "1" "2nd number " 8 7 "2" "Math operation + - / *" 6 4 "X")
  7. (setq num1 (atof val1))
  8. (setq num2 (atof val2))
  9. (if  (= (strcase val3) "X") (setq ans (strcat val1 " " val3 " " val2 " = " (rtos (* num1 num2) 2 decpl ))))
  10. (if (=  val3 "-")(setq ans (strcat val1 " " val3 " "  val2 " = " (rtos (- num1 num2) 2 decpl ))))
  11. (if (= val3 "+")(setq ans (strcat val1 " " val3 " "  val2  " = " (rtos (+ num1 num2) 2 decpl ))))
  12. (if (= val3 "/")(setq ans (strcat val1 " " val3 " "  val2  " = " (rtos (/ num1 num2) 2 decpl ))))
  13. (command "Text" (getpoint) "" ans) ; text with preset height
  14. ;(command "Text" (getpoint) "" "" ans) ;text with no height set
  15. (mathtxt)

 
  2. ; Input  Dialog box with variable title
  3. ; multiple lines of dcl input supported
  4. ; add extra lines if required by copying code defun
  5. ; By Alan H 2015
  6. (vl-load-com)
  8. ; 1 line dcl
  9. ; sample code (ah:getval1 "Line 1" 5 4 "-")
  10. (defun AH:getval1 (title width limit def1 / fo fname)
  11. ; you can hard code a directory if you like for dcl file
  12. (setq fo (open (setq fname (vl-filename-mktemp "" "" ".dcl")) "w"))
  13. ;(setq fo (open (setq fname "c:\\acadtemp\\getval.dcl") "w"))
  14. (write-line "ddgetval : dialog {" fo)
  15. (write-line " : row {" fo)
  16. (write-line ": edit_box {" fo)
  17. (write-line (strcat "    key = "  (chr 34) "key1" (chr 34) ";") fo)
  18. (write-line  (strcat " label = "  (chr 34) title (chr 34) ";"  )   fo)
  19. ; these can be replaced with shorter value etc
  20. (write-line (strcat "     edit_width = " (rtos width 2 0) ";" ) fo)
  21. (write-line (strcat "     edit_limit = " (rtos limit 2 0) ";" ) fo)
  22. (write-line "   is_enabled = true;" fo)
  23. (write-line "    }" fo)
  24. (write-line "  }" fo)
  25. (write-line "ok_only;}" fo)
  26. (close fo)
  28. (setq dcl_id (load_dialog  fname))
  29. ; pt is a list 2 numbs -1 -1 centre ('(20 20))
  30. ;(not (new_dialog "test" dch "" *screenpoint*)) 
  31. (if (not (new_dialog "ddgetval" dcl_id))
  32. (exit))
  33. (set_tile "key1" (setq val1 def1))
  34. (action_tile "key1" "(setq val1 $value)")
  35. (mode_tile "key1" 3)
  36. (start_dialog)
  37. (done_dialog)
  38. (unload_dialog dcl_id)
  39. ; returns the value of val1 as a string
  40. (vl-file-delete fname)
  41. ) ; defungetval1
  43. ; 2 line dcl
  44. ; sample code (ah:getval2 "Line 1" 5 4 "1" "Line2" 8 7 "2")
  45. (defun AH:getval2 (title1 width1 limit1 def1 title2 width2 limit2 def2 / fo fname)
  46. (setq fo (open (setq fname "c:\\acadtemp\\getval.dcl") "w"))
  47. (write-line "ddgetval2 : dialog {" fo)
  48. (write-line " : column {" fo)
  49. (write-line ": edit_box {" fo)
  50. (write-line (strcat "    key = " (chr 34) "key1" (chr 34) ";") fo)
  51. (write-line  (strcat " label = "  (chr 34) title1 (chr 34) ";" ) fo)
  52. (write-line (strcat "     edit_width = " (rtos width1 2 0) ";" ) fo)
  53. (write-line (strcat "     edit_limit = " (rtos limit1 2 0) ";" ) fo)
  54. (write-line "   is_enabled = true ;" fo)
  55. (write-line "    }" fo)
  56. (write-line "spacer_1 ;" fo)
  57. (write-line ": edit_box {" fo)
  58. (write-line (strcat "    key = " (chr 34) "key2" (chr 34) ";") fo)
  59. (write-line (strcat " label = "  (chr 34) title2 (chr 34) ";"  ) fo)
  60. (write-line (strcat "     edit_width = " (rtos width2 2 0) ";" ) fo)
  61. (write-line (strcat "     edit_limit = " (rtos limit2 2 0) ";" ) fo)
  62. (write-line "   is_enabled = true ;" fo)
  63. (write-line "    }" fo)
  64. (write-line "    }" fo)
  65. (write-line "spacer_1 ;" fo)
  66. (write-line "ok_only;}" fo)
  67. (close fo)
  69. ; code part
  70. (setq dcl_id (load_dialog  fname))
  71. (if (not (new_dialog "ddgetval2" dcl_id))
  72. (exit))
  73. (mode_tile "key1" 3)
  74. (set_tile "key1" (setq val1 def1))
  75. (action_tile "key1" "(setq val1 $value)")
  76. (mode_tile "key2" 3)
  77. (set_tile "key2" (setq val2 def2))
  78. (action_tile "key2" "(setq val2 $value)")
  79. (start_dialog)
  80. (done_dialog)
  81. (unload_dialog dcl_id)
  82. ; returns the value of val1 and val2 as strings
  83. (vl-file-delete fname)
  84. ) ; defungetval2
  86. ; 3 line dcl
  87. ; sample code (ah:getval3 "Line 1" 5 4 "0.9" "Line 2" 8 7 "wow" "Line 3" 6 4 "123")
  89. (defun AH:getval3 (title1 width1 limit1 def1 title2 width2 limit2 def2 title3 width3 limit3 def3 / fo fname)
  90. (setq fo (open (setq fname "c:\\acadtemp\\getval.dcl") "w"))
  91. (write-line "ddgetval3 : dialog {" fo)
  92. (write-line " : column {" fo)
  93. (write-line ": edit_box {" fo)
  94. (write-line (strcat "    key = " (chr 34) "key1" (chr 34) ";") fo)
  95. (write-line  (strcat " label = "  (chr 34) title1 (chr 34) ";" ) fo)
  96. (write-line (strcat "     edit_width = " (rtos width1 2 0) ";" ) fo)
  97. (write-line (strcat "     edit_limit = " (rtos limit1 2 0) ";" ) fo)
  98. (write-line "   is_enabled = true ;" fo)
  99. (write-line "    }" fo)
  100. (write-line "spacer_1 ;" fo)
  101. (write-line ": edit_box {" fo)
  102. (write-line (strcat "    key = " (chr 34) "key2" (chr 34) ";") fo)
  103. (write-line (strcat " label = "  (chr 34) title2 (chr 34) ";"  ) fo)
  104. (write-line (strcat "     edit_width = " (rtos width2 2 0) ";" ) fo)
  105. (write-line (strcat "     edit_limit = " (rtos limit2 2 0) ";" ) fo)
  106. (write-line "   is_enabled = true ;" fo)
  107. (write-line "    }" fo)
  108. (write-line "spacer_1 ;" fo)
  109. (write-line ": edit_box {" fo)
  110. (write-line (strcat "    key = " (chr 34) "key3" (chr 34) ";") fo)
  111. (write-line (strcat " label = "  (chr 34) title3 (chr 34) ";"  ) fo)
  112. (write-line (strcat "     edit_width = " (rtos width3 2 0) ";" ) fo)
  113. (write-line (strcat "     edit_limit = " (rtos limit3 2 0) ";" ) fo)
  114. (write-line "   is_enabled = true ;" fo)
  115. (write-line "    }" fo)
  116. (write-line "    }" fo)
  117. (write-line "spacer_1 ;" fo)
  118. (write-line "ok_only;}" fo)
  119. (close fo)
  121. ; code part
  122. (setq dcl_id (load_dialog  fname))
  123. (if (not (new_dialog "ddgetval3" dcl_id))
  124. (exit))
  125. (mode_tile "key1" 3)
  126. (set_tile "key1" (setq val1 def1))
  127. (action_tile "key1" "(setq val1 $value)")
  128. (mode_tile "key2" 3)
  129. (set_tile "key2" (setq val2 def2))
  130. (action_tile "key2" "(setq val2 $value)")
  131. (mode_tile "key3" 3)
  132. (set_tile "key3" (setq val3 def3))
  133. (action_tile "key3" "(setq val3 $value)")
  134. (start_dialog)
  135. (done_dialog)
  136. (unload_dialog dcl_id)
  137. ; returns the value of val1 val2 and val3 as strings
  138. (vl-file-delete fname)
  139. ) ; defungetval3
回复

使用道具 举报

tombu

17

主题

1274

帖子

25

银币

后起之秀

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

铜币
260
发表于 2022-7-5 17:24:46 | 显示全部楼层
看看李的http://www.lee-mac.com/fieldmath.html
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-14 21:06 , Processed in 0.412171 second(s), 67 queries .

© 2020-2025 乐筑天下

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