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

daidong013

回复 zhynt 的帖子

Z版大侠：画完洞口后能把PL线直接前置吗？~

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

daidong013

等待中！~~出来顶一下！~~

zhynt

(command "_.BHATCH" "s" dk_ss "" "p" "ANSI31" "100" "0" "")

daidong013

回复 zhynt 的帖子

可以了！~~再次感谢，！

zhengchuan

zhynt 大师，这个程序能不能改一下，就是指定两个对角点后，向里面偏移100~200，最好可以输入距离，然后再画洞口线啊

zhengchuan

默认为100mm。

zhengchuan

.怎么图片传不上去啊

zhynt

2. 
   
3. (defun err (s)
   
4.   (if (and (/= s "console break")
   
5.            (/= s "Function cancelled")
   
6.            (/= s "quit/exit abort")
   
7.       )
   
8.     (progn (setvar "LUPREC" oldlup)
   
9.            (setvar "LUNITS" oldlun)
   
10.            (setvar "osmode" oldos)
    
11.            (setvar "cmdecho" oldcmd)
    
12.            (setvar "clayer" oldlay)
    
13.            (setq *error* olderr)
    
14.            (princ (strcat "\n程序出错或用户退出:" s))
    
15.     )
    
16.   )
    
17. )
    
18. (defun bak ()
    
19.   (command "_.undo" "be")
    
20.   (setq        oldos        (getvar "osmode")
    
21.         oldcmd        (getvar "cmdecho")
    
22.         oldlun        (getvar "LUNITS")
    
23.         oldlup        (getvar "LUPREC")
    
24.         olderr        *error*
    
25.         *error*        err
    
26.         oldlay        (getvar "clayer")
    
27.   )
    
28. )
    
29. (defun rebak ()
    
30.   (setvar "osmode" oldos)
    
31.   (setvar "cmdecho" oldcmd)
    
32.   (setvar "clayer" oldlay)
    
33.   (setvar "LUPREC" oldlup)
    
34.   (setvar "LUNITS" oldlun)
    
35.   (command "_.undo" "e")
    
36. )
    
37. (setq rea  100.0
    
38.       real 20.0
    
39. )
    
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_rea
    
64.                  (getreal
    
65.                    (strcat "\n输入边框宽度:<"
    
66.                            (rtos rea 2 4)
    
67.                            ">:"
    
68.                    )
    
69.                  )
    
70.           )
    
71.           (if (= dk_rea nil)
    
72.             (setq dk_rea rea)
    
73.             (setq rea dk_rea)
    
74.           )
    
75.           (setq        dk_real
    
76.                  (getreal
    
77.                    (strcat "\n输入阴影拐角处宽度:<"
    
78.                            (rtos real 2 4)
    
79.                            ">:"
    
80.                    )
    
81.                  )
    
82.           )
    
83.           (if (= dk_real nil)
    
84.             (setq dk_real real)
    
85.             (setq real dk_real)
    
86.           )
    
87.           (setq        dk_ptn (list (min (car dk_pt1) (car dk_pt3))
    
88.                              (min (cadr dk_pt1) (cadr dk_pt3))
    
89.                        )
    
90.                 dk_pt3 (list (max (car dk_pt1) (car dk_pt3))
    
91.                              (max (cadr dk_pt1) (cadr dk_pt3))
    
92.                        )
    
93.                 dk_pt1 dk_ptn
    
94.           )
    
95.           (if (< oldos 16384)
    
96.             (setvar "osmode" (+ oldos 16384))
    
97.           )
    
98.           (setvar "clayer" "pub_dim")
    
99.           (if (/= dk_rea 0)
    
100.             (progn
     
101.               (setq dk_pt1 (polar dk_pt1 (/ pi 4.0) (* dk_rea (sqrt 2)))
     
102.                     dk_pt3 (polar dk_pt3
     
103.                                   (* (/ pi 4.0) 5)
     
104.                                   (* dk_rea (sqrt 2))
     
105.                            )
     
106.               )
     
107.               (command "_.RECTANGLE" dk_pt1 dk_pt3)
     
108.             )
     
109.           )
     
110.           (setq        ptax (car dk_pt1)
     
111.                 ptay (cadr dk_pt1)
     
112.                 ptbx (car dk_pt3)
     
113.                 ptby (cadr dk_pt3)
     
114.           )
     
115.           (setq        dk_pt2 (list ptax ptby)
     
116.                 dk_pt4 (list ptbx ptay)
     
117.                 dk_pt5 (polar dk_pt2 (/ (* pi 7.0) 4) (* dk_real (sqrt 2)))
     
118.           )
     
119.           (command "_.pline" dk_pt1 dk_pt2 dk_pt3 dk_pt5 "C")
     
120.           (setq dk_ss (entlast))
     
121.           (if (= (substr (getvar "acadver") 1 2) "18")
     
122.             (command "_.BHATCH"        "s" dk_ss "" "la" "pub_hatch" "p" "s" "")
     
123.             (progn
     
124.               (setvar "clayer" "pub_hatch")
     
125.               (command "_.BHATCH" "s" dk_ss "" "p" "s" "")
     
126.             )
     
127.           )
     
128.         )
     
129.       )
     
130.     )
     
131.   )
     
132.   (rebak)
     
133.   (princ)
     
134. )
     

<br /> (defun err (s)<br />   (if (and (/= s "console break")<br />            (/= s "Function cancelled")<br />            (/= s "quit/exit abort")<br />       )<br />     (progn (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 rea  100.0<br />       real 20.0<br /> )<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_rea<br />                  (getreal<br />                    (strcat "\n输入边框宽度:<"<br />                            (rtos rea 2 4)<br />                            ">:"<br />                    )<br />                  )<br />           )<br />           (if (= dk_rea nil)<br />             (setq dk_rea rea)<br />             (setq rea dk_rea)<br />           )<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 />           (if (< oldos 16384)<br />             (setvar "osmode" (+ oldos 16384))<br />           )<br />           (setvar "clayer" "pub_dim")<br />           (if (/= dk_rea 0)<br />             (progn<br />               (setq dk_pt1 (polar dk_pt1 (/ pi 4.0) (* dk_rea (sqrt 2)))<br />                     dk_pt3 (polar dk_pt3<br />                                   (* (/ pi 4.0) 5)<br />                                   (* dk_rea (sqrt 2))<br />                            )<br />               )<br />               (command "_.RECTANGLE" dk_pt1 dk_pt3)<br />             )<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 />           (command "_.pline" dk_pt1 dk_pt2 dk_pt3 dk_pt5 "C")<br />           (setq dk_ss (entlast))<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 />         )<br />       )<br />     )<br />   )<br />   (rebak)<br />   (princ)<br /> )<br />

zhengchuan

太感谢啦！解决我一个大问题啦。谢谢zhynt 大师，您真是个热心人，再次谢谢！

daidong013

回复 zhynt 的帖子

Z版大侠看看能在这基础上改成这样吗？！~~