求助vla-put-HorizontalTextPosition函数的问题

dlsgj

我在一本vlisp词典的光盘文件里面提取的一个关于vla-put-HorizontalTextPosition函数的程序，但是运行起来总是提示错误，函数如下：

(defun C:E23()

;;; 这个范例在模型空间中建立一个对齐式标注
;;; 接着以各种不同的水平对齐轮流处理
;;; 标注文字

  (VL-LOAD-COM)

  (setq AcadObject(vlax-get-acad-object)

        AcadDocument(vla-get-ActiveDocument AcadObject)

        mSpace(vla-get-ModelSpace AcadDocument)

  )

;;; 定义标注

  (setq pnt1(vlax-3d-point (list 50 50 0)))

  (setq pnt2(vlax-3d-point (list 90 50 0)))

  (setq location(vlax-3d-point (list 5 7 0)))

;;; 在模型空间中建立一个对齐式标注对象

  (setq dimObj(vla-AddDimAligned mSpace pnt1 pnt2 location))

  (vla-ZoomExtents AcadObject)

;;; 读取显示当前的文字位置

  (setq Case(vla-get-HorizontalTextPosition dimObj))

  (COND

    ((= Case 0) (setq currValue "居中"))

    ((= Case 1) (setq currValue "和第一条界线对齐"))

    ((= Case 2) (setq currValue "和第二条界线对齐"))

    ((= Case 3) (setq currValue "超过第一条界线对齐"))

    ((= Case 4) (setq currValue "超过第二条界线对齐"))

  )

  (princ (STRCAT "标注为: " currValue "\n"))

  (PROMPT "<Enter>进行:")(VL-CMDF pause)

;;; 强制标注文字和第一条界线对齐

  (vla-put-HorizontalTextPosition dimObj acFirstExtensionLine)

  (vla-Regen AcadDocument acAllViewports)

  (princ "标注文字当前和第一条界线对齐\n")

  (PROMPT "<Enter>进行:")(VL-CMDF pause)

;;; 强制标注文字和第二条界线对齐

  (vla-put-HorizontalTextPosition dimObj acSecondExtensionLine)

  (vla-Regen AcadDocument acAllViewports)

  (princ "标注文字当前和第二条界线对齐\n")

  (princ)

)

 

这到底是怎么回事啊？

请各位大侠解答一下。

xyp1964

2. vla-put-HorizontalTextPosition
3. 函数
4. 功能
5. 设定标注文字的水平对正方式。
6. 语法及参数
7. (vla-put-HorizontalTextPosition Object Value)
8. Object
9. Dim3PointAngular,
10. DimAligned,
11. DimAngular,
12. DimDiametric,
13. DimRadial,
14. DimRotated
15. 这个属性适用的对象。
16. Value
17. acDimHorizontalJustification
18. 列举     ; 读/写
19. acHorzCentered:
20. 文字放置在界线之间并沿着标注线向中心对齐
21. acFirstExtensionLine:
22. 文字在第一条界线旁边
23. acSecondExtensionLine:
24. 文字沿着第二条界线
25. acOverFirstExtension:
26. 文字在上方并和第一条界线对齐
27. acOverSecondExtension:
28. 文字在上方并和第二条界线对齐
29. 说明
30. 这个属性会取代给定标注的DIMJUST系统变量值。
31. 范例
32. (defun Example_HorizontalTextPosition ()
33. ;;; 这个范例在模型空间中建立一个对齐式标注
34. ;;; 接着以各种不同的水平对齐轮流处理
35. ;;; 标注文字
36.   (VL-LOAD-COM)
37.   (setq AcadObject   (vlax-get-acad-object)
38. AcadDocument (vla-get-ActiveDocument AcadObject)
39. mSpace      (vla-get-ModelSpace AcadDocument)
40.   )
41. ;;; 定义标注
42.   (setq pnt1 (vlax-3d-point (list 50 50 0)))
43.   (setq pnt2 (vlax-3d-point (list 90 50 0)))
44.   (setq location (vlax-3d-point (list 5 7 0)))
45. ;;; 在模型空间中建立一个对齐式标注对象
46.   (setq dimObj (vla-AddDimAligned mSpace pnt1 pnt2 location))
47.   (vla-ZoomExtents AcadObject)
48. ;;; 读取显示当前的文字位置
49.   (setq Case (vla-get-HorizontalTextPosition dimObj))
50.   (COND
51.     ((= Case 0) (setq currValue "居中"))
52.     ((= Case 1) (setq currValue "和第一条界线对齐"))
53.     ((= Case 2) (setq currValue "和第二条界线对齐"))
54.     ((= Case 3) (setq currValue "超过第一条界线对齐"))
55.     ((= Case 4) (setq currValue "超过第二条界线对齐"))
56.   )
57.   (princ (STRCAT "标注为: " currValue "\n"))
58.   (PROMPT "<Enter>进行:")
59.   (VL-CMDF pause)
60. ;;; 强制标注文字和第一条界线对齐
61.   (vla-put-HorizontalTextPosition dimObj acFirstExtensionLine)
62.   (vla-Regen AcadDocument acAllViewports)
63.   (princ "标注文字当前和第一条界线对齐\n")
64.   (PROMPT "<Enter>进行:")
65.   (VL-CMDF pause)
66. ;;; 强制标注文字和第二条界线对齐
67.   (vla-put-HorizontalTextPosition
68.     dimObj
69.     acSecondExtensionLine
70.   )
71.   (vla-Regen AcadDocument acAllViewports)
72.   (princ "标注文字当前和第二条界线对齐\n")
73.   (princ)
74. )

vla-put-HorizontalTextPosition 函数 功能 设定标注文字的水平对正方式。 语法及参数 (vla-put-HorizontalTextPosition Object Value) Object Dim3PointAngular, DimAligned, DimAngular, DimDiametric, DimRadial, DimRotated 这个属性适用的对象。 Value acDimHorizontalJustification 列举     ; 读/写 acHorzCentered: 文字放置在界线之间并沿着标注线向中心对齐 acFirstExtensionLine: 文字在第一条界线旁边 acSecondExtensionLine: 文字沿着第二条界线 acOverFirstExtension: 文字在上方并和第一条界线对齐 acOverSecondExtension: 文字在上方并和第二条界线对齐 说明 这个属性会取代给定标注的DIMJUST系统变量值。 范例 (defun Example_HorizontalTextPosition () ;;; 这个范例在模型空间中建立一个对齐式标注 ;;; 接着以各种不同的水平对齐轮流处理 ;;; 标注文字   (VL-LOAD-COM)   (setq AcadObject   (vlax-get-acad-object) AcadDocument (vla-get-ActiveDocument AcadObject) mSpace      (vla-get-ModelSpace AcadDocument)   ) ;;; 定义标注   (setq pnt1 (vlax-3d-point (list 50 50 0)))   (setq pnt2 (vlax-3d-point (list 90 50 0)))   (setq location (vlax-3d-point (list 5 7 0))) ;;; 在模型空间中建立一个对齐式标注对象   (setq dimObj (vla-AddDimAligned mSpace pnt1 pnt2 location))   (vla-ZoomExtents AcadObject) ;;; 读取显示当前的文字位置   (setq Case (vla-get-HorizontalTextPosition dimObj))   (COND     ((= Case 0) (setq currValue "居中"))     ((= Case 1) (setq currValue "和第一条界线对齐"))     ((= Case 2) (setq currValue "和第二条界线对齐"))     ((= Case 3) (setq currValue "超过第一条界线对齐"))     ((= Case 4) (setq currValue "超过第二条界线对齐"))   )   (princ (STRCAT "标注为: " currValue "\n"))   (PROMPT "<Enter>进行:")   (VL-CMDF pause) ;;; 强制标注文字和第一条界线对齐   (vla-put-HorizontalTextPosition dimObj acFirstExtensionLine)   (vla-Regen AcadDocument acAllViewports)   (princ "标注文字当前和第一条界线对齐\n")   (PROMPT "<Enter>进行:")   (VL-CMDF pause) ;;; 强制标注文字和第二条界线对齐   (vla-put-HorizontalTextPosition     dimObj     acSecondExtensionLine   )   (vla-Regen AcadDocument acAllViewports)   (princ "标注文字当前和第二条界线对齐\n")   (princ) )