删除existi中的小数

tmelancon · 发表于 2022-7-5 18:22:24

大家好。我有一个例程，在用户想要的图形中输入数据标签。它在文件中查找数据，并根据用户输入的标签号将其插入。然而，对于我们输入的没有信息但用户仍希望调用该标签的数据标签，它只需输入“#50.00-0.00”。我能够删除“0.00”后缀，因为它在代码中很明显。但我也希望删除数据标签后的“.00”，这对我来说并不合适。我唯一想显示的是“#50-”。没有小数和零。

我已经包括了例行程序。和数据标签的快照。原稿在底部。电流在中间。我正在顶部寻找的目标数据标签。希望这会有所帮助，并提前表示感谢。

copy

(defun c:DTEST (/ *ERROR* oldlayr p1 p2 DPNUM)
(defun *error* (msg)
   (if oldlayr (setvar "clayer" oldlayr))
   (if oldos (setvar "osmode" oldos))
   (if msg (prompt msg))
   (princ)
   )
(defun getdpnum ()
(if (= dpnum nil)
(setq dpnum (getreal "\nEnter STARTING datapoint number (1.00-999.99): "))
(setq dpnum (+ dpnum 1)))
)
(WHILE
 (setq oldos (getvar "osmode"))
 (setq oldlayr (getvar "clayer")) (command "._-layer" "s" DATAPOINT "")
 (initget 1)  (setq p1 (getpoint "\nSelect datapoint location on pipe: "))
 (setvar "osmode" 0)
 (initget 33) (setq p2 (getpoint p1 "\nSelect datapoint label location: "))
 (getdpnum)
 (get_info "DATAPOINTS" "END DATAPOINTS" DPINFO "#" "-")
 (command "._-layer" "s" oldlayr "")
 (setvar "OSMODE" OLDOS)
)
(*error* nil)
(prin1))

登录/注册后可看大图

Lee Mac · 发表于 2022-7-5 18:28:58

代码中缺少get\u info函数。

tmelancon · 发表于 2022-7-5 18:36:51

对不起，李，我忘记了，因为答案在这个特定的例程中，因为“0.00”在那里。请参阅下面的GET_INFO例程。再次记住，这段代码很可能引用了其他例程，如果你认为答案可能在其他函数中，请调用它，我会帮你找到它。非常感谢！

copy

(defun get_info (st_pt end_pt lay_name str1 str2 / side p3 p4 inputline
                dpff nlp lchanged printed linetext placeholder)
(if (not (equal p1 p2))
 (progn
  (if (< (car p1) (car p2))
   (progn (setq side "ML") (setq dir 0.0))
   (progn (setq side "MR") (setq dir 180.0))
  )
  (setq p3 (polar p2 (dtr dir) (getvar "userr1")))
  (setq p4 (polar p3 (dtr dir) (getvar "userr1")))
 )
 (progn (setq p4 p2) (setq side "ML")
 )
)
(setq inputline nil)
(openfile)
(seek-tcircuit)
(while (not (equal inputline st_pt)) (setq inputline (read-line infile)))
(setq printed "N")
(while (not (equal inputline end_pt))
 (setq inputline (read-line infile))
 (if (/= inputline end_pt)
  (progn
   (if (= etype "G")
    (progn
     (dpn inputline)
     (setq dpff txt))
    (progn
     (dpn inputline)
     (setq dpff (atof txt))))
   (if (= dpnum dpff)
    (progn
     (if (not (equal p1 p2))
      (progn
       (command "._line" p1 p2 p3 "")
       (setq a (angle p2 p1))
       (command "._solid" p1 (polar p1 (- a 85) (getvar "userr1"))
                             (polar p1 (+ a 85) (getvar "userr1")) "" "")
      )
     )
     (command "._text" side p4 (getvar "userr1") 0 (getline 1 inputline))
     (setq lchanged "N")
     (setq nLp 2)
     (while (<= nLp 5)
      (setq LineText (getline nLp inputline))
      (if (/= (strlen LineText) 0)
       (progn
        (command "._text" "" Linetext)
        (if (= lchanged "N")
         (command "._change" "L" "" "P" "LA" lay_name ""))
        (setq lchanged "Y")
       )
      )
      (setq nLp (1+ nLp))
     )
     (setq Printed "Y")
     (setq inputline end_pt)
    )
   )
  )
 )
)
(closefile)
(if (= printed "N")
 (progn
  (command "._line" p1 p2 p3 "")
  (setq a (angle p2 p1))
  (command "._solid" p1 (polar p1 (- a 85) (getvar "userr1"))
                        (polar p1 (+ a 85) (getvar "userr1")) "" "")
  (if (= etype "G")
   (setq placeholder (strcat str1 dpnum str2))
   (setq placeholder (strcat str1 (rtos dpnum 2 2) str2))
  )
  (if (<= (nth 0 p1) (nth 0 p2))
   (command "._text" side p4 (getvar "userr1") 0 placeholder)
   (command "._text" side p4 (getvar "userr1") 0 placeholder)
  )
 )
)
(prin1))

收件人：

copy

(rtos dpnum 2 2)

或者更好，暂时将DIMZIN更改为8。

Lee Mac · 发表于 2022-7-5 18:43:04

Leeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee！！！你就是那个男人！真的！我希望我在Lisp程序方面能更进步。我完全忽略了代码的这一部分。我真是个笨蛋！

tmelancon · 发表于 2022-7-5 18:50:01

李，我刚刚给你发了一份捐款。谢谢你们的支持和无数次的代码帮助，我真的很感谢你们和你们所做的工作。你继续让我惊讶。祝福。

tmelancon · 发表于 2022-7-5 18:56:36

非常感谢特梅拉康-我真的很感谢你的捐赠和感谢我的时间。

我很高兴能帮上忙！

李

Lee Mac · 发表于 2022-7-5 18:58:25

李，我只是注意到我还有一个问题。我完全忘记了有时我们在一个标签中有多个数据标签（即#50.1、#50.2、#50.3）。当我输入#50.1时，它不是以#50.1的形式输入的，它是以50的形式输入的，它是完全去掉小数并四舍五入。我忘了提一下，当我开始这个帖子的时候，我不应该把标题贴成“删除小数”，这是有误导性的。真正的目标只是删除“.00”，只有当它们在中没有数据时。DAT文件，当它去搜索。然而，当有实际数据时，我需要它插入例如#16.1-或#16.2-但同时显示#50.1-而不是#50.10或#50.00，如果尚未为#50.1内置任何数据-但我们仍然希望在检查和插入该标签的数据时显示调用。我希望这能有所帮助，我感谢你花时间帮我做这件事。

tmelancon · 发表于 2022-7-5 19:04:43

因此，在一张图纸中，我们可能会看到：

#17-管道。290       ;; 当前内置并在中包含数据。DAT文件
#17.1-管道。220    ;; 当前内置并具有十进制，因为它是在同一位置内的第二次数据读取
#50.10-  ;; 此标签没有数据，这是我们进行更改之前显示的内容
#50-    ;;  该标签在更改后输入为50.1，但似乎是四舍五入。我仍然需要它在第十列中显示小数点和数字。我为这篇误导性的原始帖子道歉。

再一次，我只需要一些例外，因为更改实际上是针对没有数据的数据标签，因为我们不喜欢看到“.00-0.00”或“.00”。我希望原始代码在中存在的所有其他数据标签上正常运行。DAT文件并具有数据。

tmelancon · 发表于 2022-7-5 19:13:19

这是一张我正在谈论的图片。底部数据标签#6是一个整数，包含数据。那么，标签#7是一个整数，其中没有数据。DAT文件。接下来是标签#7.1，它是一个没有数据的实数。最后是标签#7.2，这是一个带有数据的实数。这就是我需要他们展示的方式。无论数据是否存在，我们都不喜欢看到0.00和。00或。00-0.00遍布我们的图纸，当我们有几十个标签被叫出，但尚未被检查。

登录/注册后可看大图

tmelancon · 发表于 2022-7-5 19:21:03

我使用DIMZIN变量开关来控制这个例程。效果很好。

[编程交流] 删除existi中的小数

发表回复

精选推荐