超级详细 (defun *error*(st) (if (and (/= st "Function cancelled") (/= st "quit / exit abort") ) (princ (strcat "错误: " st)) ) (setq *error* old_err) (princ) ) (defun sort (l / lt ltem vmax vmin l1 l2 l3 lt0 ltem0 ltem1 l30 vmax0 vmin0 l10 l20) (setq ltem (mapcar 'car l) ;ltem : 取出l的第一项形成的表 vmin (1- (apply 'min ltem)) ;vmin : 是一个比ltem中最小的数还小的数 ) (while (< vmin (setq vmax (apply 'max ltem))) ;从ltem中取出最大值 (setq l1 l l3 nil ltem (subst vmin vmax ltem)) ;去掉最大值 (while (setq l2 (assoc vmax l1)) ;取出最大值所对应的项 (setq l1 (cdr (member l2 l1))) ;处理相同的值 (setq l3 (cons l2 l3)) ) (progn (setq ltem0 (mapcar 'cadr l3) ltem1 (mapcar 'car l3) l30 (mapcar 'cdr l3) vmin0 (1- (apply 'min ltem0)) ) (while ( (car bp) (car sp)) ; (setq tem bp bp sp sp tem) ; ) (setq ss nil) (if (setq ss (ssget "c" bp sp)) (progn (setq n 0) (repeat (sslength ss) (setq el (entget (ssname ss n))) (if (and (= (dxf 0 el) "LINE") (or (= (dxf 8 el) "WALL") (= (dxf 8 el) "AXIS")) (setq ip (inters bp sp (dxf 10 el) (dxf 11 el))) ) ; ip 交点 (progn (setq lpt (cons ip lpt)) ) ) (setq n (1+ n)) ) ; repeat 找出所有的交点并形成表lpt (if (/= nil lpt) (setq lpt (sort lpt))) ) ) (setq pt0 '(0 0 0)) ;以下9行去掉相同的数据 (foreach pt lpt (if (= ang pi) (setq ang (- ang pi))) (setq di (distance bp (inters bp (polar bp (+ ang (* pi 0.5)) 100) (dxf 10 el) (dxf 11 el) nil))) (setq di (- di 700)) (setq pt1 (polar (car lpt) (+ ang (* pi 0.5)) di)) (command "line" (polar pt1 (+ ang (* pi 1.5)) 700) (polar pt1 (+ ang (* pi 0.5)) 300) "") (command "pline" (polar pt1 (+ ang (* pi 1.25)) 70.7) "w" "50" "50" (polar pt1 (+ ang (* pi 0.25)) 70.7) "") (foreach pt (cdr lpt) (setq pt (polar pt (+ ang (* pi 0.5)) di)) (command "line" (polar pt (+ ang (* pi 1.5)) 700) (polar pt (+ ang (* pi 0.5)) 300) "") (command "pline" (polar pt (+ ang (* pi 1.25)) 70.7) "w" "50" "50" (polar pt (+ ang (* pi 0.25)) 70.7) "") (command "line" pt1 pt "") (setq txt (rtos (setq dis (distance pt1 pt)) 2 0)) (setq len (sqrt (+ (* 115 115) (* (/ dis 2.0) (/ dis 2.0))))) (setq ang1 (atan (/ 115 (/ dis 2.0)))) (command "text" "c" (polar pt1 (+ ang ang1) len) "300" (* (/ ang pi) 180) txt) (setq pt1 pt) ) ) ;;;============================================== ;;; main programm ;;;============================================== (defun C:3dimzs(/ bp sp) (setq old_err *error*) (setvar "CMDECHO" 0) (setvar "BLIPMODE" 0) (command "layer" "m" "dim" "c" "g" "dim" "") (setq bp (getpoint "\n第一点(一般为外墙线上两点): ")) (if (= nil bp) (quit)) (setq sp (getpoint bp "\n第二点: ")) (if (= nil sp) (quit)) (pross bp sp) (princ) )

用VB实现的三维CAD绘图程序源代码。 完整代码，值得学习。

AutoSPRINK Platinum 2019是一个可靠和强大的CAD应用程序的设计师和工程师，允许他们快速和轻松地创建和设计消防喷淋系统。 它是一个综合性的应用，提供了广泛的有效工具、对象和三维模型，为高程和坡度的设计提供了合适的三维空间。 它还为您提供先进的工具，以帮助您探索新的设计，并在几秒钟内快速执行水力计算。 AutoSPRINK Platinum 2019是一个功能齐全的套件，将所有您需要的设计、计算和开发模型的工具都放在一个包中。 最新版本带来了新的工具和增强，包括OpenGLSL渲染、更快的视图、元素、制造商数据库等。 它还可以导入生成的3D模型，并将其转换为智能对象。 总而言之，AutoSPRINK铂金2019是一个杰出的应用。建筑模型，包括结构构件和机械元件。 安装说明：https://blog.csdn.net/hongfu951/article/details/11 解压密码：123

progeCAD Professional 2022是领先的CAD应用程序，允许您创建交互式2D和3D CAD设计。 它是一个强大和全面的应用程序，提供了广泛的先进和有效的工具，允许您工作在不同类型的2D和3D设计。 它是一个快速、高效地编辑和打印DWG和DXF文件的CAD程序。 它最终为像建筑师、工程师和设计师这样的CAD用户提供了具有高级CAD功能的复杂工具。 这个伟大的工具也有能力处理AEC和MCAD以及其他公共CAD应用程序。 progeCAD Professional 2022是领先的CAD应用程序，允许您创建交互式2D和3D CAD设计。 progeCAD Professional 2022是一个优秀的应用程序，它提供了各种定制和设置，以帮助您编辑机械和工业工程的3D模型。 它允许您调整各种参数，如图层、颜色、线条类型、比例、线条粗细、单位、文本高度和绘图限制。 您还可以设计简单的实体，包括线、圆、弧、椭圆、点和射线，并使用徒手草图工具 安装说明：https://blog.csdn.net/hongfu951/article/details/11 解压密码：123

Home Plan Pro是一个功能丰富和通用的CAD应用程序，允许您设计2D家庭计划。 该程序提供了一套丰富的功能和友好的环境，将简化您的任务。 这个实用程序是针对有经验的用户。 该程序具有良好的设计和熟悉的界面，提供了简单和快速访问各种元素和绘图功能，如墙，多边形，线，弧，窗户，测量，文本，门和图像。 您还可以创建当前计划的备份副本、拍摄快照、打印计划、从DWG和DXF文件导入数据、将项目保存为PDF文档、通过电子邮件或传真发送计划等等。 Home Plan Pro允许您通过使用键盘、鼠标或两者的组合来设计家庭计划。 该程序带有一套预先绘制的数字，代表装置，家具，门，窗户，和更多。 绘制的元素可以保存以备以后使用。 您也可以在其他计划中使用保存的元素

内含121个Auto CAD LISP实用小程序，对于学习LISP编程或实际CAD绘图工作都有很好的帮助。

CAD应用程序开发光盘源代码，内含有完整版的光盘文件。解压密码111。欢迎大家下载学习。

集成OCC、Gmsh和OSG的测试程序，包含解析Gmsh中Mesh数据并传输给OSG的部分。赚个辛苦费嘿嘿，不想花钱的友友也可以私信我，我看到消息之后可以免费提供代码。

CAD应用程序开发详解部分实例源代码第4章

机械设计-大空间旋转喷头零件的数控加工工艺设计、编程与加工（有全套cad图+程序+中英文翻译）.zip