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

兄弟,把你的软件发 一份给我好不?
SUNNY-B1@163.COM
非常感谢!!!

很精彩

我永远支持你的无私精神！

謝謝樓主

楼主是否打算从此行洗手，3KU楼主的无私与勤奋!

是很辛苦，学了很久
计算机图形学，软件工程，c++,vc++,面向对象编程,MFC,LISP,VB,数据结构，算法，与专业结合......
现在还是搞设计

什么啊，有人基与2002开发的XXPREES比你强多了效率也不知道高了多少倍

全名叫什么，拉出来看看

DING

;;;********************************************************************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)
)