[编程申请]：网格线如何编？

qq8899

在施工图纸中要画斜向网格线
通常做法是offset线段，一根根偏移
有什么好的办法能够快速做出网格线？

姚菲菲

请把图样上传

f5612140

繪圖->剖面線(HATCH)中的樣本"ANSI37"不行嗎

小狼

2. (defun GRID (idx ids / ss idx dis xx yx xs ys train row entl osn fu)
   
3.   (setvar "cmdecho" 0)
   
4.   (command "_.undo" "be")
   
5.   (setq ss (ssget "x" '((8 . "a91") (0 . "*polyline"))))
   
6.   (if (/= nil ss)
   
7.     (command "layer" "t" "a91" "u" "a91" "" "erase" ss "")
   
8.   )
   
9.   (setvar "cecolor" "bylayer")
   
10.   (command "-layer" "m"        "a91" "c" "1" "a91" "lt" "Continuous" "a91" "")
    
11.   (setq        xx    (* (* 0.5 100) (fix (/ (car idx) (* 0.5 100))))
    
12.         yx    (* (* 0.5 100) (fix (/ (cadr idx) (* 0.5 100))))
    
13.         xs    (+ (* 0.5 100)
    
14.                  (* (* 0.5 100) (fix (/ (car ids) (* 0.5 100))))
    
15.               )
    
16.         ys    (+ (* 0.5 100)
    
17.                  (* (* 0.5 100) (fix (/ (cadr ids) (* 0.5 100))))
    
18.               )
    
19.         train xx
    
20.         row   yx
    
21.         fu    400
    
22.         osn   (getvar "osmode")
    
23.   )
    
24.   (setvar "osmode" 0)
    
25.   (while (<= train xs)
    
26.     (command "pline" (list train yx) (list train ys) "")
    
27.     (if        (= (rem train (* 0.5 500)) 0)
    
28.       (progn
    
29.         (setq entl (entlast))
    
30.         (command "_change" entl "" "p" "c" "3" "")
    
31.       )
    
32.     )
    
33.     (setq train (+ train (* 0.5 100)))
    
34.   )
    
35. 
    
36.   (while (<= row ys)
    
37.     (command "pline" (list xx row) (list xs row) "")
    
38.     (if        (= (rem row (* 0.5 400)) 0)
    
39.       (progn
    
40.         (setq entl (entlast))
    
41.         (command "_change" entl "" "p" "c" "3" "")
    
42.       )
    
43.     )
    
44.     (setq row (+ row (* 0.5 100)))
    
45.   )
    
46.   (command "-layer" "lock" "a91" "s" "0" "")
    
47.   (setvar "osmode" osn)
    
48.   (command "_.undo" "e")
    
49.   (princ)
    
50. )
    

(defun GRID (idx ids / ss idx dis xx yx xs ys train row entl osn fu)<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (setq ss (ssget "x" '((8 . "a91") (0 . "*polyline"))))<br />   (if (/= nil ss)<br />     (command "layer" "t" "a91" "u" "a91" "" "erase" ss "")<br />   )<br />   (setvar "cecolor" "bylayer")<br />   (command "-layer" "m"        "a91" "c" "1" "a91" "lt" "Continuous" "a91" "")<br />   (setq        xx    (* (* 0.5 100) (fix (/ (car idx) (* 0.5 100))))<br />         yx    (* (* 0.5 100) (fix (/ (cadr idx) (* 0.5 100))))<br />         xs    (+ (* 0.5 100)<br />                  (* (* 0.5 100) (fix (/ (car ids) (* 0.5 100))))<br />               )<br />         ys    (+ (* 0.5 100)<br />                  (* (* 0.5 100) (fix (/ (cadr ids) (* 0.5 100))))<br />               )<br />         train xx<br />         row   yx<br />         fu    400<br />         osn   (getvar "osmode")<br />   )<br />   (setvar "osmode" 0)<br />   (while (<= train xs)<br />     (command "pline" (list train yx) (list train ys) "")<br />     (if        (= (rem train (* 0.5 500)) 0)<br />       (progn<br />         (setq entl (entlast))<br />         (command "_change" entl "" "p" "c" "3" "")<br />       )<br />     )<br />     (setq train (+ train (* 0.5 100)))<br />   )<br /> <br />   (while (<= row ys)<br />     (command "pline" (list xx row) (list xs row) "")<br />     (if        (= (rem row (* 0.5 400)) 0)<br />       (progn<br />         (setq entl (entlast))<br />         (command "_change" entl "" "p" "c" "3" "")<br />       )<br />     )<br />     (setq row (+ row (* 0.5 100)))<br />   )<br />   (command "-layer" "lock" "a91" "s" "0" "")<br />   (setvar "osmode" osn)<br />   (command "_.undo" "e")<br />   (princ)<br /> )<br />

idx ids 是网格的左下和右上角,(* 0.5 100)是网格的宽度，可设个变量，Fu 是按500图标准分幅的边线，坐标进行了，推算，取的500地形图的标准分幅点位

chenhang1203

楼上什么程序啊，为什么要加分，怎么用啊

jianaplane

不知道怎么使用，有高手能解释一下吗？？