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

小编cadzj 8月 31, 202119:51:08
评论
719 7781字阅读25分56秒
  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】

小编cadzj
  • 本文由 发表于 8月 31, 202119:51:08
  • 转载请务必保留本文链接:http://wg678.cn/55353.html
匿名

发表评论

匿名网友 填写信息

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: