连续模设计相关技术及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)
)

学习下，还不够精

看不明白，刚接触

chenjian1 发表于 2006-2-8 23:03
计算展开长度,绘制展开线

;;;********************************************************************1  ...

能把软件共享出来吗

多谢楼主！！！

chenjian1 发表于 2006-1-22 00:36
仅供参考

非常的棒

chenjian1 发表于 2006-1-23 00:29
;;;当我们设计好剪口后就该用它了，预设镶件壁厚为5.0mm,自动取整
;;;镶件外形生成 Command:WX
;;;2005-1 ...

上面这个程序在选图形时能不能用框选的形式呀，点选不是很方便，而且我几个零件做在一个镶块上就不行了。
能不能改一改呀！谢谢

chenjian1 发表于 2006-1-23 22:19
;;;当我们设计好剪口后就该用它了，预设镶件壁厚为5.0mm,自动取整
;;;镶件外形生成 Command:WX
这个不是很 ...

wx ; 错误: no function definition: SUB-GETBOUNDINGBOX
不能用是咋回事呀？

很方便的工具.谢谢

和楼主一比我自卑啊            楼主教教啊