明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 959|回复: 9

[提问] 删除矩形内竖线

[复制链接]
发表于 2024-1-15 10:42:02 | 显示全部楼层 |阅读模式
2明经币
本帖最后由 kzd2004 于 2024-1-17 08:50 编辑

如图,当我画矩形的时候,自动删除里面的竖线,自己用trim编写的好卡,求助高人帮忙
附件: 您需要 登录 才可以下载或查看,没有账号?注册

最佳答案

查看完整内容

(defun c:tt (/ p1 p2 en ) (setq p1 (getpoint "\n指定点:")) (setq p2 (getcorner p1 "\n指定点:")) (command "rectang" p1 p2) (setq en (entlast)) (command ".trim" en "" "f" "non" p1 "non" p2 "" "") (princ) )
发表于 2024-1-15 10:42:03 | 显示全部楼层
(defun c:tt (/ p1 p2 en )
  (setq p1 (getpoint "\n指定点:"))
  (setq p2 (getcorner p1 "\n指定点:"))
  (command "rectang" p1 p2)
  (setq en (entlast))
(command ".trim" en ""  "f" "non" p1 "non" p2 "" "")
  (princ)
  )
回复

使用道具 举报

发表于 2024-1-15 12:44:34 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

 楼主| 发表于 2024-1-15 20:01:17 | 显示全部楼层
本帖最后由 kzd2004 于 2024-1-15 20:02 编辑

谢谢你,正是需要的,大佬能给我源码吗?
回复

使用道具 举报

 楼主| 发表于 2024-1-17 08:52:30 | 显示全部楼层
大佬不回复,给画了个饼,请问还有知道的吗?请帮忙,谢谢。
回复

使用道具 举报

发表于 2024-1-17 17:17:03 | 显示全部楼层
本帖最后由 x_s_s_1 于 2024-1-18 08:44 编辑

胡编乱造版

  1. (defun c:tt  (/ en en1 en2 en3 f pt1 pt2)
  2.     (setq pt1 (getpoint "\n第一点:")
  3.     pt2 (getcorner pt1 "\n第二点:"))
  4.     (vl-cmdf "rectangle" "non" pt1 "non" pt2)
  5.     (setq en  (vlax-ename->vla-object (entlast))
  6.     en1 (car (vlax-invoke en 'offset 1e-3))
  7.     en2 (car (vlax-invoke en 'offset -1e-3)))
  8.     (if  (> (vlax-get en1 'length) (vlax-get en2 'length))
  9.   (setq en3 en1
  10.         en1 en2
  11.         en2 en3))
  12.     (setq f  (mapcar
  13.      'cdr
  14.      (vl-remove-if-not '(lambda (x) (= 10 (car x)))
  15.            (entget (vlax-vla-object->ename en1)))))
  16.     (vla-delete en1)
  17.     (vla-delete en2)
  18.     (vl-cmdf "trim"
  19.        (vlax-vla-object->ename en)
  20.        ""
  21.        "f"
  22.        "non"
  23.        (car f)
  24.        "non"
  25.        (cadr f)
  26.        "non"
  27.        (caddr f)
  28.        "non"
  29.        (cadddr f)
  30.        "non"
  31.        (car f)
  32.        ""
  33.        ""))


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

发表于 2024-1-17 17:43:02 | 显示全部楼层
楼上,对直线、多义线支持有缺陷,会删除框外的线段
回复

使用道具 举报

 楼主| 发表于 2024-1-17 22:07:14 | 显示全部楼层
kwok 发表于 2024-1-15 10:42
(defun c:tt (/ p1 p2 en )
  (setq p1 (getpoint "\n指定点:"))
  (setq p2 (getcorner p1 "\n指定点: ...

谢谢你了。
回复

使用道具 举报

 楼主| 发表于 2024-1-17 22:17:31 | 显示全部楼层
kwok 发表于 2024-1-15 10:42
(defun c:tt (/ p1 p2 en )
  (setq p1 (getpoint "\n指定点:"))
  (setq p2 (getcorner p1 "\n指定点: ...

请问"non"这个是什么意思?
回复

使用道具 举报

发表于 2024-1-18 01:24:01 来自手机 | 显示全部楼层
kzd2004 发表于 2024-1-17 22:17
请问"non"这个是什么意思?

临时取消捕捉。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-4 13:00 , Processed in 0.176499 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表