正在加载...
0人已收藏
0人已打赏
0人已点赞
分享
全部回复(3 )
主题
回复
粉丝
天正给排水
6.48 万条内容 · 361 人订阅
阅读下一篇
室外排水管网画好后,我调整了出图比例,更新标注后,文字与管线重叠了,我然后修改初始设置,文字距管线距离修改了,再“标注复位”结果,文字和管线不重叠了,但原来在管线中间的文字跑到管线一边去了,怎么调整文字的左右对齐啊?[ 本帖最后由 yanhailang 于 2012-9-3 14:41 编辑 ]
遇到了一点小问题
内容不能包含下列词语
回帖成功
经验值 +10
全部回复(3 )
只看楼主 我来说两句-
波
沙发
以前贴过有梁线的上喷喷头布置的程序,因为天正没居中布置
2012-09-01 10:38:01
赞同0
-
ljp493075679
板凳
横向绘制我选的参数是中危1级,行最大间距4000,列最大间距3600,绘出来的就是图1的情况。可能跟行最大间距选择有关系。因为中危1级矩形长边边长4米。
2012-08-31 15:34:31
赞同0
加载更多(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方法也行
回复 举报
回复 举报