我正在再次进行自动绘图过程，遇到了一个真正的障碍。是的，我做了广泛的搜索，在论坛上找到了这个。这似乎解释了可能的错误，但问题是我画了四（4）个这样的区域，相同的代码对所有这些区域都很好。但是有一些条件只会改变一些维度，我最终得到的是右侧的完美图像，但左侧的图像没有阴影。请记住，我使用的是相同的代码，我的意思是我将一些变量传递给一个函数，该函数可以绘制左右图像。
我可以通过等待在每个图像的底部插入通道块，直到图案填充完成后，使其工作。这让我大吃一惊，因为在任何情况下，右边的那个都能工作。但是，当通道在图案填充之前插入时，我会使用图案填充的单个夹点，而不是它通常创建的多个夹点。此外，请注意，在所有这些之前绘制了一条线，这使得混凝土区域的背面能够正常工作，因此边界命令将正常工作。图案填充完成后，将根据用户的偏好对该PLINE进行嵌入。
这是我用来准备这些图像的代码。我不能解释所有的变量，只知道一切都是可行的。只是在舱口之前插入通道导致了这种行为，这让我感到困惑。这些是彼此的镜像，但在生产运行中总是有足够的差异，我不能简单地使用mirror命令来重新创建。
- (doit pt7 pi)
- (doit pt8 0)
- (defun doit ( _pt _left)
- .
- .
- .
- (command "._LINE"
- (polar (polar _pt a270 (- slabdp 0.4375)) _left 4)
- (polar (polar _pt a270 (- slabdp 0.4375)) _left 0.375)
- ""
- )
- (command ".CLAYER" "Layer12")
- (command "._LINE"
- (polar (polar _pt a270 afrmdp1) _left 0.375)
- (polar (polar _pt a270 (- slabdp 0.4375)) _left 0.375)
- (polar _pt a270 (- slabdp 0.4375))
- (polar _pt a270 afrmdp1)
- ""
- )
-
- (command "._INSERT"
- (strcat blkpath _nrblk)
- (polar _pt a270 tonr)
- ""
- ""
- ""
- (Concrete_Hatch _pt _left)
- (entdel pl1)
- (princ)
- ); end doit function
- (defun Concrete_Hatch ( pt x / _bound)
- (command "._ZOOM" "A")
- (command "._CLAYER" "Concrete")
- (command "_-BOUNDARY" (polar pt x (+ afrmdp1 2)) "")
- (setq _bound (entlast))
- (if (/= _bound (entlast))
- (command "_-hatch" "_S" "_L" "" "_P" "AR-CONC" "0.25" "0.0" "")
- )
- (entdel _bound)
-
- (princ)
- ); end Concrete_Hatch function
我希望这是清楚的。再次出于专有原因，我不得不去掉一些代码。。。但这应该足以显示我在使用什么，并可能有助于指示在绘制左侧时出现了什么问题。
| 
置顶卡
