[编程申请]：大哥大姐叔叔阿姨，来帮改一下程序

寒光四射 · 发表于 2005-11-19 12:31:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有这么一段程序：实现标注面积：
(defun c:test (/ pt en aa)
  (while (setq pt (getpoint "\n选取封闭域内一点 : "))
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
   (progn
(command "area" "o" en)
(setq aa (STRCAT "S=" (RTOS (GETVAR "AREA") 2 2)))
   )
)
(entdel en)
(command "text" "j" "mc" pt "" "" aa)
  )
)
它要自动画线后才能算面积，(command "area" "o" en)
随后删除，用（entdel en）
我的图纸经常很复杂，有时候面积标注的还不知道是哪些封闭线，有的线相交，有的线不闭合，为了知道是谁的面积，我删除程序的 (entdel en)语句（自动线颜色和图纸线颜色不同，易看到），随后手工一根一根的删除自动画的封闭线。
现在问题是如何解决这问题啊？要看到画的线，这样我能确定是谁的面积，然后又能全部删除这些自动画的线？
如果不要 (entdel en)语句，也就是面积标注完毕后，怎样删除全部自动线？
开始的时候能能不能不是自动画线，而是选种状态（标注谁的面积，那封闭线处于选种状态）
我是刚学习LISP，不是很熟悉，大家帮帮忙吧

taner · 发表于 2005-11-19 12:42:57

搜一下,网上一大把

真龙天子 · 发表于 2005-11-19 15:26:30

(setq aa (STRCAT "S=" (RTOS (GETVAR "AREA") 2 2)))
在上一行的后面加上一行(setq tt (getstring ""))等待输入的空函数,等到你看清楚后再回车,你想等多久就多久.

HuaiYu · 发表于 2005-11-19 20:58:43

试试这个也不错
(vl-cmdf pause)

寒光四射 · 发表于 2005-11-21 14:46:10

谢谢大家好心，实现了停顿来删除
我现在在研究，面积标注完毕后，再全部删除那些自动线，有什么建议可以提

xyp1964 · 发表于 2005-11-21 15:23:07

可以研究一下这个实例：
http://www.xdcad.net/forum/showt ... y=&pagenumber=7

lingnemo · 发表于 2005-11-22 15:19:26

我有但是不知道怎么用呀

MUYIY · 发表于 2022-6-16 21:15:50

谢谢学习学习

账号		自动登录	找回密码
密码			立即注册

[编程申请]：大哥大姐叔叔阿姨，来帮改一下程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子