双色实心图案填充或双c

macklara · 发表于 2022-7-6 23:59:52

我使用AutoCAD不仅用于建筑，有时也用于城市规划。

我需要使用双色实心图案填充或双色粗条纹图案填充。
比如：

我不想用超级图案填充。
它必须是普通图案填充，因为我需要它作为“分区样式”的显示属性。

有人能帮我吗？谢谢
我当前的版本是AutoCAD Architecture 2013。

MSasu · 发表于 2022-7-7 00:10:37

您可以尝试选择用户填充图案，将间距设置为所需条纹宽度的两倍，并应用于要填充的轮廓。接下来，在生成的图案填充位置复制并编辑副本，以调整原点，使两个图案填充的间距相等。为这些图案填充设置两种不同的颜色（最好是两种不用于图形中其他项目的颜色），并在CTB文件中为所述颜色定义自定义线宽（等于条纹宽度）。
由于目前无法访问AutoCAD，我不确定这些条纹的末端将如何显示，但希望您尝试提出的解决方案并反馈回来。

macklara · 发表于 2022-7-7 00:28:48

谢谢你的回复。

我在考虑类似的事情（更简单的事情），但这仍然不是一个好的解决方案。
图案填充的背景色为绿色，图案填充的颜色为红色。
结果如下：

如果使用粗线宽，如2.0 mm或3.0 mm，看起来总是不太好。不管“线端样式”是对接、方形、圆形还是菱形。

MSasu · 发表于 2022-7-7 00:39:23

这就是为什么我担心，图案填充线的末端将不会像预期的那样工作，但我无法在回放时对其进行测试。很抱歉，事实就是这样。
我希望其他人能够提出更好的解决方案。

BIGAL · 发表于 2022-7-7 00:40:09

试过立体和曲奇切割器但没有通过，但解决有点困难，但可以解决绘制外部形状，绘制柱脚cossing形状根据需要制作宽度副本确保通过修剪线。使用pline width和inters可以重新计算图案填充边界并删除pline。

我从trafic island chevron lisp开始，这就是你想要的，我在这里的一个帖子上跟进。我会努力找到它。如此多的口齿不清的名字。

建立http://www.cadtutor.net/forum/showthread.php?59026-道路图案填充和高光=V形

如果我有时间的话，我从来没有完成它，只是用这个方法手动孵化？

BIGAL · 发表于 2022-7-7 00:50:21

刚试过的，可以比extrim更自动化，只需要一条拖拽线来计算两条线之间的间距这是图案填充的拾取点，这样你可以得到奇数形状，因为拖拽线可以超过一条线。我要去看戏。

一次一小步

copy

; this uses the extrim command to trim shape this si part of express tools hence must be loaded
; By Alan H Jan 2012
(setq obj (car (entsel "\npick pline or circle")))
(setq pt1 (Getpoint "\npick start point"))
(setq pt2 (Getpoint pt1 "\npick end point"))
(command "line" pt1 pt2 "")
(setq gap (getreal "\nEnter  line spacing"))
(setq x (getint "\nEnter how many lines"))
(setq pt3 (strcat (rtos gap 2 2) ",0.0"))
(repeat x (command "copy" "L" "" "0,0" pt3 ))
(load "Extrim")
(etrim obj pt1)
(setq obj nil
     pt1 ni)

BIGAL · 发表于 2022-7-7 01:02:46

第二版我有时间的时候会做hatch

copy

; this use the extrim command to trim shape
; By Alan H Jan 2012
(setq obj (car (entsel "\nPick pline or circle")))
; should do a object test here
(setq pt1 (Getpoint "\nPick Line start point"))
(setq pt2 (Getpoint pt1 "\nPick end point"))
(command "line" pt1 pt2 "")
(setq gap (getreal "\nEnter spacing"))
(setq pt3 (getpoint "\nPick 1st cross point"))
(setq pt4 (getpoint pt3 "\nPick 2nd cross point"))
(setq dist (distance pt3 pt4))
(setq x (fix (/ dist gap)))
(setq newpt (strcat (rtos gap 2 2) ",0.0"))
(repeat x (command "copy" "L" "" "0,0" newpt))
(load "Extrim")
(etrim obj pt1)
; work out hatch points work in progress
;(setq ss (ssget "F" (list pt3 pt4)))
; now cen pts  as list
(setq obj nil
     pt1 nil)

[综合讨论] 双色实心图案填充或双c

发表回复

精选推荐