飞扬兄，我用天正8.5画矩形喷头的时候，出现了两个问题。1.图1是两条间距3.6米宽的线，中危1级布喷头，并没有布在中间位置，这个有点问题，论坛中之前也有人提出这个问题，不知道有好的解决方法没有。2.图2是竖着的两条间距3.6米的线，我选择的是中危1级，行最大间距4000，保护半径2.55，列相接，但奇怪的是布了两排喷头。为什么同样是3.6米宽的间距，两种情况布出来的喷头不同呢？
飞扬兄，我用天正8.5画矩形喷头的时候，出现了两个问题。
1.图1是两条间距3.6米宽的线，中危1级布喷头，并没有布在中间位置，这个有点问题，论坛中之前也有人提出这个问题，不知道有好的解决方法没有。
2.图2是竖着的两条间距3.6米的线，我选择的是中危1级，行最大间距4000，保护半径2.55，列相接，但奇怪的是布了两排喷头。为什么同样是3.6米宽的间距，两种情况布出来的喷头不同呢？
2楼
楼主 图1 是如何绘制的呢
我无论是 横向 还是 竖向绘制 都是 图2 中效果 距离两个边 600 喷头喷头之间 2400
[
本帖最后由 kobe_bryant24 于 2012-8-31 14:39 编辑 ]
回复
3楼
横向绘制我选的参数是中危1级，行最大间距4000，列最大间距3600，绘出来的就是图1的情况。可能跟行最大间距选择有关系。因为中危1级矩形长边边长4米。
回复
4楼
以前贴过有梁线的上喷喷头布置的程序，因为天正没居中布置
(defun c:tg (/ basePT basepto basepoint firpoint secpoint midx midy)
(princ "\n居中布置天正喷头：")
(setq
basePT (ssname
(ssget "A"
'((0 . "TCH_EQUIPMENT") (2 . "$TwtSys$00000125"))
)
0
)
)
(setq basepto (vlax-ename->vla-object basept))
(setq basepoint (vlax-3d-point (cdr (assoc 10 (entget basept)))))
(while (and (setq firpoint (getpoint "\n点选长方形两个角点，第一点："))
(setq secpoint (getpoint firpoint "第二点："))
)
(setq midx (/ (+ (car firpoint) (car secpoint)) 2.0))
(setq midy (/ (+ (cadr firpoint) (cadr secpoint)) 2.0))
(setq PTcopy (vla-copy basepto))
(vla-move ptcopy basepoint (vlax-3d-point (list midx midy)))
)
(princ)
)
现在想问问版主，能否用entmake直接创立一个喷头，需要哪些组码？或者用.com的ADD方法和.net的new方法也行
回复
