社区 › CAD › 将半径加入弧长尺寸

Master_Shake 发表于 2014-8-31 19:56:48

将半径加入弧长尺寸

周一早上头痛（也许我需要更多的咖啡！
标准的Dim->ArcLength给出了弧的长度.....有没有人知道一种方法可以在其下方添加另一个字段以添加所述弧的半径，以避免冗长的设置表和双重尺寸.....
| 14250 |- 长度
R20 - 半径字段（保持动态更新的字段）
干杯
**** Hidden Message *****

Bethrine 发表于 2014-9-2 08:25:49

肮脏而肮脏...
(defun c:TEst (/ _massoc obj dic arc)
(defun _massoc (x lst)
    (if lst
      (if (eq (caar lst) x)
      (cons (car lst) (_massoc x (cdr lst)))
      (_massoc x (cdr lst))
      )
    )
)
(setq obj (entlast))
(command "_.dimarc")
(while (eq (logand 1 (getvar 'CMDACTIVE)) 1) (command PAUSE))
(if (and (not (equal obj (setq obj (entlast))))
         (eq (vla-get-HasExtensionDictionary (setq obj (vlax-ename->vla-object obj))) :vlax-true)
         (setq dic (vla-getExtensionDictionary obj)
               arc (vlax-ename->vla-object
                     (cdar (vl-remove-if-not
                               (function (lambda (x) (member (cdr (assoc 0 (entget (cdr x)))) '("ARC" "LWPOLYLINE"))))
                               (_massoc 331 (entget (vlax-vla-object->ename (vla-getobject dic "ACAD_DIMASSOC"))))
                           )
                     )
                     )
         )
      )
    (vla-put-textoverride
      obj
      (strcat "L= \\PR= %%).Radius \\f \"%lu2\">%"
      )
    )
)
(princ)
)
(vl-load-com)
(princ)

查看完整版本: 将半径加入弧长尺寸