|
|
我需要一个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。拉链 |
|
置顶卡
