请问怎么能对选择多段线让他变身。

wanchr

vitalgg 发表于 2023-12-6 17:27
创建一个线型。改变多段线的线型。

怎么创建线型吗，给点提示大哥们。。。
(defun create-custom-line ()
  (setq line-type "CustomLine") ; 设置线型名称
  (setq line-description "Custom line with arrow") ; 设置线型描述
  (setq line-elements '((-1 . 0) (1 . 0) (0 . 1))) ; 定义线型元素，这里使用直线和箭头
  (setq line-length 1.0) ; 设置线型长度
  
  (setq acad (vlax-get-acad-object))
  (setq doc (vla-get-activedocument acad))
  (vla-startundomark doc) ; 开始撤销操作
  
  (setq line-type-table (vla-get-linetypetable doc)) ; 获取线型表
  (setq new-line-type (vla-item line-type-table line-type)) ; 检查线型是否已存在
  (if (not new-line-type)
    (setq new-line-type (vla-add line-type-table line-type line-description line-length)) ; 添加新线型
  )
  
  (vlax-for line-element line-elements
    (setq segment (vla-addsegment new-line-type)) ; 添加线型元素
    (setq x (car line-element))
    (setq y (cdr line-element))
    (vla-put-segmenttype segment acLineSegment) ; 设置为直线段
    (vla-put-segmentlength segment (sqrt (+ (* x x) (* y y)))) ; 设置线型元素长度
    (vla-put-segmentangle segment (atan y x)) ; 设置线型元素角度
    (vla-put-segmentarrowheadtype segment acArrowDefault) ; 设置箭头类型
  )
  
  (vla-endundomark doc) ; 结束撤销操作
)

(defun set-line-type (entity line-type)
  (vla-put-linetype entity line-type)
)

(defun apply-custom-line ()
  (setq line (vla-addline (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point '(0 0 0)) (vlax-3d-point '(10 10 0)))) ; 创建一条直线
  (set-line-type line "CustomLine") ; 应用自定义线型
)