社区 › Auto Lisp › 使用dim后提取度

Johntosh 发表于 2022-7-6 14:40:09

使用dim后提取度

早晨
 
使用dimangular后，我想提取结果度。有办法吗？

haustab 发表于 2022-7-6 15:10:44

你好
有人这样想：
(defun dimangle (/ ent txt)
;;(and (setq ent (CAR (ENTSEL "\nDimension : ")))
      (and (setq ent (entlast))
      (= (cdr (assoc 0 (entget ent))) "DIMENSION")
      (vlax-property-available-p
(vlax-ename->VLA-OBJECT ent)
'MEASUREMENT
      )
      (setq
txt
(rtos
    (/ (* (vla-get-measurement (vlax-ename->VLA-OBJECT ent)) 180)
       pi
    )
    2
    2
)
      )
)
(princ txt)
(princ)
)

Lee Mac 发表于 2022-7-6 16:00:25

或
 

(defun dimangle (dim / dim)
(vl-load-com)

(or (eq 'VLA-OBJECT (type dim))
   (setq dim (vlax-ename->vla-object dim)))

(if (eq (vla-get-ObjectName dim)
         "AcDb2LineAngularDimension")
      (vla-get-Measurement dim)))


(defun c:test ()
(print (dimangle (car (entsel "\nSelect Dimension: "))))
(princ))
      

查看完整版本: 使用dim后提取度