还是求助 是程序有问题还是CAD本身问题

巴拉巴拉巴

我写的逻辑是循环在 线段两端做ssget “C ”上下扩400 去找灰色字体①的后面高度 最后用于出表格计算高度② ，但在使用过程中发现太多线条时候会经常判断为空（如果为空我设置了默认值），我不太清楚具体是为什么。  小白，这种情况一般是不是代码有问题。谢谢大家。
①

巴拉巴拉巴

(if (= ss1 nil)     这是判断灰字的部分  感觉这里可能有问题吧
      (setq lg lbh)
     (progn
      (setq enr (ssname ss1 0))
      (setq enr_data (entget enr))
      (setq lst (mapcar 'cdr (vl-remove-if-not ''((x)(= (car x) 1)) (entget enr))))  ;从图元名中提取对应结果
      (mapcar 'set '(lg ) lst)(setq nnn 1 )
      (repeat (strlen lg)                            ;循环找x
      (setq yy (substr lg  nnn 1))
      (if (or(= "x" yy)(= "X" yy)(= "*" yy))
      (setq yyy (substr lg (1+ nnn)))
      )
      (setq nnn (1+ nnn))   )
      (setq lg (atoi yyy))
      )  )

巴拉巴拉巴

有区别吗 发表于 2023-8-3 19:47
1.没错是ACAD的问题,
2.严格来说是所有需要和可视化的图形前端有人机交互操作的计算机图形软件系统的问题, ...

原来如此 感谢建议         

有区别吗

1.没错是ACAD的问题,
2.严格来说是所有需要和可视化的图形前端有人机交互操作的计算机图形软件系统的问题,
3.用X选,如果速度能接受的话.
4.换高分屏.
5.用其他方式比如扩展数据来存储和读取文本

巴拉巴拉巴

大概这样                          

ssyfeng

用栏选试试

飞雪神光

ssget之前是否 zoom 了？

marcoyuwen

调整判断顺序，textbox求出文本的外框，判断该外框是否与线段相交，且相交符合要求。缺点是循环次数增加了。

巴拉巴拉巴

飞雪神光 发表于 2023-8-3 19:43
ssget之前是否 zoom 了？

没有，zoom 会提高精度吗

巴拉巴拉巴

marcoyuwen 发表于 2023-8-4 08:28
调整判断顺序，textbox求出文本的外框，判断该外框是否与线段相交，且相交符合要求。缺点是循环次数增加了 ...

这个函数还没用过 我是试试 感谢建议