SOPA不是很健壮
;程序故障，然后添加;计算功能。
; 程序算法
; 程序使用一条线，偏移到高度，
;然后在梁元素端点处定义一个三维面，
;同时在3dface标题处添加第二个梁元素。
; 定义xy平面以偏移壁厚
;;初始化
;表4.1:Initget位代码及其含义；
;代码含义
;不允许1个空输入
;2不允许零值
;4不允许负值
;8不要检查点值的限制
;16返回3D点而不是2D点
;32使用虚线作为橡皮筋线和窗口
;表4.2：位代码和相关Get函数
;函数可与initget位代码一起使用：
;getint 1,2,4
;getreal 1,2,4
;getdist 1,2,4,16,32
;getangle 1,2,32
;getorient 1,2,32
;获取点1,8,16,32
;getcorner 1,8,16,32
;格特沃德1
;getstring没有initget代码
;;******
（defun getinfo（）
（initget 17）
（setq pt1（getpoint“对于3DFace&Beam set，拾取第一个角：”）
; pt1 gtpt和pt4 gtpt一起结果为零至pt1
（setq pt4（getpoint“选择墙地板处的端点，ABCD的坐标D:”））
（initget 7）
（setq hz（getreal“Set h（每单位）：”）
)
;（defun procinfo（）
;（setq pt2（列表（car pt1）（cadr pt1）（+（caddr pt1）hz）））
;（setq pt3（列表（car pt4）（cadr pt4）（+（caddr pt4）hz）））
（defun输出（）
;princ（rtos[.x”pt1]、rtos[.y”pt1]、rtos[.z”pt1]）考虑
;打印坐标的原理（rtos[.x”pt4]、rtos[.y”pt4]、rtos[.z”pt4]），单位为英尺-英寸
!pt1
;!pt2
!pt4
!赫兹
;!pt3
（命令“pline”pt1 pt4“c”）
;（命令“pline”pt2 pt3“c”）
;（命令“3dface”pt1 pt2 pt3 pt4“c”）
（命令“pline”。xy“pt1 hz”。xy“pt4 hz”c）
（命令“3dface”pt1.xy“pt1 hz.xy”pt4 hz pt4“\e”）
)
（定义C:SOPA（/pt1 pt4 hz）
（getinfo）
; （procinfo）
（输出）
)
; （rtos[实数或整数值][单位样式代码][精度]）
; rtos的第一个参数是正在转换的数字。
; 它可以是实数或整数。下一个参数是单位
; 样式代码。表列出了这些代码及其含义。
;代码格式
;1科学
;2十进制
;3英尺和十进制英寸
;4英尺和英寸
;5个分数单位
; 输出坐标假设3dface在UCS Z中展开
; 墙边界外部和端点处的宽度标定
; 梁图元边界以创建3dface图元。
;
;
; 元素以Dxf格式存储内联注释|；
;对象pline，对象3dface
; 选择中心线方法或外墙和宽度
; [验证单位]
;
; 指定插入点
; （命令“3dface”pt1 pt4.xy“pt4 hz.xy”pt1 hz pt2
;pt3“3dface”pt1 pt2.xy“pt1 hz pt1”复制“L”
;pt1 pt4）
;
;
;
;
;
;（initget 17）
;（setq pt1（getpoint“拾取第一个角点”））
;（setq pt4（getpoint“选择线路端点，ABCD的坐标D”））
;（setq hz（getreal“Set h”））
;（setq pt2（列表（car pt1）（cadr pt1）（+（caddr pt1）hz）））
;（setq pt3（列表（car pt4）（cadr pt4）（+（caddr pt4）hz）））
;（命令行pt1 pt4）
;（命令行pt2 pt3）
;（命令“3dface”pt1 pt2 pt3 pt4）
;|AutoLISP控制字符
代码说明
\\\字符
\“”字符
\e转义字符
\n换行符
\r返回字符
\t制表符
\其八进制代码为nnn的nnn字符
|;
Apt002.dwg 请阅读以下内容：
http://www.cadtutor.net/forum/showthread.php?9184-代码发布指南
请更详细地描述你的问题。
页:
[1]