CAD多段线节点上如何快速画点的说明

时间:2015-12-19 06:52:00 来源:未知

【CTRL+右键】，【捕捉设置】里面，只捕捉【端点】，这样会提高绘制速度。
使用小插件来绘制点，代码如下：

(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】

上一篇：每次打开CAD时候就出现“输入的列表有缺陷”

下一篇：使用CAD如何自动找中心点的详细说明

CAD多段线节点上如何快速画点的说明

相关文章