如何将角点与

bubba7420 · 发表于 2022-7-7 14:02:50

好的，所以这可能是一个非常愚蠢的问题，但我疯狂地试图找出它，我甚至不太确定这是否可能。。。好了，就这样。。我在一家橱柜店工作，我做所有的施工图。。。。我们使用autocad 2004（我知道它是恐龙），所以我得出结论，动态块不能在2004年完成，这太糟糕了，我说的对吗？。。。最近，我的老板让我开始在橱柜上刷门样式，让店主签字确认。这样会更准确。但由于动态块不是一个选项，我要么单独绘制每一个，要么采用我制作的门样式，拉伸每一个，以适应最终需要花费的时间与。。所以如果我沿着这条路画每一个，所有的偏移都会很快。但是对于凸出的板门，我必须把这些线连接在两个角上，这需要很长时间，因为我发现唯一的方法是在每个角之间画一条线。请告诉我有更快的方法

BIGAL · 发表于 2022-7-7 14:10:26

你可以发布一个示例dwg，你可能没有动态块，但你在2004年有lisp，你想过这样做吗，只需回答一些问题，然后绘制面板。

Dana W · 发表于 2022-7-7 14:20:35

对不起，动态块出现在2007年至2009年的某个地方。

可以绘制一条斜接线，然后在中镜像其他三条斜接线，然后成对复制并镜像。这节省了一点时间。使用面板顶部和侧面线的中点作为镜像线。

steven-g · 发表于 2022-7-7 14:29:25

我不知道这是否适用于您，绘制一个矩形，在属性中将多段线的全局厚度更改为您的门扶手的宽度，并将打印样式设置为隐藏线，应绘制一条宽多段线，显示斜接的角（不过您需要调整大小）。

bubba7420 · 发表于 2022-7-7 14:34:37

楠塔基特。DwgheyBigal，我以前看过，但我似乎从来没有正确安装过。如果它能起作用就太好了。我已经附上了我尝试使用的门样式的图纸

zaphod · 发表于 2022-7-7 14:43:38

也许你可以修改这段代码来帮助你，我也只是在学习愚蠢的括号中丢失的代码，这有助于我理解。

http://worldclasscad.com/lisp_pdf/chapter_09_auto_dimensioning.pdf

Boro Nut · 发表于 2022-7-7 14:51:18

如果绘制2D，我的第一个反射是在您的门块上绘制一个矩形，偏移Defpoints层上所需的重叠量，然后使用该矩形将门拉伸到所需大小。您可以在完成后关闭defpoints，或指定不太显眼的颜色并忽略它。它不会打印出来。

波罗螺母

BIGAL · 发表于 2022-7-7 14:57:23

很容易从lisp只需要一些规则，首先使用矩形绘制门，只需偏移，最后偏移给出斜接线，我会有一些默认的宽度高度偏移1偏移2-4，所以只需按enter键接受。我注意到顶部和底部面板是不同的3个面板v的4，这是因为顶部面板的高度系数。我应该能够做一些很快的事情，它将基于测试指标，但我会评论的价值观，以改变将试图做的脚。我做了一个数据输入的快捷方式，将尝试添加也。1’10 1/4“1.10.1.4是1英尺10英寸+1/4英寸1’是1.0

BIGAL · 发表于 2022-7-7 15:05:50

好的，看看这个，say ver 5的say版本1，它将绘制多个面板，如果方向正确，那么会变得更智能，以防你不知道将代码复制到记事本另存为橱柜。lsp然后使用Appload pick橱柜回答问题。

copy


; draw multiple offsets
; needs some smarts added for various predefined offsets
; by alan h June 2014
(defun 3panel ( / pt1 pt2 pt3 ang dist)
(setq pt1 (getpoint "\nSelect lower left cnr"))
(setq W (getdist pt1 "please enter width"))
(setq H (getdist pt1 "please enter height"))
(setq pt2 (list (+ (car pt1) w)(+ (cadr pt1) H)))
(setq ang (angle pt1 pt2))
(setq dist (/ (distance pt1 pt2) 2.0 ))
(setq pt3 (polar pt1 ang dist))
(command "rectang" pt1 pt2) 
(setq obj (entlast))
(command "offset" 3 obj pt3 "") ; 3" offset
(repeat 2                       ; draw 3 panels
(setq obj (entlast))
(command "offset" 1 obj pt3 "") ; 1" offset
)
(setq co-ords (getcoords (entlast)))
(co-ords2xy) ; list of 2d points making pline
(setq pt1 (list (car pt1) (+ H (cadr pt1))))
(command "line" pt1 (nth 0 co-ordsxy) "") ; add other 3 lines here
)
; pline co-ords example
; By Alan H
(defun getcoords (ent)
 (vlax-safearray->list
   (vlax-variant-value
     (vlax-get-property
   (vlax-ename->vla-object ent)
   "Coordinates"
     )
   )
 )
)
(defun co-ords2xy ()
; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z
(setq len (length co-ords))
(setq numb (/ len 2)) ; even and odd check required
(setq I 0)
(repeat numb
(setq xy (list (nth i co-ords)(nth (+ I 1) co-ords) ))
; odd (setq xy (list (nth i co-ords)(nth (+ I 1) co-ords)(nth (+ I 2) co-ords) ))
(setq co-ordsxy (cons xy co-ordsxy))
(setq I (+ I 2))
)
)
(3panel)

[综合讨论] 如何将角点与

发表回复

精选推荐