乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 20|回复： 13

[编程交流] 填充单个线

[复制链接]
lfe011969

17

主题

127

帖子

110

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-6 09:55:05 | 显示全部楼层 |阅读模式
我公司从事船舶维修行业，我们处理的标准图纸类型是系统成熟度图纸。通常情况下，我们会获取原始安装图，然后在新图纸中通过在代表任何必须移除的线上绘制图案填充出相关设备和电缆。
 
我曾经工作过的公司使用了一个内部开发的AutoCAD附加组件（由VLISP Bible的作者David Stein开发），它有一个行填充命令。这个命令的使用非常有益，尤其是在大型图纸上。我最近开始编写自己的lisp来实现同样的目标，下面的代码就是我想到的。
 
代码运行得很好，我只是知道，由于我不是最高效的代码编写者，可能有很多方法可以改进它。如果有任何建议或建设性的批评，我将不胜感激。
 
  1. (defun *error* ( msg )
  2.  (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
  3.    (princ (strcat "\n ** ERROR: " msg " **")))
  4.  (setq ssline nil)
  5.  (princ)
  6. )
  7. (defun c:autohatch ( / ssline lineobj PtLst ptx1 ptx2 pty1 pty2 )
  9.  (defun hatch_vert_line ( / x1 x2 x3 x4 )
  10.    (setq x1 (- ptx1 0.1))
  11.    (setq x2 (+ ptx1 0.1))
  12.    (setq x3 (+ ptx2 0.1))
  13.    (setq x4 (- ptx2 0.1))
  14.    (entmakex
  15.      (list
  16.         (cons 0 "HATCH")
  17.         (cons 100 "AcDbEntity")
  18.         (cons 8 "0")
  19.         (cons 100 "AcDbHatch")
  20.         (cons 62 256)
  21.         (cons 10 (list 0.0 0.0 0.0))
  22.         (cons 210 (list 0.0 0.0 1.0))
  23.         (cons 2 "ANSI31")
  24.         (cons 70 1)
  25.         (cons 71 0)
  26.         (cons 91 1)
  27.         (cons 92 1)
  28.         (cons 93 4)
  29.         (cons 72 1)
  30.         (cons 10 (list x1 pty1 0))
  31.         (cons 11 (list x2 pty1 0))
  32.         (cons 72 1)
  33.         (cons 10 (list x2 pty1 0))
  34.         (cons 11 (list x3 pty2 0))
  35.         (cons 72 1)
  36.         (cons 10 (list x3 pty2 0))
  37.         (cons 11 (list x4 pty2 0))
  38.         (cons 72 1)
  39.         (cons 10 (list x4 pty2 0))
  40.         (cons 11 (list x1 pty1 0))
  41.         (cons 97 0)
  42.         (cons 75 2)
  43.         (cons 76 1)
  44.         (cons 98 1)
  45.         (cons 10 (list 0.0 0.0 0.0))
  46.      )
  47.    )
  48.    (setq ssline nil)
  49.  )
  50.  (defun hatch_horiz_line ( / y1 y2 y3 y4 )
  51.    (setq y1 (- pty1 0.1))
  52.    (setq y2 (+ pty1 0.1))
  53.    (setq y3 (+ pty2 0.1))
  54.    (setq y4 (- pty2 0.1))
  55.    (entmakex
  56.      (list
  57.         (cons 0 "HATCH")
  58.         (cons 100 "AcDbEntity")
  59.         (cons 8 "0")
  60.         (cons 100 "AcDbHatch")
  61.         (cons 62 256)
  62.         (cons 10 (list 0.0 0.0 0.0))
  63.         (cons 210 (list 0.0 0.0 1.0))
  64.         (cons 2 "ANSI31")
  65.         (cons 70 1)
  66.         (cons 71 0)
  67.         (cons 91 1)
  68.         (cons 92 1)
  69.         (cons 93 4)
  70.         (cons 72 1)
  71.         (cons 10 (list ptx1 y1 0))
  72.         (cons 11 (list ptx1 y2 0))
  73.         (cons 72 1)
  74.         (cons 10 (list ptx1 y2 0))
  75.         (cons 11 (list ptx2 y3 0))
  76.         (cons 72 1)
  77.         (cons 10 (list ptx2 y3 0))
  78.         (cons 11 (list ptx2 y4 0))
  79.         (cons 72 1)
  80.         (cons 10 (list ptx2 y4 0))
  81.         (cons 11 (list ptx1 y1 0))
  82.         (cons 97 0)
  83.         (cons 75 2)
  84.         (cons 76 1)
  85.         (cons 98 1)
  86.         (cons 10 (list 0.0 0.0 0.0))
  87.      )
  88.    )
  89.    (setq ssline nil)
  90.  )
  91.  (while
  92.    (not (setq ssline (ssget ":S" '((0 . "LINE")))))
  93.  )
  94.  (setq lineobj (vlax-ename->vla-object (ssname ssline 0)))
  95.  (vla-getboundingbox lineobj 'MinPt 'MaxPt)
  96.  (setq PtLst (cons (vlax-safearray->list MinPt) PtLst))
  97.  (setq PtLst (cons (vlax-safearray->list MaxPt) PtLst))
  98.  (setq ptx1 (car (car PtLst)))
  99.  (setq pty1 (cadr (car PtLst)))
  100.  (setq ptx2 (car (cadr PtLst)))
  101.  (setq pty2 (cadr (cadr PtLst)))
  102.  (cond
  103.    ((equal ptx1 ptx2 0.001) (hatch_vert_line))
  104.    ((equal pty1 pty2 0.001) (hatch_horiz_line))
  105.    (T (alert "Please pick a vertical or horizontal line."))
  106.  )
  107.  (c:autohatch)
  108. )
自动图案填充。LSP
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 10:01:40 | 显示全部楼层
我的一次老尝试可以在这里找到。
 
李
 
编辑：哎呀！看看你的代码，我想我误解了这个帖子。。。
回复

使用道具 举报

lfe011969

17

主题

127

帖子

110

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-6 10:04:45 | 显示全部楼层
该程序实际上只填充水平线或垂直线。请参阅下面的图片，以比较我所说的内容。
 
105514xsos8or1dbzrk18p.jpg
 
105516ypakca7i9c29h927.jpg
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 10:12:08 | 显示全部楼层
是的，我完全错了，哈哈
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 10:17:27 | 显示全部楼层
我想我应该试试命令版本。
 
  2. [b][color=BLACK]([/color][/b]defun c:hatchl [b][color=FUCHSIA]([/color][/b]/ ss en ed p10 p11 h10 h11 h12 h13[b][color=FUCHSIA])[/color][/b]
  3.  [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"LINE"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
  4.       [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  5.              [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]
  6.                   p10 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  7.                   p11 [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 11 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
  8.                   h10 [b][color=GREEN]([/color][/b]polar p10 [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]angle p10 p11[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* pi  0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] 0.1[b][color=GREEN])[/color][/b]
  9.                   h11 [b][color=GREEN]([/color][/b]polar p10 [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]angle p10 p11[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* pi -0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] 0.1[b][color=GREEN])[/color][/b]
  10.                   h12 [b][color=GREEN]([/color][/b]polar p11 [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]angle p11 p10[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* pi  0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] 0.1[b][color=GREEN])[/color][/b]
  11.                   h13 [b][color=GREEN]([/color][/b]polar p11 [b][color=BLUE]([/color][/b]+ [b][color=RED]([/color][/b]angle p11 p10[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]* pi -0.5[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] 0.1[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
  12.              [b][color=MAROON]([/color][/b]command [color=#2f4f4f]"_.HATCH"[/color] [color=#2f4f4f]"ANSI31"[/color] 1 0 [color=#2f4f4f]""[/color] [color=#2f4f4f]"N"[/color] h10 h11 h12 h13 h10 [color=#2f4f4f]""[/color] [color=#2f4f4f]""[/color][b][color=MAROON])[/color][/b]
  13.              [b][color=MAROON]([/color][/b]ssdel en ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
  14.  [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

 
多年来，哈奇的一切似乎都没有真正的一致性。
 
可能需要解决CLAYER、CECOLOR ans以及错误陷阱。您也可以调整线条角度。
 
我的0.02美元-David
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 10:18:53 | 显示全部楼层
大概
  2. (if (equal (rem (angle p10 p11) (* pi 0.5)) 0 1e-
  3.    (command "_.HATCH"....)
  4. )

对于正交线
回复

使用道具 举报

lfe011969

17

主题

127

帖子

110

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-6 10:24:07 | 显示全部楼层
 
大卫，
 
谢谢你的建议，但这段代码对我不起作用。我收到消息“无法填充边界”
 
由于李误解了我在做什么，也许我对我的代码做什么不够清楚。我试图通过检索线的点来填充单独的线，以此为基础，通过entmakex创建一个图案填充，该图案填充将在线的每一侧以0.1”的距离覆盖线。
回复

使用道具 举报

David Bethel

26

主题

1495

帖子

20

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2022-7-6 10:31:19 | 显示全部楼层
明白我说的不一致是什么意思吗。命令版本可能再次更改（自a2k以来）。我知道dxf代码也发生了很大的变化。
 
我想我理解这种情况。ansi31图案填充，比例1，角度0，2点线路径，边界点4，无边界。这应该是一件简单的事情，但当autodesk完成它时，它将变得炙手可热。
 
-大卫
回复

使用道具 举报

lfe011969

17

主题

127

帖子

110

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2022-7-6 10:33:19 | 显示全部楼层
这是2009年-hatch的序列：
 
-图案填充
P（属性）
ANSI31
1.0（比例）
0.0（角度）
W代表（绘制边界）
N表示（保留多段线边界？）
PT1
PT2
...
PTN公司
C（关闭）
“”（接受）
""
 
所以我想命令行代码应该是：
 
  1. (command "-hatch" "P" "ANSI31" "1" "0" "W" "N" pt1 pt2 pt3 pt4 "C" "" "")

 
 
编辑：
确认，这一行使用我的代码代替entmakex。所以我只是好奇，为什么你认为在这种情况下命令会比entmakex更好？
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:38:05 | 显示全部楼层
 
朗尼，
 
以下是使用Express Tools Make linetype创建的线型。该文件称为Hatch。林。它使用文本形状/在其中。您可以使用ltscale进行调整。
见附件。
孵出拉链
105518wcvphaviukviopxm.jpg
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 00:35 , Processed in 0.480907 second(s), 74 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表