CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

提供边界线类型的选择

2024-5-18 18:54| 发布者: admin| 查看: 286| 评论: 0|原作者: admin|来自: AutoCAD

提供边界线类型的选择

为花园小径应用指定的一个要求是允许用户将边界轮廓绘制为轻量级折线或旧式折线。你写的第一个版本总是使用轻量级折线来绘制边界。现在对话框界面已准备就绪，您也可以内置用于绘制旧式折线的选项。要实现这一点，必须确定要绘制哪种折线，然后必须绘制它。gp:drawOutlinegp:drawOutline

必要的更改包含在以下代码片段中。从以粗体显示的 gpdraw.lsp 文件进行修改：gp:drawOutline

(setq PathAngle  (cdr (assoc 50 BoundaryData))
    Width        (cdr (assoc 40 BoundaryData))
    HalfWidth    (/ Width 2.00)
    StartPt      (cdr (assoc 10 BoundaryData))
    PathLength   (cdr (assoc 41 BoundaryData))
    angp90       (+ PathAngle (Degrees->Radians 90))
    angm90       (- PathAngle (Degrees->Radians 90))
    p1           (polar StartPt angm90 HalfWidth)
    p2           (polar p1 PathAngle PathLength)
    p3           (polar p2 angp90 Width)
    p4           (polar p3 (+ PathAngle (Degrees->Radians 180)) PathLength)
    poly2Dpoints (apply 'append
                   (mapcar '3dPoint->2dPoint (list p1 p2 p3 p4))
                 )
    poly3Dpoints (mapcar 'float (append p1 p2 p3 p4))

    ;; get the polyline style
    plineStyle   (strcase (cdr (assoc 4 BoundaryData)))
) ;_ end of setq

;; Add polyline to the model space using ActiveX automation
(setq pline (if (= plineStyle "LIGHT")
              ;; create a lightweight polyline
              (vla-addLightweightPolyline
                      *ModelSpace*      ; Global Definition for Model Space
                      (gp:list->variantArray poly2Dpoints) ;data conversion
              ) ;_ end of vla-addLightweightPolyline
     
              ;; or create an old-style polyline
              (vla-addPolyline
                      *ModelSpace*
                      (gp:list->variantArray poly3Dpoints) ;data conversion
              ) ;_ end of vla-addPolyline
            ) ;_ end of if
) ;_ end of setq

在代码中键入更改可能非常棘手，因为您不仅需要添加代码，还需要删除一些现有行并重新排列其他行。建议您从在线教程中复制整个语句并将其粘贴到代码中。setq