连续模设计相关技术及AutoCAD二次开发lisp

主题：连续模设计相关技术及AutoCAD二次开发lisp

关于：品质  交期  成本
            技术  软件




内容有：连续模相关技术
               自己设计的连续模设计专用软件，lisp源程序，大家可以pp,我可以改改





目的：大家一起做个轻松快乐的设计师
           挤点时间享受生活哈

[ 本帖最后由 chenjian1 于 2006-1-25 05:41 编辑 ]

;;;********************************************************************1
;;;标尺寸序号
;;;command: DA
;;;2005-10-05    Chen Jian
;;;Version 1.1   Add    "Enter a start number<1>
;;;2005-08-25    Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun cA (/ i dia)
  (setvar "cmdecho" 0)
  (setq i nil)
  (setq dia nil)
  (setq i (getint "Enter a start number<1>:"))
  (if (null i)
    (setq i 1)
  )
  (setq        dia (getreal
              "Enter diameter<5>:"
            )
  )
  (if (null dia)
    (setq dia 5)
  )
  (Princ "\n---Enter---to  EXIT...")
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq inpoint (getpoint))
  (while inpoint
    (setq sc 0.5)
    (if        (> i 10)
      (setq sc 0.5)
    )
    (if        (> i 99)
      (setq sc 0.4)
    )
    (command "text"
             inpoint
             (rtos (* sc dia) 2 1)
             ""
             (rtos i 2 0)
    )

    (setq ss (ssget "L"))
    (setq ssn (ssname ss 0))
    (setq ssdata (entget ssn))
    (setq sstyp (cdr (assoc 0 ssdata)))
    (if        (= sstyp "TEXT")
      (progn
        (command "ucs" "e" ssn)
        (setq box (textbox ssdata))
        (setq p1 (car box))
        (setq p3 (cadr box))
        (setq p2 (list (car p3) (cadr p1)))
        (setq p4 (list (car p1) (cadr p3)))
        (setq dda (+ (/ (distance p1 p2) 2) 1))
        (setq cen (inters p1 p3 p2 p4))
        (command "circle" cen (* dia 0.5))
        (command "ucs" "")
      )
    )
    (setq i (1+ i))
    (setq inpoint nil)
    (setq inpoint (getpoint))
  )
  (setvar "osmode" os)
;;;  (command "ucs" "")
  (Princ "\n---------------Bye cA 标尺寸序号---------------"
  )
  (prin1)
)

;;;********************************************************************1
;;;将选取的图形拷贝到指定的图层 Command:k
;;;2004-01-08     Chen Jian
;;;Version 1.0
;;;MADE IN CHINA
(defun c:K(/ en2 en3 yesno)
  (setvar "cmdecho" 0)
  (princ "请选取欲拷贝的图形:")
  (setq en2 (ssget))            ;选取欲拷贝的图形
  (if (= en2 nil)
    (sub-quit)
    (sub-kkk en3 chklay YESNO)
    )
  )

(defun sub-kk()
  (command "copy" en2 ""  "0,0" "")
  (command "change" en2 "" "p" "la" en3 "")
  (princ "\n所选图已拷贝到图层")
  (prin1 en3)
  (prin1))

(defun sub-kkk (en3 chklay yesno)
  (setq en3 (getstring "请输入图层名:"))
  (if (= en3 "")
    (progn (sub-quit))
    (progn (setq chklay (tblsearch "layer" en3))
           (if (= chklay nil)
             (progn(setq yesno(getstring "\n层不存在，是否建立<N>:"))
                    (if        (or (= yesno "Y") (= yesno "y"))
                      (progn
                        (command "layer" "n" en3 "")
                        (sub-kk)
                      )
                      (progn (sub-quit))
                    )
             )
             (progn (sub-kk))
           )
    )
  )
)
有问题请E-mail:ChenJianCaiHong@163.com

这个lsp不好用啊。兄弟

请说明哪里不好用，谢谢。
其实这个程序可以演变成快速开孔的程序，即在每块模板里生成孔...

DES0001NAME:ChenJian
DES:ChenJian
E-mail:ChenJianCaiHong@163.com
2005-10-18
Die-Des-Pass.lic
1. 本「Die-Des五金連續模設計 FOR AutoCAD」軟件,以下簡稱「Die-Des」或「軟件」已採取技術性措施，以防止其遭盜用。
2. 不要改動此文件,否則[Die-Des]軟件將變得不可使用!
3. 升級版。若要使用註明為升級版之「軟件」，貴用戶必須先取得註明為可合法升級之軟件的授權,此為客戶編號。
4. 禁止轉售此軟件。不得轉售或以其他方式作有對價之轉讓，亦不得用於示範、測試或評估以外之其他用途。
5. 此「軟件」係以單一產品方式授權使用，其組件不得分開提供給多部裝置使用。
6. 使用此「軟件」的目的是提高五金連續模設計效率,減少人為的錯誤,使用或不使用此「軟件」給你帶來的任何有形或無形的損失,本人不負任何責任。
7. 如果你一但安裝或使用本軟件,即表明你已接受以上申明,否則請不要安裝或使用本軟件。
8. 安裝:請先將本軟件文件夾放入你硬盤的<D:>盤,在AutoCAD中設置支持路徑，然后將本軟件拖入AutoCAD的繪圖區后即可使用,為了方便,請根據命令行提示加載菜單。
9. 若有問題請發郵件給E-mail:ChenJianCaiHong@163.com。
10.第一行為客戶編號。

以后我会发表一部分lisp源程序，希望大家多讨论软件的算法。
目的：做一个轻松快乐的设计师。

请管理员注意，我发的贴时间显示有问题

內六角螺絲參數-软件

仅供参考

呜，俺的软件哪去了

奥，看到了

[ 本帖最后由 chenjian1 于 2006-1-22 10:52 编辑 ]

看看自己少啥 哈哈