天花板网格lisp不工作
我需要一个lisp例程来做天花板网格的工作。Cgrid。lsp工作得很好，但当您指定一个centen-locate时，它并不是从我指定的地方开始的。谁能看看这个lisp文件并帮我修复它吗。谢谢
Lisp文件：
（defun c:cgrid（）
（setvar“cmdecho”0）
（setq DCL\U ID（加载对话框“CGRID.DCL”））
（if（not（new\u dialog“cgrid”DCL\u ID））（退出）
（action\u tile“grid\u 1”“（setq grid“clg\u 2x2”）
（action\u tile“grid\u 2”“（setq grid“clg\u 2x4”）
（action\u tile“ang\u 1”“（setq ang“0”）
（action_tile“ang_2”“（setq ang“45”）
（action_tile“ang_3”“（setq ang“90”）
（action_tile“ang_4”“（setq ang“135”）
（action\u tile“object”“（setq SEL 1）（done\u对话框4）”）
（action\u tile“point”“（setq SEL 2）（done\u对话框4）”）
（action\u tile“edit”“（setq SEL 3）（done\u对话框4）”）
（setq DO_NEXT（start_对话框））
（unload\u对话框DCL\u ID）
（如果（=DO_NEXT 4）（程序
（如果（=选择1）
（程序
（setq OBJ（ssget））
（setq PT（getpoint“\n选择网格起点：”）
（setq XCORD（车载PT））
（setq YCORD（cadr PT））
（setq SP（列表XCORD YCORD））
（setvar“snapbase”SP）
（命令“.bhatch”“p”GRID“1.0”ANG“s”OBJ”）
（命令“snapbase”“0,0”）
)
)
（如果（=选择2）
（程序
（setq PNT（getpoint“\n点击内部点：”）
（setq PT（getpoint“\n选择网格起点：”）
（setq XCORD（车载PT））
（setq YCORD（cadr PT））
（setq SP（列表XCORD YCORD））
（setvar“snapbase”SP）
（命令“.bhatch”“p”GRID“1.0”ANG PNT”）
（命令“snapbase”“0,0”）
)
)
（defun rtd（A）
（/（*A 180.0）PI）
)
（如果（=选择3）
（程序
（setq EROB（entsel“\n选择要编辑的天花板网格：”）
（setq网格（entget（car EROB）））
（setq RAD（assoc 52电网））
（setq RAD（cdr RAD））
（setq电网（assoc 2电网））
（setq网格（cdr网格））
（setq PT（getpoint“\n点击新的起点：”）
（setq XCORD（车载PT））
（setq YCORD（cadr PT））
（setq SP（列表XCORD YCORD））
（setvar“snapbase”SP）
（setq OBJ（ssget））
（setq ANG（rtd RAD））
（命令.擦除“EROB”）
（命令“.bhatch”“p”GRID“1.0”ANG“s”OBJ”）
（命令“snapbase”“0,0”）
)
)
)
)
（普林斯）
)
;;结束CGRID。LSP
数据链路连接器文件：
cgrid：对话框{
label=“反射天花板”；
垫片_1；
：行{
：box_radio_列{
label=“天花板网格尺寸…”；
：单选按钮{
标签=“24in.x 24in.（吊顶或通道地板）”；
key=“网格1”；}
：单选按钮{
标签=“24英寸x 48英寸（吊顶）”；
key=“网格2”；}
}
}
垫片_1；
：行{
：boxed_radio_行{
label=“网格角度…”；
宽度=20；
：单选按钮{
标签=“0”；
key=“ang_1”；}
：单选按钮{
标签=“45”；
key=“ang_2”；}
：单选按钮{
标签=“90”；
key=“ang_3”；}
：单选按钮{
标签=“135”；
key=“ang_4”；}
}
}
垫片_1；
：boxed_radio_行{
label=“边界选项…”；
：按钮{
label=“选择多段线”；
key=“对象”；
宽度=16；
固定宽度=true；}
：按钮{
label=“拾取内部点”；
key=“点”；
宽度=20；
固定宽度=true；}
：按钮{
key=“编辑”；
label=“编辑起点”；
宽度=16；
固定宽度=true；}
}
ok\u取消；
}
CGRID。拉链 不确定附件是否是你想要的，但试试看。
祝你好运
秃鹰
CFT。拉链 我在工作中试过这个程序，每次我在房间的侧面区域选择自己的开始，它都不会从我放置它的地方开始，但当我在家用电脑上试用它时，它就工作了。
我得看看我的设置。
有趣的是，每次我在工作中试用它，它在AutoCAD 2008上都不起作用。但在AutoCAD 2004中，它运行良好。
AutoCAD 2008中的设置有所不同。
有人知道吗？
谢谢 cadmando2，
不确定什么会阻止它运行。我在2004年和2009年测试了它，它在这两个方面都很好。确保您拥有2008年最新的service Pack。除此之外，我不知道是什么导致了这个问题。
当你开始工作时，告诉我你发现了什么。
秃鹰
页:
[1]