明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1768|回复: 9

飞时达方格导出CSV并排序

[复制链接]
发表于 2019-3-6 21:28:03 | 显示全部楼层 |阅读模式
方格节点不要多于12个  图层根据自己需要自己改 应付现在越来越多的非测量专业土方预算员及审计的奇葩要求,说多了都是泪
  1. ;;;;;;;;;;;;;;;;;;
  2. (defun insertgc ( e / e)
  3.   (cdr(assoc 10(entget e)))
  4.   )
  5. ;;;;;;;;;;;;;;;;;
  6. (defun insert-1 ( e / e)
  7.   (cdr(assoc 1(entget e)))
  8.   )
  9. ;(vl-remove '"" (insertatt(car(entsel  ))))
  10. ;连结表中字符串连结表中字符串 (strcat (car lst) (apply 'strcat (mapcar '(lambda (a) (strcat str a)) (cdr lst))) )
  11. (defun Fsxm-join (lst str)
  12.   (substr (apply 'strcat (mapcar '(lambda (a) (strcat str a)) lst))
  13.    (1+ (strlen str))
  14.   )
  15. )
  16. ;(setq ent (car (entsel "\n请选取属性块:")))
  17. (defun insertatt (ent / obj att jgb)   
  18.      (vl-load-com)
  19.       
  20.          (if (= (cdr (assoc 0 (entget ent))) "INSERT")
  21.              (if (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "HasAttributes") -1)
  22.                  (progn
  23.                     (setq att (vlax-invoke obj "GetAttributes"))
  24.                     (setq jgb (mapcar '(lambda(aobj) (list (vlax-get aobj "TagString")
  25.                                                            (vlax-get aobj "TextString")
  26.                                                      )
  27.                                        )
  28.                                        att
  29.                               )
  30.                     )
  31.                     ;(princ "\n属性列表=")(princ jgb)
  32.          (apply 'append (mapcar 'cdr jgb))
  33.                  )
  34.              )
  35.          )
  36.      
  37.      ;(princ)
  38. )
  39. ;;;;;;;;;;;;;;;;;;;;;;;;;;
  40. ;;;;;;;;;;;;;;;;;;;
  41. (defun zxzb (pts / len pt )
  42.   (setq len (length pts))
  43. (setq pt (mapcar
  44.   '(lambda(x)
  45.     (/ x len)
  46.   )
  47.   (apply
  48.     'mapcar
  49.     (cons '+ pts)
  50.   )
  51. )
  52. )  pt)


  53. (defun Plinexy(e / p a b n ob q et d d1 en et)
  54.     (setq a(entget e)ob(vlax-ename->vla-object e)et(cdr(assoc 0 a))n 0 p nil d nil)
  55.     (cond((="LWPOLYLINE"et)
  56.     (repeat(length a)(setq b (nth n a) n (+ n 1))
  57.       (if (= 10 (car b))(progn
  58.         (setq q(list (cadr b) (caddr b))d1(vlax-curve-getDistAtPoint ob q))
  59.         (if p (if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))
  60.           (setq p (list q)))))))
  61.    ((="POLYLINE"et)
  62.     (SETQ EN (ENTGET (SETQ E (ENTNEXT E))))
  63.     (WHILE (/= (CDR (ASSOC 0 EN)) "SEQEND")
  64.       (SETQ q (CDR (ASSOC 10 EN))d1(vlax-curve-getDistAtPoint ob q)q(reverse(cdr(reverse q))))
  65.       (if p(if (not(member d1 d)) (setq p (append p (list q))d (append d (list d1))))(setq p(list q)))
  66.       (SETQ EN (ENTGET (SETQ E (ENTNEXT E)))))
  67.     (setq p(reverse p))))P)

  68. (defun cx-ss2en
  69.   (ss / enlst)
  70.   (cond
  71.     ((= (type ss) 'PICKSET)
  72.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
  73.     )
  74.     ((= (type ss) 'LIST)
  75.       (setq enlst (ssadd))
  76.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
  77.     )
  78.     ((='ename(type ss))
  79.       (ssadd ss)
  80.     )
  81.   )
  82. )
  83.   ;;;;;;;;;;;;;;;;;;
  84. ;;本程序是在fsxm的扩展 自贡黄明儒 2013年9月6日
  85. ;;ssPts: 1 选择集,返回图元列表
  86. ;;  2 点表(1到n维 1维时key只能是x或X),返回点表
  87. ;;  3 (cons 点表 A)组成的列表,返回A组成的列表
  88. ;;Key: "xyzXYZ"任意组合,例如"yX",y在前表示y坐标优先,小y表示从小到大(注:二维点时,不能有z)
  89. ;;FUZZ: 允许误差
  90. ;;示例1 (HH:ssPts:Sort (ssget) "YxZ" 0.5);返回(<Entity name: 7ef7b3a8> <Entity name: 7ef7b3a0>)
  91. ;;示例2 (HH:ssPts:Sort (list '(2 3) '(3 5)) "Yx" 0.5);返回((3 5) (2 3))
  92. ;;示例3 (((-597.321 2418.69 0.0) . <Entity name: 7ef7b418>) ((-597.321 2411.69 0.0) . <Entity name: 7ef7b400>));返回(<Entity name: 7ef7b418> <Entity name: 7ef7b400>)
  93. (defun HH:ssPts:Sort (ssPts KEY FUZZ / E EN FUN LST N SORTPTS SORTSS)
  94.   ;;1 点列表排序
  95.   (defun sortpts (PTS FUN F FUZZ)
  96.     (vl-sort pts
  97.       '(lambda (a b)
  98.   (if (not (equal (F a) (F b) fuzz))
  99.     (fun (F a) (F b))
  100.   )
  101.        )
  102.     )
  103.   )
  104.   ;;2 选择集图元排序
  105.   (defun sortSS (PTS FUN F FUZZ)
  106.     (vl-sort pts
  107.       '(lambda (a b)
  108.   (if (not (equal (F (car a)) (F (car b)) fuzz))
  109.     (fun (F (car a)) (F (car b)))
  110.   )
  111.        )
  112.     )
  113.   )
  114.   ;;3 排序
  115.   (defun sortSS1 (myfun PTS KEY FUZZ)
  116.     (setq Key (vl-string->list Key))
  117.     (foreach xyz (reverse Key)
  118.       (cond ((< xyz 100)
  119.       (setq fun >)
  120.       (setq xyz (nth (- xyz 88) (list car cadr caddr)))
  121.      )
  122.      (T
  123.       (setq fun <)
  124.       (setq xyz (nth (- xyz 120) (list car cadr caddr)))
  125.      )
  126.       )
  127.       (setq Pts (myfun Pts fun xyz fuzz))
  128.     )
  129.   )
  130.   ;;4 本程序主程序
  131.   (cond ((= (type ssPts) 'PICKSET)
  132.   (repeat (setq n (sslength ssPts))
  133.     (if (and (setq e (ssname ssPts (setq n (1- n))))
  134.       (setq en (entget e))
  135.         )
  136.       (setq lst (cons (cons (cdr (assoc 10 en)) e) lst))
  137.     )
  138.   )
  139.   (mapcar 'cdr (sortSS1 sortSS lst KEY FUZZ))
  140. )
  141. (T
  142.   (cond
  143.     ((= (type (caar ssPts)) 'LIST)
  144.      (mapcar 'cdr (sortSS1 sortSS ssPts KEY FUZZ))
  145.     )
  146.     (T (sortSS1 sortpts ssPts KEY FUZZ))
  147.   )
  148. )
  149.   )
  150. )


  151. (defun jiaodu (p1 p2 /  angl1  )


  152.   (setq angl1 (angle p1 p2))
  153. (setq angl1 (- (* 2.5 pi) angl1))
  154. (if (> angl1 (* 2 pi)) (setq angl1 (- angl1 (* 2 pi))))
  155.   angl1
  156.   )

  157. (defun zbzh ( p1 p2 p3 /  a xp yp)
  158. ;(setq k (getreal "\n请输入K比列:"))
  159. ;(setq p1 (getpoint "\n请输入起点:"))
  160. ;(setq p2 (getpoint p1 "\n请输入法线点:"))
  161. ;(setq p3 (getpoint  "\n请点击转换点:"))
  162. (setq a (jiaodu p2 p1))
  163. (setq xp   (+(*(-(cadr p3)(cadr p2)) (cos a))  (*(-(car p3)(car p2)) (sin a)) 90000.0000 ))
  164. (setq yp  (+(* -1.000 (-(cadr p3)(cadr p2)) (sin a))  (*(-(car p3)(car p2)) (cos a)) 50000.0000 )       )

  165.     (list yp xp)   
  166. )

  167. ;;;;;;;;;;;;;;;;;;
  168. (defun insertgc ( e / e)
  169.   (cdr(assoc 10(entget e)))
  170.   )
  171. ;;;;;;;;;;;;;;;;;;;;;
  172. (defun cx-ss2en
  173.   (ss / enlst)
  174.   (cond
  175.     ((= (type ss) 'PICKSET)
  176.       (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex SS)))
  177.     )
  178.     ((= (type ss) 'LIST)
  179.       (setq enlst (ssadd))
  180.       (last (mapcar '(lambda (x) (ssadd x enlst)) ss))
  181.     )
  182.     ((='ename(type ss))
  183.       (ssadd ss)
  184.     )
  185.   )
  186. )
  187. ;;;;;;;;;;;;;;
  188. (defun c:bianhao (  / biaotou1 biaotou2 p1 p2 ssa kongbiao i zb x zb1 paixuzb ii e1 e2 ssa kongbiao qzz i ii zb paixuzb p1 p2 fgjj p3 cishu kb kbb iii ty tuyuan  ssb ssc f b c d ee bb pzx x y z demj zmj demja iiii str pzx11 ssd yyy m pzxaa)
  189.    (setq p1 (getpoint "\n请输入起点:"))
  190. (setq p2 (getpoint p1 "\n请输入基点:"))

  191.   (setq f(open(getfiled "打开(或建立)数据文件" "C:\\" "csv" 36)"a"))
  192.   (setq qzz (getstring "\n请输入前缀: ") )
  193. (setq biaotou1 (strcat "表格编号" "," "原地面标高" "," """," """," """," "设计面标高""," """," """," """," "施工高差""," """," """," """," "挖方""," "填方""," "方格面积""," "平均高度" "\n"))
  194. (setq biaotou2 (strcat "\n" "" "," "原高1" "," "原高2""," "原高3""," "原高4""," "设高1""," "设高2""," "设高3""," "设高4""," "高差1""," "高差2""," "高差3""," "高差4""," "挖方""," "填方""," "方格面积""," "平均高度" "\n"))
  195. (write-line biaotou1 f) (write-line biaotou2 f)

  196.   (setq ssa (ssget "x"'( (0 . "polyline")  (8 . "tf-fg1") ) ) )
  197.   (setq ssb (ssget "x"'( (0 . "insert")  (8 . "tf-wtf1") ) ) )
  198. (setq ssc (ssget "x"'( (0 . "insert")  (8 . "tf-fgd1") ) ))
  199.       
  200. ;(setq ssa (ssget "x"'( (0 . "circle")  (8 . "0") ) ) )

  201. (setq kongbiao '()) (setq i 0)

  202. (foreach x (cx-ss2en ssa)
  203.      
  204.     (setq zb (zxzb(plinexy x)) ) (setq zb1 (append (zbzh p1 p2 zb) zb))
  205.   (setq kongbiao (append (list zb1) kongbiao)) (setq i (1+ i))
  206.   )

  207. ; (setq paixuzb (vl-sort kongbiao '(lambda (e1 e2)(< (car e1)(car e2 ) ) (< (cadr e1)(cadr e2 ) )    ) ) )  ;;;;;
  208.   (setq paixuzb(HH:ssPts:Sort kongbiao "Yx" 0.5) )
  209.       
  210.   ;(setq ii 1)
  211.        ;(print paixuzb)
  212.    (setq iii 0) (setq tuyuan'())

  213. (repeat (length paixuzb)
  214.        (foreach xx (cx-ss2en ssa)
  215.        (if  (and    (equal  (car(cdr(cdr(nth iii paixuzb)) ))   (car(zxzb(plinexy xx)) )  0.01)
  216.                      (equal  (cadr(cdr(cdr(nth iii paixuzb)) ))   (cadr(zxzb(plinexy xx)) )  0.01)
  217.      )
  218.    (progn (setq ty (list xx)))
  219.    )
  220.     )
  221. (setq tuyuan (append tuyuan ty))
  222. (setq iii (1+ iii))
  223.   )
  224.       
  225.   ;(print tuyuan)
  226. ;(setq kongbiao 'nil)  (setq paixuzb 'nil)

  227. ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  228. (setq iiii 0)
  229.   (foreach x   tuyuan  ;;;;;(HH:ssPts:Sort ssa "xYz" 5)
  230. (setq b '())
  231.   (foreach n (cx-ss2en ssb)
  232.    (if (and  (equal (car (zxzb (plinexy x))) (car (insertgc n)) 0.1)   (equal (cadr (zxzb (plinexy x))) (cadr (insertgc n)) 0.1) )
  233.      (progn (setq pzx11 (insertatt n))  (setq b (append b pzx11 ))          );
  234.      )
  235.     )
  236. (if (= (length b) 1)(setq b (append b '("0.000"))) )
  237.   (setq b (vl-sort b
  238.              (function (lambda (e1 e2)
  239.                             (> (read e1) (read e2))  
  240.        ) ) ) )

  241.      (setq pzx '()) (setq zmj 0.000) (setq demja (vlax-curve-getArea  (vlax-ename->vla-object x)))
  242.     (foreach z (plinexy x)
  243.       (foreach y (cx-ss2en ssc)
  244.         (if (and  (equal (car z) (car (insertgc y)) 0.002)   (equal (cadr z) (cadr (insertgc y)) 0.002) )
  245.        (progn (setq c (vl-remove '"" (insertatt y)) ) (setq demj (read (last c)))
  246.    )
  247.        )
  248.   )
  249.       
  250.        (setq pzx (append pzx c)) (setq zmj(+ zmj demj))
  251.       )

  252. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;========================================
  253.   
  254.   (cond  ( (=(length pzx) 9) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx)) (list "空格") (list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list "空格") (list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx)) (list "空格")  ))
  255.      );;;;;;;
  256.     ( (=(length pzx) 12) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))   ))
  257.      );;;;;;;;;;;;;
  258. ( (=(length pzx) 15) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  259. (list "\n")(list (nth 12 pzx)) (list "空格")(list "空格")(list "空格") (list (nth 13 pzx)) (list "空格")(list "空格")(list "空格")(list (nth 14 pzx)) (list "空格")(list "空格")(list "空格")               ))
  260.      );;;;;;;;;;;
  261.    ( (=(length pzx) 18) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  262. (list "\n")(list (nth 12 pzx)) (list(nth 15 pzx))(list "空格")(list "空格") (list (nth 13 pzx)) (list(nth 16 pzx))(list "空格")(list "空格")(list (nth 14 pzx)) (list(nth 17 pzx))(list "空格")(list "空格")               ))
  263.      );;;;;;;;;;;

  264.    ( (=(length pzx) 21) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  265. (list "\n")(list (nth 12 pzx)) (list(nth 15 pzx))(list(nth 18 pzx))(list "空格") (list (nth 13 pzx)) (list(nth 16 pzx))(list(nth 19 pzx))(list "空格")(list (nth 14 pzx)) (list(nth 17 pzx))(list(nth 20 pzx))(list "空格")               ))
  266.      );;;;;;;;;;;

  267. ( (=(length pzx) 24) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  268. (list "\n")(list (nth 12 pzx)) (list(nth 15 pzx)) (list(nth 18 pzx))    (list(nth 21 pzx)) (list (nth 13 pzx)) (list(nth 16 pzx))   (list(nth 19 pzx))   (list(nth 22 pzx))   (list (nth 14 pzx)) (list(nth 17 pzx))   (list(nth 20 pzx))     (list(nth 23 pzx))               ))
  269.      );;;;;;;;;;;
  270. ( (=(length pzx) 27) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  271. (list "\n")(list (nth 12 pzx)) (list(nth 15 pzx)) (list(nth 18 pzx))    (list(nth 21 pzx)) (list (nth 13 pzx)) (list(nth 16 pzx))   (list(nth 19 pzx))   (list(nth 22 pzx))   (list (nth 14 pzx)) (list(nth 17 pzx))   (list(nth 20 pzx))     (list(nth 23 pzx))
  272. (list "\n")(list (nth 24 pzx)) (list "空格")(list "空格")(list "空格")(list (nth 25 pzx)) (list "空格")(list "空格")(list "空格") (list (nth 26 pzx)) (list "空格")(list "空格")(list "空格")
  273.            ))      );;;;;;;;;;;
  274. ( (=(length pzx) 30) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  275. (list "\n")(list (nth 12 pzx)) (list(nth 15 pzx)) (list(nth 18 pzx))    (list(nth 21 pzx)) (list (nth 13 pzx)) (list(nth 16 pzx))   (list(nth 19 pzx))   (list(nth 22 pzx))   (list (nth 14 pzx)) (list(nth 17 pzx))   (list(nth 20 pzx))     (list(nth 23 pzx))
  276. (list "\n")(list (nth 24 pzx)) (list (nth 27 pzx))(list "空格")(list "空格")(list (nth 25 pzx)) (list (nth 28 pzx))(list "空格")(list "空格") (list (nth 26 pzx)) (list (nth 29 pzx))(list "空格")(list "空格")
  277.            ))      );;;;;;;;;;;;;;
  278. ( (=(length pzx) 33) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  279. (list "\n")(list (nth 12 pzx)) (list(nth 15 pzx)) (list(nth 18 pzx))    (list(nth 21 pzx)) (list (nth 13 pzx)) (list(nth 16 pzx))   (list(nth 19 pzx))   (list(nth 22 pzx))   (list (nth 14 pzx)) (list(nth 17 pzx))   (list(nth 20 pzx))     (list(nth 23 pzx))
  280. (list "\n")(list (nth 24 pzx)) (list (nth 27 pzx))  (list (nth 30 pzx))  (list "空格")  (list (nth 25 pzx)) (list (nth 28 pzx))  (list (nth 31 pzx))  (list "空格") (list (nth 26 pzx)) (list (nth 29 pzx))  (list (nth 32 pzx))  (list "空格")
  281.            ))      );;;;;;;;;;;;;;   
  282. ( (=(length pzx) 36) (setq pzxaa (append (list (nth 0 pzx)) (list (nth 3 pzx)) (list (nth 6 pzx))(list (nth 9 pzx))(list (nth 1 pzx))(list (nth 4 pzx))(list (nth 7 pzx)) (list (nth 10 pzx))(list (nth 2 pzx))(list (nth 5 pzx))(list (nth 8 pzx))(list (nth 11 pzx))
  283. (list "\n")(list (nth 12 pzx)) (list(nth 15 pzx)) (list(nth 18 pzx))    (list(nth 21 pzx)) (list (nth 13 pzx)) (list(nth 16 pzx))   (list(nth 19 pzx))   (list(nth 22 pzx))   (list (nth 14 pzx)) (list(nth 17 pzx))   (list(nth 20 pzx))     (list(nth 23 pzx))
  284. (list "\n")(list (nth 24 pzx)) (list (nth 27 pzx))  (list (nth 30 pzx))  (list (nth 33 pzx))  (list (nth 25 pzx)) (list (nth 28 pzx))  (list (nth 31 pzx))  (list (nth 34 pzx)) (list (nth 26 pzx)) (list (nth 29 pzx))  (list (nth 32 pzx))  (list (nth 35 pzx))
  285.            ))      )
  286.    ;;;;;;;;;;;;;;;;;;;;;;;=============================
  287.    ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;========================================================================================

  288. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  289.     (setq str (strcat qzz (rtos (1+ iiii) 2 0)))
  290.   
  291. (setq bb (append (list str) pzxaa b (list (rtos demja 2 4)) (list(rtos (/ zmj (length (plinexy x) )) 2 3))    ))  ;;;;
  292.   (entmake (list '(0 . "TEXT") '(8 . "fgbj1")(cons 1 str) (cons 10 (zxzb (plinexy x)) ) (cons 40 1.0)))
  293.   (entmake (list '(0 . "circle") '(8 . "fgbj1")(cons 62 3) (cons 10 (zxzb (plinexy x)) ) (cons 40 1.3)))
  294.   (setq bbb(Fsxm-join bb ",") )
  295.   (setq pzx '()) (setq pzxaa '())
  296. (princ )
  297. (write-line bbb f)
  298.   (setq iiii (1+ iiii)) ;(setq yy nil)
  299.   ;(setq b "" c "" d "" ee "" bb ""  bbb "")
  300.   )

  301. (close f)



  302.       
  303. (princ)
  304.       )


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1明经币 +1 收起 理由
gzxl + 1 赞一个!

查看全部评分

 楼主| 发表于 2019-3-6 21:35:31 | 显示全部楼层
命令:BIANHAO 编号 不喜欢的话你们改吧

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2019-3-7 19:58:16 | 显示全部楼层
感谢楼主分享程序
发表于 2019-3-7 21:17:12 | 显示全部楼层
谢谢! 树櫴希德 分享程序!!!!!
发表于 2019-3-12 06:31:27 | 显示全部楼层
看起来挺好用的。
发表于 2019-3-12 09:10:52 | 显示全部楼层
方格网编号可以自定义吗?编号字体可以设置平行于方格网吗?
发表于 2019-3-20 12:56:07 来自手机 | 显示全部楼层
谢谢学习了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-22 20:10 , Processed in 0.216756 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表