$(
輔助標(biāo)識
Design Reference Manual
  General Commands
    Display
      Element Representation
        Using Design Aids

LINE ARROW CEARROW ARC SPHERE BOX CYLINDER 

符號說明
[] 表示可選 
(/) 表示選一 
NUMber 大寫是必須的煤禽，小寫可省略

示例:
LINE 線
AID LINE [NUMber 1] $!!CE.APOS TO $!!CE.LPOS [LINEStyle (SOLId/DASHEd/DOTTEd/DASHDot)]
注意 同一個NUM 線型 只需要定義一次


TEXT 文本
AID TEXT [NUMber 2] |hello world| AT $!!CE.POS

ARROW 箭頭 
PROP 1 全箭頭 0 全線
AID ARROW [NUMber 1] AT $!!CE.LPOS DIRection $!!CE.LDIR HEIght 100 PROPortion 0.5

CEARROW CE顯示方向箭頭
AID CEARROW (ON/OFF)
AID CEARROW HEIght (abore * 3) PROPortion 0.8 (ARRIVE/LEAVE/ORIGIN)

ARC 弧線
AID ARC [NUMber 1] $!!CE.APOS TO $!!CE.LPOS (TANPoint $!!CE.POS / THRU $!!CE.POS)

SPHERE 球
AID SPHERE [NUMber 1] $!!CE.POS DIAmeter 100

BOX 立方體
AID BOX [NUMber 2] POSition $!!CE.POS ORIentation $!!CE.ORI XLENgth 100 YLENgth 100 ZLENgth 500 FILLed (ON/OFF)

CYLinder 圓柱
AID CYLinder [NUMber 2] (POSition $!!CE.APOS / AT $!!CE.LPOS) ORIentation $!!CE.ORI DIAmeter 100 HEIght 5000 FILLed (ON/OFF)

清除 
AID CLEAR ALL
AID CLEAR LINE ALL
AID CLEAR LINE 1 
AID CLEAR LINE UNNumbered

查詢
Q AID  LINE (1 / UNNumbered / ALL)

Design Reference Manual
  General Commands
    Display
      Element Representation
        Specifyint Axes

AXEs HEIght 500 AT $!!CE.POS
AXEs (ON/OFF/DELete)
$)

簡單應(yīng)用

image.png

id@
!ele1 = !!CE
id@
!ele2 = !!CE

!aidNumber = 99
-- 清除標(biāo)識
!aids = 'TEXT LINE ARROW CEARROW ARC SPHERE BOX CYLINDER'
do !aid values !aids.split(' ')
  AID CLEAR $!aid $!aidNumber
  handle any
  endhandle
enddo

!p1 = !ele1.pos
!p8 = !ele2.pos
-- 根據(jù)2點生成8點 p1~p8
!tmp = array()
!tmp.append(0)
!tmp.append(1)
!n = 0
do !i values !tmp
  do !j values !tmp
    do !k values !tmp
      !p = !p1
      !p.East = !p1.East + (!p8.East - !p1.East) * !i
      !p.North = !p1.North + (!p8.North - !p1.North) * !j
      !p.Up = !p1.Up + (!p8.Up - !p1.Up) * !k
      !n = 2 * 2 * !i + 2 * !j + !k + 1
      !p$!n = !p
      $p $!i $!j $!k $!n $!p$!n
    enddo
  enddo
enddo

-- p1~p8 組成 長方體的 12 根線
!linePairU = '1,2;3,4;5,6;7,8;'
!linePairN = '1,3;2,4;5,7;6,8;'
!linePairE = '1,5;2,6;3,7;4,8'
!linePairs = !linePairU + !linePairN + !linePairE
do !linePair values !linePairs.split(';')
  !line = !linePair.split(',')
  !lineStart = !line[1]
  !lineEnd = !line[2]

  !posa = !p$!<lineStart>
  !posb = !p$!<lineEnd>

  AID LINE NUM $!aidNumber $!posa TO $!posb LINEStyle DASHDOT

  !textPos = !posa.MidPoint(!posb)
  !distance = !posa.Distance(!posb).String('D1')
  if !distance.neq('0.0') and !lineStart.eq('1') then
    AID TEXT NUM $!aidNumber |$!distance mm| AT $!textPos
  endif
enddo