[试用]：管桩桩位图自动编号程序---希各位高手指教

wyhdream

(defun c:columnaxis(/ axis axisnum)

(setq axis (ssget '(( 0 . "line") (8 . "axis")))) ;;;拾取轴线：过滤条件--线段、axis图层
(setq axisnum (sslength axis))                    ;;;轴线的数量

(command "layer" "new" "columntext" "")           ;;;新建图层columntext
(command "layer" "color"  "7" "columntext" "")    ;;;设置图层columntext颜色为白色
(command "layer" "set" "columntext" "")           ;;;设置图层columntext为当前层

  (setq nnum 0)
  (setq nnnnum 0)

  (if (= updown nil)                                               ;;;若有轴线为斜线段
                                                                   ;;;求出比值(y2-y1)/(x2-x1)的正负
    (while (and (= updown nil) (< nnnnum (- axisnum 1)))           ;;;
                                                                   ;;;
    (setq Xpot1 (cadr (assoc 10 (entget (ssname axis nnnnum)))))   ;;;提取轴线线段两端点的x、y值
    (setq Ypot1 (caddr (assoc 10 (entget (ssname axis nnnnum)))))  ;;;
    (setq Xpot2 (cadr (assoc 11 (entget (ssname axis nnnnum)))))   ;;;
    (setq Ypot2 (caddr (assoc 11 (entget (ssname axis nnnnum)))))  ;;;
    (if (and (/= Xpot1 Xpot2) (/= Ypot1 Ypot2))                    ;;;
    (setq updown (/(- Xpot2 Xpot1) (- Ypot2 Ypot1)))               ;;;
    )                                                              ;;;
    (setq nnnnum (+ nnnnum 1))                                     ;;;
  )                                                                ;;;
)                                                                  ;;;


(repeat axisnum
   
  (setq ChanceMX 0)
  (setq ChanceMY 0)
  (setq nnum 0)
  (setq nnnnum 0)

  (repeat (sslength axis)
    (setq Xpot1 (cadr (assoc 10 (entget (ssname axis nnnnum)))))   ;;;提取轴线线段两端点的x、y值
    (setq Ypot1 (caddr (assoc 10 (entget (ssname axis nnnnum)))))  ;;;
    (setq Xpot2 (cadr (assoc 11 (entget (ssname axis nnnnum)))))   ;;;
    (setq Ypot2 (caddr (assoc 11 (entget (ssname axis nnnnum)))))  ;;;

    (setq MidXpot (/ (+ Xpot1 Xpot2) 2))    ;;;求出轴线中点的x、y坐标
    (setq MidYpot (/ (+ Ypot1 Ypot2) 2))    ;;;
   
      (if (and (= ChanceMX 0)(= ChanceMY 0))        ;;;第一次时直接将
        (progn                                      ;;;MidXpot赋给ChanceMX
          (setq ChanceMX MidXpot)                   ;;;MidYpot赋给ChanceMY
          (setq ChanceMY MidYpot)                   ;;;
          (setq nnum nnnnum)
        )

        (if (< MidXpot ChanceMX)
          (progn
            (setq ChanceMX MidXpot)                   ;;;MidYpot赋给ChanceMY
            (setq ChanceMY MidYpot)                   ;;;
            (setq nnum nnnnum)
          )
          (if (= ChanceMX MidXpot)
          (if (or (= UpDown nil) (< updown 0))
            (if (< MidYpot ChanceMY)
              (progn                                    ;;;MidXpot赋给ChanceMX
                (setq ChanceMX MidXpot)                   ;;;MidYpot赋给ChanceMY
                (setq ChanceMY MidYpot)                   ;;;
                (setq nnum nnnnum)
              )
            )

            (if (> MidYpot ChanceMY)
              (progn                                    ;;;MidXpot赋给ChanceMX
                (setq ChanceMX MidXpot)                   ;;;MidYpot赋给ChanceMY
                (setq ChanceMY MidYpot)                   ;;;
                (setq nnum nnnnum)
              )
            )
                )

         
          )
        )


      )

      


    (setq nnnnum (+ nnnnum 1))
  )
  (setq Xpot1 (cadr (assoc 10 (entget (ssname axis nnum)))))   ;;;提取轴线线段两端点的x、y值
  (setq Ypot1 (caddr (assoc 10 (entget (ssname axis nnum)))))  ;;;
  (setq Xpot2 (cadr (assoc 11 (entget (ssname axis nnum)))))   ;;;
  (setq Ypot2 (caddr (assoc 11 (entget (ssname axis nnum)))))  ;;;

  (setq MidXpot (/ (+ Xpot1 Xpot2) 2))    ;;;求出轴线中点的x、y坐标
  (print MIDXpot)

  (ssdel (ssname axis nnum) axis)


(if (= Xpot1 Xpot2)                            ;;;轴线是垂直线段时
  (progn                                       ;;;轴线左右偏移1500
    (setq pt1 (list (- Xpot1 1500) Ypot1 0))   ;;;得到矩形区域的四个角点坐标
    (setq pt2 (list (+ Xpot1 1500) Ypot1 0))
    (setq pt3 (list (+ Xpot2 1500) Ypot2 0))
    (setq pt4 (list (- Xpot2 1500) Ypot2 0))
  )
)

(if (and (/= Xpot1 Xpot2) (/= Ypot1 Ypot2))    ;;;轴线是斜线段时
  (progn                                       ;;;轴线左右偏移1500
    (setq columnatan (atan (- ypot2 ypot1) (- xpot2 xpot1)))  ;;;得到矩形区域的四个角点坐标
    (setq xxpt (* 1500 (sin columnatan)))
    (setq yypt (* 1500 (cos columnatan)))

    (setq pt1 (list (+ Xpot1 xxpt) (- Ypot1 yypt) 0))
    (setq pt2 (list (- Xpot1 xxpt) (+ Ypot1 yypt) 0))
    (setq pt3 (list (- Xpot2 xxpt) (+ Ypot2 yypt) 0))
    (setq pt4 (list (+ Xpot2 xxpt) (- Ypot2 yypt) 0))
  )
)

(if (= Ypot1 Ypot2)                            ;;;轴线是水平线段时
  (progn                                       ;;;轴线左右偏移1500
    (setq pt1 (list Xpot1 (- Ypot1 1500) 0))   ;;;得到矩形区域的四个角点坐标
    (setq pt2 (list Xpot1 (+ Ypot1 1500) 0))
    (setq pt3 (list Xpot2 (+ Ypot2 1500) 0))
    (setq pt4 (list Xpot2 (- Ypot2 1500) 0))
  )
)

(setq pt_list (list pt1 pt2 pt3 pt4 ) )
(setq ColumnAll (ssget "CP" pt_list  '((0 . "circle"))  ))



(setq n (sslength ColumnAll))
(if (= temp nil)
(setq nnnum 1))
(setq temp 1)
(setq num 0)

  (repeat n
  (setq num 0)
  (setq nnum 0)
  (setq ChanceXTpot nil)
  (setq ChanceYTpot nil)


  (repeat (sslength ColumnAll)
  (setq ColumnOne (ssname ColumnAll num))
  (setq XTpot (cadr (assoc 10 (entget ColumnOne))))
  (setq YTpot (caddr (assoc 10 (entget ColumnOne))))

     (if (= ChanceYTpot nil)
       (progn
       (setq  nnum num)       
       (setq ChanceXTpot XTpot)
       (setq ChanceYTpot YTpot)
       )
     )

  (if (= xpot1 xpot2)
     (if (> ChanceYTpot YTpot)
       (progn
       (setq  nnum num)       
       (setq ChanceXTpot XTpot)
       (setq ChanceYTpot YTpot)
       )
         (if  (= ChanceYTpot YTpot)
           (if(> ChanceXTpot XTpot)
             (progn
             (setq  nnum num)       
             (setq ChanceXTpot XTpot)
             (setq ChanceYTpot YTpot)
             )
           )
         )
     )
  )


  (if (and (= ypot1 ypot2) (= updown nil))
     (if (< ChanceXTpot XTpot)
       (progn
       (setq  nnum num)       
       (setq ChanceXTpot XTpot)
       (setq ChanceYTpot YTpot)
       )
         (if  (= ChanceXTpot XTpot)
           (if(> ChanceYTpot YTpot)
             (progn
             (setq  nnum num)       
             (setq ChanceXTpot XTpot)
             (setq ChanceYTpot YTpot)
             )
           )
         )
     )
  )



(if (and (= ypot1 ypot2) (< updown 0))
     (if (< ChanceXTpot XTpot)
       (progn
       (setq  nnum num)       
       (setq ChanceXTpot XTpot)
       (setq ChanceYTpot YTpot)
       )
         (if  (= ChanceXTpot XTpot)
           (if(> ChanceYTpot YTpot)
             (progn
             (setq  nnum num)       
             (setq ChanceXTpot XTpot)
             (setq ChanceYTpot YTpot)
             )
           )
         )
     )
  )


  (if (and (= ypot1 ypot2) (> updown 0))
     (if (> ChanceXTpot XTpot)
       (progn
       (setq  nnum num)       
       (setq ChanceXTpot XTpot)
       (setq ChanceYTpot YTpot)
       )
         (if  (= ChanceXTpot XTpot)
           (if(< ChanceYTpot YTpot)
             (progn
             (setq  nnum num)       
             (setq ChanceXTpot XTpot)
             (setq ChanceYTpot YTpot)
             )
           )
         )
     )
  )


(if (and (/= xpot1 xpot2) (/= ypot1 ypot2))
(if (> ChanceYTpot YTpot)
       (progn
       (setq  nnum num)       
       (setq ChanceXTpot XTpot)
       (setq ChanceYTpot YTpot)
       )
         (if  (= ChanceYTpot YTpot)
           (if(> ChanceXTpot XTpot)
             (progn
             (setq  nnum num)       
             (setq ChanceXTpot XTpot)
             (setq ChanceYTpot YTpot)
             )
           )
         )
    )
    )



  
  



    (setq num (+ num 1))
  )
  (entmake '((0 . "TEXT")( 10 0 0 0.0) (40 . 200) (1 . "1") (50 . 0.0)))
  (setq xYTpot (list 10 (+ 250 ChanceXTpot) (+ 250 ChanceYTpot)  0))
  (setq xytext (cons 1 (itoa nnnum)))
  (setq writenum (subst xYTpot (assoc 10 (entget(entlast))) (entget(entlast))))
  (entmod writenum)
  (setq writenum (subst xytext (assoc 1 (entget(entlast))) (entget(entlast))))
  (entmod writenum)
  (ssdel (ssname ColumnAll nnum) ColumnAll)
  (setq nnnum (+ nnnum 1))
  )
  )
)

sbzqby

我只能说你厉害

houfd

还请楼主讲讲怎么用啊

谢谢

wyhdream

装载后，输入columnaxis 选择要编号的桩所在的轴线就行了
说明：1适用于直线轴网、有转角的轴网
         2轴线所有的图层为axis
         3桩的图形属性为circle

思路：1根据选择轴线的坐标确定轴线先后次序
         2选择轴线附近范围内的桩
         3根据桩的坐标确定桩的编号先后次序
         4写入桩的编号

希望各位大虾试用一下，帮助修改完善，有什么问题请告诉我。

爱如潮水

在哪编辑这个文件呀大哥

wyhdream

5楼的朋友上一楼copy啦