【求洞口线的绘制】已解决！~~

daidong013

经常用到画洞口线，求这样的洞口线绘制工具！~~

依然小小鸟

zhynt 发表于 2011-6-29 14:26
坐在板凳上给你写：

能支持框选吗  批量画洞口并且填充

stonedesign

zhynt 发表于 2011-6-29 14:26
坐在板凳上给你写：

能支持点选空间就好了   更快捷

daidong013

自己坐个沙发@！~顶一下！~~

zhynt

坐在板凳上给你写：

2. 
   
3. (defun err (s)
   
4.   (if (and
   
5.         (/= s "console break")
   
6.         (/= s "Function cancelled")
   
7.         (/= s "quit/exit abort")
   
8.       )
   
9.     (progn
   
10.       (setvar "LUPREC" oldlup)
    
11.       (setvar "LUNITS" oldlun)
    
12.       (setvar "osmode" oldos)
    
13.       (setvar "cmdecho" oldcmd)
    
14.       (setvar "clayer" oldlay)
    
15.       (setq *error* olderr)
    
16.       (princ (strcat "\n程序出错或用户退出:" s))
    
17.     )
    
18.   )
    
19. )
    
20. (defun bak ()
    
21.   (command "_.undo" "be")
    
22.   (setq        oldos        (getvar "osmode")
    
23.         oldcmd        (getvar "cmdecho")
    
24.         oldlun        (getvar "LUNITS")
    
25.         oldlup        (getvar "LUPREC")
    
26.         olderr        *error*
    
27.         *error*        err
    
28.         oldlay        (getvar "clayer")
    
29.   )
    
30. )
    
31. (defun rebak ()
    
32.   (setvar "osmode" oldos)
    
33.   (setvar "cmdecho" oldcmd)
    
34.   (setvar "clayer" oldlay)
    
35.   (setvar "LUPREC" oldlup)
    
36.   (setvar "LUNITS" oldlun)
    
37.   (command "_.undo" "e")
    
38. )
    
39. (setq real 20.0)
    
40. (defun c:dk (/                dk_pt1          dk_pt2    dk_pt3    dk_pt4
    
41.               dk_kd        nk_pt1          nk_pt2    nk_pt3    nk_pt4
    
42.               olds        oldcmd          oldlup    oldlay    nk_n
    
43.               nk_kd        ptax          ptay            ptaz      ptbx
    
44.               ptby        ptbz          l_pt1_pt4 l_pt2_pt3 l_n
    
45.               ang_pt1_pt4
    
46.              )
    
47.   (bak)  
    
48.   (setvar "cmdecho" 0)
    
49.   (setvar "LUPREC" 8)
    
50.   (setvar "LUNITS" 2)
    
51.   (if (= (TBLOBJNAME "LAYER" "PUB_HATCH") nil)
    
52.     (command "layer" "m" "PUB_HATCH" "c" "8" "" "")
    
53.   )
    
54.   (if (= (TBLOBJNAME "LAYER" "PUB_DIM") nil)
    
55.     (command "layer" "m" "PUB_DIM" "c" "3" "" "")
    
56.   )
    
57.   (setq dk_pt1 (getpoint "\n指定第一角点:[退出]"))
    
58.   (if (/= dk_pt1 nil)
    
59.     (progn
    
60.       (setq dk_pt3 (getcorner dk_pt1 "\n指定第二角点:[退出]"))
    
61.       (if (/= dk_pt3 nil)
    
62.         (progn
    
63.           (setq        dk_real
    
64.                  (getreal
    
65.                    (strcat "\n输入边框宽度:<"
    
66.                            (rtos real 2 4)
    
67.                            ">:"
    
68.                    )
    
69.                  )
    
70.           )
    
71.           (if (= dk_real nil)
    
72.             (setq dk_real real)
    
73.             (setq real dk_real)
    
74.           )
    
75.           (setq        dk_ptn (list (min (car dk_pt1) (car dk_pt3))
    
76.                              (min (cadr dk_pt1) (cadr dk_pt3))
    
77.                        )
    
78.                 dk_pt3 (list (max (car dk_pt1) (car dk_pt3))
    
79.                              (max (cadr dk_pt1) (cadr dk_pt3))
    
80.                        )
    
81.                 dk_pt1 dk_ptn
    
82.           )
    
83.           (setq        ptax (car dk_pt1)
    
84.                 ptay (cadr dk_pt1)
    
85.                 ptbx (car dk_pt3)
    
86.                 ptby (cadr dk_pt3)
    
87.           )
    
88.           (setq        dk_pt2 (list ptax ptby)
    
89.                 dk_pt4 (list ptbx ptay)
    
90.                 dk_pt5 (polar dk_pt2 (/ (* pi 7.0) 4) (* dk_real (sqrt 2)))
    
91.           )
    
92.           (if (< oldos 16384)
    
93.             (setvar "osmode" (+ oldos 16384))
    
94.           )
    
95.           (setvar "clayer" "pub_dim")
    
96.           (command "_.pline" dk_pt1 dk_pt2 dk_pt3 dk_pt5 "C")
    
97.           (setq dk_ss (entlast))
    
98.           (command "_.BHATCH" "s" dk_ss "" "la" "pub_hatch" "p" "s" "")
    
99.         )
    
100.       )
     
101.     )
     
102.   )
     
103.   (rebak)
     
104.   (princ)
     
105. )
     

<br /> (defun err (s)<br />   (if (and<br />         (/= s "console break")<br />         (/= s "Function cancelled")<br />         (/= s "quit/exit abort")<br />       )<br />     (progn<br />       (setvar "LUPREC" oldlup)<br />       (setvar "LUNITS" oldlun)<br />       (setvar "osmode" oldos)<br />       (setvar "cmdecho" oldcmd)<br />       (setvar "clayer" oldlay)<br />       (setq *error* olderr)<br />       (princ (strcat "\n程序出错或用户退出:" s))<br />     )<br />   )<br /> )<br /> (defun bak ()<br />   (command "_.undo" "be")<br />   (setq        oldos        (getvar "osmode")<br />         oldcmd        (getvar "cmdecho")<br />         oldlun        (getvar "LUNITS")<br />         oldlup        (getvar "LUPREC")<br />         olderr        *error*<br />         *error*        err<br />         oldlay        (getvar "clayer")<br />   )<br /> )<br /> (defun rebak ()<br />   (setvar "osmode" oldos)<br />   (setvar "cmdecho" oldcmd)<br />   (setvar "clayer" oldlay)<br />   (setvar "LUPREC" oldlup)<br />   (setvar "LUNITS" oldlun)<br />   (command "_.undo" "e")<br /> )<br /> (setq real 20.0)<br /> (defun c:dk (/                dk_pt1          dk_pt2    dk_pt3    dk_pt4<br />               dk_kd        nk_pt1          nk_pt2    nk_pt3    nk_pt4<br />               olds        oldcmd          oldlup    oldlay    nk_n<br />               nk_kd        ptax          ptay            ptaz      ptbx<br />               ptby        ptbz          l_pt1_pt4 l_pt2_pt3 l_n<br />               ang_pt1_pt4<br />              )<br />   (bak)  <br />   (setvar "cmdecho" 0)<br />   (setvar "LUPREC" 8)<br />   (setvar "LUNITS" 2)<br />   (if (= (TBLOBJNAME "LAYER" "PUB_HATCH") nil)<br />     (command "layer" "m" "PUB_HATCH" "c" "8" "" "")<br />   )<br />   (if (= (TBLOBJNAME "LAYER" "PUB_DIM") nil)<br />     (command "layer" "m" "PUB_DIM" "c" "3" "" "")<br />   )<br />   (setq dk_pt1 (getpoint "\n指定第一角点:[退出]"))<br />   (if (/= dk_pt1 nil)<br />     (progn<br />       (setq dk_pt3 (getcorner dk_pt1 "\n指定第二角点:[退出]"))<br />       (if (/= dk_pt3 nil)<br />         (progn<br />           (setq        dk_real<br />                  (getreal<br />                    (strcat "\n输入边框宽度:<"<br />                            (rtos real 2 4)<br />                            ">:"<br />                    )<br />                  )<br />           )<br />           (if (= dk_real nil)<br />             (setq dk_real real)<br />             (setq real dk_real)<br />           )<br />           (setq        dk_ptn (list (min (car dk_pt1) (car dk_pt3))<br />                              (min (cadr dk_pt1) (cadr dk_pt3))<br />                        )<br />                 dk_pt3 (list (max (car dk_pt1) (car dk_pt3))<br />                              (max (cadr dk_pt1) (cadr dk_pt3))<br />                        )<br />                 dk_pt1 dk_ptn<br />           )<br />           (setq        ptax (car dk_pt1)<br />                 ptay (cadr dk_pt1)<br />                 ptbx (car dk_pt3)<br />                 ptby (cadr dk_pt3)<br />           )<br />           (setq        dk_pt2 (list ptax ptby)<br />                 dk_pt4 (list ptbx ptay)<br />                 dk_pt5 (polar dk_pt2 (/ (* pi 7.0) 4) (* dk_real (sqrt 2)))<br />           )<br />           (if (< oldos 16384)<br />             (setvar "osmode" (+ oldos 16384))<br />           )<br />           (setvar "clayer" "pub_dim")<br />           (command "_.pline" dk_pt1 dk_pt2 dk_pt3 dk_pt5 "C")<br />           (setq dk_ss (entlast))<br />           (command "_.BHATCH" "s" dk_ss "" "la" "pub_hatch" "p" "s" "")<br />         )<br />       )<br />     )<br />   )<br />   (rebak)<br />   (princ)<br /> )<br />

daidong013

回复 zhynt 的帖子

还是Z版大侠热心！~~程序不错！~~
就是画的时候出现以下情况，有pl框但填充没有另外捕捉也失效了！~~是什么问题？~~~（请教）要怎么改！~


指定第一角点:[退出]
指定第二角点:[退出]
输入边框宽度:<20>:

需要二维角点或选项关键字。

程序出错或用户退出:函数被取消
指定内部点或
[特性(P)/选择对象(S)/绘图边界(W)/删除边界(B)/高级(A)/绘图次序(DR)/原点(O)]:

图案填充间距太密，或短划尺寸太小。

再请教一下：如果直接填充改成solid的填充可能不会出现这样的问题了吧？
或者能设一下填充的样式、比例、和角度!

zhynt

我是在2012上写的，以前版本BHATCH选项与现在的不一样，所以出问题了。
这是2012的bhatch选项：
[特性(P)/选择对象(S)/绘图边界(W)/删除边界(B)/高级(A)/绘图次序(DR)/原点(O)/注释性(AN)/图案填充颜色(CO)/图层(LA)/透明度(T)]:
2008的选项：
[特性(P)/选择对象(S)/绘图边界(W)/删除边界(B)/高级(A)/绘图次序(DR)/原点(O)/注释性(AN)]:

daidong013

回复 zhynt 的帖子

那要怎么改一下呢？
或者能设一下填充的样式、比例、和角度再不行就把填充改成solid!~~

zhynt

请将
(command "_.BHATCH" "s" dk_ss "" "la" "pub_hatch" "p" "s" "")
替换改为

2. 
   
3. (if (= (substr (getvar "acadver") 1 2) "18")
   
4.             (command "_.BHATCH"        "s" dk_ss "" "la" "pub_hatch" "p" "s" "")
   
5.             (progn
   
6.               (setvar "clayer" "pub_hatch")
   
7.               (command "_.BHATCH" "s" dk_ss "" "p" "s" "")
   
8.             )
   
9.           )
   

<br /> (if (= (substr (getvar "acadver") 1 2) "18")<br />             (command "_.BHATCH"        "s" dk_ss "" "la" "pub_hatch" "p" "s" "")<br />             (progn<br />               (setvar "clayer" "pub_hatch")<br />               (command "_.BHATCH" "s" dk_ss "" "p" "s" "")<br />             )<br />           )<br />

zhynt

回复 daidong013 的帖子

我设的就是solid

daidong013

回复 zhynt 的帖子

可以了！~~感谢啊！~~Z版大侠应该成为版主！~~
活雷锋！~~对您表示敬意！~~

daidong013

再请教一下！~~如果要改填充图案式样要在那里改！~~
( 图案样式ANSI31---比例100---角度为0 )