挪威的森林 发表于 2012-8-3 21:03:02

如何把矩形转换成区域覆盖

刚接接触LISP没几天，今天是第一次发贴。想请各位大哥帮我解决一下问题：我想通过起点和对角点绘制一个矩形，然后自动把这个矩形转换在区域覆盖。不知道程序能不能实现这个问题呢？我现在仅了解一点点这方面的知识。希望有好心人帮我解答一下，谢谢了

preone 发表于 2012-8-3 21:34:01

本帖最后由 preone 于 2012-8-3 21:39 编辑

(defun c:wtt (/ tmp)
(setq tmp (getpoint "矩形第一点:"))
(command "rectang" tmp (getcorner tmp "\n矩形对角点:"))
(command "wipeout" "" (entlast) "y")
(princ)
)
简单的程序，自己可以尝试编一下~~

xyp1964 发表于 2019-1-24 18:08:16

(defun c:tt ()
(while (and (setq p1 (getpoint "矩形第一点: "))
              (setq p2 (getcorner p1 "\n矩形对角点: "))
       )
    (command "rectang" "non" p1 "non" p2"wipeout" "" (entlast) "y")
)
(princ)
)

挪威的森林 发表于 2012-8-4 06:02:26

preone 发表于 2012-8-3 21:34 static/image/common/back.gif
(defun c:wtt (/ tmp)
(setq tmp (getpoint "矩形第一点:"))
(command "rectang" tmp (getcorner tmp ...

非常感谢这位朋友的热心相助，太让我吃惊了，我原以为最少也要十几行代码才能做到，没想到竟然这么简单。LISP真的太强大了。

preone 发表于 2012-8-4 09:40:34

挪威的森林 发表于 2012-8-4 06:02 static/image/common/back.gif
非常感谢这位朋友的热心相助，太让我吃惊了，我原以为最少也要十几行代码才能做到，没想到竟然这么简单。 ...

有些东西想的太复杂，就会把自己吓住~~

sx147 发表于 2012-8-6 17:04:37

preone思路很清晰啊，多谢！

c735023723 发表于 2012-8-22 20:39:30

高手啊，呵呵

淡雅香 发表于 2017-12-29 18:47:26

preone 发表于 2012-8-3 21:34
(defun c:wtt (/ tmp)
(setq tmp (getpoint "矩形第一点:"))
(command "rectang" tmp (getcorner tmp ...

谢谢，完美解决

①直卟諪の努力 发表于 2019-1-22 14:41:26

插入到CAD后的 执行命令是什么？不知道怎么用啊

断面CAD 发表于 2019-1-24 13:00:46

①直卟諪の努力 发表于 2019-1-22 14:41
插入到CAD后的 执行命令是什么？不知道怎么用啊

在txt里复制粘贴代码然后保存为lsp后缀名，然后在cad里面appload加载后输入wtt命令即可，在此谢谢牛人分享！
页: [1] 2
查看完整版本: 如何把矩形转换成区域覆盖