CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

ADCInsertUnitsDefaultTarget 属性（ActiveX）

2024-5-18 18:56| 发布者: admin| 查看: 359| 评论: 0|原作者: admin|来自: AutoCAD

确定要自动用于设计中心中对象的单位，以用于未分配插入单位的目标图形。

支持的平台：仅限 Windows

签名

VBA：

object.ADCInsertUnitsDefaultTarget

对象

类型：PreferencesUser

此属性应用于的对象。

属性值

只读：不

类型：枚举acInsertUnits

acInsertUnitsAngstroms
acInsertUnitsAstronomicalUnits
acInsertUnitsCentimeters
acInsertUnitsDecameters
acInsertUnitsDecimeters
acInsertUnitsFeet
acInsertUnitsGigameters
acInsertUnitsHectometers
acInsertUnitsInches
acInsertUnitsKilometers
acInsertUnitsLightYears
acInsertUnitsMeters
acInsertUnitsMicroinches
acInsertUnitsMicrons
acInsertUnitsMiles
acInsertUnitsMillimeters
acInsertUnitsMils
acInsertUnitsNanometers
acInsertUnitsParsecs
acInsertUnitsUnitless
acInsertUnitsUSSurveyFeet
acInsertUnitsUSSurveyInch
acInsertUnitsUSSurveyMile
acInsertUnitsUSSurveyYard
acInsertUnitsYards

言论

此属性的初始值为。acInsertUnitsUnitless

注意：此属性的值存储在 INSUNITSDEFTARGET 系统变量中。

例子

VBA：

Sub Example_ADCInsertUnitsDefaultTarget()
    ' This example reads and modifies the ADCInsertUnitsDefaultTarget
    ' preference value.
    ' When finished, this example resets the preference value back to
    ' its original value.
    
    Dim ACADPref As AcadPreferencesUser
    Dim originalValue As Integer, newValue As Integer
    
    ' Get the user preferences object

    Set ACADPref = ThisDrawing.Application.preferences.User
    
    ' Read and display the original value
    originalValue = ACADPref.ADCInsertUnitsDefaultTarget
    MsgBox "The ADCInsertUnitsDefaultTarget preference is set to: " & originalValue

    ' Modify the ADCInsertUnitsDefaultTarget preference by toggling the value
    ACADPref.ADCInsertUnitsDefaultTarget = acInsertUnitsMillimeters

    MsgBox "The ADCInsertUnitsDefaultTarget preference has been set to: " & ACADPref.ADCInsertUnitsDefaultTarget

    ' Reset the preference back to its original value
    ACADPref.ADCInsertUnitsDefaultTarget = originalValue
    MsgBox "The ADCInsertUnitsDefaultTarget preference was reset back to: " & originalValue
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_ADCInsertUnitsDefaultTarget()
    ;; This example reads and modifies the ADCInsertUnitsDefaultTarget
    ;; preference value.
    ;; When finished, this example resets the preference value back to
    ;; its original value.
    (setq acadObj (vlax-get-acad-object))

    ;; Get the user preferences object
    (setq pref (vla-get-Preferences acadObj))
    (setq user (vla-get-User pref))
    
    ;; Read and display the original value
    (setq originalValue (vla-get-ADCInsertUnitsDefaultTarget user))
    (alert (strcat "The ADCInsertUnitsDefaultTarget preference is set to: " (itoa originalValue)))
  
    ;; Modify the ADCInsertUnitsDefaultTarget preference by toggling the value
    (vla-put-ADCInsertUnitsDefaultTarget user acInsertUnitsMillimeters)
    (alert (strcat "The ADCInsertUnitsDefaultTarget preference has been set to: " (itoa (vla-get-ADCInsertUnitsDefaultTarget user))))

    ;; Restore the preference back to its original value
    (vla-put-ADCInsertUnitsDefaultTarget user originalValue)
    (alert (strcat "The ADCInsertUnitsDefaultTarget preference was restored back to: " (itoa originalValue)))
)