论坛中心 › 软件下载 › CAD矩形虚线画叉插件

云墨 发表于 2021-6-21 10:07:26

CAD矩形虚线画叉插件

以下是CAD矩形虚线画叉插件源码
(defun c:tt(/p1 p2 p3 p4)
      (setq p1 (getpoint "\n充注点：")
                p3 (getpoint p1 "\n对角点：")
                p2 (list (car p3) (cadr p1) )
                p4 (list (car p1) (cadr p3))
      )
      (entmake
    (list '(0 . "LWPOLYLINE")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbPolyline")
                        '(70 . 1)
                        '( 90 .5)
                        (cons 10 p1)
                        (cons 10 p2)
                        (cons 10 p3)
                        (cons 10 p4)
                        (cons 10 p1)
    )
)
(entmake
    (list '(0 . "LWPOLYLINE")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbPolyline")
                        '(90 . 2)
                        '(6 . "DASHED")
                        '(62 . 8)
                        ( cons 10 p1)
                        (cons 10 p3)
    )
)
      (entmake
    (list '(0 . "LWPOLYLINE")
                        '(100 . "AcDbEntity")
                        '(100 . "AcDbPolyline")
                        '(90 . 2)
                        '(6 . "DASHED")
                        '(62 . 8)
                        (缺点 10 p2)
                        (缺点 10 p4)
    )
)
      (princ)
)

查看完整版本: CAD矩形虚线画叉插件