[编程申请]：能否做一个超级offset的程序

coolzhb

运行时，先输入距离，然后在一个封闭的图形中点一点，即可将各线段向内offset所定距离，本自动剪切。
见附图

lsjjm

有时在封闭图形内还有其他实体, 点击图形内一点容易引起混乱.
为什么不能点击该封闭曲线呢(用OFFSET即可)?

coolzhb

选择封闭曲线也可以，能实现是最关键的，一般来说，边框线是line，如果窗选后，输入值>0,
外偏，<0内偏，请高手帮忙呀

XDSoft

最初由 coolzhb 发布
[B]选择封闭曲线也可以，能实现是最关键的，一般来说，边框线是line，如果窗选后，输入值>0,
外偏，<0内偏，请高手帮忙呀 [/B]

以前已经给大家写过了, 请看:

晓东工具箱--曲线工具--多重偏移, 可以批量选实体, 进行偏移, 数值为正, 向增大的方向偏, 为负, 向减少的方向偏.

coolzhb

Xd大哥，能把你的程序贴出来吗，我想实现一些功能定制
我其实想做个设备基础的绘图程序，一般我们画好外框，再offset，变成钢筋，在剪切等修改，如果能有一个程序，在外框画好的基础上，在内部一点，即画好钢筋就好了

coolzhb

我将xd的lisp修改了一下，基本上可以达到了我的要求，但是还有几个小毛刺！
1。能不能在选好后不需要在选择轮廓线；
2。可不可以将生成的pline变成独立的pline，方便后面的编辑！
请各位dx指教。
详细请看演示图片！

2. 
   
3. (defun c:ctjc (/ ss box base outline n wid pt dist e)
   
4.   (setq tscale (getvar "dimscale"))
   
5.   (prompt "\n请选取剖面<退出>:")
   
6.   (if (setq ss (ssget '((0 . "solid,*line,ellipse,arc,circle,insert"))))
   
7.     (progn
   
8.       (xdrx_begin '("cmdecho" 0
   
9.                    "highlight" 1
   
10.                   )
    
11.       )
    
12.       (xdrx_ucson)
    
13.       (xdrx_drawing_viewsave)
    
14.       (setq outline (xdrx_searchoutline ss))
    
15.       (foreach n outline
    
16.         (apply
    
17.           'xdrx_grdraw
    
18.           (append
    
19.             (list 1 1)
    
20.             n
    
21.           )
    
22.         )
    
23.       )
    
24.       (xdrx_setmark)
    
25.       (setq wid (* tscale 0.45))
    
26.       (xdrx_searchoutline ss wid)
    
27. 
    
28.       (setq dist (* -2 tscale))
    
29.       (prompt "\n请选取要偏移的实体<退出>:")
    
30.       (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
    
31.       (xdrx_setsstodb ss 0)
    
32.       (while (setq e (xdrx_getentdata 0))
    
33.         (setq pts (xdrx_curve_offset e dist))
    
34.         (command "_.offset" (abs dist) e (car pts) "")
    
35.       )
    
36.       (command "_.erase" "p" "")
    
37.       (xdrx_drawing_viewres)
    
38.       (xdrx_ucsoff)
    
39.       (xdrx_end)
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )
    

<br /> (defun c:ctjc (/ ss box base outline n wid pt dist e)<br />   (setq tscale (getvar "dimscale"))<br />   (prompt "\n请选取剖面<退出>:")<br />   (if (setq ss (ssget '((0 . "solid,*line,ellipse,arc,circle,insert"))))<br />     (progn<br />       (xdrx_begin '("cmdecho" 0<br />                    "highlight" 1<br />                   )<br />       )<br />       (xdrx_ucson)<br />       (xdrx_drawing_viewsave)<br />       (setq outline (xdrx_searchoutline ss))<br />       (foreach n outline<br />         (apply<br />           'xdrx_grdraw<br />           (append<br />             (list 1 1)<br />             n<br />           )<br />         )<br />       )<br />       (xdrx_setmark)<br />       (setq wid (* tscale 0.45))<br />       (xdrx_searchoutline ss wid)<br /> <br />       (setq dist (* -2 tscale))<br />       (prompt "\n请选取要偏移的实体<退出>:")<br />       (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq pts (xdrx_curve_offset e dist))<br />         (command "_.offset" (abs dist) e (car pts) "")<br />       )<br />       (command "_.erase" "p" "")<br />       (xdrx_drawing_viewres)<br />       (xdrx_ucsoff)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

XDSoft

最初由 coolzhb 发布
[B]我将xd的lisp修改了一下，基本上可以达到了我的要求，但是还有几个小毛刺！
1。能不能在选好后不需要在选择轮廓线；
2。可不可以将生成的pline变成独立的pline，方便后面的编辑！
请各位dx指教。
详细请看演示图... [/B]

1、是为了多选的，不选了回车退出，你希望选好后不再提示你选了，可你前面的那些多选怎么实现呢？

2、你的意思是说生成的一条PLINE，你要把每个顶点出断开？那样方便什么编辑？

coolzhb

谢谢xd给我的回答！先回复如下：

1、是为了多选的，不选了回车退出，你希望选好后不再提示你选了，可你前面的那些多选怎么实现呢？
－－－你还是没有明白我说的意思，我的程序在我框选了边界后，用你的边框搜索程序可以生成边框，但下一步我要xoffset，我还得选一下刚才生成的边界线，我的意思能不能让程序自己获得选择集。不要我再选择物体了。

2、你的意思是说生成的一条PLINE，你要把每个顶点出断开？那样方便什么编辑？
－－－因为我画的是结构图，程序的钢筋需要再trim，extend编辑，我贴一个实际的工程图你比较一下即可看出。

XDSoft

最初由 coolzhb 发布
[B]谢谢xd给我的回答！先回复如下：

1、是为了多选的，不选了回车退出，你希望选好后不再提示你选了，可你前面的那些多选怎么实现呢？
－－－你还是没有明白我说的意思，我的程序在我框选了边界后，用你的边框搜索?.. [/B]

生产边框线后，你可以用(entlast)得到。然后你OFFSET他就是自动了。

上面的程序边框顶点在pts变量里面，是顶点表，你每两个顶点间画一个PLINE就解决了。

2. [font=courier]
   
3. (apply 'command (cons "pline" pts))
   
4. (command "")
   
5. [/font]

[font=courier]<br /> (apply 'command (cons "pline" pts))<br /> (command "")<br /> [/font]

上面的代码是根据顶点表PTS画一个PLINE。

如果你要每两点间画，用：

2. [font=courier]
   
3. (while (cdr pts)
   
4.     (command ".pline" (car pts)(cadr pts) "")
   
5.     (setq pts (cdr pts))
   
6. )
   
7. [/font]

[font=courier]<br /> (while (cdr pts)<br />     (command ".pline" (car pts)(cadr pts) "")<br />     (setq pts (cdr pts))<br /> )<br /> [/font]

coolzhb

最初由 XDSoft 发布
[B][QUOTE]最初由 coolzhb 发布
[B]谢谢xd给我的回答！先回复如下：

1、是为了多选的，不选了回车退出，你希望选好后不再提示你选了，可你前面的那些多选怎么实现呢？
－－－你还是没有明白我说的意思，我?.. [/B]

再次感谢xd大哥，我重新写了程序，但entlast还是没用好，即注释部分代替上一行不行，请问为什么，能帮我改一下吗

2. 
   
3. 
   
4. (defun c:ctjc (/ ss box base outline n wid pt dist e dist1)
   
5.   (setq tscale (getvar "dimscale"))
   
6.   (prompt "\n请选取剖面<退出>:")
   
7.   (if (setq ss (ssget '((0 . "solid,*line,ellipse,arc,circle,insert"))))
   
8.     (progn
   
9.       (xdrx_begin '("cmdecho" 0
   
10.                    "highlight" 1
    
11.                   )
    
12.       )
    
13.       (xdrx_ucson)
    
14.       (xdrx_drawing_viewsave)
    
15.       (setq outline (xdrx_searchoutline ss))
    
16.       (foreach n outline
    
17.         (apply
    
18.           'xdrx_grdraw
    
19.           (append
    
20.             (list 1 1)
    
21.             n
    
22.           )
    
23.         )
    
24.       )
    
25.       (xdrx_setmark)
    
26.       (setq wid (* tscale 0.45))
    
27.       (xdrx_searchoutline ss wid)
    
28.       (princ)
    
29.       (setq dist1 (getreal "\n 输入距离：<1>"))
    
30.       (if (= dist1 nil) (setq dist1 -1) (setq dist (* -1 dist1)))
    
31.       (setq dist (* dist1 tscale))
    
32.       (prompt "\n请选取要偏移的实体<退出>:")
    
33.       (setq ss (ssget '((0 . "*line,arc,circle,ellipse"))))
    
34.       ;(setq ss (entget (entlast)))
    
35.       (xdrx_setsstodb ss 0)
    
36.       (while (setq e (xdrx_getentdata 0))
    
37.         (setq pts (xdrx_curve_offset e dist))
    
38.         (command "_.offset" (abs dist) e (car pts) "")
    
39.       )
    
40.       (command "_.erase" "p" "")
    
41.     )
    
42.   )
    
43. 
    
44. 
    
45.   (prompt "\n请选取钢筋:")
    
46.   (if (setq ss (ssget '((0 . "solid,*line,ellipse,arc,circle,insert"))))
    
47.     (progn
    
48.       (setq outline (xdrx_searchoutline ss))
    
49.       (foreach n outline
    
50.         (apply
    
51.           'xdrx_grdraw
    
52.           (append
    
53.             (list 1 1)
    
54.             n
    
55.           )
    
56.         )
    
57.       )
    
58.       (xdrx_setmark)
    
59.       (xdrx_searchoutline ss nil)
    
60.       (command "_.erase" "p" "")
    
61.       (while (cdr pts)
    
62.         (command ".pline" (car pts) "w" (* 0.45 TSCALE) (* 0.45 TSCALE) (cadr pts) "")
    
63.         (setq pts (cdr pts))
    
64.       )
    
65.       (xdrx_drawing_viewres)
    
66.       (xdrx_ucsoff)
    
67.       (xdrx_end)
    
68.     )
    
69.   )
    
70.   (princ)
    
71. )
    

<br /> <br /> (defun c:ctjc (/ ss box base outline n wid pt dist e dist1)<br />   (setq tscale (getvar "dimscale"))<br />   (prompt "\n请选取剖面<退出>:")<br />   (if (setq ss (ssget '((0 . "solid,*line,ellipse,arc,circle,insert"))))<br />     (progn<br />       (xdrx_begin '("cmdecho" 0<br />                    "highlight" 1<br />                   )<br />       )<br />       (xdrx_ucson)<br />       (xdrx_drawing_viewsave)<br />       (setq outline (xdrx_searchoutline ss))<br />       (foreach n outline<br />         (apply<br />           'xdrx_grdraw<br />           (append<br />             (list 1 1)<br />             n<br />           )<br />         )<br />       )<br />       (xdrx_setmark)<br />       (setq wid (* tscale 0.45))<br />       (xdrx_searchoutline ss wid)<br />       (princ)<br />       (setq dist1 (getreal "\n 输入距离：<1>"))<br />       (if (= dist1 nil) (setq dist1 -1) (setq dist (* -1 dist1)))<br />       (setq dist (* dist1 tscale))<br />       (prompt "\n请选取要偏移的实体<退出>:")<br />       (setq ss (ssget '((0 . "*line,arc,circle,ellipse")))) <br />       ;(setq ss (entget (entlast)))<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq pts (xdrx_curve_offset e dist))<br />         (command "_.offset" (abs dist) e (car pts) "")<br />       )<br />       (command "_.erase" "p" "")<br />     )<br />   )<br /> <br /> <br />   (prompt "\n请选取钢筋:")<br />   (if (setq ss (ssget '((0 . "solid,*line,ellipse,arc,circle,insert"))))<br />     (progn<br />       (setq outline (xdrx_searchoutline ss))<br />       (foreach n outline<br />         (apply<br />           'xdrx_grdraw<br />           (append<br />             (list 1 1)<br />             n<br />           )<br />         )<br />       )<br />       (xdrx_setmark)<br />       (xdrx_searchoutline ss nil)<br />       (command "_.erase" "p" "")<br />       (while (cdr pts)<br />         (command ".pline" (car pts) "w" (* 0.45 TSCALE) (* 0.45 TSCALE) (cadr pts) "")<br />         (setq pts (cdr pts))<br />       )<br />       (xdrx_drawing_viewres)<br />       (xdrx_ucsoff)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

麻烦大家看看。现在的程序可以运行，但需要多选择2次！帮忙呀！～
附件为我的外框的dwg图形

coolzhb

现在的演示效果

coolzhb

我现在还有一个请求，能否将两pline线如果夹角大于180，则将pline沿交点延长一个长度，人工输入如200，这是结构上配筋的构造要求，再在每个pline线的内侧居中画3个钢筋剖面点（间距定200），长度小于400的pline线不要，详见附图！
即由上图的效果，通过修改我的程序直接得到下图的效果。

无心伤害

这是干什么的啊？

coolzhb

最初由 无心伤害 发布
[B]这是干什么的啊？ [/B]

结构专业，在模板画好的情况下，自动生成结构配筋图。

XDSoft

最初由 coolzhb 发布
[B]我现在还有一个请求，能否将两pline线如果夹角大于180，则将pline沿交点延长一个长度，人工输入如200，这是结构上配筋的构造要求，再在每个pline线的内侧居中画3个钢筋剖面点（间距定200），长度小于400的pline线不?.. [/B]

请问下PLINE是怎么画的？ 一根封闭的，然后找需要的顶点处理吗？

还是一段一段的PL，两个端点的。

这个问题截图发个新主题吧，说下你的想法。关键是实体类型。