社区 › AutoLISP/Visual LISP 编程技术 › 画封闭多边形----------脱了裤子放屁

自贡黄明儒 发表于 2014-10-17 16:13:44

画封闭多边形----------脱了裤子放屁

;;[功能] 画封闭多边形----------脱了裤子放屁
(defun C:w1 (/ PTS)
(cond ((setq pts (HH::getPoints)) (MakeXLWPOLYLINE pts)))
)

;;[功能] 取点函数
(defun HH::getPoints (/ CODE FLAG P0 PT PT1 X Y)
(while (and (setq code (grread T 8)) (or (= (car code) 3) (= (car code) 5)))
    (cond ((= (car code) 3) (setq pt (cons (cadr code) pt))))
    (redraw)
    (cond
      ((> (length pt) 1)
       (setq pt1 (cons (cadr code) pt))
       (setq pt1 (cons p0 pt1))
       (mapcar '(lambda (x y) (grdraw x y 1)) pt1 (cdr pt1))
      )
      ((equal (length pt) 1) (setq p0 (car pt)) (grdraw p0 (cadr code) 1))
      (T
       (cond ((not Flag) (setq Flag T) (princ "\n 点取起点")))
      )
    )
)
(redraw)
(cond ((> (length pt) 2) (reverse pt)))
)
;;http://bbs.xdcad.net/thread-673261-1-1.html
;;167.3 [功能] Entmake点表生成多段线
(defun MakeXLWPOLYLINE (lst / PT)
(entmakeX
    (append
      (list '(0 . "LWPOLYLINE")
          '(100 . "AcDbEntity")
          '(100 . "AcDbPolyline")
          (cons 90 (length lst))
          '(70 . 1)
      )
      (mapcar '(lambda (pt) (cons 10 pt)) lst)
    )
)
)

wzg356 发表于 2014-10-17 16:24:23

沙发一个
以前看到过，主要是收集到了新函数

上瘾了，咋办啊

lostbalance 发表于 2014-10-17 22:41:20

标题很形象啊。。。。。。

这个带捕捉吗

77077 发表于 2014-10-17 23:33:25

不错,拓展一下用的人就多了~

灰石Jeremy 发表于 2019-8-24 00:19:00

应该叫动态画多边形~

paulpipi 发表于 2019-8-24 11:54:30

应该叫动态画多边形~

999999 发表于 2020-8-30 17:17:59

支持支持，，非常羡慕大神们会这么多

查看完整版本: 画封闭多边形----------脱了裤子放屁