求助：求高手修改代码
本帖最后由 恕放之生命 于 2014-8-29 21:28 编辑求助：求高手修改代码
这段代码是由一个块生成lisp代码工具生成，现在无法生成块了，求高手出手相助为谢！
(defun MakeBlock-bb-DXF ()
(if (not (tblsearch "Layer" "总图-坐标"))
(progn
;;;entmake *** "LAYER" *** object:
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(2 . "总图-坐标")
'(70 . 0)
'(62 . 3)
'(6 . "Continuous")
'(290 . 1)
'(370 . -3)
)
)
);End Progn
);End IF
(if (not (tblsearch "Block" "bb"))
(progn
;;;entmake *** "BLOCK" *** object:
(entmake (list
'(0 . "BLOCK")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "0")
'(100 . "AcDbBlockBegin")
'(70 . 0)
'(10 0.0 0.0 0.0)
'(2 . "bb")
'(1 . "")
)
)
;;;entmake *** "LINE" *** object:
(entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "总图-坐标")
'(100 . "AcDbLine")
'(10 31.7819 20.8843 0.0)
'(11 -31.7819 -20.8843 0.0)
'(210 0.0 0.0 1.0)
)
)
;;;entmake *** "LINE" *** object:
(entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "总图-坐标")
'(100 . "AcDbLine")
'(10 -31.7819 20.8843 0.0)
'(11 31.7819 -20.8843 0.0)
'(210 0.0 0.0 1.0)
)
)
;;;entmake *** "LWPOLYLINE" *** object:
(entmake (list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "总图-坐标")
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
'(43 . 0.0)
'(38 . 0.0)
'(39 . 0.0)
'(10 -31.7819 20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(10 31.7819 20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(10 31.7819 -20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(10 -31.7819 -20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(210 0.0 0.0 1.0)
)
)
;;;entmake *** "ENDBLK" *** object:
(entmake (list
'(0 . "ENDBLK")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockEnd")
)
)
(entupd (tblobjname "Block" "bb"))
);End Progn
);End IF
(princ);静默退出
)
;$$$$$$$$$$$$
(DEFUN C:ZKaa( )
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 0);关闭捕捉
(COMMAND "_INSERT" (MakeBlock-bb-DXF "bb") (getpoint "\n图块插入点:") 1 1 0)
(princ);静默退出
)
(defun MakeBlock-bb-DXF ()
(if (not (tblsearch "Layer" "总图-坐标"))
(progn
;;;entmake *** "LAYER" *** object:
(entmake (list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(2 . "总图-坐标")
'(70 . 0)
'(62 . 3)
'(6 . "Continuous")
'(290 . 1)
'(370 . -3)
)
)
);End Progn
);End IF
(if (not (tblsearch "Block" "bb"))
(progn
;;;entmake *** "BLOCK" *** object:
(entmake (list
'(0 . "BLOCK")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "0")
'(100 . "AcDbBlockBegin")
'(70 . 0)
'(10 0.0 0.0 0.0)
'(2 . "bb")
'(1 . "")
)
)
;;;entmake *** "LINE" *** object:
(entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "总图-坐标")
'(100 . "AcDbLine")
'(10 31.7819 20.8843 0.0)
'(11 -31.7819 -20.8843 0.0)
'(210 0.0 0.0 1.0)
)
)
;;;entmake *** "LINE" *** object:
(entmake (list
'(0 . "LINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "总图-坐标")
'(100 . "AcDbLine")
'(10 -31.7819 20.8843 0.0)
'(11 31.7819 -20.8843 0.0)
'(210 0.0 0.0 1.0)
)
)
;;;entmake *** "LWPOLYLINE" *** object:
(entmake (list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(8 . "总图-坐标")
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
'(43 . 0.0)
'(38 . 0.0)
'(39 . 0.0)
'(10 -31.7819 20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(10 31.7819 20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(10 31.7819 -20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(10 -31.7819 -20.8843)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(210 0.0 0.0 1.0)
)
)
;;;entmake *** "ENDBLK" *** object:
(entmake (list
'(0 . "ENDBLK")
'(100 . "AcDbEntity")
'(100 . "AcDbBlockEnd")
)
)
(entupd (tblobjname "Block" "bb"))
);End Progn
);End IF
(princ);静默退出
)
;$$$$$$$$$$$$
(DEFUN C:ZKaa( )
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 0);关闭捕捉
(MakeBlock-bb-DXF )
(COMMAND "_INSERT" "bb" (getpoint "\n图块插入点:") 1 1 0)
(princ);静默退出
)
页:
[1]