[LISP程序]：编号程序（可在R14下运行）

netbee · 发表于 2003-10-28 13:12:09

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;; ======================================
;;; ‖ [基础绘图系统1.5] ‖
;;; ‖ 桩位编号程序 ‖
;;; ‖ V1.0 ‖
;;; ‖ 蜜蜂软体工作室杨明峰 ‖
;;; ======================================
;;;
;;;
;;;
(setq bh_began 1)
(setq text_offset 3.0)
(setq Newtextsize (getvar "textsize"))
(setq texthome "")
(setq textend "")
(defun c:zbh (/ error_old textstyle_old zbh_ok bho dimzin_old TEXTSIZE_old
old_lay netbeetmp1 netbeetmp2　pt pt1
)
(prompt "桩位自动编号标注程序\n")
;; 初始化
(setini_bh) ; 用while控制标注的循环,回车退出标注
(while (progn
(while (progn
(setq pt nil
netbeetmp1 nil
netbeetmp1 (strcat "\n选择标注点" " [前缀(M):"
texthome "/后缀(E):" textend
"/字高(H):" (rtos Newtextsize)
"/偏移量(O):" (rtos text_offset)
"/编号(N):" (itoa bh_began)
"/选择工程桩(Z)]:"
) ; _结束strcat
) ; _结束setq
(initget "M E H O N Z")
(setq pt (getpoint netbeetmp1))
(if (= (type pt) 'STR)
(cond
((= pt "M")
(settexthome)
(not nil)
)
((= pt "E")
(settextend)
(not nil)
)
((= pt "H")
(settexth)
(not nil)
)
((= pt "O")
(textoffset)
(not nil)
)
((= pt "N")
(settextbegan)
(not nil)
)
((= pt "Z")
(zbh_zw)
(not nil)
)
(t
t
)
) ; _结束cond
(not t)
) ; _结束if
) ; _结束progn
) ; _结束while
(if (not pt)
(not t)
(not nil)
) ; _结束if
) ; _结束progn
;; 关闭捕捉方式
(setq osmode_old (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (list (+ (car pt) text_offset) (+ (cadr pt) text_offset))) ; _
; 结束setq
;; 将编号加上前后缀
(setq zbh_ok (strcat texthome (itoa bh_began) textend))
(command "_.text" "s" "ZBH" pt1 Newtextsize "0d" zbh_ok) ; (setq bho
; (entlast))
; (command "move" bho "" pt pt1)
(setq bh_began (1+ bh_began))
;; 恢复捕捉方式
(setvar "osmode" osmode_old)
) ; _结束while
(setclose_bh)
)
;;; _结束defun
;;; --------------------------------------------
;;; 按桩位编号
(defun zbh_zw (/ sszwd sszw sslen loop_i loop_j)
(setq sszw (ssget '((0 . "CIRCLE") ; (8 . "桩位")
)
) ; _结束ssget
) ; _结束setq
(setq sslen (sslength sszw)
loop_i 1.0
) ; _结束setq
(if (< sslen 1000)
(prompt "\n 正在进行计算,请稍等...\n")
(prompt "\n 数据过多，计算时间可能需要几分钟，请等待......\n")
) ; 提取所有桩位坐标到表sszwd
(while (<= loop_i sslen)
(setq sszwd (append
sszwd
(list (cdr (assoc 10 (entget (ssname sszw (1- loop_i))))))
) ; _结束append
) ; _结束setq
(setq loop_i (1+ loop_i))
) ; _结束while
; 给表sszwd根据从左到右,从上到下的
; 规则排序(插入法).
(zbh_px2) ; 逐一从表sszwd中提取坐标进行标注
(setq osmode_old (getvar "osmode"))
(setvar "osmode" 0)
(setq loop_i 0)
(while (<= loop_i (1- sslen)) ; 关闭捕捉方式
(setq pt (nth loop_i sszwd))
(setq pt1 (list (+ (car pt) text_offset) (+ (cadr pt) text_offset))) ; _
; 结束setq
;; 将编号加上前后缀
(setq zbh_ok (strcat texthome (itoa bh_began) textend))
(command "_.text" "s" "ZBH" pt1 Newtextsize "0d" zbh_ok) ; (setq bho
; (entlast))
; (command "move" bho "" pt pt1)
(setq bh_began (1+ bh_began))
;; 恢复捕捉方式
(setq loop_i (1+ loop_i))
) ; _结束while
(setvar "osmode" osmode_old)
)
;;; _结束defun
;;; ----------------------------------------
;;; 表list_o内第I,第J元素换
;;; (listIJ_JI list_o list_i list_j)
(defun listij_ji (list_o list_i list_j / ltmep ltemp1 ltemp2 loop_i loop_j)
(setq loop_i 0
loop_j 0
listlen (length list_o)
ltemp (list (getvar "CDATE"))
ltemp1 (nth list_i list_o)
ltemp2 (nth list_j list_o)
) ; _结束setq
(setq list_o (subst
ltemp
ltemp1
list_o
)
)
(setq list_o (subst
ltemp1
ltemp2
list_o
)
)
(setq list_o (subst
ltemp2
ltemp
list_o
)
)
(eval 'list_o)
)
;;; _结束defun
;;; --------------------------------------------------------
;;; 桩位编号初始化
(defun setini_bh ()
(setq textstyle_old (getvar "textstyle"))
(setvar "cmdecho" 0)
(setq old_lay (getvar "clayer"))
(setq dimzin_old (getvar "Dimzin"))
(setvar "dimzin" 8)
(setq error_old *error*)
(gc) ; 判断有无图层ZBH
(if (= (tblobjname "LAYER" "ZBH") nil)
(progn
(entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '
(100 . "AcDbLayerTableRecord") '(6 . "CONTINUOUS") '
(62 . 3) '(70 . 0) (cons 2 "ZBH")
) ; _结束list
) ; _结束entmake
) ; _结束progn
) ; _结束if
(setvar "clayer" "ZBH")
;; 判断有无字类型ZBH
(if (= (tblobjname "STYLE" "ZBH") nil)
(progn
(entmake (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '
(100 . "AcDbTextStyleTableRecord") '(3 . "txt") '
(40 . 0) '(41 . 0.6) '(50 . 0) '(70 . 0) (cons 2 "ZBH")
) ; _结束list
) ; _结束entmake
) ; _结束progn
) ; _结束if
)
;;; _结束defun
;;; ------------------------------------------------------------
(defun textoffset ()
(setq netbeetmp1 nil
netbeetmp1 text_offset
) ; _结束setq
(prompt "\n请输入标注偏移量<")
(princ text_offset)
(prompt ">:")
(if (= (setq text_offset (getreal))
nil
)
(setq text_offset netbeetmp1)
) ; _结束if
)
;;; _结束defun
;;; --------------------------------------------------------------
(defun settexthome ()
(setq netbeetmp1 nil
netbeetmp1 texthome
) ; _结束setq
(prompt "\n请输入编号前缀(无前缀请输入"*")<")
(Princ texthome)
(Prompt ">:")
(if (= (setq texthome (getstring))
""
)
(setq texthome netbeetmp1)
) ; _结束if
(if (= texthome "*")
(SETQ texthome "")
) ; _结束if
)
;;; _结束defun
;;; --------------------------------------------------------
(defun settextend ()
(setq netbeetmp1 nil
netbeetmp1 textend
) ; _结束setq
(prompt "\n请输入编号后缀(无后缀请输入"*")<")
(Princ textend)
(Prompt ">:")
(if (= (setq textend (getstring))
""
)
(setq textend netbeetmp1)
) ; _结束if
(if (= textend "*")
(SETQ textend "")
) ; _结束if
)
;;; _结束defun
;;; --------------------------------------------------------
(defun settextbegan ()
(setq netbeetmp1 nil
netbeetmp1 bh_began
) ; _结束setq
(if (= (setq bh_began (getint (strcat "\n起始编号:1/2/3...<"
(itoa bh_began) ">:"
)
) ; _结束getint
) ; _结束setq
nil
) ; _结束=
(setq bh_began netbeetmp1)
) ; _结束if
)
;;; _结束defun
;;; -------------------------------------------------------
;;; 恢复环境
(defun setclose_bh ()
(setvar "textstyle" textstyle_old)
(setvar "cmdecho" 1)
(setvar "clayer" old_lay)
(setvar "dimzin" dimzin_old)
(defun *merrmsg* (msg)
(princ msg)
(setq *error* m:err
m:err nil
)
(princ)
)
(Princ)
)
;;; _结束defun
;;; -----------------------------------------------------
;;; -------------------------------------------------------
;;; 设置字高函数
(defun settexth ()
(setq netbeetmp1 nil
netbeetmp1 newtextsize
netbeetmp2 nil
netbeetmp2 (strcat "\n输入字高:<" (rtos Newtextsize) ">:")
) ; _结束setq
(if (= (setq Newtextsize (getreal netbeetmp2))
nil
)
(setq Newtextsize netbeetmp1)
) ; _结束if
)
;;; _结束defun
;;; -------------------------------------------------------
(defun *error* (msg)
(setclose_bh)
)
;;; _结束defun
;;; -------------------------------------------
;;; 给表sszwd根据从左到右,从上到下的规则排序(插入法).
(defun zbh_px2 (/ sstmp1 sstmp2 loop_i loop_j pt1x pt1y pt2x pt2y) ; 定义内部函数
(defun listij_in ()
(setq sszwd (append
(reverse (cdr (member sstmp1 (reverse sszwd))))
(list sstmp2)
(member sstmp1 (reverse (cdr (member sstmp2
(reverse sszwd)
)
)
)
)
(cdr (member sstmp2 sszwd))
)
)
)
(setq loop_j 1)
(while (< loop_j sslen)
(setq sstmp2 (nth loop_j sszwd)
pt2x (car sstmp2)
pt2y (cadr sstmp2)
loop_i 0
)
(while (progn
(setq sstmp1 (nth loop_i sszwd)
pt1x (car sstmp1)
pt1y (cadr sstmp1)
) ; _结束setq
(cond ; 若指针i已经到了指针j的位置则跳出
((= loop_i loop_j)
(not 1)
) ; 若第二点的Y比第一点的大,则把第二点
;插入到第一前
; 并跳出
((< pt1y pt2y)
(listij_in)
(not 1)
) ; _若第一点的Y与第二点的Y相等,且第二
; 点的X比第一点的小,
; 则把第二点插入到第一点前，并跳出
((and
(= pt1y pt2y)
(> pt1x pt2x)
)
(listij_in)
(not 1)
)
;; 其他情况则不进行互换
(t
(setq loop_i (1+ loop_i))
)
) ; _结束cond
)
) ; _结束while
(setq loop_j (1+ loop_j))
) ; _结束while
sstmp
)
(Prompt "\n[基础绘图系统1.5] 版权所有蜜蜂软体工作室 2000年")
(prompt "\n桩位编号命令：zbh")

;;; ====================================== 
;;; ‖ [基础绘图系统1.5] ‖ 
;;; ‖ 桩位编号程序 ‖ 
;;; ‖ V1.0 ‖ 
;;; ‖ 蜜蜂软体工作室 杨明峰 ‖ 
;;; ====================================== 
;;; 
;;; 
;;; 
 
(setq bh_began 1) 
(setq text_offset 3.0) 
(setq Newtextsize (getvar "textsize")) 
(setq texthome "") 
(setq textend "") 
 
(defun c:zbh (/ error_old textstyle_old zbh_ok bho dimzin_old TEXTSIZE_old 
                old_lay netbeetmp1 netbeetmp2　pt pt1 
             ) 
  (prompt "桩位自动编号标注程序\n") 
 
  ;; 初始化 
  (setini_bh)                               ; 用while控制标注的循环,回车退出标注 
  (while (progn 
           (while (progn 
                    (setq pt nil 
                          netbeetmp1 nil 
                          netbeetmp1 (strcat "\n选择标注点" " [前缀(M):" 
                                             texthome "/后缀(E):" textend 
                                             "/字高(H):" (rtos Newtextsize) 
                                             "/偏移量(O):" (rtos text_offset) 
                                             "/编号(N):" (itoa bh_began) 
                                             "/选择工程桩(Z)]:" 
                                     ) ; _结束strcat 
 
                    )                       ; _结束setq 
                    (initget "M E H O N Z") 
                    (setq pt (getpoint netbeetmp1)) 
                    (if (= (type pt) 'STR) 
                      (cond 
                        ((= pt "M") 
                          (settexthome) 
                          (not nil) 
                        ) 
                        ((= pt "E") 
                          (settextend) 
                          (not nil) 
                        ) 
                        ((= pt "H") 
                          (settexth) 
                          (not nil) 
                        ) 
                        ((= pt "O") 
                          (textoffset) 
                          (not nil) 
                        ) 
                        ((= pt "N") 
                          (settextbegan) 
                          (not nil) 
                        ) 
                        ((= pt "Z") 
                          (zbh_zw) 
                          (not nil) 
                        ) 
                        (t 
                          t 
                        ) 
                      )                       ; _结束cond 
 
                      (not t) 
                    )                       ; _结束if 
 
                  )                       ; _结束progn 
           )                               ; _结束while 
           (if (not pt) 
             (not t) 
             (not nil) 
           )                               ; _结束if 
         )                               ; _结束progn 
 
    ;; 关闭捕捉方式 
    (setq osmode_old (getvar "osmode")) 
    (setvar "osmode" 0) 
    (setq pt1 (list (+ (car pt) text_offset) (+ (cadr pt) text_offset))) ; _ 
                                       ; 结束setq 
 
    ;; 将编号加上前后缀 
    (setq zbh_ok (strcat texthome (itoa bh_began) textend)) 
 
    (command "_.text" "s" "ZBH" pt1 Newtextsize "0d" zbh_ok) ; (setq bho 
                                       ; (entlast)) 
                                       ; (command "move" bho "" pt pt1) 
    (setq bh_began (1+ bh_began)) 
 
    ;; 恢复捕捉方式 
    (setvar "osmode" osmode_old) 
  )                                       ; _结束while 
 
  (setclose_bh) 
) 
;;; _结束defun 
 
;;; -------------------------------------------- 
;;; 按桩位编号 
(defun zbh_zw (/ sszwd sszw sslen loop_i loop_j) 
  (setq sszw (ssget '((0 . "CIRCLE")   ; (8 . "桩位") 
                    ) 
             )                               ; _结束ssget 
 
  )                                       ; _结束setq 
  (setq sslen (sslength sszw) 
        loop_i 1.0 
  )                                       ; _结束setq 
  (if (< sslen 1000) 
    (prompt "\n 正在进行计算,请稍等...\n") 
    (prompt "\n 数据过多，计算时间可能需要几分钟，请等待......\n") 
  )                                       ; 提取所有桩位坐标到表sszwd 
  (while (<= loop_i sslen) 
    (setq sszwd (append 
                  sszwd 
                  (list (cdr (assoc 10 (entget (ssname sszw (1- loop_i)))))) 
                )                       ; _结束append 
 
    )                                       ; _结束setq 
    (setq loop_i (1+ loop_i)) 
  )                                       ; _结束while 
                                       ; 给表sszwd根据从左到右,从上到下的 
                                       ; 规则排序(插入法). 
  (zbh_px2)                               ; 逐一从表sszwd中提取坐标进行标注 
  (setq osmode_old (getvar "osmode")) 
  (setvar "osmode" 0) 
  (setq loop_i 0) 
  (while (<= loop_i (1- sslen))               ; 关闭捕捉方式 
    (setq pt (nth loop_i sszwd)) 
    (setq pt1 (list (+ (car pt) text_offset) (+ (cadr pt) text_offset))) ; _ 
                                       ; 结束setq 
 
    ;; 将编号加上前后缀 
    (setq zbh_ok (strcat texthome (itoa bh_began) textend)) 
 
    (command "_.text" "s" "ZBH" pt1 Newtextsize "0d" zbh_ok) ; (setq bho 
                                       ; (entlast)) 
                                       ; (command "move" bho "" pt pt1) 
    (setq bh_began (1+ bh_began)) 
 
    ;; 恢复捕捉方式 
    (setq loop_i (1+ loop_i)) 
  )                                       ; _结束while 
  (setvar "osmode" osmode_old) 
 
 
) 
;;; _结束defun 
 
 
;;; ---------------------------------------- 
;;; 表list_o内第I,第J元素换 
;;; (listIJ_JI list_o list_i list_j) 
(defun listij_ji (list_o list_i list_j / ltmep ltemp1 ltemp2 loop_i loop_j) 
  (setq loop_i 0 
        loop_j 0 
        listlen (length list_o) 
        ltemp (list (getvar "CDATE")) 
        ltemp1 (nth list_i list_o) 
        ltemp2 (nth list_j list_o) 
 
 
  )                                       ; _结束setq 
  (setq list_o (subst 
                 ltemp 
                 ltemp1 
                 list_o 
               ) 
  ) 
  (setq list_o (subst 
                 ltemp1 
                 ltemp2 
                 list_o 
               ) 
  ) 
  (setq list_o (subst 
                 ltemp2 
                 ltemp 
                 list_o 
               ) 
  ) 
  (eval 'list_o) 
 
 
) 
;;; _结束defun 
 
;;; -------------------------------------------------------- 
;;; 桩位编号初始化 
(defun setini_bh () 
  (setq textstyle_old (getvar "textstyle")) 
  (setvar "cmdecho" 0) 
  (setq old_lay (getvar "clayer")) 
  (setq dimzin_old (getvar "Dimzin")) 
  (setvar "dimzin" 8) 
  (setq error_old *error*) 
  (gc)                                       ; 判断有无图层ZBH 
  (if (= (tblobjname "LAYER" "ZBH") nil) 
    (progn 
      (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") ' 
                     (100 . "AcDbLayerTableRecord") '(6 . "CONTINUOUS") ' 
                     (62 . 3) '(70 . 0) (cons 2 "ZBH") 
               )                       ; _结束list 
      )                                       ; _结束entmake 
    )                                       ; _结束progn 
  )                                       ; _结束if 
  (setvar "clayer" "ZBH") 
 
  ;; 判断有无字类型ZBH 
  (if (= (tblobjname "STYLE" "ZBH") nil) 
    (progn 
      (entmake (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") ' 
                     (100 . "AcDbTextStyleTableRecord") '(3 . "txt") ' 
                     (40 . 0) '(41 . 0.6) '(50 . 0) '(70 . 0) (cons 2 "ZBH") 
               )                       ; _结束list 
      )                                       ; _结束entmake 
    )                                       ; _结束progn 
  )                                       ; _结束if 
 
) 
;;; _结束defun 
 
;;; ------------------------------------------------------------ 
(defun textoffset () 
  (setq netbeetmp1 nil 
        netbeetmp1 text_offset 
  )                                       ; _结束setq 
  (prompt "\n请输入标注偏移量<") 
  (princ text_offset) 
  (prompt ">:") 
  (if (= (setq text_offset (getreal)) 
         nil 
      ) 
    (setq text_offset netbeetmp1) 
  )                                       ; _结束if 
 
) 
;;; _结束defun 
;;; -------------------------------------------------------------- 
(defun settexthome () 
  (setq netbeetmp1 nil 
        netbeetmp1 texthome 
  )                                       ; _结束setq 
  (prompt "\n请输入编号前缀(无前缀请输入"*")<") 
  (Princ texthome) 
  (Prompt ">:") 
  (if (= (setq texthome (getstring)) 
         "" 
      ) 
    (setq texthome netbeetmp1) 
  )                                       ; _结束if 
  (if (= texthome "*") 
    (SETQ texthome "") 
  )                                       ; _结束if 
 
) 
;;; _结束defun 
 
;;; -------------------------------------------------------- 
(defun settextend () 
 
  (setq netbeetmp1 nil 
        netbeetmp1 textend 
  )                                       ; _结束setq 
  (prompt "\n请输入编号后缀(无后缀请输入"*")<") 
  (Princ textend) 
  (Prompt ">:") 
  (if (= (setq textend (getstring)) 
         "" 
      ) 
    (setq textend netbeetmp1) 
  )                                       ; _结束if 
  (if (= textend "*") 
    (SETQ textend "") 
  )                                       ; _结束if 
 
) 
;;; _结束defun 
;;; -------------------------------------------------------- 
(defun settextbegan () 
  (setq netbeetmp1 nil 
        netbeetmp1 bh_began 
  )                                       ; _结束setq 
  (if (= (setq bh_began (getint (strcat "\n起始编号:1/2/3...<" 
                                        (itoa bh_began) ">:" 
                                ) 
                        )               ; _结束getint 
 
         )                               ; _结束setq 
         nil 
      )                                       ; _结束= 
    (setq bh_began netbeetmp1) 
  )                                       ; _结束if 
 
) 
;;; _结束defun 
;;; ------------------------------------------------------- 
;;; 恢复环境 
(defun setclose_bh () 
  (setvar "textstyle" textstyle_old) 
  (setvar "cmdecho" 1) 
  (setvar "clayer" old_lay) 
  (setvar "dimzin" dimzin_old) 
 
  (defun *merrmsg* (msg) 
    (princ msg) 
    (setq *error* m:err 
          m:err nil 
    ) 
    (princ) 
  ) 
  (Princ) 
) 
;;; _结束defun 
 
;;; ----------------------------------------------------- 
 
 
;;; ------------------------------------------------------- 
;;; 设置字高函数 
(defun settexth () 
  (setq netbeetmp1 nil 
        netbeetmp1 newtextsize 
        netbeetmp2 nil 
        netbeetmp2 (strcat "\n输入字高:<" (rtos Newtextsize) ">:") 
  )                                       ; _结束setq 
  (if (= (setq Newtextsize (getreal netbeetmp2)) 
         nil 
      ) 
    (setq Newtextsize netbeetmp1) 
  )                                       ; _结束if 
 
 
) 
;;; _结束defun 
;;; ------------------------------------------------------- 
(defun *error* (msg) 
  (setclose_bh) 
) 
;;; _结束defun 
 
;;; ------------------------------------------- 
;;; 给表sszwd根据从左到右,从上到下的规则排序(插入法). 
(defun zbh_px2 (/ sstmp1 sstmp2 loop_i loop_j pt1x pt1y pt2x pt2y) ; 定义内部函数 
  (defun listij_in () 
    (setq sszwd (append 
                  (reverse (cdr (member sstmp1 (reverse sszwd)))) 
                  (list sstmp2) 
                  (member sstmp1 (reverse (cdr (member sstmp2 
                                                       (reverse sszwd) 
                                               ) 
                                          ) 
                                 ) 
                  ) 
                  (cdr (member sstmp2 sszwd)) 
                ) 
    ) 
  ) 
 
  (setq loop_j 1) 
  (while (< loop_j sslen) 
    (setq sstmp2 (nth loop_j sszwd) 
          pt2x (car sstmp2) 
          pt2y (cadr sstmp2) 
          loop_i 0 
    ) 
    (while (progn 
             (setq sstmp1 (nth loop_i sszwd) 
                   pt1x (car sstmp1) 
                   pt1y (cadr sstmp1) 
             )                               ; _结束setq 
             (cond                       ; 若指针i已经到了指针j的位置则跳出 
               ((= loop_i loop_j) 
                 (not 1) 
               )                       ; 若第二点的Y比第一点的大,则把第二点 
                                       ;插入到第一前 
                                       ; 并跳出 
               ((< pt1y pt2y) 
                 (listij_in) 
                 (not 1) 
               )                       ; _若第一点的Y与第二点的Y相等,且第二 
                                       ; 点的X比第一点的小, 
                                       ; 则把第二点插入到第一点前，并跳出 
               ((and 
                  (= pt1y pt2y) 
                  (> pt1x pt2x) 
                ) 
                 (listij_in) 
                 (not 1) 
               ) 
 
               ;; 其他情况则不进行互换 
               (t 
                 (setq loop_i (1+ loop_i)) 
               ) 
             )                               ; _结束cond 
           ) 
    )                                       ; _结束while 
    (setq loop_j (1+ loop_j)) 
  )                                       ; _结束while 
  sstmp 
) 
 
 
(Prompt "\n[基础绘图系统1.5] 版权所有 蜜蜂软体工作室 2000年") 
(prompt "\n桩位编号命令：zbh")

ydf7332462 · 发表于 2003-10-29 21:34:16

偏移量o选项不起作用，请检查！！！
如设置用对话框就更好了。

aeo · 发表于 2003-10-29 22:07:36

“蜜蜂软体工作室”,欢迎经常给人分享.

做个演示就好了

netbee · 发表于 2003-11-7 10:43:30

我现在用的是CAD2000版的，已经更新上述问题，并想加入预览功能，但是我已经把它集成到我的软件包［基础绘图系统］中了，要是分离的话很麻烦，我是想把软件包一起放上来的，但是没法解决加密注册方面的问题（我想通过读主板信息进行加密注册可是我对ARX不熟），所以一直就担搁下来了。
我的软件包［基础绘图系统］还是好用的，都是我在实际工作中用得着的。
等我把加密注册方面的问题解决后，一定会放上来给大家分享的。
当然软件包已经是加密了，因为一句话说得好：

当你需要鱼的时候，应教你捕鱼，而不是直接给你鱼！

f5612140 · 发表于 2003-11-7 12:28:44

請問樓主:
您的"基礎繪圖系統"包括那些程序設計或功能(補魚技巧)

ydf7332462 · 发表于 2003-11-11 19:20:56

原来是广告

f5612140 · 发表于 2003-11-12 13:34:46

最初由 ydf7332462 发布
[B]原来是广告 [/B]

我相信樓主不是在打廣告,只希望樓主告訴大家寫了那些好東西,
自己好久沒有寫新的程序,有些手癢,希望可以得到一些靈感,謝謝

netbee · 发表于 2003-11-14 16:03:48

因我是测量专业的，而又在深基础施工单位，所以该软件集分两大类
测量类：坐标标注、自动分幅(南方CASS的的分幅功能太难用了，根本没有用到CAD2000的新特性)、各类地物地貌块
施工类：轴线绘制(仿天正5.0的，不过我可是用LISP实现的，其中对话框中的预览功能可花了我一个星期时间)，基础承台桩位绘制(由于施工完后要绘制竣工图，而设计单位所用的软件是根据勘察报告进行设计，其软件对于只进行平面图的绘制有困难)，桩位编号程序、桩位偏移标注、标准图框绘制、施工放线过程中的数据自动生成(主要针对基础)
还是一些其它的关于文字及线的编辑

注：
1、对于坐标标注的程序在网上是很多的了，但我在其中加入了标注角度功能，因为在实际工作中经常进行小型的地形测量，而甲方又不要正规的地形图，他们是要求以建筑物的AB方向进行出图的，所以正北方向一般都不是出图正方向，而在CAD中是以坐标系进行绘制的，所以就有了一个标注角度，这样你在XY坐标系中进行标注时，所定标注角度为AB坐标的方向，这样出图后，图上的坐标不再是斜的，是正的了。(主要是好看，要是你只用XY系或AB系时这个功能就感觉是多余的)
2、对于施工放线过程中的数据自动生成程序，是这样的，当我们接着一个工程，要进行施工放线时，先在CAD绘制出平面图，再用程序将仪器点确定后，把要放的点一个一个的提取出来直接生成极坐标文件，并打印出来，在现场放线时，只须根据打印出来的数据，进行转角，用钢尺丈量就可以了(对经纬仪或全站仪都非常方便快捷，这是经过实际使用的)
3、轴线绘制中的对话框中的预览功能，主要是用图象控件，并在上面把要画的绘制的轴线都画上，直线很容易实现，主要是圆弧，要将其以一定的弧长分为很多短直线(就象求圆周率一样)，根据这个思路编制一个函数就可以了

f5612140 · 发表于 2003-11-15 12:55:11

最初由 netbee 发布
[B]施工放线过程中的数据自动生成[/B]

可否請樓主圖示這一方面的作業方式或成果,謝謝

litie123 · 发表于 2003-11-15 14:07:27

谢了，我最近正在学这东西

bridgewind · 发表于 2003-11-16 00:57:22

写的挺规范，学习。。。

dlldll · 发表于 2003-11-16 22:26:42

最初由 ydf7332462 发布
[B]原来是广告 [/B]

楼主的奉献精神值得我们的学习，应该不是打广告。
你为何这么说》》》》？？？

netbee · 发表于 2003-11-18 13:28:46

极坐标生成步骤

netbee · 发表于 2003-11-26 12:27:14

再看

netbee · 发表于 2003-11-26 12:33:46

当你确定了生成的文件名及从图中生成后,再确定支仪器的站点坐标，就开始进行选择要放样的点了，这里我是用的基础桩位，及轴交点做例子

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：编号程序（可在R14下运行）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子