我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置：網站首頁 > CAD教程 > 常見問題

CAD多段線節點上如何快速畫點的說明

時間:2015-12-19 06:52:00 來源:未知

  1. 【CTRL+右鍵】，【捕捉設置】里面，只捕捉【端點】，這樣會提高繪制速度。

  2. 使用小插件來繪制點，代碼如下：
     

    1. 1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    (defun C:tes ( / #g1 &k1 &kw1 i pt ss1 x)
     (if (null vlax-dump-object) (vl-load-com) )
     (princ "n請選擇多段線")
     (if (setq &kw1 (ssget '((0 . "LWPOLYLINE"))))
      (progn
       (while (setq &k1 (ssname &kw1 0))
        (setq &kw1 (ssdel &k1 &kw1) #g1 (entget &k1))
        (setq ss1 (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) #g1)))
        (setq i 0)
        (repeat (length ss1)
         (setq pt (nth i ss1) i (1+ i))
         (entmake (list '(0 . "POINT") (cons 10 pt)));繪制點
        )
       )
      )
     )
     (princ)
    );復制到記事本，以【.lsp】為后綴命名，打開CAD，autolisp加載了，命令【TES】