[求助]：请问怎样用LISP实现擦除功能？

honboo · 发表于 2004-12-23 11:15:37

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

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

×

可能我提的问题太幼稚了，但是我真的是想学好LISP，所以我还要向专家们提问：
1、如果是等间距排列的一行文字，如何寻找到它们的坐标，再删除掉呢？
2、如何获取文字的各个属性（我曾经搜索过相关帖子，但是只是一句表达式，我不知道怎么用啊），各位前辈给个相关方面的例子！

xyp1964 · 发表于 2004-12-23 12:59:22

2
[php]
(defun c:test (/ s1 e)
  (while (setq s1 (entsel "\n选择文字<退出> : "))
(setq e (entget (car s1)))
(if (= (dxf 0 e) "TEXT")
   (princ e)
   (princ "\n所选非文字!")
)
  )
)
(defun dxf (code elist) (cdr (assoc code elist)))
[/php]

honboo · 发表于 2004-12-23 13:53:30

十分感谢！那请再帮我解决一下我的第一个问题，用LISP实现擦除！

xyp1964 · 发表于 2004-12-23 14:05:09

1
(command"erase" ...)
(entdel ename)
(vla-erase obj)

he2000 · 发表于 2004-12-23 22:23:39

谢谢二楼，刚好我也需要这个！

wangxj2002 · 发表于 2004-12-28 20:58:26

非常感谢分享！晓东CAD空间真是个好地方！！支持！！

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

[求助] [求助]：请问怎样用LISP实现擦除功能？

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

相关帖子

浏览过的版块