【求助】求大佬给完善代码

yangyangyixia

现有一份在封闭曲线内绘制方格网的代码，求大佬给完善代码

需求：
1.绘制的方格网每隔4条线设置为一条黄色实线，中间4条设置为灰色虚线；
2.方格网左侧、下侧每隔4条线设置一个数字，数字以手动选取的交点为（0,0）原点。

edrise

看你这个比较简单，练手顺手写了个糙的，可以实现你需要的功能，有币的话就给我吧，缺币中...

1. (defun c:tt (/ d xnum ynum pt0 x0 y0 m n x1 y1 x2 y2 pt3 x3 y3 x4 y4)
   
2.   (setq d    (getreal "请输入网格间距")
   
3.         xnum (getint "请输入列数\n")
   
4.         ynum (getint "请输入行数\n")
   
5.         pt0  (getpoint "请选取左下角点\n")
   
6.         x0   (car pt0)
   
7.         y0   (cadr pt0)
   
8.         m    (* xnum 5)
   
9.         n    (* ynum 5)
   
10.         x1   (+ x0 (* d m))
    
11.         y1   (+ y0 (* d n))
    
12.         x2   (+ x0 d)
    
13.         y2   (+ y0 d)
    
14.   )
    
15.   (entmake (list '(0 . "LINE") '(62 . 2) (append '(10) pt0) (list 11 x0 y1 0)))
    
16.   (entmake (list '(0 . "LINE") '(62 . 2) (append '(10) pt0) (list 11 x1 y0 0)))
    
17.   (repeat m
    
18.     (if (/= 0 (rem (- x2 x0) (* 5 d)))
    
19.       (entmake
    
20.         (list '(0 . "LINE")
    
21.               '(62 . 8)
    
22.               '(6 . "DASH")
    
23.               (list 10 x2 y0 0)
    
24.               (list 11 x2 y1 0)
    
25.         )
    
26.       )
    
27.       (entmake (list '(0 . "LINE") '(62 . 2) (list 10 x2 y0 0) (list 11 x2 y1 0)))
    
28.     )
    
29.     (setq x2 (+ d x2))
    
30.   )
    
31.   (repeat n
    
32.     (if (/= 0 (rem (- y2 y0) (* 5 d)))
    
33.       (entmake
    
34.         (list '(0 . "LINE")
    
35.               '(62 . 8)
    
36.               '(6 . "DASH")
    
37.               (list 10 x0 y2 0)
    
38.               (list 11 x1 y2 0)
    
39.         )
    
40.       )
    
41.       (entmake (list '(0 . "LINE") '(62 . 2) (list 10 x0 y2 0) (list 11 x1 y2 0)))
    
42.     )
    
43.     (setq y2 (+ d y2))
    
44.   )
    
45.   (setq pt3     (getpoint "请选择原点\n")
    
46.         x3      (car pt3)
    
47.         y3      (cadr pt3)
    
48.         x4      x0
    
49.         y4      y0
    
50.   )
    
51.   (repeat (1+ xnum)
    
52.     (entmake
    
53.       (list '(0 . "TEXT")
    
54.             '(10 0.0 0.0 0.0)
    
55.             (cons 40 d)
    
56.             (cons 1 (rtos (* 5 (/ (- x4 x3) d))))
    
57.             '(71 . 0)
    
58.             '(72 . 4)
    
59.             (list 11 x4 (- y0 d) 0.0)
    
60.       )
    
61.     )
    
62.     (setq x4 (+ x4 (* 5 d)))
    
63.   )
    
64.   (repeat (1+ ynum)
    
65.     (entmake
    
66.       (list '(0 . "TEXT")
    
67.             '(10 0.0 0.0 0.0)
    
68.             (cons 40 d)
    
69.             (cons 1 (rtos (* 5 (/ (- y4 y3) d))))
    
70.             '(71 . 0)
    
71.             '(72 . 4)
    
72.             (list 11 (- x0 d) y4 0.0)
    
73.       )
    
74.     )
    
75.     (setq y4 (+ y4 (* 5 d)))
    
76.   )
    
77.   (entmake (list '(0 . "LINE") '(62 . 3) (list 10 x3 y0 0) (list 11 x3 y1 0)))
    
78.   (entmake (list '(0 . "LINE") '(62 . 3) (list 10 x0 y3 0) (list 11 x1 y3 0)))
    
79.   (princ)
    
80. )

(defun c:tt (/ d xnum ynum pt0 x0 y0 m n x1 y1 x2 y2 pt3 x3 y3 x4 y4) <br />   (setq d    (getreal "请输入网格间距")<br />         xnum (getint "请输入列数\n")<br />         ynum (getint "请输入行数\n")<br />         pt0  (getpoint "请选取左下角点\n")<br />         x0   (car pt0)<br />         y0   (cadr pt0)<br />         m    (* xnum 5)<br />         n    (* ynum 5)<br />         x1   (+ x0 (* d m))<br />         y1   (+ y0 (* d n))<br />         x2   (+ x0 d)<br />         y2   (+ y0 d)<br />   )<br />   (entmake (list '(0 . "LINE") '(62 . 2) (append '(10) pt0) (list 11 x0 y1 0)))<br />   (entmake (list '(0 . "LINE") '(62 . 2) (append '(10) pt0) (list 11 x1 y0 0)))<br />   (repeat m <br />     (if (/= 0 (rem (- x2 x0) (* 5 d))) <br />       (entmake <br />         (list '(0 . "LINE") <br />               '(62 . 8)<br />               '(6 . "DASH")<br />               (list 10 x2 y0 0)<br />               (list 11 x2 y1 0)<br />         )<br />       )<br />       (entmake (list '(0 . "LINE") '(62 . 2) (list 10 x2 y0 0) (list 11 x2 y1 0)))<br />     )<br />     (setq x2 (+ d x2))<br />   )<br />   (repeat n <br />     (if (/= 0 (rem (- y2 y0) (* 5 d))) <br />       (entmake <br />         (list '(0 . "LINE") <br />               '(62 . 8)<br />               '(6 . "DASH")<br />               (list 10 x0 y2 0)<br />               (list 11 x1 y2 0)<br />         )<br />       )<br />       (entmake (list '(0 . "LINE") '(62 . 2) (list 10 x0 y2 0) (list 11 x1 y2 0)))<br />     )<br />     (setq y2 (+ d y2))<br />   )<br />   (setq pt3     (getpoint "请选择原点\n")<br />         x3      (car pt3)<br />         y3      (cadr pt3)<br />         x4      x0<br />         y4      y0<br />   )<br />   (repeat (1+ xnum) <br />     (entmake <br />       (list '(0 . "TEXT") <br />             '(10 0.0 0.0 0.0)<br />             (cons 40 d)<br />             (cons 1 (rtos (* 5 (/ (- x4 x3) d))))<br />             '(71 . 0)<br />             '(72 . 4)<br />             (list 11 x4 (- y0 d) 0.0)<br />       )<br />     )<br />     (setq x4 (+ x4 (* 5 d)))<br />   )<br />   (repeat (1+ ynum) <br />     (entmake <br />       (list '(0 . "TEXT") <br />             '(10 0.0 0.0 0.0)<br />             (cons 40 d)<br />             (cons 1 (rtos (* 5 (/ (- y4 y3) d))))<br />             '(71 . 0)<br />             '(72 . 4)<br />             (list 11 (- x0 d) y4 0.0)<br />       )<br />     )<br />     (setq y4 (+ y4 (* 5 d)))<br />   )<br />   (entmake (list '(0 . "LINE") '(62 . 3) (list 10 x3 y0 0) (list 11 x3 y1 0)))<br />   (entmake (list '(0 . "LINE") '(62 . 3) (list 10 x0 y3 0) (list 11 x1 y3 0)))<br />   (princ)<br /> )

寒潮大冬瓜

你直接到'e派工具箱'院长的群里求助更快更直接……

yangpingjun

edrise 发表于 2024-12-30 03:55
看你这个比较简单，练手顺手写了个糙的，可以实现你需要的功能，有币的话就给我吧，缺币中...

大佬，使用你的代码，我的是这样的。没有中间纵横的四条灰线？

edrise

yangpingjun 发表于 2024-12-30 10:39
大佬，使用你的代码，我的是这样的。没有中间纵横的四条灰线？

纳尼？你生成一个然后把dwg发上来看看呢，我反复测试了都没问题

xj6019

好用不好用币都不要给我，我就是凑热闹的，把币留给需要的人

tangweinbs

感谢分享，学习学习。

xj6019

edrise 发表于 2024-12-30 10:44
纳尼？你生成一个然后把dwg发上来看看呢，我反复测试了都没问题

他没加载 DASH线型，你的代码里没自动判断加载的，所以就是他那样了  没别的

edrise

xj6019 发表于 2024-12-30 11:12
他没加载 DASH线型，你的代码里没自动判断加载的，所以就是他那样了  没别的

原来如此，确实没想过这个，也暂时不会，如果是这样，把线型组码删了能将就用用

edrise

xj6019 发表于 2024-12-30 11:09
好用不好用币都不要给我，我就是凑热闹的，把币留给需要的人

大佬，你的插件加载报错是咋回事呢，CAD2021