大家好
我创建了一个非常简单的LISP例程来:
1.将绘图选项卡设置为A0L
2.外部参照A0标题栏线条
3、插入属性文本块
...但它不起作用。该例程将绘图选项卡设置为A0L,然后停止。我的LISP知识相当基础,但我不确定是什么阻止了它的工作。我已经在命令行上测试了例程的下一部分,它可以正常工作。
有人能指出我做错了什么吗?
提前感谢您的帮助
当做
保罗
- ;; Type CDA0 to insert the A0 CD Titleblock
- ;;
- (defun c:CDA0 ()
-
- (setvar "cmdecho" 0)
- (setvar "expert" 5)
- ;;Sets the drawing layout tab to A0L (A0 Landscape)
- (command "ctab" "A0L")
- ;;Xrefs the A0 titleblock as overlay
- (command "-xref" "Overlay" "C:\Users\P8\Documents\_Library\_ABC\AutoCAD\Templates\Blocks\TB-A0-CD-PL.dwg" "0,0,0" "1" "1" "0")
- ;;Inserts the A0 titleblock attribute text
- (command "-insert" "C:\Users\P8\Documents\_Library\_ABC\AutoCAD\Templates\Blocks\MAC-TB-A0-CD-PL-ATT.dwg" "0,0,0" "1" "0")
- (setvar "expert" 2)
- (setvar "cmdecho" 1)
- (princ)
- )
|